2 /***************************************************************************
3 * Copyright (C) 2003-2007 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()
28 $words = explode('/', trim(Get
::v('n'), '/'));
29 if (count($words) == 2) {
30 return join('.', $words);
33 array_unshift($words, $words[0]);
34 $b = array_pop($words);
35 $a = array_pop($words);
37 pl_redirect($a.'/'.$b);
40 function wiki_filename($s)
42 if (@iconv
('utf-8', 'utf-8', $s) == $s) {
43 return utf8_decode($s);
48 function wiki_work_dir()
51 return $globals->spoolroot
.'/spool/wiki.d';
54 function wiki_clear_all_cache()
56 system('rm -f '.wiki_work_dir().'/cache_*');
59 function wiki_perms_options() {
60 return array('public' => 'Public', 'logged' => 'Connecté',
61 'mdp' => 'Authentifié', 'admin' => 'Admin');
64 function wiki_get_perms($n)
66 $file = wiki_work_dir().'/'.wiki_filename(str_replace('/', '.', $n));
67 $lines = explode("\n", @file_get_contents
($file));
68 foreach ($lines as $line) {
69 @list
($k, $v) = explode('=', $line, 2);
70 if ($k == 'platal_perms') {
71 return explode(':', $v);
74 return array('logged', 'admin');
77 function wiki_putfile($f, $s)
84 function wiki_set_perms($n, $pr, $pw)
86 $file = wiki_work_dir().'/'.wiki_filename(str_replace('/', '.', $n));
87 if (!file_exists($file)) {
93 $lines = explode("\n", file_get_contents($file));
94 foreach ($lines as $i => $line) {
95 list($k, $v) = explode('=', $line, 2);
96 if ($k == 'platal_perms') {
97 $lines[$i] = 'platal_perms='.$p;
98 wiki_putfile($file, join("\n", $lines));
103 array_splice($lines, 1, 0, array('platal_perms='.$p));
104 wiki_putfile($file, join("\n", $lines));
108 function wiki_may_have_perms($perm) {
110 case 'public': return true
;
111 case 'logged': return S
::logged();
112 case 'mdp': return S
::logged();
113 default: return S
::has_perms();
117 function wiki_apply_perms($perm) {
118 global $page, $platal, $globals;
125 if (!call_user_func(array($globals->session
, 'doAuthCookie'))) {
126 $platal = empty($GLOBALS['IS_XNET_SITE']) ?
new Platal() : new Xnet();
127 $platal->force_login($page);
132 if (!call_user_func(array($globals->session
, 'doAuth'))) {
133 $platal = empty($GLOBALS['IS_XNET_SITE']) ?
new Platal() : new Xnet();
134 $platal->force_login($page);
136 if ($perm == 'admin') {
143 function wiki_require_page($pagename)
146 $pagename_slashes = str_replace('.','/',$pagename);
147 $pagename_dots = str_replace('/','.',$pagename);
148 if (is_file(wiki_work_dir().'/cache_'.$pagename_dots.'.tpl')) return;
149 system('wget '.$globals->baseurl
.'/'.$pagename_slashes.' -O /dev/null');