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_perms_options() {
50 return array('public' => 'Public', 'logged' => 'Connecté',
51 'mdp' => 'Authentifié', 'admin' => 'Admin');
54 function wiki_get_perms($n)
56 $file = wiki_work_dir().'/'.str_replace('/', '.', $n);
57 $lines = explode("\n", @file_get_contents
($file));
58 foreach ($lines as $line) {
59 list($k, $v) = explode('=', $line, 2);
60 if ($k == 'platal_perms') {
61 return explode(':', $v);
64 return array('logged', 'admin');
67 function wiki_putfile($f, $s)
74 function wiki_set_perms($n, $pr, $pw)
76 $file = wiki_work_dir().'/'.str_replace('/', '.', $n);
77 if (!file_exists($file))
82 $lines = explode("\n", file_get_contents($file));
83 foreach ($lines as $i => $line) {
84 list($k, $v) = explode('=', $line, 2);
85 if ($k == 'platal_perms') {
86 $lines[$i] = 'platal_perms='.$p;
87 wiki_putfile($file, join("\n", $lines));
92 array_splice($lines, 1, 0, array('platal_perms='.$p));
93 wiki_putfile($file, join("\n", $lines));
97 function wiki_may_have_perms($perm) {
99 case 'public': return true
;
100 case 'logged': return S
::logged();
101 case 'mdp': return S
::logged();
102 default: return S
::has_perms();
106 function wiki_apply_perms($perm) {
107 global $page, $platal;
114 if (!XorgSession
::doAuthCookie()) {
115 $platal = new Platal();
116 $platal->force_login($page);
121 if (!XorgSession
::doAuth()) {
122 $platal = new Platal();
123 $platal->force_login($page);
125 if ($perm == 'admin') {