#!/usr/local/bin/perl5
$| = 1;
print "Content-type: text/plain\n\n";

if ($ENV{'REQUEST_METHOD'} eq "POST") {
   read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
} elsif ($ENV{'REQUEST_METHOD'} eq "GET") {
        $buffer=$ENV{'QUERY_STRING'};
  }

$buffer =~ /^(.+)\r\n/;
$boundary = $1;
@pairs = split(/$boundary/, $buffer);

if ($#pairs!=5)
{
	print ("Sorry! Your browser doesnt support HTML 3.0\n");
	#print $buffer;
	exit;
}

system("/Oz/u/u81/phys/u810309/www/cgi-bin/countUpload");
print "th Upload !\n\n";

$agent = $ENV{'HTTP_USER_AGENT'};
@var = split(/\r\n/,$pairs[1]);
$name=$var[3];
$name=~ tr/<>/  /;
@var = split(/\r\n/,$pairs[2]);
$url=$var[3];
$url=~ tr/<>/  /;
@var = split(/\r\n/,$pairs[3]);
$type=$var[3];
$pairs[4] =~ s/^\r\n.+filename.+[^\w\.\%-]([\w\.\%-]+)"\r\n(.*\r\n)*?\r\n//;
if ($1 ne $boundary ) 
{ $fname=$1;}
else {$fname="xxx";}
$fname =~ s/.cgi//g;
$ffname=$fname;
$pairs[4] =~ s/\r\n$//m;


print "Agent:$agent\n";
print "Filename:$fname\n";
print "Name:$name\n";
print "URL:$url\n";
print "FileType:$type\n";
print "\nThanx for your UPLOAD of image.\n";
print "Please remember to RELOAD to see your image.\n";
#print $buffer;
#print "--$pairs[4]--\n";

if ($type ne "neither" && $fname !~ /\.gif$/i && $fname !~ /\.jpg$/i )
{ $ffname = $fname.'.'.$type;
}

if ($type eq "neither")
{ print "\n** since its not a gif nor jpg file, we only put it in the UPLOAD directory, but not change the Upload test page.\n";
}
else
{ open ( IMG,"> /Oz/u/u81/phys/u810309/www/UL/xxx.$type" );
print IMG $pairs[4];

open ( INCL,"> /Oz/u/u81/phys/u810309/www/UL/xxx.html" );
print INCL "This image is uploaded by $name. You can upload your images too!!\n";
print INCL "<p>\n";
print INCL "<a href=\"$url\">\n";
print INCL "<img src=\"xxx.$type\" alt=\"$url\">\n";
print INCL "</a>\n";
print INCL "<p>\n";
print INCL "Uploader : $name<br>\n";
print INCL "Links to : <a href=\"$url\">$url</a>\n";
print INCL "<p>\n";
}

open ( IMG2,"> /Oz/u/u81/phys/u810309/www/UL/IMG/$ffname" );
print IMG2 $pairs[4];

open (LIST, ">> /Oz/u/u81/phys/u810309/www/UL/list.html" );
print LIST "Uploader : $name\n";
print LIST "Links to : <a href=\"$url\">$url</a><br>\n";
print LIST "Agent : $agent<br>\n";
print LIST "Filename : $fname\n";
print LIST "FFname : $ffname\n";
print LIST "FileType : $type\n";
print LIST "<p>\n";