summaryrefslogtreecommitdiffstats
path: root/enter_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 /enter_bug.cgi
downloadbugzilla-482763c95359bd0352878542826693064d9e365e.tar.gz
bugzilla-482763c95359bd0352878542826693064d9e365e.tar.xz
Bugzilla source.
Diffstat (limited to 'enter_bug.cgi')
-rwxr-xr-xenter_bug.cgi227
1 files changed, 227 insertions, 0 deletions
diff --git a/enter_bug.cgi b/enter_bug.cgi
new file mode 100755
index 000000000..f6fdb7dbf
--- /dev/null
+++ b/enter_bug.cgi
@@ -0,0 +1,227 @@
+#! /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 "Content-type: text/html\n"
+
+
+
+proc pickplatform {} {
+ global env FORM
+ if {[formvalue rep_platform] != ""} {
+ return [formvalue rep_platform]
+ }
+ switch -regexp $env(HTTP_USER_AGENT) {
+ {Mozilla.*\(X11} {return "X-Windows"}
+ {Mozilla.*\(Windows} {return "PC"}
+ {Mozilla.*\(Macintosh} {return "Macintosh"}
+ {Mozilla.*\(Win} {return "PC"}
+ default {return "PC"}
+ }
+}
+
+proc pickproduct {} {
+ global FORM env COOKIE product versions
+ set product missingProductSoPickDefault
+
+ set product [formvalue product]
+ if {$product == ""} {
+ if {[info exists COOKIE(PRODUCT)]} {
+ set product $COOKIE(PRODUCT)
+ } else {
+ switch -regexp $env(HTTP_USER_AGENT) {
+ {2.0Gold} {set product "Hearst"}
+ {4\.0.*; *Nav} { set product "Ratbert"}
+ {4\.0} {set product "Communicator"}
+ {3\.0} {set product "Akbar"}
+ {2\.0} {set product "Cheddar"}
+ }
+ }
+ }
+ if {![info exists versions($product)]} { set product "Communicator" }
+ return $product
+}
+
+proc pickversion {} {
+ global env versions product FORM
+
+ set version [formvalue version]
+ if {$version == ""} {
+ regexp {Mozilla[ /]([^ ]*) } $env(HTTP_USER_AGENT) foo version
+
+ switch -regexp $env(HTTP_USER_AGENT) {
+ {4\.09} { set version "4.5" }
+ }
+ }
+
+ if {[lsearch -exact $versions($product) $version] >= 0} {
+ return $version
+ } else {
+ if {[info exists COOKIE(VERSION-$product)]} {
+ if {[lsearch -exact $versions($product) $COOKIE(VERSION-$Product)] >= 0} {
+ return $COOKIE(VERSION-$Product)
+ }
+ }
+ }
+ return [lindex $versions($product) 0]
+}
+
+
+proc pickcomponent {} {
+ global components product FORM
+ set result [formvalue component]
+ if {![cequal $result ""] && \
+ [lsearch -exact $components($product) $result] < 0} {
+ set result ""
+ }
+ return $result
+}
+
+
+proc pickos {} {
+ global env FORM
+ if {[formvalue op_sys] != ""} {
+ return [formvalue op_sys]
+ }
+ switch -regexp $env(HTTP_USER_AGENT) {
+ {Mozilla.*\(.*;.*; IRIX.*\)} {return "IRIX"}
+ {Mozilla.*\(.*;.*; 32bit.*\)} {return "Windows 95"}
+ {Mozilla.*\(.*;.*; 16bit.*\)} {return "Windows 3.1"}
+ {Mozilla.*\(.*;.*; 68K.*\)} {return "System 7.5"}
+ {Mozilla.*\(.*;.*; PPC.*\)} {return "System 7.5"}
+ {Mozilla.*\(.*;.*; OSF.*\)} {return "OSF/1"}
+ {Mozilla.*\(.*;.*; Linux.*\)} {return "Linux"}
+ {Mozilla.*\(.*;.*; SunOS 5.*\)} {return "Solaris"}
+ {Mozilla.*\(.*;.*; SunOS.*\)} {return "SunOS"}
+ {Mozilla.*\(.*;.*; SunOS.*\)} {return "SunOS"}
+ {Mozilla.*\(Win16.*\)} {return "Windows 3.1"}
+ {Mozilla.*\(Win95.*\)} {return "Windows 95"}
+ {Mozilla.*\(WinNT.*\)} {return "Windows NT"}
+ default {return "other"}
+ }
+}
+
+proc formvalue {name {default ""}} {
+ global FORM
+ if {[info exists FORM($name)]} {
+ return [FormData $name]
+ }
+ return $default
+}
+
+GetVersionTable
+pickproduct
+
+set assign_element [GeneratePersonInput assigned_to 1 [formvalue assigned_to]]
+set cc_element [GeneratePeopleInput cc [formvalue cc ""]]
+
+
+set priority_popup [make_popup priority $legal_priority [formvalue priority "P2"] 0]
+set sev_popup [make_popup bug_severity $legal_severity [formvalue bug_severity "normal"] 0]
+set platform_popup [make_popup rep_platform $legal_platform [pickplatform] 0]
+set opsys_popup [make_popup op_sys $legal_opsys [pickos] 0]
+
+set component_popup [make_popup component $components($product) \
+ [formvalue component] 1]
+
+PutHeader "Enter Bug" "Enter Bug"
+
+puts "
+<FORM NAME=enterForm METHOD=POST ACTION=\"post_bug.cgi\">
+<INPUT TYPE=HIDDEN NAME=bug_status VALUE=NEW>
+<INPUT TYPE=HIDDEN NAME=reporter VALUE=$COOKIE(Bugzilla_login)>
+ <TABLE CELLSPACING=2 CELLPADDING=0 BORDER=0>
+ <TR>
+ <td ALIGN=right valign=top><B>Product:</B></td>
+ <td>[Product_element $product]</td>
+ <td ALIGN=right valign=top><B>Version:</B></td>
+ <td>[Version_element [pickversion] $product]</td>
+ <td align=right valign=top><b>Component:</b></td>
+ <td>$component_popup</td>
+ </TR>
+ <tr><td>&nbsp<td> <td> <td> <td> <td> </tr>
+ <TR>
+ <td align=right><b><B><A HREF=\"bug_status.html#rep_platform\">Platform:</A></B></td>
+ <TD>$platform_popup</TD>
+ <TD ALIGN=RIGHT><B>OS:</B></TD>
+ <TD>$opsys_popup</TD>
+ <td align=right valign=top></td>
+ <td rowspan=3></td>
+ <td></td>
+ </TR>
+ <TR>
+ <TD ALIGN=RIGHT><B><A HREF=\"bug_status.html#priority\">Priority</A>:</B></TD>
+ <TD>$priority_popup</TD>
+ <TD ALIGN=RIGHT><B><A HREF=\"bug_status.html#severity\">Severity</A>:</B></TD>
+ <TD>$sev_popup</TD>
+ <td></td>
+ <td></td>
+ </TR>
+ <tr><td>&nbsp<td> <td> <td> <td> <td> </tr>
+ <tr>
+ <TD ALIGN=RIGHT><B><A HREF=\"bug_status.html#assigned_to\">Assigned To:
+ </A></B></TD>
+ <TD colspan=5>$assign_element
+ (Leave blank to assign to default owner for component)</td>
+ </tr>
+ <tr>
+ <TD ALIGN=RIGHT ><B>Cc:</B></TD>
+ <TD colspan=5>$cc_element</TD>
+ </tr>
+ <tr><td>&nbsp<td> <td> <td> <td> <td> </tr>
+ <TR>
+ <TD ALIGN=RIGHT><B>URL:</B>
+ <TD COLSPAN=5>
+ <INPUT NAME=bug_file_loc SIZE=60 value=\"[value_quote [formvalue bug_file_loc]]\"></TD>
+ </TR>
+ <TR>
+ <TD ALIGN=RIGHT><B>Summary:</B>
+ <TD COLSPAN=5>
+ <INPUT NAME=short_desc SIZE=60 value=\"[value_quote [formvalue short_desc]]\"></TD>
+ </TR>
+ <tr><td>&nbsp<td> <td> <td> <td> <td> </tr>
+ <tr>
+ <td aligh=right valign=top><B>Description:</b>
+ <td colspan=5><TEXTAREA WRAP=HARD NAME=comment ROWS=10 COLS=80>[value_quote [formvalue comment]]</TEXTAREA><BR></td>
+ </tr>
+ <tr>
+ <td></td>
+ <td colspan=5>
+ <INPUT TYPE=\"submit\" VALUE=\" Commit \">
+ &nbsp;&nbsp;&nbsp;&nbsp;
+ <INPUT TYPE=\"reset\" VALUE=\"Reset\">
+ &nbsp;&nbsp;&nbsp;&nbsp;
+ <INPUT TYPE=\"submit\" NAME=maketemplate VALUE=\"Remember values as bookmarkable template\">
+ </td>
+ </tr>
+ </TABLE>
+ <INPUT TYPE=hidden name=form_name VALUE=enter_bug>
+</FORM>
+
+Some fields initialized from your user-agent, <b>$env(HTTP_USER_AGENT)</b>.
+If you think it got it wrong, please tell $maintainer what it should have been.
+
+</BODY></HTML>"
+
+flush stdout