modules/lists/lists.inc.php

   1 <?php
   2 /***************************************************************************
   3  *  Copyright (C) 2003-2010 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(&$members, $tri_promo = true)
  25 {
  26     global $globals;
  27
  28     $membres = Array();
  29
  30     foreach($members as $mem) {
  31         $user = User::getSilent($mem);
  32         if (!$user) {
  33             $membres[0][] = array('l' => $mem, 'p' => (!$tri_promo ? 'inconnue' : null), 'n' => null, 'x' => null, 'b' => null);
  34         } else {
  35             $uid = $user->id();
  36             $nom = $user->directoryName();
  37             $promo = $user->promo();
  38             if (!$promo) {
  39                 $promo = 'non-X';
  40             }
  41             $key = $tri_promo ? ($promo != 'non-X' ? $promo : 0) : strtoupper(@$nom{0});
  42             if ($tri_promo) {
  43                 $promo = null;
  44             }
  45             $membres[$key][$nom.$mem] = array('n' => $nom, 'l' => $mem, 'p' => $promo, 'x' => $uid, 'b' => $user->lost);
  46         }
  47     }
  48
  49     ksort($membres);
  50     foreach($membres as $key=>$val) ksort($membres[$key]);
  51     return $membres;
  52 }
  53
  54 // }}}
  55 // {{{ list_extract_member
  56
  57 function _list_extract_member($member)
  58 {
  59     return $member[1];
  60 }
  61
  62 function list_extract_members($members)
  63 {
  64     return array_map('_list_extract_member', $members);
  65 }
  66
  67 // }}}
  68 // {{{ function list_sort_members
  69
  70 function list_sort_members($members, $tri_promo = true)
  71 {
  72     $m = list_extract_members($members);
  73     return list_sort_owners($m, $tri_promo);
  74 }
  75
  76 // }}}
  77 // {{{ function list_fetch_basic_info
  78
  79 function list_fetch_basic_info($members)
  80 {
  81     $res = array();
  82     foreach ($members as $member) {
  83         $user = User::getSilent($member);
  84         if (!$user) {
  85             $res[] = $member . ',,';
  86         } else {
  87             $res[] = $user->forlifeEmail() . ',' . $user->directoryName() . ',' . $user->promo();
  88         }
  89     }
  90     return $res;
  91 }
  92
  93 // }}}
  94 // {{{ function list_header_decode
  95
  96 function _list_header_decode($charset, $c, $str) {
  97     $s = ($c == 'Q' || $c == 'q') ? quoted_printable_decode($str) : base64_decode($str);
  98     $s = iconv($charset, 'UTF-8', $s);
  99     return str_replace('_', ' ', $s);
 100 }
 101
 102 function list_header_decode($value) {
 103     if (!$value) {
 104         return "[pas de sujet]";
 105     }
 106     $val = preg_replace('/(=\?[^?]*\?[BQbq]\?[^?]*\?=) (=\?[^?]*\?[BQbq]\?[^?]*\?=)/', '\1\2', $value);
 107     return preg_replace('/=\?([^?]*)\?([BQbq])\?([^?]*)\?=/e', '_list_header_decode("\1", "\2", "\3")', $val);
 108 }
 109
 110 // }}}
 111 // vim:set et sw=4 sts=4 sws=4 foldmethod=marker enc=utf-8:
 112 ?>