Error - The image file size is too large\!
\n";
print "
Sorry but your upload image size can not be over $config{'imagesize'}k.
\n";
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. ");
}
}
if ($uploadfile2){
$uploadfile2 =~ /\w:[\\[\w- ]*\\]*([\w- ]*.\w{1,3})$/g;
$file2 = $1;
foreach $ext (@ext){
if (grep /$ext$/i,$uploadfile2){
$match = 1;
$type=$ext;
}
}
if ($match){
$newimage = ($config{'closedays2'} * 86400 + time);
$file2 = "$newimage.$type";
undef $bytesread;
open(OUTFILE, ">$config{'imageuploaddir'}/$file2")||&error("Can not open $config{'imageuploaddir'}/$file2. $!");
binmode OUTFILE;
while ($bytesread=read($uploadfile2,$buffer,1024)) {
print OUTFILE $buffer;
}
close (OUTFILE);
sleep 2; # Wait 2 seconds
}
else {
&error("
Image format not supported. $uploadfile2
Upload has failed. ");
}
}
if ($uploadfile3){
$uploadfile3 =~ /\w:[\\[\w- ]*\\]*([\w- ]*.\w{1,3})$/g;
$file3 = $1;
foreach $ext (@ext){
if (grep /$ext$/i,$uploadfile3){
$match = 1;
$type=$ext;
}
}
if ($match){
$newimage = ($config{'closedays2'} * 86400 + time);
$file3 = "$newimage.$type";
undef $bytesread;
open(OUTFILE, ">$config{'imageuploaddir'}/$file3")||&error("Can not open $config{'imageuploaddir'}/$file3. $!");
binmode OUTFILE;
while ($bytesread=read($uploadfile3,$buffer,1024)) {
print OUTFILE $buffer;
}
close (OUTFILE);
sleep 2; # Wait 2 seconds
}
else {
&error("
Image format not supported. $uploadfile3
Upload has failed. ");
}
}
if ($uploadfile4){
$uploadfile4 =~ /\w:[\\[\w- ]*\\]*([\w- ]*.\w{1,3})$/g;
$file4 = $1;
foreach $ext (@ext){
if (grep /$ext$/i,$uploadfile4){
$match = 1;
$type = $ext;
}
}
if ($match){
$newimage = ($config{'closedays2'} * 86400 + time);
$file4 = "$newimage.$type";
undef $bytesread;
open(OUTFILE, ">$config{'imageuploaddir'}/$file4")||&error("Can not open $config{'imageuploaddir'}/$file4. $!");
binmode OUTFILE;
while ($bytesread=read($uploadfile4,$buffer,1024)) {
print OUTFILE $buffer;
}
close (OUTFILE);
sleep 2; # Wait 2 seconds
}
else {
&error("
Image format not supported. $uploadfile4
Upload has failed. ");
}
}
if ($file1){
&upload;
}
#-###################################################
# Image Upload
sub upload {
if ($match){
print "
";
print "
If the image(s) are correct. Click \"Continue\".
";
print "
If they are not correct, use your browsers back button to try again.
";
print "
";
print "";
}
}
#-###################################################
# Error
sub error {
@error=@_;
print "
@error ";
exit;
}
1;