Bug 179329: filter quips in "show all the quips" for HTML

diff --git a/quips.cgi b/quips.cgi
index 897bf32d0ef4737d6053132135940e41d9058f4f..6cb889366a0c7006b56070b011d930c902069da6 100755 (executable)
--- a/quips.cgi
+++ b/quips.cgi
@@ -1,4 +1,4 @@
-#!/usr/bonsaitools/bin/perl -w
+#!/usr/bonsaitools/bin/perl
 # -*- Mode: perl; indent-tabs-mode: nil -*-
 #
 # The contents of this file are subject to the Mozilla Public
@@ -49,7 +49,7 @@ if (exists $::FORM{show_quips}) {
 
     if (open (COMMENTS, "<data/comments")) {
         while (<COMMENTS>) {
-            print $_,"<br>\n";
+            print html_quote($_),"<br>\n";
         }
         close COMMENTS;
     }