f0a23620e65e071e3fa687cbcb421de440c1d82e
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';
24 function hook_formatDisplayHeader($_header, $_text, $in_spool = false
)
27 case 'from': case 'to': case 'cc': case 'reply-to':
28 $addresses = preg_split("/ *, */", $_text);
30 foreach ($addresses as $address) {
31 $address = BananaMessage
::formatFrom(trim($address), Banana
::$message->getHeaderValue('subject'));
32 if ($_header == 'from') {
33 if ($id = Banana
::$message->getHeaderValue('x-org-id')) {
34 return $address . ' <a href="profile/' . $id . '" class="popup2" title="' . $id . '">'
35 . '<img src="images/icons/user_suit.gif" title="fiche" alt="" /></a>';
36 } elseif ($id = Banana
::$message->getHeaderValue('x-org-mail')) {
37 list($id, $domain) = explode('@', $id);
38 return $address . ' <a href="profile/' . $id . '" class="popup2" title="' . $id . '">'
39 . '<img src="images/icons/user_suit.gif" title="fiche" alt="" /></a>';
53 $text = stripslashes($_text);
54 if (preg_match('/^(.+?)\s*\[=> (.*?)\]\s*$/u', $text, $matches)) {
57 if (Banana
::$group == $group) {
58 $link = ' [=> ' . $group . ']';
60 $link = ' [=> ' . Banana
::$page->makeLink(array('group' => $group, 'text' => $group)) . ']';
63 $text = banana_catchFormats(banana_htmlentities($text));
65 return array($text, $link);
72 function hook_platalRSS($group)
79 return '/rss/' . $group . S
::v('forlife') . '/' . S
::v('core_rss_hash') . '/rss.xml';
82 function hook_platalMessageLink($params)
85 if (isset($params['first'])) {
86 return $base . '/from/' . $params['first'];
88 if (isset($params['artid'])) {
89 if (@$params['part'] == 'xface') {
91 } elseif (@$params['action'] == 'new') {
93 } elseif (@$params['action'] == 'cancel') {
95 } elseif (@$params['part']) {
96 if (strpos($params['part'], '.') !== false
) {
97 $params['artid'] .= '?part=' . urlencode($params['part']);
100 $base .= '/' . str_replace('/', '.', $params['part']);
105 return $base . '/' . $params['artid'];
108 if (@$params['action'] == 'new') {
109 return $base . '/new';
114 function hook_makeImg($img, $alt, $height, $width)
117 $url = $globals->baseurl
. '/images/banana/' . $img;
119 if (!is_null($width)) {
120 $width = ' width="' . $width . '"';
122 if (!is_null($height)) {
123 $height = ' height="' . $height . '"';
126 return '<img src="' . $url . '"' . $height . $width . ' alt="' . $alt . '" />';
129 if (!function_exists('hook_makeLink')) {
130 function hook_makeLink($params)
132 global $globals, $platal;
133 $xnet = !empty($GLOBALS['IS_XNET_SITE']);
134 $feed = (@$params['action'] == 'rss' ||
@$params['action'] == 'rss2' ||
@$params['action'] == 'atom');
135 if (Banana
::$protocole->name() == 'NNTP' && !$xnet) {
136 $base = $globals->baseurl
. '/banana';
138 return $base . hook_platalRSS(@$params['group']);
140 if (isset($params['page'])) {
141 return $base . '/' . $params['page'];
143 if (@$params['action'] == 'subscribe') {
144 return $base . '/subscribe';
147 if (!isset($params['group'])) {
150 $base .= '/' . $params['group'];
151 } else if (Banana
::$protocole->name() == 'NNTP' && $xnet) {
153 return $globals->baseurl
. '/banana' . hook_platalRSS(@$params['group']);
155 $base = $globals->baseurl
. '/' . $platal->ns
. 'forum';
156 } else if (Banana
::$protocole->name() == 'MLArchives') {
158 return $globals->baseurl
. '/' . $platal->ns
. hook_platalRSS(MLBanana
::$listname);
159 } elseif (php_sapi_name() == 'cli') {
160 $base = "http://listes.polytechnique.org/archives/" . str_replace('@', '_', $params['group']);
162 $base = $globals->baseurl
. '/' . $platal->ns
. 'lists/archives/' . MLBanana
::$listname;
165 $base = $base . hook_platalMessageLink($params);
166 if (@$params['action'] == 'showext') {
167 $base .= '?action=showext';
173 function hook_hasXFace($headers)
175 return isset($headers['x-org-id']) ||
isset($headers['x-org-mail']);
178 function hook_getXFace($headers)
180 $login = @$headers['x-org-id'];
182 @list
($login, ) = explode('@', $headers['x-org-mail']);
187 if (isset($headers['x-face'])) {
188 $res = XDB
::query("SELECT p.uid
189 FROM forums.profils AS p
190 INNER JOIN aliases AS a ON (p.uid = a.id)
191 WHERE FIND_IN_SET('xface', p.flags) AND a.alias = {?}",
193 if ($res->numRows()) {
198 http_redirect($global->baseurl
. '/photo/' . $login);
201 function hook_makeJs($src)
204 $page->addJsLink("$src.js");
208 function make_Organization()
211 $perms = S
::v('perms');
212 $group = $globals->asso('nom');
213 if (S
::has_perms()) {
214 return "Administrateur de Polytechnique.org";
215 } else if ($group && $perms->hasFlag('groupadmin')) {
216 return "Animateur de $group";
217 } else if ($group && $perms->hasFlag('groupmember')) {
218 return "Membre de $group";
220 return "Utilisateur de Polytechnique.org";
223 function get_banana_params(array &$get, $group = null
, $action = null
, $artid = null
)
225 if ($group == 'forums') {
227 } else if ($group == 'thread') {
228 $group = S
::v('banana_group');
229 } else if ($group == 'message') {
231 $group = S
::v('banana_group');
232 $artid = S
::i('banana_artid');
233 } else if ($action == 'message') {
235 $artid = S
::i('banana_artid');
236 } else if ($group == 'subscribe' ||
$group == 'subscription') {
239 $get['action'] = 'subscribe';
240 } else if ($group == 'profile') {
243 $get['action'] = 'profile';
245 if (!is_null($group)) {
246 $get['group'] = $group;
248 if (!is_null($action)) {
249 if ($action == 'new') {
250 $get['action'] = 'new';
251 } elseif (!is_null($artid)) {
252 $get['artid'] = $artid;
253 if ($action == 'reply') {
254 $get['action'] = 'new';
255 } elseif ($action == 'cancel') {
256 $get['action'] = $action;
257 } elseif ($action == 'from') {
258 $get['first'] = $artid;
259 unset($get['artid']);
260 } elseif ($action == 'read') {
261 $get['part'] = @$_GET['part'];
262 } elseif ($action == 'source') {
263 $get['part'] = 'source';
264 } elseif ($action == 'xface') {
265 $get['part'] = 'xface';
267 $get['part'] = str_replace('.', '/', $action);
269 if (Get
::v('action') == 'showext') {
270 $get['action'] = 'showext';
276 class PlatalBananaPage
extends BananaPage
281 public function __construct()
284 Banana
::$withtabs = false
;
285 $this->handler
= 'BananaHandler';
286 $this->base
= $platal->pl_self(0);
287 parent
::__construct();
290 protected function prepare()
292 $tpl = parent
::prepare();
294 $wiz = new PlWizard('Banana', 'core/plwizard.tpl', true
, false
);
295 foreach ($this->pages
as $name=>&$mpage) {
296 $wiz->addPage($this->handler
, $mpage['text'], $name);
298 $wiz->apply($page, $this->base
, $this->page
);
305 public function __construct(PlWizard
&$wiz)
309 public function template()
311 return 'banana/index.tpl';
314 public function prepare(PlatalPage
&$page, $id)
318 public function process()
320 return PlWizard
::CURRENT_PAGE
;
324 function run_banana(&$page, $class, array $args)
326 $banana = new $class(S
::v('forlife'), $args);
327 $page->assign('banana', $banana->run());
328 $page->addCssInline($banana->css());
329 $page->addCssLink('banana.css');
330 $rss = $banana->feed();
332 if (Banana
::$group) {
333 $page->setRssLink('Banana :: ' . Banana
::$group, $rss);
335 $page->setRssLink('Banana :: Abonnements', $rss);
338 $bt = $banana->backtrace();
340 new PlBacktrace(Banana
::$protocole->name(), $banana->backtrace(), 'response', 'time');
344 // vim:set et sw=4 sts=4 sws=4 foldmethod=marker enc=utf-8: