Post a Message to the Forum
Please only press the OK button ONCE.
");
} else SDV($ForumTagFmt,"
Post a Message to the Forum
Please only press the OK button ONCE.
");
if (isset($EnablePathInfo) && !$EnablePathInfo)
SDV($ForumCommentTagFmt,"
Post a Reply to This Topic
Please only press the OK button ONCE.
");
SDV($ForumCommentTagFmt,"
Post a Reply to This Topic
Please only press the OK button ONCE.
");
Markup('{$Forum}', '>{$var}','/\\(:\\$Forum:\\)/',Keep($ForumTagFmt));
Markup('{$Forumcomment}', '>{$var}','/\\(:\\$Forumcomment:\\)/',Keep($ForumCommentTagFmt));
Markup('^-_-','block','/^-_-(.*)$/','$1
');
#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']="[[Main.Home | Home]] » [[".substr($pagename,strpos($pagename,'.')+1)." | Forum]] »\n\n-_-[++'''Forum Topic: ".StripCSlashes($topictitle)." ++]'''\n-_-'''Posted by $name on "
.strftime($TimeFmt,$Now)."'''\n"
.StripCSlashes($_GET["message"])
."\n\n----\n\n'''[++Replies:++]''' \n\n(:\$Forumcomment:)\n\n----";
#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%Posted by ".$name." on ".strftime($TimeFmt,$Now)."%%[[<<]]\n$comment\n\n----\n".$after;
#TestLog("F-Comment: /$pageName/");
WritePage($pagename,$rcpage);
Redirect($pagename);
}
?>