noregip.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=100000;
$LBCGI::DISABLE_UPLOADS = 1;
$LBCGI::HEADERS_ONCE = 1;
require "lbadmin.lib.pl";
require "data/boardinfo.cgi";
require "lb.lib.pl";
$|++;

$thisprog = "noregip.cgi";

$query = new LBCGI;
$userarray     = $query -> param('userarray');
$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;

&getmember("$inmembername");
            
if ($action eq "process") {
    if ((($membercode eq "ad")||($membercode eq "smo")) && ($inpassword eq $password) && (lc($inmembername) eq lc($membername))) {
	$userarray .= "\n";
	$userarray =~ s/\t//isg;
	$userarray =~ s/\r\n/\n/ig;
	$userarray =~ s/\n+/\n/ig;
	$userarray =~ s/\n/\t/isg;
        $filetomake = "$lbdir" . "data/baniplist.cgi";
        open (FILE, ">$filetomake");
        print FILE $userarray;
        close (FILE);
        
        if (-e $filetomake && -w $filetomake) {
	    print qq~<tr><td bgcolor=#333333" colspan=2><font color=#FFFFFF><b>欢迎来到论坛管理中心</b>
            </td></tr><tr><td bgcolor=#FFFFFF colspan=2><font color=#333333><center><b>所有的信息已经保存</b></center><br><br>
            <b>你已经禁止了下列 IP ，使用这些 IP 的用户将不允许被申请。</b><br><br>~;
            
            @saveduserarray = split(/\t/,$userarray);
            foreach (@saveduserarray) {
                chomp $_;
                print "$_<br>";
	    }
            print qq~<br><br><br><center><a href="noregip.cgi">禁止更多的特殊 IP 地址注册用户</a></center>~;
	}
        else {
	    print qq~<tr><td bgcolor=#333333 colspan=2><font color=#FFFFFF><b>欢迎来到论坛管理中心</b></td></tr><tr>
            <td bgcolor=#FFFFFF align=center colspan=2><font color=#333333><b>所有的信息没有保存</b><br>有文件或目录为不可写，请设置属性 777 ！
            </td></tr></table></td></tr></table>~;
	}
    }
    else {
        &adminlogin;
    }

}
else {
    if ((($membercode eq "ad")||($membercode eq "smo")) && ($inpassword eq $password) && (lc($inmembername) eq lc($membername))) {
        open (FILE, "${lbdir}data/baniplist.cgi");
        my $badusers = <FILE>;
        close (FILE);
        $badusers =~ s/\t/\n/g;
        print qq~<tr><td bgcolor=#333333 colspan=2><font color=#FFFFFF><b>欢迎来到论坛管理中心 / 禁止一些特殊的 IP 地址注册用户</b></td></tr><tr>
	    <td bgcolor=#EEEEEE align=center colspan=2><font color=#333333><b>禁止一些特殊的 IP 地址注册用户</b></td></tr>
            <form action="$thisprog" method="post">
            <input type=hidden name="action" value="process">
            <tr><td bgcolor=#FFFFFF colspan=2><font color=#000000>
            <b>请注意：</b> 此功能是用来禁止一些特殊的 IP 地址，使用这些 IP 的用户将不允许被注册。这样可以阻止一些捣乱的人多次注册用户。<BR><BR>输入的时候，每行输入一个 IP 地址即可(必须输入完整，比如： 202.96.111.42 )。<BR><BR>
            </font></td></tr>
            <tr><td bgcolor=#FFFFFF align=center colspan=2>
            <textarea cols=60 rows=18 wrap="virtual" name="userarray">$badusers</textarea><BR><BR>
            </td></tr>
            <tr><td bgcolor=#EEEEEE align=center colspan=2>
            <input type=submit name=submit value="提 交"></td></form></tr></table></td></tr></table>~;
    }
    else {
	&adminlogin;
    }
}
print qq~</td></tr></table></body></html>~;
exit;