");
SDV($ForumTagFmt,"
");
if (isset($EnablePathInfo) && !$EnablePathInfo)
SDV($ForumCommentTagFmt,"
");
SDV($ForumCommentTagFmt,"
");
Markup('{$Forum}', '>{$var}','/\\(:\\$Forum:\\)/',Keep($ForumTagFmt));
Markup('{$Forumcomment}', '>{$var}','/\\(:\\$Forumcomment:\\)/',Keep($ForumCommentTagFmt));
#SDV($InlineReplacements['/\\[\\[\\$Forum\\]\\]/e'],
# "FmtPageName(\$GLOBALS['ForumTagFmt'],\$pagename)");
#SDV($InlineReplacements['/\\[\\[\\$Forumcomment\\]\\]/e'],
# "FmtPageName(\$GLOBALS['ForumCommentTagFmt'],\$pagename)");
function HandleForum($pagename) {
global $TimeFmt,$Now,$_GET,$newpage,$Group,$Name;
$timeID=$_GET["timeid"];
$topictitle=StripCSlashes($_GET["topic"]);
$wikilink=$topictitle.$timeID;
$name=StripCSlashes($_GET["name"]);
$rcpage = ReadPage($pagename,"");
TestLog("rcpage1 /$rcpage/");
$pos=strpos($rcpage['text'],"(:\$Forum:)");
$len=strlen("(:\$Forum:)");
$before=substr($rcpage['text'],0,$pos+$len);
$after=substr($rcpage['text'],$pos+$len);
$newpage1=strtr($wikilink,".:,;-_!\"§$%&/()=?{[]}\\äöü'#+*`´éÉèÈáÁàÀíÍìÌ",
"zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz"); /* why substitutes something? */
$newpage1="[[".$newpage."]]";
TestLog("Forum: /$pagename/$wikilink/$newpage/G:$Group/N:$Name");
/*v1 $newpage=FmtWikiLink('',$newpage,NULL,'PageName',$pagename); */
$newpage=MakePageName($pagename, $wikilink);
//FmtWikiLink('',$match[1],NULL,'PageName',$pagename);
$rcpage['text'] = $before.
"\n||''$name'' :||[[".substr($newpage,strpos($newpage,'.')+1)."]] $topictitle ||%green% ''".
strftime($TimeFmt,$Now).
"''%%||".$after;
WritePage($pagename,$rcpage);
$rcpage = ReadPage($newpage,"");
TestLog("rcpage2 /$rcpage/");
/* pog: changes Wikisyntax v2 */
$rcpage['text']="!".StripCSlashes($topictitle)." \n!!!by $name - "
.strftime($TimeFmt,$Now)." - [[".substr($pagename,strpos($pagename,'.')+1)."]] go back\n"
.StripCSlashes($_GET["message"])
."\n!!Comments: \n\n(:\$Forumcomment:)";
TestLog("Text" .$rcpage['text']);
WritePage($newpage,$rcpage);
Redirect($pagename);
}
function HandleForumComment($pagename) {
global $TimeFmt,$Now,$_GET,$newpage,$Group,$Name;
$comment=StripCSlashes($_GET["message"]);
$name=StripCSlashes($_GET["name"]);
$rcpage = ReadPage($pagename,"");
$pos=strpos($rcpage['text'],"(:\$Forumcomment:)");
$before=substr($rcpage['text'],0,$pos);
$after=substr($rcpage['text'],$pos);
$rcpage['text'] = $before.
"\n\n%green%''".strftime($TimeFmt,$Now).
" by ''".$name."%%[[<<]]\n$comment\n\n".$after;
TestLog("F-Comment: /$pageName/");
WritePage($pagename,$rcpage);
Redirect($pagename);
}
?>