2 /***************************************************************************
3 * Copyright (C) 2003-2009 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('hruid') . '/' . S
::s('token') . '/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)
181 foreach (array('x-org-id', 'x-org-mail') as $key) {
182 if (isset($headers[$key])) {
183 $login = $headers[$key];
187 if (is_null($login)) {
188 // No login, fallback to default handler
191 if (isset($headers['x-face'])) {
192 $user = User
::getSilent($login);
193 $res = XDB
::query('SELECT pf.uid
194 FROM forum_profiles AS pf
195 WHERE pf.uid = {?} AND FIND_IN_SET(\'xface\', pf.flags)',
197 if ($res->numRows()) {
198 // User wants his xface to be showed, fallback to default handler
203 http_redirect($global->baseurl
. '/photo/' . $login);
206 function hook_makeJs($src)
208 Platal
::page()->addJsLink("$src.js");
212 function make_Organization()
215 $perms = S
::v('perms');
216 $group = $globals->asso('nom');
217 if (S
::has_perms()) {
218 return "Administrateur de Polytechnique.org";
219 } else if ($group && $perms->hasFlag('groupadmin')) {
220 return "Animateur de $group";
221 } else if ($group && $perms->hasFlag('groupmember')) {
222 return "Membre de $group";
224 return "Utilisateur de Polytechnique.org";
227 function get_banana_params(array &$get, $group = null
, $action = null
, $artid = null
)
229 if ($group == 'forums') {
231 } else if ($group == 'thread') {
232 $group = S
::v('banana_group');
233 } else if ($group == 'message') {
235 $group = S
::v('banana_group');
236 $artid = S
::i('banana_artid');
237 } else if ($action == 'message') {
239 $artid = S
::i('banana_artid');
240 } else if ($group == 'subscribe' ||
$group == 'subscription') {
243 $get['action'] = 'subscribe';
244 } else if ($group == 'profile') {
247 $get['action'] = 'profile';
249 if (!is_null($group)) {
250 $get['group'] = $group;
252 if (!is_null($action)) {
253 if ($action == 'new') {
254 $get['action'] = 'new';
255 } elseif (!is_null($artid)) {
256 $get['artid'] = $artid;
257 if ($action == 'reply') {
258 $get['action'] = 'new';
259 } elseif ($action == 'cancel') {
260 $get['action'] = $action;
261 } elseif ($action == 'from') {
262 $get['first'] = $artid;
263 unset($get['artid']);
264 } elseif ($action == 'read') {
265 $get['part'] = @$_GET['part'];
266 } elseif ($action == 'source') {
267 $get['part'] = 'source';
268 } elseif ($action == 'xface') {
269 $get['part'] = 'xface';
271 $get['part'] = str_replace('.', '/', $action);
273 if (Get
::v('action') == 'showext') {
274 $get['action'] = 'showext';
280 class PlatalBananaPage
extends BananaPage
285 public function __construct()
288 Banana
::$withtabs = false
;
289 $this->handler
= 'BananaHandler';
290 $this->base
= $platal->pl_self(0);
291 parent
::__construct();
294 protected function prepare()
296 $tpl = parent
::prepare();
298 $wiz = new PlWizard('Banana', PlPage
::getCoreTpl('plwizard.tpl'), true
, false
);
299 foreach ($this->pages
as $name=>&$mpage) {
300 $wiz->addPage($this->handler
, $mpage['text'], $name);
302 $wiz->apply(Platal
::page(), $this->base
, $this->page
);
309 public function __construct(PlWizard
&$wiz)
313 public function template()
315 return 'banana/index.tpl';
318 public function prepare(PlPage
&$page, $id)
322 public function process()
324 return PlWizard
::CURRENT_PAGE
;
328 function run_banana(&$page, $class, array $args)
331 $banana = new $class($user, $args);
332 $page->assign('banana', $banana->run());
333 $page->addCssInline($banana->css());
334 $page->addCssLink('banana.css');
335 $rss = $banana->feed();
337 if (Banana
::$group) {
338 $page->setRssLink('Banana :: ' . Banana
::$group, $rss);
340 $page->setRssLink('Banana :: Abonnements', $rss);
343 $bt = $banana->backtrace();
345 new PlBacktrace(Banana
::$protocole->name(), $banana->backtrace(), 'response', 'time');
349 // vim:set et sw=4 sts=4 sws=4 foldmethod=marker enc=utf-8: