Turning off tag support in quips because some assholes have nothing better do than...

diff --git a/new_comment.cgi b/new_comment.cgi
index e034f3587d565d1dede681989f3cc1e7612c151e..d504c0597ec1735785d878eefeea350a3a51968d 100755 (executable)
--- a/new_comment.cgi
+++ b/new_comment.cgi
@@ -42,6 +42,13 @@ if ( (!defined $c) || ($c eq '') ) {
        print "<H2> Hit back, and try again...</H2>";
     exit 0;
 }
+if ($c =~ m/</) {
+       print "Content-type: text/html\n\n";
+       print "<CENTER><H1>For security reasons, support for tags";
+       print " has been turned off in quips.\n</H1>\n";
+       print "<H2> Hit back, and try again...</H2></CENTER>\n";
+    exit 0;
+}
 
 open(COMMENTS, ">>data/comments");
 print COMMENTS $FORM{"comment"} . "\n";