diff options
| author |   lpsolit%gmail.com <> | 2005-12-30 06:55:59 +0000 |
|---|---|---|
| committer | lpsolit%gmail.com <> | 2005-12-30 06:55:59 +0000 |
| commit | ede2d35c22621ca7245562bed1152ebcfaca954b (patch) | |
| tree | 8cea3914baa68569db2d91e1bce5011ca4a8f11e /Bugzilla/Util.pm | |
| parent | Bug 297652: Javascript strict warning in query.cgi when the format chosen is ... (diff) | |
| download | bugzilla-ede2d35c22621ca7245562bed1152ebcfaca954b.tar.gz bugzilla-ede2d35c22621ca7245562bed1152ebcfaca954b.tar.bz2 bugzilla-ede2d35c22621ca7245562bed1152ebcfaca954b.zip | |
Bug 238780: editversions.cgi should reject newline characters - Patch by Paul <pdemarco@zoominternet.net> r=LpSolit a=justdave
Diffstat (limited to 'Bugzilla/Util.pm')
| -rw-r--r-- | Bugzilla/Util.pm | 12 |
1 files changed, 11 insertions, 1 deletions
diff --git a/Bugzilla/Util.pm b/Bugzilla/Util.pm index 21885bbdc..31a1052e4 100644 --- a/Bugzilla/Util.pm +++ b/Bugzilla/Util.pm @@ -42,7 +42,7 @@ use base qw(Exporter); format_time format_time_decimal validate_date file_mod_time is_7bit_clean bz_crypt generate_random_password - validate_email_syntax); + validate_email_syntax clean_text); use Bugzilla::Config; use Bugzilla::Constants; @@ -390,6 +390,12 @@ sub is_7bit_clean { return $_[0] !~ /[^\x20-\x7E\x0A\x0D]/; } +sub clean_text { + my ($dtext) = shift; + $dtext =~ s/[\x00-\x1F\x7F]/ /g; # change control characters to spaces + return $dtext; +} + 1; __END__ @@ -639,6 +645,10 @@ into the string. Returns true is the string contains only 7-bit characters (ASCII 32 through 126, ASCII 10 (LineFeed) and ASCII 13 (Carrage Return). +=item C<clean_text($str)> +Returns the parameter "cleaned" by exchanging non-printable characters with spaces. +Specifically characters (ASCII 0 through 31) and (ASCII 127) will become ASCII 32 (Space). + =back =head2 Formatting Time |