From: Martin Mares <mj@ucw.cz>
Date: Mon, 26 May 2014 11:08:13 +0000 (+0200)
Subject: UCW::CGI: When a file is uploaded, its original name can be obtained
X-Git-Tag: v6.0~28
X-Git-Url: http://mj.ucw.cz/gitweb/?a=commitdiff_plain;h=388f089978704f880ce413db5e980acda1bd5fbe;p=libucw.git

UCW::CGI: When a file is uploaded, its original name can be obtained
---

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);