Fixed bug 4928 -- wasn't encoding multi-line value fields properly,

which busted modern browsers (like, Mozilla itself).

diff --git a/CGI.pl b/CGI.pl
index 890a8edf7622a36e5810fc7d2c6bc4e8fd1b2647..e580c1baae7a07a227f143b09f1c82772f8851c6 100644 (file)
--- a/CGI.pl
+++ b/CGI.pl
@@ -186,19 +186,11 @@ sub value_quote {
     $var =~ s/</\&lt;/g;
     $var =~ s/>/\&gt;/g;
     $var =~ s/"/\&quot;/g;
+    $var =~ s/\n/\&#010;/g;
+    $var =~ s/\r/\&#013;/g;
     return $var;
 }
 
-sub value_unquote {
-    my ($var) = (@_);
-    $var =~ s/\&quot/\"/g;
-    $var =~ s/\&lt/</g;
-    $var =~ s/\&gt/>/g;
-    $var =~ s/\&amp/\&/g;
-    return $var;
-}
-
-
 sub navigation_header {
     if (defined $::COOKIE{"BUGLIST"} && $::COOKIE{"BUGLIST"} ne "") {
        my @bugs = split(/:/, $::COOKIE{"BUGLIST"});