classes/platal.php

   1 <?php
   2 /***************************************************************************
   3  *  Copyright (C) 2003-2008 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 define('PL_DO_AUTH',   300);
  23 define('PL_FORBIDDEN', 403);
  24 define('PL_NOT_FOUND', 404);
  25
  26 class Platal
  27 {
  28     private $__mods;
  29     private $__hooks;
  30
  31     protected $https;
  32
  33     public $ns;
  34     public $path;
  35     public $argv;
  36
  37     public function __construct()
  38     {
  39         $modules    = func_get_args();
  40         if (is_array($modules[0])) {
  41             $modules = $modules[0];
  42         }
  43         $this->path = trim(Get::_get('n', null), '/');
  44
  45         $this->__mods  = array();
  46         $this->__hooks = array();
  47
  48         array_unshift($modules, 'core');
  49         foreach ($modules as $module) {
  50             $module = strtolower($module);
  51             $this->__mods[$module] = $m = PLModule::factory($module);
  52             $this->__hooks += $m->handlers();
  53         }
  54
  55         global $globals;
  56         if ($globals->mode == '') {
  57             pl_redirect('index.html');
  58         }
  59     }
  60
  61     public function pl_self($n = null)
  62     {
  63         if (is_null($n))
  64             return $this->path;
  65
  66         if ($n >= 0)
  67             return join('/', array_slice($this->argv, 0, $n + 1));
  68
  69         if ($n <= -count($this->argv))
  70             return $this->argv[0];
  71
  72         return join('/', array_slice($this->argv, 0, $n));
  73     }
  74
  75     protected function find_hook()
  76     {
  77         $p = $this->path;
  78
  79         while ($p) {
  80             if (array_key_exists($p, $this->__hooks))
  81                 break;
  82
  83             $p = substr($p, 0, strrpos($p, '/'));
  84         }
  85
  86         if (empty($this->__hooks[$p])) {
  87             return null;
  88         }
  89
  90         $hook = $this->__hooks[$p];
  91
  92         if (!is_callable($hook['hook'])) {
  93             return null;
  94         }
  95
  96         $this->https = ($hook['type'] & NO_HTTPS) ? false : true;
  97         $this->argv    = explode('/', substr($this->path, strlen($p)));
  98         $this->argv[0] = $p;
  99
 100         return $hook;
 101     }
 102
 103     protected function find_nearest_key($key, array &$array)
 104     {
 105         $keys    = array_keys($array);
 106         if (in_array($key, $keys)) {
 107             return $key;
 108         }
 109
 110         if (($pos = strpos($key, '.php')) !== false) {
 111             $key = substr($key, 0, $pos);
 112         }
 113
 114         $has_end = in_array("#final#", $keys);
 115         if (strlen($key) > 24 && $has_end) {
 116             return "#final#";
 117         }
 118
 119         foreach ($keys as $k) {
 120             if ($k == "#final#") {
 121                 continue;
 122             }
 123             $lev = levenshtein($key, $k);
 124
 125             if ((!isset($val) || $lev < $val)
 126                 && ($lev <= strlen($k)/2 || strpos($k, $key) !== false || strpos($key, $k) !== false)) {
 127                 $val  = $lev;
 128                 $best = $k;
 129             }
 130         }
 131         if (!isset($best) && $has_end) {
 132             return "#final#";
 133         } else if (isset($best)) {
 134             return $best;
 135         }
 136         return null;
 137     }
 138
 139     public function near_hook()
 140     {
 141         $hooks = array();
 142         $leafs = array();
 143         foreach ($this->__hooks as $hook=>$handler) {
 144             if (!$this->check_perms($handler['perms'])) {
 145                 continue;
 146             }
 147             $parts = split('/', $hook);
 148             $place =& $hooks;
 149             foreach ($parts as $part) {
 150                 if (!isset($place[$part])) {
 151                     $place[$part] = array();
 152                 }
 153                 $place =& $place[$part];
 154             }
 155             $leaf = $parts[count($parts)-1];
 156             if (!isset($leafs[$leaf])) {
 157                 $leafs[$leaf] = $hook;
 158             } else if (is_array($leafs[$leaf])) {
 159                 $leafs[$leaf][] = $hook;
 160             } else {
 161                 $leafs[$leaf] = array($hook, $leafs[$leaf]);
 162             }
 163             $place["#final#"] = array();
 164         }
 165
 166         // search for the nearest full path
 167         $p = split('/', $this->path);
 168         $place =& $hooks;
 169         $link  = '';
 170         foreach ($p as $k) {
 171             if (!isset($ended)) {
 172                 $key = $this->find_nearest_key($k, $place);
 173             } else {
 174                 $key = $k;
 175             }
 176             if ($key == "#final#") {
 177                 if (!array_key_exists($link, $this->__hooks)) {
 178                     $link = '';
 179                     break;
 180                 }
 181                 $key = $k;
 182                 $ended = true;
 183             }
 184             if (!is_null($key)) {
 185                 if (!empty($link)) {
 186                     $link .= '/';
 187                 }
 188                 $link .= $key;
 189                 $place =& $place[$key];
 190             } else {
 191                 $link = '';
 192                 break;
 193             }
 194         }
 195         if ($link == $this->path) {
 196             $link = '';
 197         }
 198         if ($link && levenshtein($link, $this->path) < strlen($link)/3) {
 199             return $link;
 200         }
 201
 202         // search for missing namespace (the given name is a leaf)
 203         $leaf = array_shift($p);
 204         $args = count($p) ? '/' . implode('/', $p) : '';
 205         if (isset($leafs[$leaf]) && !is_array($leafs[$leaf]) && $leafs[$leaf] != $this->path) {
 206             return $leafs[$leaf] . $args;
 207         }
 208         unset($val);
 209         $best = null;
 210         foreach ($leafs as $k=>&$path) {
 211             if (is_array($path)) {
 212                 continue;
 213             }
 214             $lev = levenshtein($leaf, $k);
 215
 216             if ((!isset($val) || $lev < $val)
 217                 && ($lev <= strlen($k)/2 || strpos($k, $leaf) !== false || strpos($leaf, $k) !== false)) {
 218                 $val  = $lev;
 219                 $best = $path;
 220             }
 221         }
 222         return $best == null ? ( $link ? $link : null ) : $best . $args;
 223     }
 224
 225     protected function check_perms($perms)
 226     {
 227         if (!$perms) { // No perms, no check
 228             return true;
 229         }
 230         $s_perms = S::v('perms');
 231         return $s_perms->hasFlagCombination($perms);
 232     }
 233
 234     private function call_hook(PlatalPage &$page)
 235     {
 236         $hook = $this->find_hook();
 237         if (empty($hook)) {
 238             return PL_NOT_FOUND;
 239         }
 240         global $globals;
 241         if ($this->https && !$_SERVER['HTTPS'] && $globals->core->secure_domain) {
 242             http_redirect('https://' . $globals->core->secure_domain . $_SERVER['REQUEST_URI']);
 243         }
 244
 245         $args    =  $this->argv;
 246         $args[0] =& $page;
 247
 248         if ($hook['auth'] > S::v('auth', AUTH_PUBLIC)) {
 249             if ($hook['type'] & DO_AUTH) {
 250                 if (!call_user_func(array($globals->session, 'doAuth'))) {
 251                     $this->force_login($page);
 252                 }
 253             } else {
 254                 return PL_FORBIDDEN;
 255             }
 256         }
 257         if ($hook['auth'] != AUTH_PUBLIC && !$this->check_perms($hook['perms'])) {
 258             return PL_FORBIDDEN;
 259         }
 260
 261         $val = call_user_func_array($hook['hook'], $args);
 262         if ($val & PL_DO_AUTH) {
 263             // The handler need a better auth with the current args
 264             if (!call_user_func(array($globals->session, 'doAuth'))) {
 265                 $this->force_login($page);
 266             }
 267             $val = call_user_func_array($hook['hook'], $args);
 268         }
 269         return $val;
 270     }
 271
 272     public function force_login(PlatalPage &$page)
 273     {
 274         header($_SERVER['SERVER_PROTOCOL'] . ' 403 Forbidden');
 275         if (S::logged()) {
 276             $page->changeTpl('core/password_prompt_logged.tpl');
 277             $page->addJsLink('do_challenge_response_logged.js');
 278         } else {
 279             $page->changeTpl('core/password_prompt.tpl');
 280             $page->addJsLink('do_challenge_response.js');
 281         }
 282         $page->assign('platal', $this);
 283         $page->run();
 284     }
 285
 286     public function run()
 287     {
 288         global $page;
 289
 290         new_skinned_page('platal/index.tpl');
 291
 292         if (empty($this->path)) {
 293             $this->path = 'index';
 294         }
 295
 296         $page->assign('platal', $this);
 297         switch ($this->call_hook($page)) {
 298           case PL_FORBIDDEN:
 299             $this->__mods['core']->handler_403($page);
 300             break;
 301
 302           case PL_NOT_FOUND:
 303             $this->__mods['core']->handler_404($page);
 304             break;
 305         }
 306
 307         $page->assign('platal', $this);
 308         $page->run();
 309     }
 310
 311     public function on_subscribe($forlife, $uid, $promo, $pass)
 312     {
 313         $args = func_get_args();
 314         foreach ($this->__mods as $mod) {
 315             if (!is_callable($mod, 'on_subscribe'))
 316                 continue;
 317             call_user_func_array(array($mod, 'on_subscribe'), $args);
 318         }
 319     }
 320 }
 321
 322 // vim:set et sw=4 sts=4 sws=4 foldmethod=marker enc=utf-8:
 323 ?>