+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();
+ }
+}
+