From 482763c95359bd0352878542826693064d9e365e Mon Sep 17 00:00:00 2001
From: "terry%netscape.com" <>
Date: Wed, 26 Aug 1998 13:14:15 +0000
Subject: Bugzilla source.

---
 new_comment.cgi | 41 +++++++++++++++++++++++++++++++++++++++++
 1 file changed, 41 insertions(+)
 create mode 100755 new_comment.cgi

(limited to 'new_comment.cgi')

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;
-- 
cgit v1.2.3-24-g4f1b