postings.cgi

一个linux论坛

具体情况：<ul><li><a href="forums.cgi?forum=$inforum">返回论坛</a><li><a href="leoboard.cgi">返回论坛首页</a></ul></tr></td>
</table></td></tr></table>
<meta http-equiv="refresh" content="3; url=forums.cgi?forum=$inforum">
~;
    } else {
        $inmembername =~ s/\_/ /g;
        $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 colspan=2 align=center>
<form action="$thisprog" method="post">
<input type=hidden name="action" value="unlocktop">
<input type=hidden name="checked" value="yes">
<input type=hidden name="forum" value="$inforum">
<input type=hidden name="topic" value="$intopic">
<font color=$fontcolormisc><b>请输入您的用户名、密码进入版主模式 [主题取消固定]</b></font></td></tr>
<tr><td bgcolor=$miscbackone><font color=$fontcolormisc>请输入您的用户名</font></td><td bgcolor=$miscbackone><input type=text name="membername" value="$inmembername"></td></tr>
<tr><td bgcolor=$miscbackone><font color=$fontcolormisc>请输入您的密码</font></td><td bgcolor=$miscbackone><input type=password name="password" value="$inpassword"> &nbsp; <font color=$fontcolormisc><a href="profile.cgi?action=lostpass" style="cursor:help">忘记密码？</a></font></td></tr>
<tr><td bgcolor=$miscbacktwo colspan=2 align=center><input type=submit name="submit" value="登 陆"></td></form></tr></table></td></tr></table>
</table></td></tr></table>
~;
    }
}

sub abslocktop {
    &mischeader("主题总固定首行");

    $cleartoedit = "no";
    if (($membercode eq "ad") && ($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")) {
        my $file = "$lbdir" . "boarddata/absontop.cgi";
        if (open (TOPFILE, $file)) {
            @toptopic = <TOPFILE>;
            close (TOPFILE);
            if (open (TOPFILE, ">$file")) {
                print TOPFILE "$inforum\|$intopic\n";
	        $putno = 1;
	        foreach (@toptopic) {
	            chomp $_;
                    next if ($_ eq "");
	            ($tempinforum,$tempintopic) = split (/\|/,$_);
	            unless (($tempinforum eq $inforum)&&($tempintopic eq $intopic)) {
	    	        print TOPFILE "$_\n";
	    	        $putno ++;
	            }
	            last if ($putno eq 5);
	        }
                close (TOPFILE);
            }
        } else {
            if (open (TOPFILE, ">$file")) {
                print TOPFILE "$inforum\|$intopic\n";
                close (TOPFILE);
            }
        }
        $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 align=center><font color=$fontcolormisc><b>主题总固定首行成功</b></font></td></tr>
<tr><td bgcolor=$miscbackone><font color=$fontcolormisc>
具体情况：<ul><li><a href="forums.cgi?forum=$inforum">返回论坛</a><li><a href="leoboard.cgi">返回论坛首页</a></ul></tr></td>
</table></td></tr></table>
<meta http-equiv="refresh" content="3; url=forums.cgi?forum=$inforum">
~;
    } else {
        if (open (TOPFILE, "${lbdir}boarddata/absontop.cgi")) {
            @toptopic = <TOPFILE>;
            close (TOPFILE);
        }
        $toptopic = @toptopic;
	if ($toptopic >= 5) { $topnum = "<BR><B><font color=$fonthighlight>已经总固定了 $toptopic 个帖子了，如果继续，最早一个被固定的帖子将被自动取消固定。</B></font>" } else { $topnum = "<BR><B><font color=$fonthighlight>已经总固定了 $toptopic 个帖子了，你最多可以总固定 5 个帖子。</B></font>"; }
        $inmembername =~ s/\_/ /g;
        $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 colspan=2 align=center>
<form action="$thisprog" method="post">
<input type=hidden name="action" value="abslocktop">
<input type=hidden name="checked" value="yes">
<input type=hidden name="forum" value="$inforum">
<input type=hidden name="topic" value="$intopic">
<font color=$fontcolormisc><b>请输入您的用户名、密码进入版主模式 [主题总固定首行]</b></font>$topnum</td></tr>
<tr><td bgcolor=$miscbackone><font color=$fontcolormisc>请输入您的用户名</font></td>
<td bgcolor=$miscbackone><input type=text name="membername" value="$inmembername"></td></tr>
<tr><td bgcolor=$miscbackone><font color=$fontcolormisc>请输入您的密码</font></td>
<td bgcolor=$miscbackone><input type=password name="password" value="$inpassword"> &nbsp; <font color=$fontcolormisc><a href="profile.cgi?action=lostpass" style="cursor:help">忘记密码？</a></font></td></tr>
<tr><td bgcolor=$miscbacktwo colspan=2 align=center><input type=submit name="submit" value="登 陆"></td></form></tr></table></td></tr></table>
</table></td></tr></table>
~;

    }
}

sub absunlocktop {
    &mischeader("主题取消总固定");

    $cleartoedit = "no";
    if (($membercode eq "ad") && ($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")) {
        my $file = "${lbdir}boarddata/absontop.cgi";
        if (open (TOPFILE, $file)) {
            @toptopic = <TOPFILE>;
            close (TOPFILE);

            if (open (TOPFILE, ">$file")) {
                foreach (@toptopic) {
                    chomp $_;
                    next if ($_ eq "");
	            my ($tempinforum,$tempintopic) = split (/\|/,$_);
	            unless (($tempinforum eq $inforum)&&($tempintopic eq $intopic)) {
	    	        print TOPFILE "$_\n";
	            }
	        }
                close (TOPFILE);
            }
        }
        $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 align=center><font color=$fontcolormisc><b>主题取消总固定成功</b></font></td></tr>
<tr><td bgcolor=$miscbackone><font color=$fontcolormisc>
具体情况：<ul><li><a href="forums.cgi?forum=$inforum">返回论坛</a><li><a href="leoboard.cgi">返回论坛首页</a></ul></tr></td>
</table></td></tr></table>
<meta http-equiv="refresh" content="3; url=forums.cgi?forum=$inforum">
~;
    } else {
        $inmembername =~ s/\_/ /g;
        $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 colspan=2 align=center>
<form action="$thisprog" method="post">
<input type=hidden name="action" value="absunlocktop">
<input type=hidden name="checked" value="yes">
<input type=hidden name="forum" value="$inforum">
<input type=hidden name="topic" value="$intopic">
<font color=$fontcolormisc><b>请输入您的用户名、密码进入版主模式 [主题取消总固定]</b></font></td></tr>
<tr><td bgcolor=$miscbackone><font color=$fontcolormisc>请输入您的用户名</font></td><td bgcolor=$miscbackone><input type=text name="membername" value="$inmembername"></td></tr>
<tr><td bgcolor=$miscbackone><font color=$fontcolormisc>请输入您的密码</font></td><td bgcolor=$miscbackone><input type=password name="password" value="$inpassword"> &nbsp; <font color=$fontcolormisc><a href="profile.cgi?action=lostpass" style="cursor:help">忘记密码？</a></font></td></tr>
<tr><td bgcolor=$miscbacktwo colspan=2 align=center><input type=submit name="submit" value="登 陆"></td></form></tr></table></td></tr></table>
</table></td></tr></table>
~;
    }
}

sub catlocktop {
    &mischeader("主题区固定首行");

    $cleartoedit = "no";
    if (($membercode eq "ad" || $membercode eq "smo" || ",$catemods," =~ /\,$inmembername\,/i) && ($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")) {
        my $file = "${lbdir}boarddata/catontop$categoryplace.cgi";
        if (open (TOPFILE, $file)) {
            @toptopic = <TOPFILE>;
            close (TOPFILE);
            if (open (TOPFILE, ">$file")) {
                print TOPFILE "$inforum\|$intopic\n";
                $putno = 1;
                foreach (@toptopic) {
                    chomp $_;
                    next if ($_ eq "");
                    ($tempinforum,$tempintopic) = split (/\|/,$_);
                    unless (($tempinforum eq $inforum && $tempintopic eq $intopic) || !(-e "${lbdir}forum$tempinforum/$tempintopic.thd.cgi")) {
                            print TOPFILE "$_\n";
                            $putno ++;
                    }
                    last if ($putno eq 3);
                }
                close (TOPFILE);
            }
        } else {
            if (open (TOPFILE, ">$file")) {
                print TOPFILE "$inforum\|$intopic\n";
                close (TOPFILE);
            }
        }
        $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 align=center><font color=$fontcolormisc><b>主题区固定首行成功</b></font></td></tr>
<tr><td bgcolor=$miscbackone><font color=$fontcolormisc>
具体情况：<ul><li><a href="forums.cgi?forum=$inforum">返回论坛</a><li><a href="leoboard.cgi">返回论坛首页</a></ul></tr></td>
</table></td></tr></table>
<meta http-equiv="refresh" content="3; url=forums.cgi?forum=$inforum">
~;
    } else {
        if (open (TOPFILE, "${lbdir}boarddata/catontop$categoryplace.cgi")) {
            @toptopic = <TOPFILE>;
            close (TOPFILE);
        }
        $toptopic = @toptopic;
        if ($toptopic >= 3) { $topnum = "<BR><B><font color=$fonthighlight>已经区固定了 $toptopic 个帖子了，如果继续，最早一个被固定的帖子将被自动取消固定。</B></font>" } else { $topnum = "<BR><B><font color=$fonthighlight>已经区固定了 $toptopic 个帖子了，你最多可以区固定 3 个帖子。</B></font>"; }
        $inmembername =~ s/\_/ /g;
        $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 colspan=2 align=center>
<form action="$thisprog" method="post">
<input type=hidden name="action" value="catlocktop">
<input type=hidden name="checked" value="yes">
<input type=hidden name="forum" value="$inforum">
<input type=hidden name="topic" value="$intopic">
<font color=$fontcolormisc><b>请输入您的用户名、密码进入版主模式 [主题区固定首行]</b></font>$topnum</td></tr>
<tr><td bgcolor=$miscbackone><font color=$fontcolormisc>请输入您的用户名</font></td>
<td bgcolor=$miscbackone><input type=text name="membername" value="$inmembername"></td></tr>
<tr><td bgcolor=$miscbackone><font color=$fontcolormisc>请输入您的密码</font></td>
<td bgcolor=$miscbackone><input type=password name="password" value="$inpassword">   <font color=$fontcolormisc><a href="profile.cgi?action=lostpass" style="cursor:help">忘记密码？</a></font></td></tr>
<tr><td bgcolor=$miscbacktwo colspan=2 align=center><input type=submit name="submit" value="登 陆"></td></form></tr></table></td></tr></table>
</table></td></tr></table>
~;

    }
}

sub catunlocktop {
    &mischeader("主题取消区固定");

    $cleartoedit = "no";
    if (($membercode eq "ad" || $membercode eq "smo" || ",$catemods," =~ /\,$inmembername\,/i) && ($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")) {
        my $file = "${lbdir}boarddata/catontop$categoryplace.cgi";
        if (open (TOPFILE, $file)) {
            @toptopic = <TOPFILE>;
            close (TOPFILE);

            if (open (TOPFILE, ">$file")) {
                foreach (@toptopic) {
                    chomp;
                    next if ($_ eq "");
                    my ($tempinforum,$tempintopic) = split (/\|/,$_);
                    unless (($tempinforum eq $inforum && $tempintopic eq $intopic) || !(-e "${lbdir}forum$tempinforum/$tempintopic.thd.cgi")) {
                            print TOPFILE "$_\n";
                    }
                }
                close (TOPFILE);
            }
        }
        $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 align=center><font color=$fontcolormisc><b>主题取消区固定成功</b></font></td></tr>
<tr><td bgcolor=$miscbackone><font color=$fontcolormisc>
具体情况：<ul><li><a href="forums.cgi?forum=$inforum">返回论坛</a><li><a href="leoboard.cgi">返回论坛首页</a></ul></tr></td>
</table></td></tr></table>
<meta http-equiv="refresh" content="3; url=forums.cgi?forum=$inforum">
~;
    } else {
        $inmembername =~ s/\_/ /g;
        $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 colspan=2 align=center>
<form action="$thisprog" method="post">
<input type=hidden name="action" value="catunlocktop">
<input type=hidden name="checked" value="yes">
<input type=hidden name="forum" value="$inforum">
<input type=hidden name="topic" value="$intopic">
<font color=$fontcolormisc><b>请输入您的用户名、密码进入版主模式 [主题取消区固定]</b></font></td></tr>
<tr><td bgcolor=$miscbackone><font color=$fontcolormisc>请输入您的用户名</font></td><td bgcolor=$miscbackone><input type=text name="membername" value="$inmembername"></td></tr>
<tr><td bgcolor=$miscbackone><font color=$fontcolormisc>请输入您的密码</font></td><td bgcolor=$miscbackone><input type=password name="password" value="$inpassword">   <font color=$fontcolormisc><a href="profile.cgi?action=lostpass" style="cursor:help">忘记密码？</a></font></td></tr>
<tr><td bgcolor=$miscbacktwo colspan=2 align=center><input type=submit name="submit" value="登 陆"></td></form></tr></table></td></tr></table>
</table></td></tr></table>
~;
    }
}

END {
  if ($cpudisp eq "1") {
    $spent_time = sprintf ("%.2f", ((times)[0] + (times)[1] - $start_time)*1000);
    print "<center><font color=#c0c0c0>当前页面执行消耗时间： $spent_time 毫秒";
  }
}