my(@fName) = ('Function','UserID','Signature','Session','Message','AUT_File','THM_File');;

$fHandle = CGI::->new();
$fCounter = 0;
while ($fCounter <= 4) {
	$fBuffer[$fCounter] = $fHandle->param($fName[$fCounter]);
	$fCounter = $fCounter + 1;
	}
$fBuffer[5] = $fHandle->upload($fName[5]);
$fBuffer[6] = $fHandle->upload($fName[6]);
if ($fBuffer[0] ne "Proccess") {goto BadAccess}
if (length($fBuffer[1]) < 1) {goto BadAccess}
if (length($fBuffer[2]) < 1) {goto BadAccess}
if ($fBuffer[3] ne "thread2") {goto BadAccess}
if (length($fBuffer[5]) < 5) {goto GoBack}
if (length($fBuffer[6]) < 5) {goto GoBack}
$fName[5] = substr($fBuffer[5], rindex($fBuffer[5], "\\") + 1);
$fName[6] = substr($fBuffer[6], rindex($fBuffer[6], "\\") + 1);
if (uc(substr($fName[5], length($fName[5]) - 4)) ne ".JPG") {goto GoBack}
if (uc(substr($fName[6], length($fName[6]) - 4)) ne ".JPG") {goto GoBack}
mkdir ("Gallery", 0775);
mkdir ("Gallery/80x60", 0775);
mkdir ("Gallery/640x480", 0775);
open (OUTFILE, ">Gallery/640x480/$fName[5]");
print OUTFILE <$fBuffer[5]>;
close (OUTFILE);
open (OUTFILE, ">Gallery/80x60/$fName[6]");
print OUTFILE <$fBuffer[6]>;
close (OUTFILE);

GoBack:
BadAccess:
EndOfScript: