+++ /dev/null
-<?php
-/***************************************************************************
- * Copyright (C) 2003-2008 Polytechnique.org *
- * http://opensource.polytechnique.org/ *
- * *
- * This program is free software; you can redistribute it and/or modify *
- * it under the terms of the GNU General Public License as published by *
- * the Free Software Foundation; either version 2 of the License, or *
- * (at your option) any later version. *
- * *
- * This program is distributed in the hope that it will be useful, *
- * but WITHOUT ANY WARRANTY; without even the implied warranty of *
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the *
- * GNU General Public License for more details. *
- * *
- * You should have received a copy of the GNU General Public License *
- * along with this program; if not, write to the Free Software *
- * Foundation, Inc., *
- * 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA *
- ***************************************************************************/
-
-function wiki_pagename()
-{
- if (!Get::v('n')) {
- return null;
- }
-
- $words = explode('/', trim(Get::v('n'), '/'));
- if (count($words) == 2) {
- return join('.', $words);
- }
-
- array_unshift($words, $words[0]);
- $b = array_pop($words);
- $a = array_pop($words);
-
- pl_redirect($a.'/'.$b);
-}
-
-function wiki_filename($s)
-{
- if (@iconv('utf-8', 'utf-8', $s) == $s) {
- return $s;
- }
- return utf8_encode($s);
-}
-
-function wiki_work_dir()
-{
- global $globals;
- return $globals->spoolroot.'/spool/wiki.d';
-}
-
-function wiki_clear_all_cache()
-{
- system('rm -f '.wiki_work_dir().'/cache_*');
-}
-
-function wiki_perms_options() {
- return array('public' => 'Public', 'logged' => 'Connecté',
- 'mdp' => 'Authentifié', 'admin' => 'Admin');
-}
-
-function wiki_get_perms($n)
-{
- $file = wiki_work_dir().'/'.wiki_filename(str_replace('/', '.', $n));
- $lines = explode("\n", @file_get_contents($file));
- foreach ($lines as $line) {
- @list($k, $v) = explode('=', $line, 2);
- if ($k == 'platal_perms') {
- return explode(':', $v);
- }
- }
- return array('logged', 'admin');
-}
-
-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 (is_null($uid)) {
- exit;
- }
- if ($perm == 'logged' || S::has_perms()) {
- return;
- }
- exit;
-}
-
-function wiki_apply_perms($perm)
-{
- global $platal, $globals;
- $page =& Platal::page();
-
- 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 --no-check-certificate '. escapeshellarg($globals->baseurl.'/'.$pagename_slashes) . ' -O /dev/null');
-}
-
-function wiki_delete_page($pagename)
-{
- $pagename_dots = str_replace('/','.',$pagename);
- if (!strpos($pagename_dots, '.')) {
- return false;
- }
- $file = wiki_work_dir().'/'.wiki_filename($pagename_dots);
- $cachefile = wiki_work_dir().'/cache_'.$pagename_dots.'.tpl';
- if (is_file($cachefile)) {
- unlink($cachefile);
- }
- if (!is_file($file)) {
- return false;
- }
- unlink($file);
- return true;
-}
-
-function wiki_links_in_line($line, $groupname)
-{
- $links = array();
- if (preg_match_all('@\[\[([^~][^\]\|\?#]*)((\?|#)[^\]\|]+)?(\\|[^\]]+)?\]\]@', $line, $matches, PREG_OFFSET_CAPTURE)) {
- foreach ($matches[1] as $j => $link) if (!preg_match('@http://@', $link[0])) {
- $mylink = str_replace('/','.',trim($link[0]));
- $sup = trim(substr($matches[2][$j][0],1));
- $alt = trim(substr($matches[4][$j][0],1));
- $newlink = str_replace(' ','',ucwords($mylink));
- if (strpos($newlink,'.') === false) {
- $newlink = $groupname.'.'.$newlink;
- }
- if (!$alt && $mylink != $newlink) {
- $alt = trim($link[0]);
- }
- $links[] = array(
- 'pos' => $matches[0][$j][1],
- 'size' => strlen($matches[0][$j][0]),
- 'href' => $newlink,
- 'sup' => $sup,
- 'alt' => $alt,
- 'group' => substr($mylink, 0, strpos($mylink, '.')));
- }
- }
- return $links;
-}
-
-function wiki_rename_page($pagename, $newname, $changeLinks = true)
-{
- $pagename_dots = str_replace('/','.',$pagename);
- $newname_dots = str_replace('/','.',$newname);
- if (!strpos($pagename_dots, '.') || !strpos($newname_dots, '.')) {
- return false;
- }
- $groupname = substr($pagename_dots, 0, strpos($pagename_dots,'.'));
- $newgroupname = substr($newname_dots, 0, strpos($pagename_dots,'.'));
-
- $file = wiki_work_dir().'/'.wiki_filename($pagename_dots);
- $newfile = wiki_work_dir().'/'.wiki_filename($newname_dots);
- if (!is_file($file)) {
- // old page doesn't exist
- return false;
- }
- if (!rename($file, $newfile)) {
- // impossible to renama page
- return false;
- }
-
- if (!$changeLinks) {
- return true;
- }
-
- $changedLinks = 0;
- // change name inside this folder and ingroup links if changing group
- $lines = explode("\n", file_get_contents($newfile));
- $changed = false;
- foreach ($lines as $i => $line) {
- list($k, $v) = explode('=', $line, 2);
- if ($k == 'name' && $v == $pagename_dots) {
- $lines[$i] = 'name='.$newname_dots;
- $changed = true;
- } else if ($groupname != $newgroupname) {
- $links = wiki_links_in_line($line, $groupname);
- $newline = ''; $last = 0;
- foreach ($links as $link) if ($link['group'] == $groupname) {
- $newline .= substr($line, $last, $link['pos']);
- $newline .= '[['.$link['href'].$link['sup'].($link['alt']?(' |'.$link['alt']):'').']]';
- $last = $link['pos']+$link['size'];
- $changedLinks++;
- }
- if ($last != 0) {
- $newline .= substr($line, $last);
- $lines[$i] = $newline;
- $changed = true;
- }
- }
- }
- wiki_putfile($newfile, join("\n", $lines));
-
- // change wiki links in all wiki pages
- $endname = substr($pagename_dots, strpos($pagename_dots,'.')+1);
- $pages = array();
- exec("grep ".$endname." ".wiki_work_dir()."/* -sc", $pages);
- foreach($pages as $line) {
- if (preg_match('%/([^/:]+):([0-9]+)$%', $line, $vals) && $vals[2] > 0) {
- $inpage = $vals[1];
- $lines = explode("\n", file_get_contents(wiki_work_dir().'/'.$inpage));
- $changed = false;
- // find all wiki links in page and change if linked to this page
- foreach ($lines as $i => $line) {
- $links = wiki_links_in_line($line, substr($inpage, 0, strpos($inpage, '.')));
- $newline = ''; $last = 0;
- foreach ($links as $link) {
- if ($link['href'] == $pagename_dots) {
- $newline .= substr($line, $last, $link['pos']);
- $newline .= '[['.$newname_dots.$link['sup'].($link['alt']?(' |'.$link['alt']):'').']]';
- $last = $link['pos']+$link['size'];
- $changedLinks++;
- }
- }
- if ($last != 0) {
- $newline .= substr($line, $last);
- $lines[$i] = $newline;
- $changed = true;
- }
- }
- if ($changed)
- {
- wiki_putfile(wiki_work_dir().'/'.$inpage, join("\n", $lines));
- }
- }
- }
- if ($changedLinks > 0) {
- return $changedLinks;
- }
- return true;
-}
-
-function wiki_rename_folder($pagename, $newname, $changeLinks = true)
-{
-}
-
-// vim:set et sw=4 sts=4 sws=4 foldmethod=marker enc=utf-8:
-?>
+++ /dev/null
-<?php
-/***************************************************************************
- * Copyright (C) 2003-2008 Polytechnique.org *
- * http://opensource.polytechnique.org/ *
- * *
- * This program is free software; you can redistribute it and/or modify *
- * it under the terms of the GNU General Public License as published by *
- * the Free Software Foundation; either version 2 of the License, or *
- * (at your option) any later version. *
- * *
- * This program is distributed in the hope that it will be useful, *
- * but WITHOUT ANY WARRANTY; without even the implied warranty of *
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the *
- * GNU General Public License for more details. *
- * *
- * You should have received a copy of the GNU General Public License *
- * along with this program; if not, write to the Free Software *
- * Foundation, Inc., *
- * 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA *
- ***************************************************************************/
-
-require_once 'wiki.inc.php';
-
-$n = wiki_pagename();
-if (!$n) {
- pl_redirect('');
-}
-
-new_skinned_page('core/wiki.tpl');
-$perms = wiki_get_perms($n);
-$feed = false;
-
-// Check user perms
-switch (Env::v('action')) {
- case 'rss': case 'atom': case 'sdf': case 'dc':
- wiki_apply_feed_perms($perms[0]);
- $feed = true;
- case '': case 'search':
- break;
-
- case 'edit':
- wiki_apply_perms($perms[1]);
- break;
-
- default:
- wiki_apply_perms('admin');
- break;
-}
-
-if ($p = Post::v('setrperms')) {
- wiki_apply_perms('admin');
- if (wiki_set_perms($n, $p, $perms[1])) {
- $perms = wiki_get_perms($n);
- $page->trigSuccess('Permissions mises à jour');
- }
-}
-
-if ($p = Post::v('setwperms')) {
- wiki_apply_perms('admin');
- if (wiki_set_perms($n, $perms[0], $p)) {
- $perms = wiki_get_perms($n);
- $page->trigSuccess('Permissions mises à jour');
- }
-}
-
-// Generate cache even if we don't have access rights
-$wiki_cache = wiki_work_dir().'/cache_'.wiki_filename($n).'.tpl';
-$cache_exists = file_exists($wiki_cache);
-if (Env::v('action') || !$cache_exists) {
- if ($cache_exists && !$feed) {
- unlink($wiki_cache);
- $files = glob($globals->spoolroot . '/spool/templates_c/*cache_' . wiki_filename($n) . '.tpl*');
- foreach ($files as $file) {
- unlink($file);
- }
- }
-
- // we leave pmwiki do whatever it wants and store everything
- ob_start();
- require_once($globals->spoolroot.'/wiki/pmwiki.php');
-
- $wikiAll = ob_get_clean();
- pl_clear_errors();
-
- // the pmwiki skin we are using (almost empty) has these keywords:
- $i = strpos($wikiAll, "<!--/HeaderText-->");
- $j = strpos($wikiAll, "<!--/PageLeftFmt-->", $i);
-}
-
-$wiki_exists = file_exists(wiki_work_dir() . '/' . wiki_filename($n));
-
-if ($feed) {
- $wikiAll = str_replace('dc:contributor', 'author', $wikiAll);
- $wikiAll = preg_replace('!<author>.*?\..*?\.(\d{4})\|(.*?)</author>!u', '<author>$2 (X$1)</author>', $wikiAll);
- $wikiAll = str_replace('<link>./', '<link>' . $globals->baseurl . '/' . $platal->ns, $wikiAll);
- echo $wikiAll;
- pl_clear_errors();
- exit;
-} elseif (Env::v('action')) {
- $page->assign('pl_extra_header', substr($wikiAll, 0, $i));
- $wikiAll = substr($wikiAll, $j);
-} else {
- if (!$cache_exists && $wiki_exists) {
- $wikiAll = substr($wikiAll, $j);
- wiki_putfile($wiki_cache, $wikiAll);
- } elseif ($cache_exists) {
- $wikiAll = file_get_contents($wiki_cache);
- } elseif (S::has_perms()) {
- $wikiAll = "<p>La page de wiki $n n'existe pas. "
- . "Il te suffit de <a href='" . str_replace('.', '/', $n) . "?action=edit'>l'éditer</a></p>";
- } else {
- $page->changeTpl('core/404.tpl');
- }
-}
-
-// Check user perms
-wiki_apply_perms($perms[0]);
-
-$page->assign('perms', $perms);
-$page->assign('perms_opts', wiki_perms_options());
-
-$page->assign('canedit', wiki_may_have_perms($perms[1]));
-$page->assign('has_perms', wiki_may_have_perms('admin'));
-
-$page->assign('wikipage', str_replace('.', '/', $n));
-if (!$feed && $perms[1] == 'admin' && !Env::v('action') && $wiki_exists) {
- $page->assign('pmwiki_cache', $wiki_cache);
-} else {
- $page->assign('pmwiki', $wikiAll);
- $page->assign('text', true);
-}
-$page->addCssLink('wiki.css');
-$page->addJsLink('wiki.js');
-if (!Env::v('action')) {
- $url = '/' . str_replace('.', '/', $n) . '?action=rss';
- if (S::logged()) {
- $url .= '&user=' . S::v('forlife') . '&hash=' . S::v('core_rss_hash');
- }
- $page->setRssLink($n, $url);
-}
-
-$page->run();
-
-// vim:set et sw=4 sts=4 sws=4 foldmethod=marker enc=utf-8:
-?>