lbver.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 Admin func()
require "data/boardinfo.cgi";# Require board info
require "data/styles.cgi";   # Require styles info
require "data/cityinfo.cgi";
require "lb.lib.pl";          # Require lbboard ()

$|++;                                      # Unbuffer the output

#################--- Begin the program ---###################

$thisprog = "lbver.cgi";


$query = new LBCGI;
$requestver = $query->param('ver');
$requesturl = $query->param('url');
$filetomake = "$lbdir" . "data/lbverlog.cgi";
&winlock($filetomake);
open (FILE,"$filetomake");
my @file = <FILE>;
my $download=@file;
close(FILE);

if ($requesturl ne ""){
open(FILE,">$filetomake");
flock(FILE,2);
print FILE "$ENV{'REMOTE_ADDR'}==$ENV{'HTTP_X_FORWARDED_FOR'}==$ENV{'HTTP_CLIENT_IP'}\t$requesturl\t$requestver\t\n";
foreach (@file){
$_=~s/\n//isg;
if ($_ ne ""){	
(my $ip, my $url,my $ver) = split(/\t/,$_);
if ($url ne $requesturl){
print FILE "$_\n";
}
}
}
close(FILE);
}
&winunlock($filetomake);

        
$filetomake = "$lbdir" . "data/myver.cgi";
open (FILE,"$filetomake");
my @file = <FILE>;
close(FILE);
chmod $file[0];
chmod $file[1];
print header(-charset=>gb2312);
if ($requestver !~/^LB5000/){$file[1]=qq~<br><Br><font size=6>你的版本号有问题<br>请不要随便修改版权标示和Powered by CGIer的图片连接<br>否则请不要使用我们的论坛，谢谢合作<br>你的资料已经记录在案，请及时改回版本标示和连接图片，谢谢支持!<br>--花无缺，山鹰礼</font>§保密§保密§保密~;}
print "|$versionnumber$file[0]§$file[1]§$download";
exit;