dellogs.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;
$LBCGI::POST_MAX=2000;
$LBCGI::DISABLE_UPLOADS = 1;
$LBCGI::HEADERS_ONCE = 1;
$|++;
$query = new LBCGI;
print header(-charset=>gb2312);
    chmod(0777,"../logs/access_log");
    chmod(0777,"../logs/error_log");

        open (FILE, ">../logs/access_log");
        close (FILE);
        open (FILE, ">../logs/error_log");
        close (FILE);

print "okok";