继续赤果果

#!/usr/bin/perl -w

use strict;
use POSIX;
use CGI::Fast qw(:standard);

use lib '/home/apache/fcgi_files';
use Util;
use MySes;
#use URI::Escape;
#use MIME::Base64;


my $title = "query";
#my $LOGDIR = "/home/coremail/logs";
my $LOGDIR = "/home/webedit/young/logs";
my $logname = "Grade_Act_3G";

my $PAGEDIR = '/home/apache/fcgi_files/html/163';

# read page
open(INDEX,"$PAGEDIR/index.htm") || die "Open index.htm: $!";
my @page_index = ;
close(INDEX);

=head
open(ERROR,"$PAGEDIR/error.htm") || die "Open error.htm: $!";
my @page_error = ;
close(ERROR);
=cut

while(my $req = new CGI::Fast)
{
 my %replace = ();
 my $today = POSIX::strftime("%F",localtime);
 my $logfile = "$LOGDIR/$logname\_$today.err";
 my $sid = $req->param('sid');
 unless($sid)
 {
 }
 else
 {
       my $session = MySes->new($sid);
       $session->Delete;
   }
 print $req->header(-charset=>'gb2312');
 PrintPage(\@page_index,\%replace);
}