Fix for bug #1105--no more annoying blank quips

git-svn-id: svn://10.0.0.236/trunk@67542 18797224-902f-48f8-a5cc-f745e15eee43
This commit is contained in:
tara%tequilarista.org
2000-04-28 18:51:11 +00:00
parent 76466123dc
commit 9732f62d8f

View File

@@ -29,11 +29,21 @@ foreach $pair (@pairs)
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/^(\s*)//s;
$value =~ s/(\s*)$//s;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$FORM{$name} = $value;
}
open(COMMENTS, ">>data/comments");
$c=$FORM{"comment"};
if ( (!defined $c) || ($c eq '') ) {
print "Content-type: text/html\n\n";
print "<TITLE>Nothing on your mind?</TITLE>";
print "<H1>Does your mind draw a blank?</H1>";
print "<H2> Hit back, and try again...</H2>";
exit 0;
}
open(COMMENTS, ">>data/comments");
print COMMENTS $FORM{"comment"} . "\n";
close(COMMENTS);
print "Content-type: text/html\n\n";