From db9cf7c5e1885387293000997eaf966fb89ac505 Mon Sep 17 00:00:00 2001 From: "justdave%syndicomm.com" <> Date: Tue, 29 May 2001 11:01:48 +0000 Subject: Landing quips.cgi (bug 73191) by Owen Taylor Submitted by Martin Baulig from bugzilla.gnome.org r= justdave@syndicomm.com --- quips.cgi | 65 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 65 insertions(+) create mode 100755 quips.cgi (limited to 'quips.cgi') diff --git a/quips.cgi b/quips.cgi new file mode 100755 index 000000000..3fde88c9c --- /dev/null +++ b/quips.cgi @@ -0,0 +1,65 @@ +#!/usr/bonsaitools/bin/perl +# -*- Mode: perl; indent-tabs-mode: nil -*- +# +# The contents of this file are subject to the Mozilla Public +# License Version 1.1 (the "License"); you may not use this file +# except in compliance with the License. You may obtain a copy of +# the License at http://www.mozilla.org/MPL/ +# +# Software distributed under the License is distributed on an "AS +# IS" basis, WITHOUT WARRANTY OF ANY KIND, either express or +# implied. See the License for the specific language governing +# rights and limitations under the License. +# +# The Original Code is the Bugzilla Bug Tracking System. +# +# The Initial Developer of the Original Code is Netscape Communications +# Corporation. Portions created by Netscape are +# Copyright (C) 1998 Netscape Communications Corporation. All +# Rights Reserved. +# +# Contributor(s): Owen Taylor + +use diagnostics; +use strict; +use vars ( %::FORM ); + +require "CGI.pl"; + +print "Content-type: text/html\n\n"; + +PutHeader("Quips for the impatient", "Add your own clever headline"); + +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. + +
+
+ +
+}; + +if (exists $::FORM{show_quips}) { + + print qq{ +

Existing headlines

+}; + + if (open (COMMENTS, ") { + print $_,"
\n"; + } + close COMMENTS; + } + print "

"; +} else { + print qq{ +For the impatient, you can +view the whole quip list. +}; + print "

"; +} + +PutFooter(); -- cgit v1.2.3-24-g4f1b