From 310ce18f525d6f65ca6df35377d00f3d212c40ea Mon Sep 17 00:00:00 2001
From: "terry%netscape.com" <>
Date: Sun, 11 Apr 1999 00:42:24 +0000
Subject: Fixed bug 4928 -- wasn't encoding multi-line value fields properly,
 which busted modern browsers (like, Mozilla itself).

---
 CGI.pl | 12 ++----------
 1 file changed, 2 insertions(+), 10 deletions(-)

(limited to 'CGI.pl')

diff --git a/CGI.pl b/CGI.pl
index 890a8edf7..e580c1baa 100644
--- 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"});
-- 
cgit v1.2.3-24-g4f1b