2 /***************************************************************************
3 * Copyright (C) 2003-2010 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 define('PL_DO_AUTH', 300);
23 define('PL_FORBIDDEN', 403);
24 define('PL_NOT_FOUND', 404);
25 define('PL_WIKI', 500);
33 protected function __construct($auth = AUTH_PUBLIC
, $perms = 'user', $type = DO_AUTH
)
36 $this->perms
= $perms;
40 public function needAuth()
42 return $this->auth
> S
::i('auth', AUTH_PUBLIC
);
45 public function checkPerms()
47 if (!$this->perms ||
$this->auth
== AUTH_PUBLIC
) { // No perms, no check
50 $s_perms = S
::v('perms');
51 return $s_perms->hasFlagCombination($this->perms
);
54 public function hasType($type)
56 return ($this->type
& $type) == $type;
59 abstract protected function run(PlPage
&$page, array $args);
61 public function call(PlPage
&$page, array $args)
63 global $globals, $session, $platal;
64 if ($this->needAuth()) {
65 if ($this->hasType(DO_AUTH
)) {
66 if (!$session->start($this->auth
)) {
67 $platal->force_login($page);
74 if (!$this->checkPerms()) {
75 if (Platal
::notAllowed()) {
79 return $this->run($page, $args);
83 class PlStdHook
extends PlHook
87 public function __construct($callback, $auth = AUTH_PUBLIC
, $perms = 'user', $type = DO_AUTH
)
89 parent
::__construct($auth, $perms, $type);
90 $this->hook
= $callback;
93 protected function run(PlPage
&$page, array $args)
95 global $session, $platal;
98 $val = call_user_func_array($this->hook
, $args);
99 if ($val == PL_DO_AUTH
) {
100 if (!$session->start($session->loggedLevel())) {
101 $platal->force_login($page);
103 $val = call_user_func_array($this->hook
, $args);
109 class PlWikiHook
extends PlHook
111 public function __construct($auth = AUTH_PUBLIC
, $perms = 'user', $type = DO_AUTH
)
113 parent
::__construct($auth, $perms, $type);
116 protected function run(PlPage
&$page, array $args)
125 public $aliased = null
;
126 public $children = array();
128 public function addChild(array $path, PlHook
$hook)
131 $next = array_shift($path);
133 if ($next && $next{0} == '%') {
135 $next = $platal->hook_map(substr($next, 1));
140 @$child =& $this->children
[$next];
142 $child = new PlHookTree();
143 $this->children
[$next] =& $child;
144 $child->aliased
= $alias;
147 $child->hook
= $hook;
149 $child->addChild($path, $hook);
153 private function findChildAux(array $remain, array $matched, array $aliased)
156 if ($this->aliased
) {
160 $child = @$this->children
[$next];
162 array_shift($remain);
164 return $child->findChildAux($remain, $matched, $aliased);
167 return array($this->hook
, $matched, $remain, $aliased);
170 public function findChild(array $path)
172 return $this->findChildAux($path, array(), array());
175 private function findNearestChildAux(array $remain, array $matched, array $aliased)
178 if ($this->aliased
) {
182 $child = @$this->children
[$next];
187 foreach ($this->children
as $path=>$hook) {
188 $lev = levenshtein($next, $path);
189 if ($lev <= $nearest_lev
190 && ($lev < strlen($next) / 2 ||
strpos($next, $path) !== false
191 ||
strpos($path, $next) !== false
)) {
192 $sdx = levenshtein(soundex($next), soundex($path));
193 if ($lev == $nearest_lev ||
$sdx < $nearest_sdx) {
204 array_shift($remain);
206 return $child->findNearestChildAux($remain, $matched, $aliased);
208 if (($pos = strpos($next, '.php')) !== false
) {
209 $remain[0] = substr($next, 0, $pos);
210 return $this->findNearestChildAux($remain, $matched, $aliased);
213 return array($this->hook
, $matched, $remain, $aliased);
216 public function findNearestChild(array $path)
218 return $this->findNearestChildAux($path, array(), array());
223 abstract class Platal
232 public $argv = array();
234 static private $_page = null
;
236 public function __construct()
238 global $platal, $session, $globals;
241 /* Assign globals first, then call init: init must be used for operations
242 * that requires access to the content of $globals (e.g. XDB requires
243 * $globals to be assigned.
245 $globals = $this->buildGlobals();
248 /* Get the current session: assign first, then activate the session.
250 $session = $this->buildSession();
251 if (!$session->startAvailableAuth()) {
252 Platal
::page()->trigError("Données d'authentification invalides.");
255 $modules = func_get_args();
256 if (isset($modules[0]) && is_array($modules[0])) {
257 $modules = $modules[0];
259 $this->path
= trim(Get
::_get('n', null
), '/');
261 $this->mods
= array();
262 $this->hooks
= new PlHookTree();
264 array_unshift($modules, 'core');
265 foreach ($modules as $module) {
266 $module = strtolower($module);
267 $this->mods
[$module] = $m = PLModule
::factory($module);
268 $hooks = $m->handlers();
269 foreach ($hooks as $path=>$hook) {
270 $this->hooks
->addChild(explode('/', $path), $hook);
274 if ($globals->mode
== '') {
275 pl_redirect('index.html');
279 public function pl_self($n = null
)
285 return join('/', array_slice($this->argv
, 0, $n +
1));
287 if ($n <= -count($this->argv
))
288 return $this->argv
[0];
290 return join('/', array_slice($this->argv
, 0, $n));
293 public static function wiki_hook($auth = AUTH_PUBLIC
, $perms = 'user', $type = DO_AUTH
)
295 return new PlWikiHook($auth, $perms, $type);
298 public function hook_map($name)
303 protected function find_hook()
305 $p = explode('/', $this->path
);
306 list($hook, $matched, $remain, $aliased) = $this->hooks
->findChild($p);
310 $this->argv
= $remain;
311 array_unshift($this->argv
, implode('/', $matched));
312 if (!empty($aliased)) {
313 $this->ns
= implode('/', $aliased) . '/';
315 $this->https
= !$hook->hasType(NO_HTTPS
);
319 public function near_hook()
321 $p = explode('/', $this->path
);
322 list($hook, $matched, $remain, $aliased) = $this->hooks
->findNearestChild($p);
326 $url = implode('/', $matched);
327 if (!empty($remain)) {
328 $url .= '/' . implode('/', $remain);
330 if ($url == $this->path ||
levenshtein($url, $this->path
) > strlen($url) / 3
331 ||
!$hook->checkPerms()) {
337 private function call_hook(PlPage
&$page)
339 $hook = $this->find_hook();
343 global $globals, $session;
344 if ($this->https
&& !@$_SERVER['HTTPS'] && $globals->core
->secure_domain
) {
345 http_redirect('https://' . $globals->core
->secure_domain
. $_SERVER['REQUEST_URI']);
348 return $hook->call($page, $this->argv
);
351 /** Show the authentication form.
353 abstract public function force_login(PlPage
& $page);
355 public function run()
357 $page =& self
::page();
359 if (empty($this->path
)) {
360 $this->path
= 'index';
364 $page->assign('platal', $this);
365 switch ($this->call_hook($page)) {
367 $this->mods
['core']->handler_403($page);
371 $this->mods
['core']->handler_404($page);
377 } catch (Exception
$e) {
378 header($_SERVER['SERVER_PROTOCOL'] . ' 500 Internal Server Error');
380 $file = fopen(self
::globals()->spoolroot
. '/spool/tmp/site_errors', 'a');
381 fwrite($file, '<pre>' . date('Y-m-d G:i:s') . '</pre>'
382 . '<pre>' . pl_entities("" . $e) . '</pre>'
383 . '------------------------------------------------------------------' . "\n");
386 if (self
::globals()->debug
) {
387 $page->kill(pl_entities($e->getMessage())
388 . '<pre>' . pl_entities("" . $e) . '</pre>');
390 $page->kill(pl_entities($e->getMessage()));
394 $page->assign('platal', $this);
398 public function error403()
400 $page =& self
::page();
402 $this->mods
['core']->handler_403($page);
403 $page->assign('platal', $this);
407 public function error404()
409 $page =& self
::page();
411 $this->mods
['core']->handler_404($page);
412 $page->assign('platal', $this);
416 public static function notAllowed()
419 self
::page()->trigWarning('Tu accèdes à cette page car tu es administrateur du site.');
426 public static function load($modname, $include = null
)
429 $modname = strtolower($modname);
430 if (isset($platal->mods
[$modname])) {
431 if (is_null($include)) {
434 $platal->mods
[$modname]->load($include);
436 if (is_null($include)) {
437 require_once PLModule
::path($modname) . '.php';
439 require_once PLModule
::path($modname) . '/' . $include;
444 public static function assert($cond, $error, $userfriendly = null
)
446 if ($cond === false
) {
447 if ($userfriendly == null
) {
448 $userfriendly = "Une erreur interne s'est produite.
449 Merci de réessayer la manipulation qui a déclenché l'erreur ;
450 si cela ne fonctionne toujours pas, merci de nous signaler le problème rencontré.";
452 throw new PlException($userfriendly, $error);
456 public function &buildLogger($uid, $suid = 0)
458 if (defined('PL_LOGGER_CLASS')) {
459 $class = PL_LOGGER_CLASS
;
460 $logger = new $class($uid, $suid);
463 return PlLogger
::dummy($uid, $suid);
467 protected function &buildPage()
469 $pageclass = PL_PAGE_CLASS
;
470 $page = new $pageclass();
474 static public function &page()
476 if (is_null(self
::$_page)) {
478 self
::$_page = $platal->buildPage();
483 protected function &buildSession()
485 $sessionclass = PL_SESSION_CLASS
;
486 $session = new $sessionclass();
490 static public function &session()
496 protected function &buildGlobals()
498 $globalclass = PL_GLOBALS_CLASS
;
499 $globals = new $globalclass();
503 static public function &globals()
510 // vim:set et sw=4 sts=4 sws=4 foldmethod=marker enc=utf-8: