2 /***************************************************************************
3 * Copyright (C) 2003-2006 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 function wiki_pagename() {
27 $words = explode('/', trim(Get
::v('n'), '/'));
28 if (count($words) == 2) {
29 return join('.', $words);
32 array_unshift($words, $words[0]);
33 $b = array_pop($words);
34 $a = array_pop($words);
36 pl_redirect($a.'/'.$b);
39 function wiki_work_dir() {
41 return $globals->spoolroot
.'/spool/wiki.d';
44 function wiki_clear_all_cache()
46 system('rm -f '.wiki_work_dir().'/cache_*');
49 function wiki_get_perms($n)
51 $file = wiki_work_dir().'/'.str_replace('/', '.', $n);
52 $lines = explode("\n", @file_get_contents
($file));
53 foreach ($lines as $line) {
54 list($k, $v) = explode('=', $line, 2);
55 if ($k == 'platal_perms') {
56 return explode(':', $v);
59 return array('logged', 'admin');
62 function wiki_putfile($f, $s)
69 function wiki_set_perms($n, $pr, $pw)
71 $file = wiki_work_dir().'/'.str_replace('/', '.', $n);
72 if (!file_exists($file))
77 $lines = explode("\n", file_get_contents($file));
78 foreach ($lines as $i => $line) {
79 list($k, $v) = explode('=', $line, 2);
80 if ($k == 'platal_perms') {
81 $lines[$i] = 'platal_perms='.$p;
82 wiki_putfile($file, join("\n", $lines));
87 array_splice($lines, 1, 0, array('platal_perms='.$p));
88 wiki_putfile($file, join("\n", $lines));
92 function wiki_may_have_perms($perm) {
94 case 'public': return true
;
95 case 'logged': return S
::logged();
96 case 'mdp': return S
::logged();
97 default: return S
::has_perms();
101 function wiki_apply_perms($perm) {
102 global $page, $platal;
109 if (!XorgSession
::doAuthCookie()) {
110 $platal = new Platal();
111 $platal->force_login($page);
116 if (!XorgSession
::doAuth()) {
117 $platal = new Platal();
118 $platal->force_login($page);
120 if ($perm == 'admin') {