whois.cgi

一个linux论坛

#!/usr/bin/perl
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;
use IO::Socket;
require "data/boardinfo.cgi";
require "data/styles.cgi";
require "lb.lib.pl";
$|++;

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

$query          = $queryme -> param('query');

if (($query eq "")||($query !~ /^[0-9\.]+$/)) {
    &error("普通错误&请不要胡乱使用本功能！") ;
}
if ((!$inmembername) or ($inmembername eq "客人")) {
    $inmembername = "客人";
}
else {
#    &getmember("$inmembername");
    &getmembernolock("$inmembername");
    &error("普通错误&老大，偷用户名不偷密码有什么用呢？") if ($inpassword ne $password);
    &error("普通错误&用户没有登录或注册！") if ($userregistered eq "no");  
}
if (($membercode ne "ad")&&($membercode ne "smo")){
    &error("普通错误&你不是本论坛的坛主或总斑竹，所以不能使用该功能！") ;
}

$socket = IO::Socket::INET->new(PeerAddr => 'www.nic.com', PeerPort => '80', Proto => 'tcp', Type => SOCK_STREAM) or &error("普通错误&无法连接 WHOIS 主机，请稍后再试！");

print $socket "GET /cgi-bin/whois.cgi?query=$query HTTP/1.0\n";
print $socket "Host: www.nic.com\n";
print $socket "Connection: close\n\n";

my @reply = <$socket>;
my $out="";
foreach  (@reply) { $out.=$_; }
$out =~ s/(.+?)(<pre>)(.+?)(<\/pre>)(.+?)/<pre>$3<\/pre>/isg;
$out =~ s@Rights restricted(.+?)dbcopyright.html@LeoBoard 5000 XP WHOIS 详细信息($query)：@isg;
$out =~ s@<P>Information supplied by the registry queried(.+?)www.nic.com.@<p>@isg;
$out =~ s@/cgi-bin/@@isg;
print header(-charset=>gb2312);
print $out;
exit;