From 09607b481dc69b2c88948f9ead832871fbb4c16c Mon Sep 17 00:00:00 2001
From: "tara%tequilarista.org" <>
Date: Fri, 28 Jul 2000 03:10:16 +0000
Subject: Turning off tag support in quips because some assholes have nothing
 better do than fuck with my tool

---
 new_comment.cgi | 7 +++++++
 1 file changed, 7 insertions(+)

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";
-- 
cgit v1.2.3-24-g4f1b