#!/usr/bin/perl use MIME::Base64; use Compress::Zlib; use CGI; use Digest::MD5; sub clean_exit { ($text = "@_") =~ s/\s+/ /mg; $text ||= "[an unexpected error occured]"; print "Content-Type: text/html; charset=ISO-8859-1\n\n"; print < Galerie Belage ERROR!
ERROR: $text
END_HTML exit 0; } $tempname = '/home/www/galeriebelage.com/uploads/picture.dummy'; if (eval {$query = new CGI}) { if (eval {$query->param ("eventupsubmit")}) { if (not eval {$md5 = new Digest::MD5}) { clean_exit ("Unable to use Digest::MD5!"); } elsif ($ENV{'CONTENT_LENGTH'} > 4194302) { clean_exit ("File is too big!"); } elsif (eval {$filename = $query->param ("eventup")}) { eval {$type = $query->uploadInfo ($filename)->{'Content-Type'}}; if (open (RANDOM, '/dev/urandom')) { if (read (RANDOM, $salt, 40, 0)) { close (RANDOM); ($random = encode_base64 ($salt, "")) =~ s/\W+//mg; } else { $random = rand ($$); } } else { $random = rand ($$); } $tempname = "/home/www/galeriebelage.com/uploads/$random"; if (eval {$upload_filehandle = $query->upload ("eventup")}) { if (open (UPLOADFILE, ">$tempname")) { flock (UPLOADFILE, 2); binmode UPLOADFILE; while (<$upload_filehandle>) { print UPLOADFILE; eval {$md5->add ($_)}; } close (UPLOADFILE); clean_exit ("MD5 signature is empty!") if (not eval {$checksum = $md5->hexdigest}); } else { clean_exit ("Cannot open file handle!"); } } else { clean_exit ("Cannot get upload handle!"); } } else { clean_exit ("You need to upload some!"); } } else { clean_exit ("Wrong input!"); } } else { clean_exit ("CGI.pm is not loaded!"); } exit 0;