summaryrefslogtreecommitdiffstats
path: root/post_bug.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 /post_bug.cgi
downloadbugzilla-482763c95359bd0352878542826693064d9e365e.tar.gz
bugzilla-482763c95359bd0352878542826693064d9e365e.tar.xz
Bugzilla source.
Diffstat (limited to 'post_bug.cgi')
-rwxr-xr-xpost_bug.cgi137
1 files changed, 137 insertions, 0 deletions
diff --git a/post_bug.cgi b/post_bug.cgi
new file mode 100755
index 000000000..94878d3bb
--- /dev/null
+++ b/post_bug.cgi
@@ -0,0 +1,137 @@
+#! /usr/bonsaitools/bin/mysqltcl
+# -*- Mode: tcl; 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>
+
+
+source "CGI.tcl"
+confirm_login
+
+puts "Set-Cookie: PLATFORM=$FORM(product) ; path=/ ; expires=Sun, 30-Jun-99 00:00:00 GMT"
+puts "Set-Cookie: VERSION-$FORM(product)=$FORM(version) ; path=/ ; expires=Sun, 30-Jun-99 00:00:00 GMT"
+puts "Content-type: text/html\n"
+
+if {[info exists FORM(maketemplate)]} {
+ puts "<TITLE>Bookmarks are your friend.</TITLE>"
+ puts "<H1>Template constructed.</H1>"
+
+ set url "enter_bug.cgi?$buffer"
+
+ puts "If you put a bookmark <a href=\"$url\">to this link</a>, it will"
+ puts "bring up the submit-a-new-bug page with the fields initialized"
+ puts "as you've requested."
+ exit
+}
+
+PutHeader "Posting Bug -- Please wait" "Posting Bug" "One moment please..."
+
+flush stdout
+umask 0
+ConnectToDatabase
+
+if {![info exists FORM(component)] || [cequal $FORM(component) ""]} {
+ puts "You must choose a component that corresponds to this bug. If"
+ puts "necessary, just guess. But please hit the <B>Back</B> button and"
+ puts "choose a component."
+ exit 0
+}
+
+
+set forceAssignedOK 0
+if {[cequal "" $FORM(assigned_to)]} {
+ SendSQL "select initialowner from components
+where program='[SqlQuote $FORM(product)]'
+and value='[SqlQuote $FORM(component)]'"
+ set FORM(assigned_to) [lindex [FetchSQLData] 0]
+ set forceAssignedOK 1
+}
+
+set FORM(assigned_to) [DBNameToIdAndCheck $FORM(assigned_to) $forceAssignedOK]
+set FORM(reporter) [DBNameToIdAndCheck $FORM(reporter)]
+
+
+set bug_fields { reporter product version rep_platform bug_severity \
+ priority op_sys assigned_to bug_status bug_file_loc \
+ short_desc component }
+set query "insert into bugs (\n"
+
+foreach field $bug_fields {
+ append query "$field,\n"
+}
+
+append query "creation_ts, long_desc )\nvalues (\n"
+
+
+foreach field $bug_fields {
+ if {$field == "qa_assigned_to"} {
+
+ set valin [DBname_to_id $FORM($field)]
+ if {$valin == "__UNKNOWN__"} {
+ append query "null,\n"
+ } else {
+ append query "$valin,\n"
+ }
+
+ } else {
+ regsub -all "'" [FormData $field] "''" value
+ append query "'$value',\n"
+ }
+}
+
+append query "now(), "
+append query "'[SqlQuote [FormData comment]]' )\n"
+
+
+set ccids(zz) 1
+unset ccids(zz)
+
+
+if {[info exists FORM(cc)]} {
+ foreach person [split $FORM(cc) " ,"] {
+ if {![cequal $person ""]} {
+ set ccids([DBNameToIdAndCheck $person]) 1
+ }
+ }
+}
+
+
+# puts "<PRE>$query</PRE>"
+
+SendSQL $query
+while {[MoreSQLData]} { set ret [FetchSQLData] }
+
+SendSQL "select LAST_INSERT_ID()"
+set id [FetchSQLData]
+
+foreach person [array names ccids] {
+ SendSQL "insert into cc (bug_id, who) values ($id, $person)"
+ while { [ MoreSQLData ] } { FetchSQLData }
+}
+
+# Now make sure changes are written before we run processmail...
+Disconnect
+
+puts "<H2>Changes Submitted</H2>"
+puts "<A HREF=\"show_bug.cgi?id=$id\">Show BUG# $id</A>"
+puts "<BR><A HREF=\"query.cgi\">Back To Query Page</A>"
+
+flush stdout
+
+exec ./processmail $id < /dev/null > /dev/null 2> /dev/null &
+exit