classes/platal.php

   1 <?php
   2 /***************************************************************************
   3  *  Copyright (C) 2003-2006 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_FORBIDDEN', 403);
  23 define('PL_NOT_FOUND', 404);
  24
  25 class Platal
  26 {
  27     var $__mods;
  28     var $__hooks;
  29
  30     var $ns;
  31     var $path;
  32     var $argv;
  33
  34     function Platal()
  35     {
  36         $modules    = func_get_args();
  37         $this->path = trim(Get::_get('n', null), '/');
  38
  39         $this->__mods  = array();
  40         $this->__hooks = array();
  41
  42         array_unshift($modules, 'core');
  43         foreach ($modules as $module) {
  44             $this->__mods[$module] = $m = PLModule::factory($module);
  45             $this->__hooks += $m->handlers();
  46         }
  47     }
  48
  49     function pl_self($n = null)
  50     {
  51         if (is_null($n))
  52             return $this->path;
  53
  54         if ($n >= 0)
  55             return join('/', array_slice($this->argv, 0, $n + 1));
  56
  57         if ($n <= -count($this->argv))
  58             return $this->argv[0];
  59
  60         return join('/', array_slice($this->argv, 0, $n));
  61     }
  62
  63     function find_hook()
  64     {
  65         $p = $this->path;
  66
  67         while ($p) {
  68             if (array_key_exists($p, $this->__hooks))
  69                 break;
  70
  71             $p = substr($p, 0, strrpos($p, '/'));
  72         }
  73
  74         if (empty($this->__hooks[$p])) {
  75             return null;
  76         }
  77
  78         $hook = $this->__hooks[$p];
  79
  80         if (!is_callable($hook['hook'])) {
  81             return null;
  82         }
  83
  84         $this->argv    = explode('/', substr($this->path, strlen($p)));
  85         $this->argv[0] = $p;
  86
  87         return $hook;
  88     }
  89
  90     function find_nearest_key($key, &$array)
  91     {
  92         $keys    = array_keys($array);
  93         if (in_array($key, $keys)) {
  94             return $key;
  95         }
  96
  97         if (($pos = strpos($key, '.php')) !== false) {
  98             $key = substr($key, 0, $pos);
  99         }
 100
 101         $has_end = in_array("#final#", $keys);
 102         if (strlen($key) > 24 && $has_end) {
 103             return "#final#";
 104         }
 105
 106         foreach ($keys as $k) {
 107             if ($k == "#final#") {
 108                 continue;
 109             }
 110             $lev = levenshtein($key, $k);
 111             if ((!isset($val) || $lev < $val) && $lev <= (strlen($k)*2)/3) {
 112                 $val  = $lev;
 113                 $best = $k;
 114             }
 115         }
 116         if (!isset($best) && $has_end) {
 117             return "#final#";
 118         } else {
 119             return $best;
 120         }
 121         return null;
 122     }
 123
 124     function near_hook()
 125     {
 126         $hooks = array();
 127         foreach ($this->__hooks as $hook=>$handler) {
 128             if (!empty($handler['perms']) && $handler['perms'] != S::v('perms')) {
 129                 continue;
 130             }
 131             $parts = split('/', $hook);
 132             $place =& $hooks;
 133             foreach ($parts as $part) {
 134                 if (!isset($place[$part])) {
 135                     $place[$part] = array();
 136                 }
 137                 $place =& $place[$part];
 138             }
 139             $place["#final#"] = array();
 140         }
 141
 142         $p = split('/', $this->path);
 143         $place =& $hooks;
 144         $link  = '';
 145         foreach ($p as $k) {
 146             if (!isset($ended)) {
 147                 $key = $this->find_nearest_key($k, $place);
 148             } else {
 149                 $key = $k;
 150             }
 151             if ($key == "#final#") {
 152                 if (!array_key_exists($link, $this->__hooks)) {
 153                     return null;
 154                 }
 155                 $key = $k;
 156                 $ended = true;
 157             }
 158             if (!is_null($key)) {
 159                 if (!empty($link)) {
 160                     $link .= '/';
 161                 }
 162                 $link .= $key;
 163                 $place =& $place[$key];
 164             } else {
 165                 return null;
 166             }
 167         }
 168         if ($link != $this->path) {
 169             return $link;
 170         }
 171         return null;
 172     }
 173
 174     function call_hook(&$page)
 175     {
 176         $hook = $this->find_hook();
 177         if (empty($hook)) {
 178             return PL_NOT_FOUND;
 179         }
 180
 181         $args    = $this->argv;
 182         $args[0] = &$page;
 183
 184         if (!empty($hook['perms']) && $hook['perms'] != S::v('perms')) {
 185             return PL_FORBIDDEN;
 186         }
 187
 188         if ($hook['auth'] > S::v('auth', AUTH_PUBLIC)) {
 189             if ($hook['type'] == DO_AUTH) {
 190                 global $globals;
 191
 192                 if (!call_user_func(array($globals->session, 'doAuth'))) {
 193                     $this->force_login($page);
 194                 }
 195             } else {
 196                 return PL_FORBIDDEN;
 197             }
 198         }
 199
 200         return call_user_func_array($hook['hook'], $args);
 201     }
 202
 203     function force_login(&$page)
 204     {
 205         if (S::logged()) {
 206             $page->changeTpl('core/password_prompt_logged.tpl');
 207             $page->addJsLink('do_challenge_response_logged.js');
 208         } else {
 209             $page->changeTpl('core/password_prompt.tpl');
 210             $page->addJsLink('do_challenge_response.js');
 211         }
 212         $page->run();
 213     }
 214
 215     function run()
 216     {
 217         global $page;
 218
 219         new_skinned_page('platal/index.tpl');
 220
 221         if (empty($this->path)) {
 222             $this->path = 'index';
 223         }
 224
 225         $page->assign('platal', $this);
 226         switch ($this->call_hook($page)) {
 227           case PL_FORBIDDEN:
 228             $this->__mods['core']->handler_403($page);
 229             break;
 230
 231           case PL_NOT_FOUND:
 232             $this->__mods['core']->handler_404($page);
 233             break;
 234         }
 235
 236         $page->assign('platal', $this);
 237         $page->run();
 238     }
 239
 240     function on_subscribe($forlife, $uid, $promo, $pass)
 241     {
 242         $args = func_get_args();
 243         foreach ($this->__mods as $mod) {
 244             if (!is_callable($mod, 'on_subscribe'))
 245                 continue;
 246             call_user_func_array(array($mod, 'on_subscribe'), $args);
 247         }
 248     }
 249 }
 250
 251 ?>