diff options
| -rw-r--r-- | globals.pl | 8 | ||||
| -rwxr-xr-x | post_bug.cgi | 7 |
2 files changed, 13 insertions, 2 deletions
diff --git a/globals.pl b/globals.pl index d6e18d225..26539107b 100644 --- a/globals.pl +++ b/globals.pl @@ -78,7 +78,13 @@ sub FetchOneColumn { sub AppendComment { my ($bugid,$who,$comment) = (@_); - $comment =~ s/\r\n/\n/; # Get rid of windows-style line endings. + open(DEBUG, ">/tmp/debug"); + print DEBUG "A $comment"; + $comment =~ s/\r\n/\n/g; # Get rid of windows-style line endings. + print DEBUG "B $comment"; + $comment =~ s/\r/\n/g; # Get rid of mac-style line endings. + print DEBUG "C $comment"; + close DEBUG; if ($comment =~ /^\s*$/) { # Nothin' but whitespace. return; } diff --git a/post_bug.cgi b/post_bug.cgi index 1cff52326..c0102fdbf 100755 --- a/post_bug.cgi +++ b/post_bug.cgi @@ -105,7 +105,12 @@ foreach my $field (@bug_fields) { $query .= SqlQuote($::FORM{$field}) . ",\n"; } -$query .= "now(), " . SqlQuote($::FORM{'comment'}) . " )\n"; +my $comment = $::FORM{'comment'}; +$comment =~ s/\r\n/\n/g; # Get rid of windows-style line endings. +$comment =~ s/\r/\n/g; # Get rid of mac-style line endings. +$comment = trim($comment); + +$query .= "now(), " . SqlQuote($comment) . " )\n"; my %ccids; |