"Mark as read" link marks as read only the messages that has been posted before the...
[platal.git] / include / wiki.inc.php
CommitLineData
0df3edb9 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 ***************************************************************************/
0df3edb9 21
22function wiki_pagename() {
5e2307dc 23 if (!Get::v('n')) {
ed912c6e 24 return null;
25 }
06a5e65b 26
5e2307dc 27 $words = explode('/', trim(Get::v('n'), '/'));
06a5e65b 28 if (count($words) == 2) {
29 return join('.', $words);
30 }
31
32 array_unshift($words, $words[0]);
33 $b = array_pop($words);
34 $a = array_pop($words);
35
8b00e0e0 36 pl_redirect($a.'/'.$b);
0df3edb9 37}
38
39function wiki_work_dir() {
40 global $globals;
06a5e65b 41 return $globals->spoolroot.'/spool/wiki.d';
0df3edb9 42}
43
ed912c6e 44function wiki_clear_all_cache()
45{
d7a8b04c 46 system('rm -f '.wiki_work_dir().'/cache_*');
0df3edb9 47}
48
3aec1c21 49function wiki_perms_options() {
50 return array('public' => 'Public', 'logged' => 'Connecté',
51 'mdp' => 'Authentifié', 'admin' => 'Admin');
52}
53
89232034 54function wiki_get_perms($n)
f6ce9a88 55{
56 $file = wiki_work_dir().'/'.str_replace('/', '.', $n);
89232034 57 $lines = explode("\n", @file_get_contents($file));
f6ce9a88 58 foreach ($lines as $line) {
59 list($k, $v) = explode('=', $line, 2);
60 if ($k == 'platal_perms') {
61 return explode(':', $v);
62 }
63 }
64 return array('logged', 'admin');
65}
66
89232034 67function wiki_putfile($f, $s)
68{
69 $fp = fopen($f, 'w');
70 fputs($fp, $s);
71 fclose($fp);
72}
73
74function wiki_set_perms($n, $pr, $pw)
75{
76 $file = wiki_work_dir().'/'.str_replace('/', '.', $n);
77 if (!file_exists($file))
78 return false;
79
80 $p = $pr . ':' . $pw;
81
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));
88 return true;
89 }
90 }
91
92 array_splice($lines, 1, 0, array('platal_perms='.$p));
93 wiki_putfile($file, join("\n", $lines));
94 return true;
95}
96
99ce0a25 97function wiki_may_have_perms($perm) {
98 switch ($perm) {
99 case 'public': return true;
100 case 'logged': return S::logged();
101 case 'mdp': return S::logged();
102 default: return S::has_perms();
103 }
104}
105
f6ce9a88 106function wiki_apply_perms($perm) {
c0d6753f 107 global $page, $platal, $globals;
f6ce9a88 108
109 switch ($perm) {
110 case 'public':
111 return;
112
113 case 'logged':
c0d6753f 114 if (!call_user_func(array($globals->session, 'doAuthCookie'))) {
115 $platal = new Platal();
116 $platal->force_login($page);
6f97366a 117 }
c0d6753f 118 return;
f6ce9a88 119
120 default:
c0d6753f 121 if (!call_user_func(array($globals->session, 'doAuth'))) {
6f97366a 122 $platal = empty($GLOBALS['IS_XNET_SITE']) ? new Platal() : new Xnet();
f6ce9a88 123 $platal->force_login($page);
124 }
125 if ($perm == 'admin') {
126 check_perms();
127 }
128 return;
129 }
130}
131
ab694f12 132function wiki_require_page($pagename)
133{
134 global $globals;
135 $pagename_slashes = str_replace('.','/',$pagename);
136 $pagename_dots = str_replace('/','.',$pagename);
137 if (is_file(wiki_work_dir().'/cache_'.$pagename_dots.'.tpl')) return;
138 system('wget '.$globals->baseurl.'/'.$pagename_slashes.' -O /dev/null');
139}
140
0df3edb9 141?>