EOF @ext = qw(jpg gif bmp); $| = 1; $match = 0; $encoding = 'multipart/form-data'; $q = new CGI; print "Content-type: text/html\n\n"; print $config{'header2'}; print "
"; print "
Select your pictures to upload ( @ext )
"; ##
##

print "";
print "Please click the \"Image Upload\" button only once,
Image Upload can take up to 10 seconds per image uploaded.
Your images will appear below when finished.";
print "";
umask(000);  
mkdir("$config{'imageuploaddir'}", 0777) unless (-d "$config{'imageuploaddir'}");

$file1 = $form{'upload_file1'};
$file2 = $form{'upload_file2'};
$file3 = $form{'upload_file3'};
$file4 = $form{'upload_file4'};
$file5 = $form{'upload_file5'};
$file6 = $form{'upload_file6'};
$file7 = $form{'upload_file7'};
$file8 = $form{'upload_file8'};
$file9 = $form{'upload_file9'};
$file10 = $form{'upload_file10'};
$file11 = $form{'upload_file11'};
$file12 = $form{'upload_file12'};

$uploadfile1 = $q->param('upload_file1');
$uploadfile2 = $q->param('upload_file2');
$uploadfile3 = $q->param('upload_file3');
$uploadfile4 = $q->param('upload_file4');
$uploadfile5 = $q->param('upload_file5');
$uploadfile6 = $q->param('upload_file6');
$uploadfile7 = $q->param('upload_file7');
$uploadfile8 = $q->param('upload_file8');
$uploadfile9 = $q->param('upload_file9');
$uploadfile10 = $q->param('upload_file10');
$uploadfile11 = $q->param('upload_file11');
$uploadfile12 = $q->param('upload_file12');

	if ($ENV{'CONTENT_LENGTH'} >= $config{'imagesize'} * 1024) {    
  		print "
Error - The image file size is too large\!\n";
  		print "Sorry but your upload image size can not be over $config{'imagesize'}kb.\n";
  		print "Please only upload images with a file size less than $config{'imagesize'}kb.";
  		exit 0;
}

	if ($uploadfile1){
	$uploadfile1 =~ /\w:[\\[\w- ]*\\]*([\w- ]*.\w{1,3})$/g;
	$file1 = $1;
        foreach $ext (@ext){
                if (grep /$ext$/i,$uploadfile1){
                $match = 1;
                $type = $ext;                                
                }
                }
                if ($match){
		$newimage = ($config{'closedays2'} * 86400 + time);
		$file1 = "$newimage.$type";
		undef $bytesread;
		open(OUTFILE, ">$config{'imageuploaddir'}/$file1")||&error("Can not open $config{'imageuploaddir'}/$file1. $!");
		binmode OUTFILE;
		while ($bytesread=read($uploadfile1,$buffer,1024)) {
		print OUTFILE $buffer;
		} 
		close (OUTFILE);
                sleep 2;  # Wait 2 seconds
                }
                else {
                &error("Image format not supported.$uploadfile1
Upload has failed.");
                }     
                }