+function wiki_putfile($f, $s)
+{
+ $fp = fopen($f, 'w');
+ fputs($fp, $s);
+ fclose($fp);
+}
+
+function wiki_set_perms($n, $pr, $pw)
+{
+ $file = wiki_work_dir().'/'.wiki_filename(str_replace('/', '.', $n));
+ if (!file_exists($file)) {
+ return false;
+ }
+
+ $p = $pr . ':' . $pw;
+
+ $lines = explode("\n", file_get_contents($file));
+ foreach ($lines as $i => $line) {
+ list($k, $v) = explode('=', $line, 2);
+ if ($k == 'platal_perms') {
+ $lines[$i] = 'platal_perms='.$p;
+ wiki_putfile($file, join("\n", $lines));
+ return true;
+ }
+ }
+
+ array_splice($lines, 1, 0, array('platal_perms='.$p));
+ wiki_putfile($file, join("\n", $lines));
+ return true;
+}
+
+function wiki_may_have_perms($perm) {
+ switch ($perm) {
+ case 'public': return true;
+ case 'logged': return S::logged();
+ case 'mdp': return S::logged();
+ default: return S::has_perms();
+ }
+}
+
+function wiki_apply_feed_perms($perm)
+{
+ if ($perm == 'public') {
+ return;
+ }
+
+ require_once 'rss.inc.php';
+ $uid = init_rss(null, Env::v('user'), Env::v('hash'));
+ if (!$uid) {
+ exit;
+ }
+ $res = XDB::query('SELECT user_id, IF (nom_usage <> \'\', nom_usage, nom) AS nom, prenom, perms
+ FROM auth_user_md5
+ WHERE user_id = {?}', $uid);
+ if (!$res->numRows()) {
+ exit;
+ }
+ $table = $res->fetchOneAssoc();
+ $_SESSION = array_merge($_SESSION, $table, array('forlife' => Env::v('user')));
+ if ($perm == 'logged' || S::has_perms()) {
+ return;
+ }
+ exit;
+}
+
+function wiki_apply_perms($perm) {
+ global $page, $platal, $globals;
+
+ switch ($perm) {
+ case 'public':
+ return;
+
+ case 'logged':
+ if (!call_user_func(array($globals->session, 'doAuthCookie'))) {
+ $platal = empty($GLOBALS['IS_XNET_SITE']) ? new Platal() : new Xnet();
+ $platal->force_login($page);
+ }
+ return;
+
+ default:
+ if (!call_user_func(array($globals->session, 'doAuth'))) {
+ $platal = empty($GLOBALS['IS_XNET_SITE']) ? new Platal() : new Xnet();
+ $platal->force_login($page);
+ }
+ if ($perm == 'admin') {
+ check_perms();
+ }
+ return;
+ }
+}
+
+function wiki_require_page($pagename)
+{
+ global $globals;
+ $pagename_slashes = str_replace('.','/',$pagename);
+ $pagename_dots = str_replace('/','.',$pagename);
+ if (is_file(wiki_work_dir().'/cache_'.$pagename_dots.'.tpl')) return;
+ system('wget '.$globals->baseurl.'/'.$pagename_slashes.' -O /dev/null');