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

diff --git a/new_comment.cgi b/new_comment.cgi
index e561292eac67af896bf59b698ee5b1a970360673..e034f3587d565d1dede681989f3cc1e7612c151e 100755 (executable)
--- a/new_comment.cgi
+++ b/new_comment.cgi
@@ -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";