📄 postings.cgi
字号:
unlink $file;
} # end unless statement
rebuildLIST(-Forum=>"$inforum");
rebuildLIST(-Forum=>"$movetoid");
$relocurl = "$forumsprog?forum=$inforum";
$output .= qq~
<table cellpadding=0 cellspacing=0 border=0 width=$tablewidth bgcolor=$tablebordercolor align=center>
<tr>
<td>
<table cellpadding=6 cellspacing=1 border=0 width=100%>
<tr>
<td bgcolor=$miscbacktwo valign=middle align=center><font face="$font" color=$fontcolormisc><b>主题已经移动</b></font></td></tr>
<tr>
<td bgcolor=$miscbackone valign=middle><font face="$font" color=$fontcolormisc>
具体情况：
<ul>
<li><a href="$forumsprog?forum=$inforum">返回原论坛</a>
<li><a href="$forumsprog?forum=$movetoid">返回新论坛</a>
<li><a href="$forumsummaryprog">返回论坛首页</a>
</ul>
</tr>
</td>
</table></td></tr></table>
<meta http-equiv="refresh" content="3; url=$relocurl">
~;
$checked = "no";
} # end clear to move if
else {
$filetoopen = "$ikondir" . "data/allforums.cgi";
open(FILE, "$filetoopen");
@forums = <FILE>;
close(FILE);
$jumphtml .= "<option value=\"\">选择一个论坛\n";
foreach $forum (@forums) { #start foreach @forums
chomp $forum;
($movetoforumid, $category, $categoryplace, $forumname, $forumdescription) = split(/\|/,$forum);
$rearrange = ("$categoryplace|$category|$forumname|$forumdescription|$movetoforumid");
push (@rearrangedforums, $rearrange);
} # end foreach (@forums)
@finalsortedforums = sort numerically(@rearrangedforums);
foreach $sortedforums (@finalsortedforums) { #start foreach
($categoryplace, $category, $forumname, $forumdescription, $movetoforumid) = split(/\|/,$sortedforums);
if ($categoryplace ne $lastcategoryplace) { #start if $categoryplace
$jumphtml .= "<option value=\"\">\n";
$jumphtml .= "<option value=\"\"> >>> $category <<<\n";
$jumphtml .= "<option value=\"$movetoforumid\">$forumname\n";
}
else {
$jumphtml .= "<option value=\"$movetoforumid\">$forumname\n";
}
$lastcategoryplace = $categoryplace;
} # end foreach
$output .= qq~
<table cellpadding=0 cellspacing=0 border=0 width=$tablewidth bgcolor=$tablebordercolor align=center>
<tr>
<td>
<table cellpadding=6 cellspacing=1 border=0 width=100%>
<tr>
<td bgcolor=$miscbacktwo valign=middle align=center colspan=2>
<form action="$thisprog" method="post">
<input type=hidden name="action" value="movetopic">
<input type=hidden name="checked" value="yes">
<input type=hidden name="forum" value="$inforum">
<input type=hidden name="topic" value="$intopic">
<font face="$font" color=$fontcolormisc><b>请输入您的用户名、密码进入版主模式 [移动主题]</b></font></td></tr>
<tr>
<td bgcolor=$miscbackone valign=middle width=40%><font face="$font" color=$fontcolormisc><b>请输入您的用户名</b></font></td>
<td bgcolor=$miscbackone valign=middle><input type=text name="membername" value="$inmembername"0</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"0> <font face="$font" color=$fontcolormisc><a href="$profileprog?action=lostpass">忘记密码？</a></font></td></tr>
<tr>
<td bgcolor=$miscbackone valign=middle><font face="$font" color=$fontcolormisc>
<b>移动选项</td>
<td bgcolor=$miscbackone valign=middle><font face="$font" color=$fontcolormisc>
<input name="leavemessage" type="radio" value="yes" checked> 移动并保留一个已经锁定的主题在原论坛<br><input name="leavemessage" type="radio" value="no"> 移动并将此主题从原论坛中删除</font>
</td>
</tr>
<tr>
<td bgcolor=$miscbackone valign=top><font face="$font" color=$fontcolormisc><b>当前心情</b><br><li>将放在贴子的前面<BR><BR>刷新页面可以获得不同的心情图</font></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>
<tr>
<td bgcolor=$miscbackone valign=top><font face="$font" color=$fontcolormisc><b>信息：</b><p>
这个是可选的，可以填入一些说明信息。<p>
移动后的目标地址会自动输入在主题中。
</font></td>
<td bgcolor=$miscbackone valign=middle><textarea cols=80 rows=9 wrap="soft" name="inpost"></textarea></td>
</tr>
<tr>
<td bgcolor=$miscbackone valign=top><font face="$font" color=$fontcolormisc><b>移动到：</b></font></td>
<td bgcolor=$miscbackone valign=top><font face="$font" color=$fontcolormisc><select name="movetoid">$jumphtml</select></font></td>
</tr>
<tr>
<td bgcolor=$miscbacktwo valign=middle colspan=2 align=center><input type=submit name="submit" value="提 交"></td></tr></form></table></td></tr></table>
</table>
</td></tr>
</table>
~;
} # end else
} # end movetopic
sub deletethread {
&getmember("$inmembername");
&moderator;
$cleartoedit = "no";
&mischeader("删除主题");
if (($membercode eq "ad") && ($inpassword eq $password)) { $cleartoedit = "yes"; }
if (($inmembmod eq "yes") && ($inpassword eq $password)) { $cleartoedit = "yes"; }
unless ($cleartoedit eq "yes") { $cleartoedit = "no"; }
if ($cleartoedit eq "no" && $checked eq "yes") { &error("删除主题&您不是本论坛坛主或版主，或者您的密码错误！"); }
if (($cleartoedit eq "yes") && ($checked eq "yes")) {
### Now we have to trash it from the thd's
$filetoopen = "$ikondir" . "forum$inforum/$intopic.thd";
if (-e $filetoopen) {
open(FILE, "$filetoopen") or &error("删除主题&这个主题不存在！");
@threads = <FILE>;
close(FILE);
}
else { &error("删除主题&这个主题不存在！可能已经被删除！"); }
$postcount = @threads;
$postcount--;
$filetotrash = "$ikondir" . "forum$inforum/$intopic.thd";
unlink "$filetotrash";
$filetotrash = "$ikondir" . "forum$inforum/$intopic.mal";
unlink "$filetotrash";
### Now we have to trash it from the list.cgi
my $file = "$ikondir" . "forum$inforum/$intopic.pl";
unlink $file;
rebuildLIST(-Forum=>"$inforum");
### Get the new last forum poster, and post date.
$filetoopen = "$ikondir" . "forum$inforum/list.cgi";
open(FILE, "$filetoopen");
@alltopics = <FILE>;
close(FILE);
$linetokeep = @alltopics[0];
chomp $linetokeep;
($trash, $trash, $trash, $trash, $trash, $trash, $trash, $trash, $lastforumposter, $lastforumpostdate) = split(/\|/,$linetokeep);
$filetoopen = "$ikondir" . "data/allforums.cgi";
open(FILE, "$filetoopen");
@allforums = <FILE>;
close(FILE);
$filetomake = "$ikondir" . "data/allforums.cgi";
open(FILE, ">$filetomake");
flock(FILE, 2) if ($OS_USED eq "Unix");
foreach $forum (@allforums) { #start foreach @forums
chomp($forum);
($tempno, $trash) = split(/\|/,$forum);
if ($inforum eq $tempno) {
($forumid, $category, $categoryplace, $forumname, $forumdescription, $forummoderator ,$htmlstate ,$idmbcodestate ,$privateforum, $startnewthreads ,$lastposter ,$lastposttime, $threads, $posts, $forumgraphic) = split(/\|/,$forum);
$posts = $posts - $postcount;
$threads--;
print FILE "$forumid|$category|$categoryplace|$forumname|$forumdescription|$forummoderator|$htmlstate|$idmbcodestate|$privateforum|$startnewthreads|$lastforumposter|$lastforumpostdate|$threads|$posts|$forumgraphic|\n";
}
else { print FILE "$forum\n"; }
}
close(FILE);
require "$ikondir" . "data/boardstats.cgi";
$filetomake = "$ikondir" . "data/boardstats.cgi";
$totalthreads--;
$totalposts = $totalposts - $postcount;
open(FILE, ">$filetomake");
flock(FILE, 2) if ($OS_USED eq "Unix");
print FILE "\$lastregisteredmember = \"$lastregisteredmember\"\;\n";
print FILE "\$totalmembers = \"$totalmembers\"\;\n";
print FILE "\$totalthreads = \"$totalthreads\"\;\n";
print FILE "\$totalposts = \"$totalposts\"\;\n";
print FILE "\n1\;";
close (FILE);
$output .= qq~
<table cellpadding=0 cellspacing=0 border=0 width=$tablewidth bgcolor=$tablebordercolor align=center>
<tr>
<td>
<table cellpadding=6 cellspacing=1 border=0 width=100%>
<tr>
<td bgcolor=$miscbacktwo valign=middle align=center><font face="$font" color=$fontcolormisc><b>删除成功</b></font></td></tr>
<tr>
<td bgcolor=$miscbackone valign=middle><font face="$font" color=$fontcolormisc>
具体信息：
<ul>
<li><a href="$forumsprog?forum=$inforum">返回论坛</a>
<li><a href="$forumsummaryprog">返回论坛首页</a>
</ul>
</tr>
</td>
</table></td></tr></table>
~;
} # end if clear to edit
else {
&mischeader("删除主题");
$output .= qq~
<table cellpadding=0 cellspacing=0 border=0 width=$tablewidth bgcolor=$tablebordercolor align=center>
<tr><td>
<table cellpadding=6 cellspacing=1 border=0 width=100%>
<tr>
<td bgcolor=$miscbacktwo valign=middle colspan=2 align=center>
<form action="$thisprog" method="post">
<input type=hidden name="action" value="delete">
<input type=hidden name="checked" value="yes">
<input type=hidden name="forum" value="$inforum">
<input type=hidden name="topic" value="$intopic">
<font face="$font" color=$fontcolormisc><b>请输入您的用户名、密码进入版主模式 [删除主题]</b></font></td></tr>
<tr>
<td bgcolor=$miscbackone valign=middle colspan=2><font face="$font" color=$fontcolormisc><b>该操作是不可逆的，请仔细考虑！</font></td>
<tr>
<td bgcolor=$miscbackone valign=middle><font face="$font" color=$fontcolormisc>输入您的用户名</font></td>
<td bgcolor=$miscbackone valign=middle><input type=text name="membername" value="$inmembername"0></td></tr>
<tr>
<td bgcolor=$miscbackone valign=middle><font face="$font" color=$fontcolormisc>输入您的密码</font></td>
<td bgcolor=$miscbackone valign=middle><input type=password name="password" value="$inpassword"0> <font face="$font" color=$fontcolormisc><a href="$profileprog?action=lostpass">忘记密码？</a></font></td></tr>
<tr>
<td bgcolor=$miscbacktwo valign=middle colspan=2 align=center><input type=submit name="submit" value="登 陆"></td></tr></form></table></td></tr></table>
</table></td></tr></table>
~;
}
} # end deletethread
###########################
sub lockthread {
&getmember("$inmembername");
&moderator;
$cleartoedit = "no";
&mischeader("主题锁定");
if (($membercode eq "ad") && ($inpassword eq $password)) { $cleartoedit = "yes"; }
if (($inmembmod eq "yes") && ($inpassword eq $password)) { $cleartoedit = "yes"; }
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -