From 76eac965d60ad6cec45c2261fc93dce1f35c807d Mon Sep 17 00:00:00 2001
From: Martin Mares <mj@ucw.cz>
Date: Wed, 18 Aug 2010 18:09:10 +0200
Subject: [PATCH] UCW::CGI: No deescaping should be applied to
 multipart/www-data

---
 ucw/perl/UCW/CGI.pm | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

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"}) {
-- 
2.39.2