modules/lists/lists.inc.php

   1 <?php
   2 /***************************************************************************
   3  *  Copyright (C) 2003-2014 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     if ($it) {
  47         while ($p = $it->next()) {
  48             $members[$p->owner_id]['user']->setPrefetchedProfile($p);
  49             $members[$p->owner_id]['profile'] = $p;
  50         }
  51     }
  52
  53     foreach ($emails as $email) {
  54         if (!in_array($email, $seen)) {
  55             $seen[] = $email;
  56             $members[$email] = array('user' => null, 'profile' => null,
  57                 'email' => $email);
  58         }
  59     }
  60
  61     // $members is now an array of uid => {'user': User or null, 'email': $email}
  62
  63     // $sorted_members is an array of $sortKey1 => $sortKey2 => {User, email}
  64     $sorted_members = array();
  65
  66     foreach($members as $member) {
  67         if (is_null($member['user'])) {
  68             $category = 'AAAAA';
  69             $name = $member['email'];
  70         } else {
  71             $category = $member['user']->category();
  72             $name = $member['user']->sortName();
  73         }
  74         if (empty($category)) {
  75             $category = "AAAAA";
  76         }
  77
  78         $main_sort_key = $tri_promo ? $category : strtoupper($name{0});
  79         $alt_sort_key = $name;
  80
  81         if (!array_key_exists($main_sort_key, $sorted_members)) {
  82             $sorted_members[$main_sort_key] = array();
  83         }
  84
  85         $sorted_members[$main_sort_key][$alt_sort_key] = $member;
  86     }
  87
  88     uksort($sorted_members, 'strcasecmp');
  89     foreach($sorted_members as &$subsorted_members)  {
  90         uksort($subsorted_members, 'strcasecmp');
  91     }
  92     return $sorted_members;
  93 }
  94
  95 // }}}
  96 // {{{ list_extract_member
  97
  98 function _list_extract_member($member)
  99 {
 100     return $member[1];
 101 }
 102
 103 function list_extract_members($members)
 104 {
 105     return array_map('_list_extract_member', $members);
 106 }
 107
 108 // }}}
 109 // {{{ function list_sort_members
 110
 111 function list_sort_members($members, $tri_promo = true)
 112 {
 113     $m = list_extract_members($members);
 114     return list_sort_owners($m, $tri_promo);
 115 }
 116
 117 // }}}
 118 // {{{ function list_fetch_basic_info
 119
 120 function list_fetch_basic_info($members)
 121 {
 122     $res = array();
 123     foreach ($members as $member) {
 124         $user = User::getSilent($member);
 125         if (!$user) {
 126             $res[] = $member . ';;';
 127         } else {
 128             $res[] = $user->lastName() . ';' . $user->firstName() . ';' . $user->promo();
 129         }
 130     }
 131     return $res;
 132 }
 133
 134 // }}}
 135 // {{{ function list_header_decode
 136
 137 function _list_header_decode($charset, $c, $str) {
 138     $s = ($c == 'Q' || $c == 'q') ? quoted_printable_decode($str) : base64_decode($str);
 139     $s = iconv($charset, 'UTF-8', $s);
 140     return str_replace('_', ' ', $s);
 141 }
 142
 143 function list_header_decode($value) {
 144     if (!$value) {
 145         return "[pas de sujet]";
 146     }
 147     $val = preg_replace('/(=\?[^?]*\?[BQbq]\?[^?]*\?=) (=\?[^?]*\?[BQbq]\?[^?]*\?=)/', '\1\2', $value);
 148     return preg_replace('/=\?([^?]*)\?([BQbq])\?([^?]*)\?=/e', '_list_header_decode("\1", "\2", "\3")', $val);
 149 }
 150
 151 // }}}
 152 // vim:set et sw=4 sts=4 sws=4 foldmethod=marker fenc=utf-8:
 153 ?>