688bc942a7570c4684bd85e44f9fab8916c2a9aa
2 /***************************************************************************
3 * Copyright (C) 2003-2008 Polytechnique.org *
4 * http://opensource.polytechnique.org/ *
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. *
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. *
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 *
19 * 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA *
20 ***************************************************************************/
22 require_once 'banana/banana.inc.php';
23 require_once 'banana/message.func.inc.php';
24 require_once 'banana/hooks.inc.php';
26 function hook_checkcancel($_headers)
28 return ($_headers['x-org-id'] == S
::v('hruid') or S
::has_perms());
31 function hook_makeLink($params)
33 global $platal, $globals;
34 $base = $globals->baseurl
. '/' . $platal->ns
. 'lists/moderate/' . ModerationBanana
::$listname . '?';
36 foreach ($params as $key=>$value) {
37 if ($key == 'artid') {
40 if ($key == 'group') {
43 if ($key == 'action' && $value != 'showext') {
49 $get .= $key . '=' . $value;
54 class ModerationBanana
extends Banana
56 static public $listname;
57 static public $domain;
58 static public $client;
60 function __construct(User
&$user, $params = null
)
63 ModerationBanana
::$client = $params['client'];
64 ModerationBanana
::$listname = $params['listname'];
65 ModerationBanana
::$domain = isset($params['domain']) ?
$params['domain'] : $globals->mail
->domain
;
66 $params['group'] = ModerationBanana
::$listname . '@' . ModerationBanana
::$domain;
67 Banana
::$spool_root = $globals->banana
->spool_root
;
68 Banana
::$spool_boxlist = false
;
69 Banana
::$msgshow_withthread = false
;
70 Banana
::$withtabs = false
;
71 Banana
::$msgshow_externalimages = false
;
72 Banana
::$msgshow_mimeparts[] = 'source';
73 Banana
::$feed_active = false
;
74 Banana
::$debug_smarty = ($globals->debug
& DEBUG_SMARTY
);
75 array_push(Banana
::$msgparse_headers, 'x-org-id', 'x-org-mail');
76 parent
::__construct($params, 'MLInterface', 'ModerationPage');
80 class ModerationPage
extends BananaPage
82 protected function prepare()
84 $this->killPage('subscribe');
85 $this->killPage('forums');
86 $this->assign('noactions', true
);
87 return parent
::prepare();
90 public function trig($msg)
94 $page->trigError($msg);
100 class BananaMLInterface
implements BananaProtocoleInterface
102 private $infos; //(list, addr, host, desc, info, diff, ins, priv, sub, own, nbsub)
103 private $helds; //(id, sender, size, subj, date)
105 public function __construct()
107 $this->infos
= ModerationBanana
::$client->get_members(ModerationBanana
::$listname);
108 $this->infos
= $this->infos
[0];
110 $mods = ModerationBanana
::$client->get_pending_ops(ModerationBanana
::$listname);
111 $this->helds
= $mods[1];
114 public function isValid()
116 return !is_null(ModerationBanana
::$client);
119 public function lastErrNo()
124 public function lastError()
129 public function getDescription()
131 return $this->infos
['desc'];
134 public function getBoxList($mode = Banana
::BOXES_ALL
, $since = 0, $withstats = false
)
136 return array(Banana
::$group => Array(
137 'desc' => $this->infos
['desc'],
138 'msgnum' => count($this->helds
),
139 'unread' => count($this->helds
)));
142 public function &getMessage($id)
145 $msg = ModerationBanana
::$client->get_pending_mail(ModerationBanana
::$listname, $id, 1);
147 $message = new BananaMessage(html_entity_decode($msg));
152 public function getMessageSource($id)
154 return ModerationBanana
::$client->get_pending_mail(ModerationBanana
::$listname, $id, 1);
157 public function getIndexes()
160 foreach ($this->helds
as &$desc) {
161 $ids[] = intval($desc['id']);
164 return array(count($ids), min($ids), max($ids));
167 public function &getMessageHeaders($firstid, $lastid, array $msg_headers = array())
169 $conv = array('from' => 'sender', 'subject' => 'subj', 'date' => 'stamp', 'message-id' => 'id');
171 foreach ($msg_headers as $hdr) {
172 $hdr = strtolower($hdr);
173 $mlhdr = isset($conv[$hdr]) ?
$conv[$hdr] : $hdr;
174 foreach ($this->helds
as &$desc) {
175 $id = intval($desc['id']);
176 if (!isset($headers[$id])) {
177 $headers[$id] = array();
179 if ($mlhdr == 'id') {
180 $headers[$id][$hdr] = $desc['stamp'] . '$' . $desc['id'] . '@' . Banana
::$group;
182 $headers[$id][$hdr] = isset($desc[$mlhdr]) ?
banana_html_entity_decode($desc[$mlhdr]) : null
;
189 public function updateSpool(array &$messages) { }
191 public function getNewIndexes($since)
194 foreach ($this->helds
as &$desc) {
195 if ($desc['stamp'] > $since) {
196 $ids[] = intval($desc['id']);
203 public function canSend()
208 public function canCancel()
213 public function requestedHeaders()
218 public function send(BananaMessage
&$message)
223 public function cancel(BananaMessage
&$message)
228 public function name()
230 return 'MLModeration';
233 public function filename()
235 return ModerationBanana
::$domain . '_' . ModerationBanana
::$listname;
238 public function backtrace()
244 // vim:set et sw=4 sts=4 ts=4 enc=utf-8: