modules/lists/lists.inc.php

   1 <?php
   2 /***************************************************************************
   3  *  Copyright (C) 2003-2011 Polytechnique.org                              *
   4  *  http://opensource.polytechnique.org/                                   *
   5  *                                                                         *
   6  *  This program is free software; you can redistribute it and/or modify   *
   7  *  it under the terms of the GNU General Public License as published by   *
   8  *  the Free Software Foundation; either version 2 of the License, or      *
   9  *  (at your option) any later version.                                    *
  10  *                                                                         *
  11  *  This program is distributed in the hope that it will be useful,        *
  12  *  but WITHOUT ANY WARRANTY; without even the implied warranty of         *
  13  *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the          *
  14  *  GNU General Public License for more details.                           *
  15  *                                                                         *
  16  *  You should have received a copy of the GNU General Public License      *
  17  *  along with this program; if not, write to the Free Software            *
  18  *  Foundation, Inc.,                                                      *
  19  *  59 Temple Place, Suite 330, Boston, MA  02111-1307  USA                *
  20  ***************************************************************************/
  21
  22 // {{{ function list_sort_owners
  23
  24 function list_sort_owners($emails, $tri_promo = true)
  25 {
  26     global $globals;
  27
  28     // $membres' structure is the following: $sortKey => $key => $listMember
  29     $membres = array();
  30     $seen = array();
  31
  32     $members = array();
  33
  34     $uf = new UserFilter(new UFC_Email($emails));
  35     $it = $uf->iterUsers();
  36     while ($u = $it->next()) {
  37         $members[$u->uid] = array(
  38             'user' => $u,
  39             'profile' => null,
  40             'email' => $u->forlifeEmail());
  41         $seen[] = $u->forlifeEmail();
  42     }
  43
  44     $pf = new ProfileFilter(new UFC_Email($emails));
  45     $it = $pf->iterProfiles();
  46     while ($p = $it->next()) {
  47         $members[$p->owner_id]['user']->setPrefetchedProfile($p);
  48         $members[$p->owner_id]['profile'] = $p;
  49     }
  50
  51     foreach ($emails as $email) {
  52         if (!in_array($email, $seen)) {
  53             $seen[] = $email;
  54             $members[$email] = array('user' => null, 'profile' => null,
  55                 'email' => $email);
  56         }
  57     }
  58
  59     // $members is now an array of uid => {'user': User or null, 'email': $email}
  60
  61     // $sorted_members is an array of $sortKey1 => $sortKey2 => {User, email}
  62     $sorted_members = array();
  63
  64     foreach($members as $member) {
  65         if (is_null($member['user'])) {
  66             $category = 'AAAAA';
  67             $name = $member['email'];
  68         } else {
  69             $category = $member['user']->category();
  70             $name = $member['user']->directoryName();
  71         }
  72         if (empty($category)) {
  73             $category = "AAAAA";
  74         }
  75
  76         $main_sort_key = $tri_promo ? $category : strtoupper($name{0});
  77         $alt_sort_key = $name;
  78
  79         if (!array_key_exists($main_sort_key, $sorted_members)) {
  80             $sorted_members[$main_sort_key] = array();
  81         }
  82
  83         $sorted_members[$main_sort_key][$alt_sort_key] = $member;
  84     }
  85
  86     uksort($sorted_members, 'strcasecmp');
  87     foreach($sorted_members as &$subsorted_members)  {
  88         uksort($subsorted_members, 'strcasecmp');
  89     }
  90     return $sorted_members;
  91 }
  92
  93 // }}}
  94 // {{{ list_extract_member
  95
  96 function _list_extract_member($member)
  97 {
  98     return $member[1];
  99 }
 100
 101 function list_extract_members($members)
 102 {
 103     return array_map('_list_extract_member', $members);
 104 }
 105
 106 // }}}
 107 // {{{ function list_sort_members
 108
 109 function list_sort_members($members, $tri_promo = true)
 110 {
 111     $m = list_extract_members($members);
 112     return list_sort_owners($m, $tri_promo);
 113 }
 114
 115 // }}}
 116 // {{{ function list_fetch_basic_info
 117
 118 function list_fetch_basic_info($members)
 119 {
 120     $res = array();
 121     foreach ($members as $member) {
 122         $user = User::getSilent($member);
 123         if (!$user) {
 124             $res[] = $member . ';;';
 125         } else {
 126             $res[] = $user->lastName() . ';' . $user->firstName() . ';' . $user->promo();
 127         }
 128     }
 129     return $res;
 130 }
 131
 132 // }}}
 133 // {{{ function list_header_decode
 134
 135 function _list_header_decode($charset, $c, $str) {
 136     $s = ($c == 'Q' || $c == 'q') ? quoted_printable_decode($str) : base64_decode($str);
 137     $s = iconv($charset, 'UTF-8', $s);
 138     return str_replace('_', ' ', $s);
 139 }
 140
 141 function list_header_decode($value) {
 142     if (!$value) {
 143         return "[pas de sujet]";
 144     }
 145     $val = preg_replace('/(=\?[^?]*\?[BQbq]\?[^?]*\?=) (=\?[^?]*\?[BQbq]\?[^?]*\?=)/', '\1\2', $value);
 146     return preg_replace('/=\?([^?]*)\?([BQbq])\?([^?]*)\?=/e', '_list_header_decode("\1", "\2", "\3")', $val);
 147 }
 148
 149 // }}}
 150 // vim:set et sw=4 sts=4 sws=4 foldmethod=marker enc=utf-8:
 151 ?>