userratinglog.cgi

一个linux论坛

#!/usr/bin/perl

#############################################################
#  LeoBoard ver.5000 / LB5000 / 雷傲超级论坛 ver.5000
#
#  版权所有: 雷傲工作室(原蓝宝石软件工作室)
#
#  制作人  : 山鹰糊 (Shining Hu)
#            花无缺 (Ifairy Han)
#           
#  主页地址: http://www.CGIer.com/      CGI 编程者之家
#	     http://www.LeoBoard.com/   雷傲论坛支持主页
#	     http://www.leoBBS.com/     本论坛直通车
#            
#############################################################
BEGIN {
    $LBPATH = '.';
    my $pgm = $0;
    $pgm =~s/\\/\//g;
    $pgm =~s/^.*\/([^\/]+)$/$1/g;
    unless (-e $LBPATH.'/'.$pgm) {
        foreach ($0, $ENV{'SCRIPT_FILENAME'}, $ENV{'PATH_TRANSLATED'}) {
            s!\\!/!g; s/^(.*)\/[^\/]+$/$1/g;
            if (-e $_ . '/' .$pgm) { $LBPATH = $_; last; }
        }
    }
    unshift (@INC, "$LBPATH");
}
use LBCGI;
$LBCGI::POST_MAX=2000;
$LBCGI::DISABLE_UPLOADS = 1;
$LBCGI::HEADERS_ONCE = 1;
require "lbadmin.lib.pl";
require "data/boardinfo.cgi";
require "lb.lib.pl";
$|++;                                     # Unbuffer the output

#################--- Begin the program ---###################
$thisprog = "userratinglog.cgi";

$query = new LBCGI;

$action        = $query -> param("action");
$action        = &cleaninput("$action");


$inmembername = $query->cookie("adminname");
$inpassword   = $query->cookie("adminpass");
$inmembername =~ s/[\a\f\n\e\0\r\t\`\~\!\@\#\$\%\^\&\*\(\)\+\=\\\{\}\;\'\:\"\,\.\/\<\>\?]//isg;
$inpassword =~ s/[\a\f\n\e\0\r\t\|\@\;\#\{\}\$]//isg;

&getadmincheck;
print header(-charset=>gb2312);

&admintitle;
            

if ($action eq "process") {
        
        &getmember("$inmembername");
        
                if (($membercode eq "ad") && ($inpassword eq $password) && (lc($inmembername) eq lc($membername))) { 
           $filetoopen = "$lbdir" . "data/userratinglog.cgi";
           unlink $filetoopen;
           print qq~
           <tr><td bgcolor=#333333"><font color=#FFFFFF>
		<b>欢迎来到论坛管理中心 / 删除用户威望操作日志</b>
		</td></tr>
		<tr>
		<td bgcolor=#EEEEEE valign=middle align=center>
		<font color=#333333><b>文件删除操作日志</b>
		</td></tr>
		<tr><td align=center><br><br>用户威望操作日志已经删除!</td></tr>
           ~;
         
                }
		else {
           print qq~
           <tr><td bgcolor=#333333"><font color=#FFFFFF>
		<b>欢迎来到论坛管理中心 / 删除用户威望操作日志</b>
		</td></tr>
		<tr>
		<td bgcolor=#EEEEEE valign=middle align=center>
		<font color=#333333><b>文件删除操作日志</b>
		</td></tr>
		<tr><td align=center><br><br>总斑竹无权删除日志!</td></tr>
           ~;
		}
        
        }
        
    else {
        
        &getmember("$inmembername");
        
        if ((($membercode eq "ad")||($membercode eq "smo")) && ($inpassword eq $password) && (lc($inmembername) eq lc($membername))) {

                $filetoopen = "$lbdir" . "data/userratinglog.cgi";
                open (FILE, "$filetoopen");
                @baddel = <FILE>;
                close (FILE);

		my $key = $query->param('key');
		my $type = $query->param('type');
		if ($key ne "")
		{
			if ($type eq "time")
			{
				my ($begin, $end);
				for ($begin = 0; $begin < @baddel; $begin++)
				{
					my ($temp1, $temp2, $temp3, $temptime, $temp4, $temp5, $temp6) = split(/\t/, $baddel[$begin]);
					$temptime = &shortdate($temptime + $timezone * 3600 + $timedifferencevalue * 3600);
					last if ($key eq $temptime);
				}
				for ($end = @baddel - 1; $end >= $begin - 1; $end--)
				{
					my ($temp1, $temp2, $temp3, $temptime, $temp4, $temp5, $temp6) = split(/\t/, $baddel[$end]);
					$temptime = &shortdate($temptime + $timezone * 3600 + $timedifferencevalue * 3600);
					last if ($key eq $temptime);
				}
				if ($begin > $end)
				{
					undef(@baddel);
				}
				else
				{
					@baddel = @baddel[$begin..$end];
				}
			}
			elsif ($type eq "target")
			{
				@baddel = grep(/^$key\t/i, @baddel);
			}
			else
			{
				@baddel = grep(/^.+\t$key\t.+\t.+\t.+\t.+\t.+$/i, @baddel);
			}
		}
                $page = $query->param('page');
                $page = 1 unless($page);
		my $allnum = @baddel;
		my $temp = $allnum / 12;
		my $allpages = int($temp);
		$allpages++ if ($allpages != $temp);
		$page = 1 if ($page < 1);
		$page = $allpages if ($page > $allpages);
		my $showpage = "";
		if (!$allpages)
		{
			$showpage .= "当前没有记录";
		}
		elsif ($allpages == 1)
		{
			$showpage .= "当前记录只有 1 页";
		}
		else
		{
			$showpage .= qq~记录共 <b>$allpages</b> 页 ~;
			$i = $page - 1;
			$showpage .= qq~<span style="cursor:hand" OnClick="MAINFORM.page.value=$i; MAINFORM.submit();" title="上一页"><<</span> ~ if ($i > 0);
			$showpage .= "[ ";
			$i = $page - 3;
			$showpage .= qq~<span style="cursor:hand" OnClick="MAINFORM.page.value=$i; MAINFORM.submit();">←</span> ~ if ($i > 0);
			$i++;
			$showpage .= qq~<span style="cursor:hand" OnClick="MAINFORM.page.value=$i; MAINFORM.submit();">$i</span> ~ if ($i > 0);
			$i++;
			$showpage .= qq~<span style="cursor:hand" OnClick="MAINFORM.page.value=$i; MAINFORM.submit();">$i</span> ~ if ($i > 0);
			$i++;
			$showpage .= qq~<font color=#990000>$i</font> ~;
			$i++;
			$showpage .= qq~<span style="cursor:hand" OnClick="MAINFORM.page.value=$i; MAINFORM.submit();">$i</span> ~ if ($i <= $allpages);
			$i++;
			$showpage .= qq~<span style="cursor:hand" OnClick="MAINFORM.page.value=$i; MAINFORM.submit();">$i</span> ~ if ($i <= $allpages);
			$i++;
			$showpage .= qq~<span style="cursor:hand" OnClick="MAINFORM.page.value=$i; MAINFORM.submit();">→</span> ~ if ($i <= $allpages);
			$showpage .= "] ";
			$i = $page + 1;
			$showpage .= qq~<span style="cursor:hand" OnClick="MAINFORM.page.value=$i; MAINFORM.submit();" title="下一页">>></span> ~ if ($i <= $allpages);
		}
                
                print qq(
                <tr><td bgcolor=#333333" colspan=8><font color=#FFFFFF>
		<b>欢迎来到论坛管理中心 / 用户威望操作日志</b>
		</td></tr>
		<tr>
		<td bgcolor=#EEEEEE valign=middle align=center colspan=8>
		<font color=#333333><b>用户威望操作日志</b>
		</td></tr>
		<tr><td>对象</td><td>威望值</td><td>操作者</td><td>相应贴子</td><td>IP 地址</td><td>代理 IP</td><td>操作时间</td><td>理由</td></tr>
		);
		if ($allnum) {
		for ($i = $allnum - $page * 12  + 11; $i >= $allnum - $page * 12 && $i >= 0; $i--) {
		(my $name1, my $name2,my $rate, my $oldtime,my $forum1,my $topic1, my $ip, my $proxy, my $reson) = split(/\t/,$baddel[$i]);
    		$oldtime = $oldtime + ($timedifferencevalue*3600) + ($timezone*3600);
    		$oldtime = &dateformatshort($oldtime);
    		chomp $reson;
    		chomp $proxy;
    		$reson = "无" if ($reson eq "");
		print qq~
		<tr><td>$name1</td><td>$rate</td><td>$name2</td><td><a href=topic.cgi?forum=$forum1&topic=$topic1 target=_blank>进入</a></td><td>$ip</td><td>$proxy</td><td>$oldtime</td><td><span title="理由:$reson">理由</span></td></tr>
		~;
		   }
		}
                $tempoutput = qq~
                <form name=MAINFORM action=$thisprog method=POST><td bgcolor=#EEEEEE valign=middle colspan=3><br>
		<input type=hidden name=page value=$page><select name=type><option value="name">按操作者</option><option value="target">按对象</option><option value="time">按特定日期</option></select> <input name=key type=text size=12 value=$key> <input type=submit value="搜寻">
		</td></form>
                <td bgcolor=#EEEEEE valign=middle align=center colspan=3><br>
		$showpage
		</td>
		<td bgcolor=#EEEEEE valign=middle align=center colspan=2><br>
		<font color=#333333><b><a href=$thisprog?action=process OnClick="return confirm('真的要清空用户威望操作日志么？');">清空用户威望操作日志</a></b>
		</td></tr>
                ~;
		$tempoutput =~ s/<option value="$type">/<option value="$type" selected>/g;
		print $tempoutput;
                }
                else {
                    &adminlogin;
                    }
        }
print qq~</td></tr></table></body></html>~;
exit;