summaryrefslogtreecommitdiffstats
path: root/quips.cgi
diff options
context:
space:
mode:
authorgerv%gerv.net <>2002-01-26 07:40:02 +0100
committergerv%gerv.net <>2002-01-26 07:40:02 +0100
commit6ae2fd1cfdab799ea974100288d100bec1f0e81e (patch)
tree6094cdf1d58f2ecdf090e523bc12f7f7bc44a602 /quips.cgi
parent779c0c0c410d04dcd4376fe6cb52a7fe0dad6344 (diff)
downloadbugzilla-6ae2fd1cfdab799ea974100288d100bec1f0e81e.tar.gz
bugzilla-6ae2fd1cfdab799ea974100288d100bec1f0e81e.tar.xz
quips.cgi rewrite and templatisation.
Diffstat (limited to 'quips.cgi')
-rwxr-xr-xquips.cgi76
1 files changed, 49 insertions, 27 deletions
diff --git a/quips.cgi b/quips.cgi
index d6fff6cfa..f1a41b4b9 100755
--- a/quips.cgi
+++ b/quips.cgi
@@ -19,6 +19,7 @@
# Rights Reserved.
#
# Contributor(s): Owen Taylor <otaylor@redhat.com>
+# Gervase Markham <gerv@gerv.net>
use diagnostics;
use strict;
@@ -28,40 +29,61 @@ use lib qw(.);
require "CGI.pl";
-print "Content-type: text/html\n\n";
-
-PutHeader("Quips for the impatient", "Add your own clever headline");
+# Use the template toolkit (http://www.template-toolkit.org/)
+use Template;
-print qq{
-The buglist picks a random quip for the headline, and
-you can extend the quip list. Type in something clever or
-funny or boring and bonk on the button.
+# Create the global template object that processes templates
+my $template = Template->new(
+{
+ INCLUDE_PATH => "template/custom:template/default",
+ RELATIVE => 1,
+ PRE_CHOMP => 1,
+});
-<FORM METHOD=POST ACTION="new_comment.cgi">
-<INPUT SIZE=80 NAME="comment"><BR>
-<INPUT TYPE="submit" VALUE="Add This Quip">
-</FORM>
+# Define the global variables and functions that will be passed to the UI
+# template.
+my $vars =
+{
+ 'Param' => \&Param,
+ 'PerformSubsts' => \&PerformSubsts,
};
-if (exists $::FORM{show_quips}) {
-
- print qq{
-<H2>Existing headlines</H2>
-};
+my $action = $::FORM{'action'} || "";
+if ($action eq "show") {
+ # Read in the entire quip list
if (open (COMMENTS, "<data/comments")) {
- while (<COMMENTS>) {
- print $_,"<br>\n";
- }
+ my @quips;
+ push (@quips, $_) while (<COMMENTS>);
close COMMENTS;
+
+ $vars->{'quips'} = \@quips;
+ $vars->{'show_quips'} = 1;
}
- print "<P>";
-} else {
- print qq{
-For the impatient, you can
-<A HREF="quips.cgi?show_quips=yes">view the whole quip list</A>.
-};
- print "<P>";
}
-PutFooter();
+if ($action eq "add") {
+ # Add the quip
+ my $comment = $::FORM{"quip"};
+ if (!$comment) {
+ DisplayError("Please enter a quip in the text field.");
+ exit();
+ }
+
+ if ($comment =~ m/</) {
+ DisplayError("Sorry - for security reasons, support for HTML tags has
+ been turned off in quips.");
+ exit();
+ }
+
+ open(COMMENTS, ">>data/comments");
+ print COMMENTS $comment . "\n";
+ close(COMMENTS);
+
+ $vars->{'added_quip'} = $comment;
+}
+
+print "Content-type: text/html\n\n";
+$template->process("info/quips.tmpl", $vars)
+ || DisplayError("Template process failed: " . $template->error())
+ && exit;