#!/usr/bin/perl use strict; use File::Basename; use CGI qw/:standard/; my %config; $config{'header2'} = <<"EOF"; $config{'sitename'} Item Listing Pages



EOF $| = 1; my @ext = qw(jpeg jpg gif bmp); my $match = 0; my $encoding = 'multipart/form-data'; my $q = new CGI; my ( $method, $action ); ### ??? these are used without anything being assigned print "Content-type: text/html\n\n", $config{'header2'}, "
", "", "", "
", " Select your picture(s) to upload (@ext - $config{'imagesize'} kb maximum)

", $q->startform( $method, $action, $encoding ), "
"; for ( 1..4 ) { print "Upload Charge $config{'currency'}$config{'textuploadcharge'} - Image $_:
", $q->filefield( -name => "upload_file$_", -default => 'starting value', -size => 50, -maxlength => 180 ); } print $q->submit( -name => 'button_name', -value => 'Upload Image(s)' ), "
", $q->endform, "
", "

Please click the \"Image Upload\" button only once,", "
Image Upload can take up to 5 seconds per image you upload.", "
Your images will appear below when finished.

", "
"; umask(000); # UNIX file permission junk mkdir( "$config{'imageuploaddir'}", 0777 ) unless ( -d "$config{'imageuploaddir'}" ); my @uploadfiles; for ( 1..4 ) { my $paramname = "upload_file$_"; push @uploadfiles, $q->param( $paramname ); } if ( $ENV{'CONTENT_LENGTH'} >= $config{'imagesize'} * 1024 ) { print "

Error - The image file size is too large\!

\n", "

Sorry but your upload image size can not be over $config{'imagesize'}k.

\n", $q->end_html; exit 0; } my %uploads_done; for my $upfile ( @uploadfiles ) { if ( defined $upfile ) { my $fstype = ( $upfile =~ /\\/ ) ? "MSWin32" : "Unix"; fileparse_set_fstype( $fstype ); my ( $fname, $path, $type ) = fileparse( $upfile, @ext ); if ( $type ) { my $newimage = ( $config{'closedays2'} * 86400 + time ); my $file = "$newimage.$type"; my $bytesread = undef; open( OUTFILE, ">$config{imageuploaddir}/$file" ) or error("Cannot open $config{imageuploaddir}/$file: $!"); binmode OUTFILE; while ( $bytesread = read( $upfile, my $buffer, 10240 )) { print OUTFILE $buffer; } close(OUTFILE); $uploads_done{$file} = $upfile; sleep 2; # Wait 2 seconds } else { error( "
Image format not supported.

$upfile

Upload has failed.
" ); } } }