Turning off tag support in quips because some assholes have nothing better do than fuck with my tool

1 files changed, 7 insertions, 0 deletions

diff --git a/new_comment.cgi b/new_comment.cgi
index e034f3587..d504c0597 100755
--- 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";