[Fri May 25 13:06:47 2007] [error] [client 10.0.0.2] Premature end of script headers: admin.pl, referer: http://dell/
[Fri May 25 13:06:47 2007] [error] [client 10.0.0.2] [Fri May 25 13:06:47 2007] admin.pl: Use of uninitialized value in string eq at D:\\www\\cgi-bin\\admin.pl line 26., referer: http://dell/

##</code><code>##

#!/usr/bin/perl -w
use strict;
use CGI::Carp qw(fatalsToBrowser);
use CGI qw(:standard);
use DBI;
use POSIX qw(strftime);
use Encode;


my $title     =  param('title');
my $request   =  param('request');
my $orderlist =  param('orderlist');
my $remark    =  param('remark');
my $host      =  param('host');
my $date      =  param('date');

my $action    =  param('action');

my $gamefile  =  param('gamefile');
my $gamename  =  param('gamename');
my $gamedesc  =  param('gamedesc');
my $counter   =  param('counter');


#========================== REDIRECT TO PROPER SCRIPT ==========================
if( $action eq '&#928;&#945;&#961;&#945;&#947;&#947;&#949;&#955;&#943;&#945;!' )
{
    #========================= SHOW USER LIST TO PUBLIC ========================
    if( $title eq 'show users' ) {
    	print redirect("/cgi-bin/show.pl?action=&#928;&#945;&#961;&#945;&#947;&#947;&#949;&#955;&#943;&#945;!&request=$request");
    	exit 0;
    }

    #================== SHOW USERS THAT HAVE DOWNLOADED FROM VAULT =============
    elsif( $title eq 'show downloads' ) {
    	print redirect("/cgi-bin/show.pl?action=&#928;&#945;&#961;&#945;&#947;&#947;&#949;&#955;&#943;&#945;!&request=$request");
    	exit 0;
    }

    #========================= SAVE USER DATA TO DATABASE=======================
    elsif( defined($title) and defined($request) and defined($orderlist) and defined($remark) ) {
    	print redirect("/cgi-bin/show.pl?action=&#928;&#945;&#961;&#945;&#947;&#947;&#949;&#955;&#943;&#945;!&authname=$ENV{REMOTE_USER}&title=$title&request=$request&orderlist=$orderlist&remark=$remark&host=$host&date=$date");
    	exit 0;
    }
    else { print redirect("/data/private/") }
}


#========================== AUTHORIZE USER TO DOWNLOAD =========================
print redirect("/cgi-bin/vault.pl?authname=$ENV{REMOTE_USER}&gamename=$gamename")  if( defined($gamename) );