CGI.pm: Server closed socket during multipart read (client aborted?)
Estoy en Win XP SP3 con XAMPP 1.7.3...
El Script
Código:
#!/xampp/perl/bin/perl.exe # PHP File Uploader with progress bar Version 1.5 # Copyright (C) Raditha Dissanyake 2003 # http://www.raditha.com # Some changes applied to original package to avoid refreshing during the upload. # Ajax behaviours applied using Jquery library ( http://www.jquery.com ) # Explanation and source code of this modification at http://obokaman.obolog.com/mensaje/1596 # Albert Garcia, March 2006 <[email protected]> # Licence: # The contents of this file are subject to the Mozilla Public # License Version 1.1 (the "License"); you may not use this file # except in compliance with the License. You may obtain a copy of # the License at http://www.mozilla.org/MPL/ # # Software distributed under this License is distributed on an "AS # IS" basis, WITHOUT WARRANTY OF ANY KIND, either express or # implied. See the License for the specific language governing # rights and limitations under the License. # # The Initial Developer of the Original Code is Raditha Dissanayake. # Portions created by Raditha are Copyright (C) 2003 # Raditha Dissanayake. All Rights Reserved. # # CHANGES: # As of version 1.00 cookies were abolished! # as of version 1.02 stdin is no longer set to non blocking. # 1.40 - POST is no longer required and processing is more efficient. # Please refer online docs for details. # 1.42 - The temporary locations were changed, to make it easier to # clean up afterwards. # 1.45. # Changed the way in which the file list is passed to the php handler # 1.5. # Applied some changes to allow using ajax requests to know upload status # variable values. This folder will host the raw post data during the upload. $tmp_dir="temp"; # variable values. This is the max upload size you want to allow. $max_upload = 5000000; # don't change the next few lines unless you have a very good reason to. use CGI; use Fcntl qw(:DEFAULT :flock); use File::Temp qw/ tempfile tempdir /; #use Carp; @qstring=split(/&/,$ENV{'QUERY_STRING'}); @p1 = split(/=/,$qstring[0]); $sessionid = $p1[1]; $sessionid =~ s/[^a-zA-Z0-9]//g; # sanitized as suggested by Terrence Johnson. $|=1; #unbuffers streams $post_data_file = "$tmp_dir/$sessionid"."_postdata"; $monitor_file = "$tmp_dir/$sessionid"."_flength"; $signal_file = "$tmp_dir/$sessionid"."_signal"; $qstring_file = "$tmp_dir/$sessionid"."_qstring"; 1; #carp "$post_data_file and $monitor_file"; $content_type = $ENV{'CONTENT_TYPE'}; $len = $ENV{'CONTENT_LENGTH'}; $bRead=0; $|=1; sub bye_bye { $mes = shift; print "Content-type: text/html\n\n"; print "<br>$mes<br>\n"; exit; } # see if we are within the allowed limit. if($len > $max_upload) { close (STDIN); bye_bye("The maximum upload size has been exceeded"); } # # The thing to watch out for is file locking. Only # one thread may open a file for writing at any given time. # if (-e "$post_data_file") { unlink("$post_data_file"); } if (-e "$monitor_file") { unlink("$monitor_file"); } sysopen(FH, $monitor_file, O_RDWR | O_CREAT) or die "can't open numfile: $!"; # autoflush FH $ofh = select(FH); $| = 1; select ($ofh); flock(FH, LOCK_EX) or die "can't write-lock numfile: $!"; seek(FH, 0, 0) or die "can't rewind numfile : $!"; print FH $len; close(FH); sleep(1); open(TMP,">","$post_data_file") or &bye_bye ("can't open temp file"); # # read and store the raw post data on a temporary file so that we can # pass it though to a CGI instance later on. # my $i=0; $ofh = select(TMP); $| = 1; select ($ofh); while (read (STDIN ,$LINE, 4096) && $bRead < $len ) { $bRead += length $LINE; select(undef, undef, undef,0.35); # sleep for 0.35 of a second. # Many thanx to Patrick Knoell who came up with the optimized value for # the duration of the sleep $i++; print TMP $LINE; } close (TMP); # # We don't want to decode the post data ourselves. That's like # reinventing the wheel. If we handle the post data with the perl # CGI module that means the PHP script does not get access to the # files, but there is a way around this. # # We can ask the CGI module to save the files, then we can pass # these filenames to the PHP script. In other words instead of # giving the raw post data (which contains the 'bodies' of the # files), we just send a list of file names. # open(STDIN,"$post_data_file") or die "can't open temp file"; my $cg = new CGI(); my $qstring=""; my %vars = $cg->Vars; my $j=0; while(($key,$value) = each %vars) { $file_upload = $cg->param($key); if(defined $value && $value ne '') { my $fh = $cg->upload($key); if(defined $fh) { #carp $fh; ($tmp_fh, $tmp_filename) = tempfile(); while(<$fh>) { print $tmp_fh $_; } $tmp_filenames[$j]=$tmp_filename; close($tmp_fh); $fsize =(-s $fh); $fh =~ s/([^a-zA-Z0-9_\-.])/uc sprintf("%%%02x",ord($1))/eg; $tmp_filename =~ s/([^a-zA-Z0-9_\-.])/uc sprintf("%%%02x",ord($1))/eg; $qstring .= "file[name][$j]=$fh&file[size][$j]=$fsize&"; $qstring .= "file[tmp_name][$j]=$tmp_filename&"; $j++; } else { $value =~ s/([^a-zA-Z0-9_\-.])/uc sprintf("%%%02x",ord($1))/eg; $qstring .= "$key=$value&" ; } } } open (SIGNAL,">", $signal_file); print SIGNAL "\n"; close (SIGNAL); open (QSTR,">", "$qstring_file") or die "can't open output file"; print QSTR $qstring; close (QSTR); chmod 0777, @tmp_filenames;
Saludos..