📄 post.cgi
字号:
$output .= qq~
</td>
</tr>
<td bgcolor=$miscbackone valign=top><font face="$font" color=$fontcolormisc><b>内容</b><p>
在此论坛中：<li>HTML 标签: <b>$htmlstates</b><li><a href="javascript:openScript('misc.cgi?action=ikoncode',300,350)">ib2000 标签</a>: <b>$idmbcodestates</b><li>贴图标签: <b>$postpicstates</b><li>音乐标签: <b>$postsoundstates</b><li>文字大小: <b>$postfontsizestates</b><li>$emoticonslink</font></td>
<td bgcolor=$miscbackone valign=middle>
$insidejs
<TEXTAREA cols=80 name=inpost rows=12 wrap="soft">$inpost</TEXTAREA><br>
模式:
<input type="radio" name="mode" value="help" onClick="thelp(1)"> 帮助
<input type="radio" name="mode" value="prompt" CHECKED onClick="thelp(2)"> 完全
<input type="radio" name="mode" value="basic" onClick="thelp(0)"> 基本
</td></tr>
</tr>
<tr>
<td bgcolor=$miscbackone valign=top colspan=2><font face="$font" color=$fontcolormisc><b>点击表情图即可在贴子中加入相应的表情</B></font><br>
~;
$dirtoopen = "$imagesdir" . "emot";
opendir (DIR, "$dirtoopen") or die "表情图片所在目录没有找到： $dirtoopen ！";
@dirdata = readdir(DIR);
closedir (DIR);
@emoticondata = grep(/gif$/,@dirdata);
foreach $picture (@emoticondata) {
$smileyname = $picture;
$smileyname =~ s/\.gif$//g;
$output .= qq~
<a href="javascript:$smileyname();"><img src="$emoticonsurl/$picture" border=0></a>
~;
} #endforeach
$output .= qq~
</td>
</tr>
<tr>
<td bgcolor=$miscbacktwo valign=top><font face="$font" color=$fontcolormisc><b>选项</b><p>$helpurl</font></td>
<td bgcolor=$miscbacktwo valign=middle><font face="$font" color=$fontcolormisc><input type=checkbox name="inshowsignature" value="yes" checked>是否显示您的签名？<br>
$requestnotify
$emoticonsbutton
<b>发表之前是否预览？ </b><input name="previewfirst" type="radio" value="yes"> 是 <input name="previewfirst" type="radio" value="no" checked> 否</font>
</font><BR><BR></td>
</tr><tr>
<td bgcolor=$miscbacktwo valign=middle colspan=2 align=center>
<input type=Submit value="发 表" name=Submit" onClick="return clckcntr();"> <input type="reset" name="Clear" value="清 除">
</td></form></tr>
</table></tr></td>
</table>
~;
# Lets display the thread review
$filetoopen = "$ikondir" . "forum$inforum/$intopic.thd";
$filetoopen = &stripMETA($filetoopen);
open(FILE, "$filetoopen");
flock(FILE, 2) if ($OS_USED eq "Unix");
@threads = <FILE>;
close(FILE);
@sortedthreads = reverse(@threads);
&threadreview;
} # end add reply routine
##### Reply with quote
sub replyquote {
### Lets sort out the flood control
&getmember("$inmembername");
if (($floodcontrol eq "on") && ($membercode ne "ad") && ($membercode ne "mo")) {
$currenttime = time;
($lastpost, $posturl, $posttopic) = split(/\%\%\%/,$lastpostdate);
$lastpost = ($lastpost + $floodcontrollimit);
if ($lastpost > $currenttime) {
&error("发表回复&灌水预防机制已经使用，您必须等待 $floodcontrollimit 秒钟才能再次发表！");
}
}
&getforum("$inforum");
if (($allowedentry{$inforum} eq "yes")||($membercode eq "ad")) { $allowed = "yes"; }
if (($privateforum eq "yes") && ($allowed ne "yes")) {
&error("发表&对不起，您不允许在此论坛发表！");
}
# Get the post to edit
$filetoopen = "$ikondir" . "forum$inforum/$intopic.thd";
$filetoopen = &stripMETA($filetoopen);
open(FILE, "$filetoopen");
flock(FILE, 2) if ($OS_USED eq "Unix");
@threads = <FILE>;
close(FILE);
$posttoget = $inpostno;
$posttoget--;
($membername, $topictitle, $postipaddress, $showemoticons, $showsignature ,$postdate, $post, $posticon) = split(/\|/, @threads[$posttoget]);
$post =~ s/\<p\>/\n\n/g;
$post =~ s/\<br\>/\n/g;
$membernametemp=$membername;
$postdate = $postdate + ($timedifferencevalue*3600) + ($timezone*3600);
$postdate = &dateformat("$postdate");
### Print form
$rawpost = $post;
if ($previewfirst eq "yes") {
$rawpost = $inpost;
$rawpost =~ s/\<p\>/\n\n/g;
$rawpost =~ s/\<br\>/\n/g;
&preview;
}
else {
&mischeader("引用回复贴子");
}
if ($threadstate eq "closed") { &error("发表回复&对不起，这个主题已经被锁定！"); }
if ($emoticons eq "on") {
$emoticonslink = qq~<a href="javascript:openScript('$miscprog?action=showsmilies',300,350)">使用表情字符转换</a>~;
$emoticonsbutton =qq~<input type=checkbox name="inshowemoticons" value="yes" checked>您是否希望<b>使用</b>表情字符转换在您的文章中？<br>~;
}
if ($emailfunctions eq "on") { $requestnotify = qq~<input type=checkbox name="notify" value="yes">有回复时使用邮件通知您？<br>~; }
&whosonline("$inmembername|<a href=\"$forumsprog?forum=$inforum\"><b>$forumname</b></a>|none|引用回复<a href=\"$threadprog?forum=$inforum&topic=$intopic\"><b>$topictitle</b></a>|") if ($privateforum ne "yes");
&whosonline("$inmembername|<a href=\"$forumsprog?forum=$inforum\"><b>$forumname</b></a>(密)|none|引用回复保密贴子|") if ($privateforum eq "yes");
# Output the form
$emoticonsurl = qq~$imagesurl/emot~;
$dirtoopen = "$imagesdir" . "emot";
opendir (DIR, "$dirtoopen") or die "表情图片所在目录没有找到： $dirtoopen ！";
@dirdata = readdir(DIR);
closedir (DIR);
@emoticondata = grep(/gif$/,@dirdata);
foreach $picture (@emoticondata) {
$smileyname = $picture;
$smileyname =~s/\.gif$//g;
$output .= qq~ <script language="javascript">
function $smileyname() {
document.FORM.inpost.value+=' :$smileyname:'; }
</script> ~;
} #endforeach
$rawpost =~ s/\[这个贴子最后由(.+?)编辑\]\n//isg;
$temppost = qq~\[quote\]\n下面引用由$membernametemp在 $postdate 发表的内容：\n$rawpost\n\[\/quote\]\n~;
if ($htmlstate eq "on") { $htmlstates = "可用"; } else { $htmlstates = "不可用"; }
if ($idmbcodestate eq "on") { $idmbcodestates = "可用"; } else { $idmbcodestates = "不可用"; }
if ($badwords) {
@pairs = split(/\&/,$badwords);
foreach (@pairs) {
($bad, $good) = split(/=/,$_);
chop $good;
$topictitle =~ s/$bad/$good/isg;
$temppost =~ s/$bad/$good/isg;
}
}
$output .= qq~
<table cellpadding=0 cellspacing=0 border=0 width=$tablewidth bgcolor=$tablebordercolor align=center>
<tr><td>
<table cellpadding=4 cellspacing=1 border=0 width=100%>
<tr>
<td bgcolor=$titlecolor colspan=2>
<form action="$thisprog" method=post name="FORM">
<input type=hidden name="action" value="addreply">
<input type=hidden name="forum" value="$inforum">
<input type=hidden name="topic" value="$intopic">
<font face="$font" color=$titlefontcolor><b>主题标题</b>： $topictitle</td>
</tr>
<tr>
<td bgcolor=$miscbackone valign=middle><font face="$font" color=$fontcolormisc><b>用户名</b></font></td>
<td bgcolor=$miscbackone valign=middle><input type=text name="membername" value="$inmembername"><font face="$font" color=$fontcolormisc> <a href="$registerprog">您没有注册？</a></font></td>
</tr><tr>
<td bgcolor=$miscbackone valign=middle><font face="$font" color=$fontcolormisc><b>密码</b></font></td>
<td bgcolor=$miscbackone valign=middle><input type=password name="password" value="$inpassword"><font face="$font" color=$fontcolormisc> <a href="$profileprog?action=lostpass">忘记密码？</a></font></td>
</tr>
<tr>
<td bgcolor=$miscbackone valign=top><font face="$font" color=$fontcolormisc><b>当前心情</b><br><li>将放在贴子的前面</font><BR><BR>刷新页面可以获得不同的心情图</td>
<td bgcolor=$miscbackone valign=top>
~;
####Get the post Icons####
$dirtoopen = "$imagesdir" . "posticons";
opendir (DIR, "$dirtoopen") or die "表情图片所在目录没有找到： $dirtoopen ！";
@dirdata = readdir(DIR);
closedir (DIR);
@posticondata = grep(/gif$/,@dirdata);
$tempiconnum=1;
foreach $picture (@posticondata) {
if ($tempiconnum > 12) {
$tempiconnum = 1;
$output .= qq~<BR>~;
}
$on=int(rand(3)+1);
if ($on==3) {
$output .= qq~<input type=radio value="$picture" name="posticon"><img src="$imagesurl/posticons/$picture" width=13 height=13 border=0> ~;
$tempiconnum ++;
}
} #endforeach
$output .= qq~
</td>
</tr>
<td bgcolor=$miscbackone valign=top><font face="$font" color=$fontcolormisc><b>内容</b><p>
在此论坛中：<li>HTML 标签: <b>$htmlstates</b><li><a href="javascript:openScript('misc.cgi?action=ikoncode',300,350)">ib2000 标签</a>: <b>$idmbcodestates</b><li>贴图标签: <b>$postpicstates</b><li>音乐标签: <b>$postsoundstates</b><li>文字大小: <b>$postfontsizestates</b><li>$emoticonslink</font></td>
<td bgcolor=$miscbackone valign=middle>
$insidejs
<TEXTAREA cols=80 name=inpost rows=12 wrap="soft">$temppost</TEXTAREA><br>
模式:
<input type="radio" name="mode" value="help" onClick="thelp(1)"> 帮助
<input type="radio" name="mode" value="prompt" CHECKED onClick="thelp(2)"> 完全
<input type="radio" name="mode" value="basic" onClick="thelp(0)"> 基本
</td></tr>
</tr>
<tr>
<td bgcolor=$miscbackone valign=top colspan=2><font face="$font" color=$fontcolormisc><b>点击表情图即可在贴子中加入相应的表情</B></font><br>
~;
$dirtoopen = "$imagesdir" . "emot";
opendir (DIR, "$dirtoopen") or die "表情图片所在目录没有找到： $dirtoopen ！";
@dirdata = readdir(DIR);
closedir (DIR);
@emoticondata = grep(/gif$/,@dirdata);
foreach $picture (@emoticondata) {
$smileyname = $picture;
$smileyname =~ s/\.gif//g;
$output .= qq~
<a href="javascript:$smileyname();"><img src="$emoticonsurl/$picture" border=0></a>
~;
} #endforeach
$output .= qq~
</td>
</tr>
<tr>
<td bgcolor=$miscbacktwo valign=top><font face="$font" color=$fontcolormisc><b>选项</b><p>$helpurl</font></td>
<td bgcolor=$miscbacktwo valign=middle><font face="$font" color=$fontcolormisc><input type=checkbox name="inshowsignature" value="yes" checked>是否显示您的签名？<br>
$requestnotify
$emoticonsbutton
<b>发表之前是否预览？</b><input name="previewfirst" type="radio" value="yes"> 是 <input name="previewfirst" type="radio" value="no" checked> 否</font>
</font></td>
</tr><tr>
<td bgcolor=$miscbacktwo valign=middle colspan=2 align=center>
<input type=Submit value="发 表" name=Submit" onClick="return clckcntr();"> <input type="reset" name="Clear" value="清 除">
</td></form></tr></table></tr></td></table>
~;
# Print the thread summary
@sortedthreads = reverse(@threads);
&threadreview;
} # end add reply quote
# begin the copy hack:)
sub copy1 {
# Get the post
$filetoopen = "$ikondir" . "forum$inforum/$intopic.thd";
$filetoopen = &stripMETA($filetoopen);
open(FILE, "$filetoopen");
flock(FILE, 2) if ($OS_USED eq "Unix");
@threads = <FILE>;
close(FILE);
$posttoget = $inpostno;
$posttoget--;
($membername, $topictitle, $postipaddress, $showemoticons, $showsignature ,$postdate, $post) = split(/\|/, @threads[$posttoget]);
$post =~ s/\<p\>/\n\n/g;
$post =~ s/\<br\>/\n/g;
$postdate = $postdate + ($timedifferencevalue*3600) + ($timezone*3600);
$postdate = &dateformat("$postdate");
### Print form
$rawpost = $post;
if ($previewfirst eq "yes") {
$rawpost = $inpost;
$rawpost =~ s/\<p\>/\n\n/g;
$rawpost =~ s/\<br\>/\n/g;
&preview;
}
else {
&mischeader("复制贴子");
}
if ($badwords) {
@pairs = split(/\&/,$badwords);
foreach (@pairs) {
($bad, $good) = split(/=/,$_);
chop $good;
$rawpost =~ s/$bad/$good/isg;
$topictitle =~ s/$bad/$good/isg;
}
}
# if ($threadstate eq "closed") { &error("复制贴子&对不起，这个主题已经被锁定！"); }
&whosonline("$inmembername|<a href=\"$forumsprog?forum=$inforum\"><b>$forumname</b></a>|none|复制贴子<a href=\"$threadprog?forum=$inforum&topic=$intopic\"><b>$topictitle</b></a>|") if ($privateforum ne "yes");
&whosonline("$inmembername|<a href=\"$forumsprog?forum=$inforum\"><b>$forumname</b></a>(密)|none|复制保密贴子|") if ($privateforum eq "yes");
$temppost = qq~-=-=-=-=-=>\n$rawpost\n-=-=-=-=-=>~;
$output .= qq~
<table cellpadding=0 cellspacing=0 border=0 width=$tablewidth bgcolor=$tablebordercolor align=center>
<tr><td>
<table cellpadding=4 cellspacing=1 border=0 width=100%>
<tr>
<td bgcolor=$titlecolor colspan=2>
<form action="$thisprog" method=post>
<input type=hidden name="action" value="addreply">
<input type=hidden name="forum" value="$inforum">
<input type=hidden name="topic" value="$intopic">
<font face="$font" color=$titlefontcolor>主题： $topictitle</td>
</tr><tr>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -