summaryrefslogtreecommitdiffstats
path: root/new_comment.cgi
diff options
context:
space:
mode:
authorterry%netscape.com <>1998-08-26 15:14:15 +0200
committerterry%netscape.com <>1998-08-26 15:14:15 +0200
commit482763c95359bd0352878542826693064d9e365e (patch)
treeaf570f3e013f34f28ca7967e4b7dcd7a9f05f854 /new_comment.cgi
downloadbugzilla-482763c95359bd0352878542826693064d9e365e.tar.gz
bugzilla-482763c95359bd0352878542826693064d9e365e.tar.xz
Bugzilla source.
Diffstat (limited to 'new_comment.cgi')
-rwxr-xr-xnew_comment.cgi41
1 files changed, 41 insertions, 0 deletions
diff --git a/new_comment.cgi b/new_comment.cgi
new file mode 100755
index 000000000..b57caff46
--- /dev/null
+++ b/new_comment.cgi
@@ -0,0 +1,41 @@
+#!/usr/bonsaitools/bin/perl
+# -*- Mode: perl; indent-tabs-mode: nil -*-
+#
+# The contents of this file are subject to the Mozilla Public License
+# Version 1.0 (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): Terry Weissman <terry@mozilla.org>
+
+if ($ENV{'REQUEST_METHOD'} eq "GET") { $buffer = $ENV{'QUERY_STRING'}; }
+else { read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); }
+# Split the name-value pairs
+@pairs = split(/&/, $buffer);
+foreach $pair (@pairs)
+{
+ ($name, $value) = split(/=/, $pair);
+
+ $value =~ tr/+/ /;
+ $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
+ $FORM{$name} = $value;
+}
+open(COMMENTS, ">>comments");
+$c=$FORM{"comment"};
+print COMMENTS $FORM{"comment"} . "\n";
+close(COMMENTS);
+print "Content-type: text/html\n\n";
+print "<TITLE>The Word Of Confirmation</TITLE>";
+print "<H1>Done</H1>";
+print $c;