summaryrefslogtreecommitdiffstats
path: root/CGI.pl
diff options
context:
space:
mode:
authorbbaetz%student.usyd.edu.au <>2002-08-19 22:59:39 +0200
committerbbaetz%student.usyd.edu.au <>2002-08-19 22:59:39 +0200
commit1e94eab2b417f973364a713adbfaa2693ed55eec (patch)
treefe6745a45b07bcb85b572dbd01c4bce8b85b6ebc /CGI.pl
parentfa343202c29b61feea3dd3c4ed8f51968e174e9a (diff)
downloadbugzilla-1e94eab2b417f973364a713adbfaa2693ed55eec.tar.gz
bugzilla-1e94eab2b417f973364a713adbfaa2693ed55eec.tar.xz
Big 163291 - Move utility funcs into a module
r=preed x2
Diffstat (limited to 'CGI.pl')
-rw-r--r--CGI.pl27
1 files changed, 2 insertions, 25 deletions
diff --git a/CGI.pl b/CGI.pl
index ec4ddedfb..2a10a335a 100644
--- a/CGI.pl
+++ b/CGI.pl
@@ -33,6 +33,8 @@ use lib ".";
# use Carp; # for confess
+use Bugzilla::Util;
+
# commented out the following snippet of code. this tosses errors into the
# CGI if you are perl 5.6, and doesn't if you have perl 5.003.
# We want to check for the existence of the LDAP modules here.
@@ -334,31 +336,6 @@ sub ValidateComment {
}
}
-sub html_quote {
- my ($var) = (@_);
- $var =~ s/\&/\&amp;/g;
- $var =~ s/</\&lt;/g;
- $var =~ s/>/\&gt;/g;
- $var =~ s/"/\&quot;/g;
- return $var;
-}
-
-sub value_quote {
- my ($var) = (@_);
- $var =~ s/\&/\&amp;/g;
- $var =~ s/</\&lt;/g;
- $var =~ s/>/\&gt;/g;
- $var =~ s/"/\&quot;/g;
- # See bug http://bugzilla.mozilla.org/show_bug.cgi?id=4928 for
- # explanaion of why bugzilla does this linebreak substitution.
- # This caused form submission problems in mozilla (bug 22983, 32000).
- $var =~ s/\r\n/\&#013;/g;
- $var =~ s/\n\r/\&#013;/g;
- $var =~ s/\r/\&#013;/g;
- $var =~ s/\n/\&#013;/g;
- return $var;
-}
-
# Adds <link> elements for bug lists. These can be inserted into the header by
# using the "header_html" parameter to PutHeader, which inserts an arbitrary
# string into the header. This function is currently used only in