Bommels05/Mozilla
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fix for bug 102032: Fix tinderbox test errors and warnings. Patch to make new_comment.cgi use strict and warnings and make tests run at

Browse Source 
100%!

Patch by Jake <jake@acutex.net>, r=justdave, no 2nd review needed.


git-svn-id: svn://10.0.0.236/trunk@104630 18797224-902f-48f8-a5cc-f745e15eee43
This commit is contained in:
zach%zachlipton.com
2001-10-05 02:16:34 +00:00
parent fae5e7854a
commit 3e4edbc835
1 changed files with 8 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
mozilla/webtools/bugzilla/new_comment.cgi
View File

@@ -20,13 +20,17 @@
#
# Contributor(s): Terry Weissman <terry@mozilla.org>
use strict;
my %FORM;
my $buffer = "";
if ($ENV{'REQUEST_METHOD'} eq "GET") { $buffer = $ENV{'QUERY_STRING'}; }
else { read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); }
# Split the name-value pairs
@pairs = split(/&/, $buffer);
foreach $pair (@pairs)
my @pairs = split(/&/, $buffer);
foreach my $pair (@pairs)
{
($name, $value) = split(/=/, $pair);
my ($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/^(\s*)//s;
@@ -34,7 +38,7 @@ foreach $pair (@pairs)
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$FORM{$name} = $value;
}
$c=$FORM{"comment"};
my $c = $FORM{"comment"};
if ( (!defined $c) || ($c eq '') ) {
print "Content-type: text/html\n\n";
print "<TITLE>Nothing on your mind?</TITLE>";