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

git-svn-id: svn://10.0.0.236/trunk@74931 18797224-902f-48f8-a5cc-f745e15eee43
This commit is contained in:
tara%tequilarista.org 2000-07-27 20:10:16 +00:00
parent bc1df08d18
commit 438fb4f0fd

View File

@ -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";