From: Martin Mares <mj@ucw.cz>
Date: Wed, 18 Aug 2010 16:09:10 +0000 (+0200)
Subject: UCW::CGI: No deescaping should be applied to multipart/www-data
X-Git-Tag: v5.0~143
X-Git-Url: http://mj.ucw.cz/gitweb/?a=commitdiff_plain;h=76eac965d60ad6cec45c2261fc93dce1f35c807d;p=libucw.git

UCW::CGI: No deescaping should be applied to multipart/www-data
---

diff --git a/ucw/perl/UCW/CGI.pm b/ucw/perl/UCW/CGI.pm
index d3325b9f..48d31ee2 100644
--- a/ucw/perl/UCW/CGI.pm
+++ b/ucw/perl/UCW/CGI.pm
@@ -149,6 +149,13 @@ sub parse_raw_args($) {
 	}
 }
 
+sub parse_raw_args_ll($$) {
+	my ($arg, $s) = @_;
+	$s =~ s/\r\n/\n/g;
+	$s =~ s/\r/\n/g;
+	$raw_args{$arg} = $s;
+}
+
 sub parse_multipart_form_data();
 
 sub init_args() {
@@ -369,7 +376,7 @@ sub parse_multipart_form_data() {
 			if (defined $a->{"var"}) {
 				while (defined (my $l = get_mp_line(1))) {
 					print STDERR "VALUE $l\n" if $debug;
-					parse_raw_args("$field=$l");
+					parse_raw_args_ll($field, $l);
 				}
 				next PART;
 			} elsif (defined $a->{"file"}) {