X-Git-Url: http://mj.ucw.cz/gitweb/?a=blobdiff_plain;f=ucw%2Fperl%2FUCW%2FCGI.pm;h=de39d226aad349f54810f9092338f0ac16b3ec27;hb=68de14ab2618ebf4afa9630299cef5eafe13d1be;hp=a18ee8eaa568bc8bf0e866404ea21a9b06418ffa;hpb=77c84c65dc22afe21bc52d95cd3996b8e1c7d065;p=libucw.git

diff --git a/ucw/perl/UCW/CGI.pm b/ucw/perl/UCW/CGI.pm
index a18ee8ea..de39d226 100644
--- a/ucw/perl/UCW/CGI.pm
+++ b/ucw/perl/UCW/CGI.pm
@@ -371,6 +371,10 @@ sub parse_multipart_form_data() {
 				print STDERR "FILE UPLOAD to $fn\n" if $debug;
 				${$a->{"file"}} = $fn;
 				${$a->{"fh"}} = $fh if defined $a->{"fh"};
+				if (defined $a->{"filename"}){
+					my ($filename) = ($cdisp =~ /;filename=([^;]+)/);
+					(${$a->{"filename"}}) = rfc822_deescape($filename) if defined $filename;
+				}
 				my $total_size = 0;
 				while (my $i = refill_mp_data(4096)) {
 					print $fh substr($mp_buffer, $mp_buffer_i, $i);