86a0cf8cc4
"editbugs" and "canconfirm". People without these states are now much more limited in what they can do. For backwards compatability, by default all users will have the editbugs and canconfirm bits on them. Installing this changes as is should only have one major visible effect -- an UNCONFIRMED state will appear in the query page. But no bugs will become in that state, until you tweak some of the new voting-related parameters you'll find when editing products. git-svn-id: svn://10.0.0.236/trunk@61184 18797224-902f-48f8-a5cc-f745e15eee43
344 lines
11 KiB
Perl
Executable File
344 lines
11 KiB
Perl
Executable File
#!/usr/bonsaitools/bin/perl -w
|
|
# -*- 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): Terry Weissman <terry@mozilla.org>
|
|
|
|
|
|
########################################################################
|
|
#
|
|
# enter_bug.cgi
|
|
# -------------
|
|
# Displays bug entry form. Bug fields are specified through popup menus,
|
|
# drop-down lists, or text fields. Default for these values can be passed
|
|
# in as parameters to the cgi.
|
|
#
|
|
########################################################################
|
|
|
|
use diagnostics;
|
|
use strict;
|
|
|
|
require "CGI.pl";
|
|
|
|
# Shut up misguided -w warnings about "used only once":
|
|
use vars @::legal_platform,
|
|
@::legal_severity,
|
|
@::legal_opsys,
|
|
@::legal_priority;
|
|
|
|
|
|
if (!defined $::FORM{'product'}) {
|
|
GetVersionTable();
|
|
my @prodlist = keys %::versions;
|
|
if ($#prodlist != 0) {
|
|
print "Content-type: text/html\n\n";
|
|
PutHeader("Enter Bug");
|
|
|
|
print "<H2>First, you must pick a product on which to enter\n";
|
|
print "a bug.</H2>\n";
|
|
print "<table>";
|
|
foreach my $p (sort (@prodlist)) {
|
|
if (defined $::proddesc{$p} && $::proddesc{$p} eq '0') {
|
|
# Special hack. If we stuffed a "0" into proddesc, that means
|
|
# that disallownew was set for this bug, and so we don't want
|
|
# to allow people to specify that product here.
|
|
next;
|
|
}
|
|
print "<tr><th align=right valign=top><a href=\"enter_bug.cgi?product=" . url_quote($p) . "\">$p</a>:</th>\n";
|
|
if (defined $::proddesc{$p}) {
|
|
print "<td valign=top>$::proddesc{$p}</td>\n";
|
|
}
|
|
print "</tr>";
|
|
}
|
|
print "</table>\n";
|
|
PutFooter();
|
|
exit;
|
|
}
|
|
$::FORM{'product'} = $prodlist[0];
|
|
}
|
|
|
|
my $product = $::FORM{'product'};
|
|
|
|
confirm_login();
|
|
|
|
print "Content-type: text/html\n\n";
|
|
|
|
sub formvalue {
|
|
my ($name, $default) = (@_);
|
|
if (exists $::FORM{$name}) {
|
|
return $::FORM{$name};
|
|
}
|
|
if (defined $default) {
|
|
return $default;
|
|
}
|
|
return "";
|
|
}
|
|
|
|
sub pickplatform {
|
|
my $value = formvalue("rep_platform");
|
|
if ($value ne "") {
|
|
return $value;
|
|
}
|
|
if ( Param('usebrowserinfo') ) {
|
|
for ($ENV{'HTTP_USER_AGENT'}) {
|
|
/Mozilla.*\(Windows/ && do {return "PC";};
|
|
/Mozilla.*\(Macintosh/ && do {return "Macintosh";};
|
|
/Mozilla.*\(Win/ && do {return "PC";};
|
|
/Mozilla.*Linux.*86/ && do {return "PC";};
|
|
/Mozilla.*Linux.*alpha/ && do {return "DEC";};
|
|
/Mozilla.*OSF/ && do {return "DEC";};
|
|
/Mozilla.*HP-UX/ && do {return "HP";};
|
|
/Mozilla.*IRIX/ && do {return "SGI";};
|
|
/Mozilla.*(SunOS|Solaris)/ && do {return "Sun";};
|
|
}
|
|
}
|
|
# default
|
|
return "Other";
|
|
}
|
|
|
|
|
|
|
|
sub pickversion {
|
|
my $version = formvalue('version');
|
|
|
|
if ( Param('usebrowserinfo') ) {
|
|
if ($version eq "") {
|
|
if ($ENV{'HTTP_USER_AGENT'} =~ m@Mozilla[ /]([^ ]*)@) {
|
|
$version = $1;
|
|
}
|
|
}
|
|
}
|
|
|
|
if (lsearch($::versions{$product}, $version) >= 0) {
|
|
return $version;
|
|
} else {
|
|
if (defined $::COOKIE{"VERSION-$product"}) {
|
|
if (lsearch($::versions{$product},
|
|
$::COOKIE{"VERSION-$product"}) >= 0) {
|
|
return $::COOKIE{"VERSION-$product"};
|
|
}
|
|
}
|
|
}
|
|
return $::versions{$product}->[0];
|
|
}
|
|
|
|
|
|
sub pickcomponent {
|
|
my $result =formvalue('component');
|
|
if ($result ne "" && lsearch($::components{$product}, $result) < 0) {
|
|
$result = "";
|
|
}
|
|
return $result;
|
|
}
|
|
|
|
|
|
sub pickos {
|
|
if (formvalue('op_sys') ne "") {
|
|
return formvalue('op_sys');
|
|
}
|
|
if ( Param('usebrowserinfo') ) {
|
|
for ($ENV{'HTTP_USER_AGENT'}) {
|
|
/Mozilla.*\(.*;.*; IRIX.*\)/ && do {return "IRIX";};
|
|
/Mozilla.*\(.*;.*; 32bit.*\)/ && do {return "Windows 95";};
|
|
/Mozilla.*\(.*;.*; 16bit.*\)/ && do {return "Windows 3.1";};
|
|
/Mozilla.*\(.*;.*; 68K.*\)/ && do {return "Mac System 8.5";};
|
|
/Mozilla.*\(.*;.*; PPC.*\)/ && do {return "Mac System 8.5";};
|
|
/Mozilla.*\(.*;.*; OSF.*\)/ && do {return "OSF/1";};
|
|
/Mozilla.*\(.*;.*; Linux.*\)/ && do {return "Linux";};
|
|
/Mozilla.*\(.*;.*; SunOS 5.*\)/ && do {return "Solaris";};
|
|
/Mozilla.*\(.*;.*; SunOS.*\)/ && do {return "SunOS";};
|
|
/Mozilla.*\(.*;.*; SunOS.*\)/ && do {return "SunOS";};
|
|
/Mozilla.*\(.*;.*; BSD\/OS.*\)/ && do {return "BSDI";};
|
|
/Mozilla.*\(Win16.*\)/ && do {return "Windows 3.1";};
|
|
/Mozilla.*\(Win95.*\)/ && do {return "Windows 95";};
|
|
/Mozilla.*\(Win98.*\)/ && do {return "Windows 98";};
|
|
/Mozilla.*\(WinNT.*\)/ && do {return "Windows NT";};
|
|
}
|
|
}
|
|
# default
|
|
return "other";
|
|
}
|
|
|
|
|
|
GetVersionTable();
|
|
|
|
my $assign_element = GeneratePersonInput('assigned_to', 1,
|
|
formvalue('assigned_to'));
|
|
my $cc_element = GeneratePeopleInput('cc', formvalue('cc'));
|
|
|
|
|
|
my $priority = Param('defaultpriority');
|
|
|
|
my $priority_popup = make_popup('priority', \@::legal_priority,
|
|
formvalue('priority', $priority), 0);
|
|
my $sev_popup = make_popup('bug_severity', \@::legal_severity,
|
|
formvalue('bug_severity', 'normal'), 0);
|
|
my $platform_popup = make_popup('rep_platform', \@::legal_platform,
|
|
pickplatform(), 0);
|
|
my $opsys_popup = make_popup('op_sys', \@::legal_opsys, pickos(), 0);
|
|
|
|
if (1 == @{$::components{$product}}) {
|
|
# Only one component; just pick it.
|
|
$::FORM{'component'} = $::components{$product}->[0];
|
|
}
|
|
|
|
my $component_popup = make_popup('component', $::components{$product},
|
|
formvalue('component'), 1);
|
|
|
|
PutHeader ("Enter Bug","Enter Bug","This page lets you enter a new bug into Bugzilla.");
|
|
|
|
print "
|
|
<FORM METHOD=POST ACTION=\"post_bug.cgi\">
|
|
<INPUT TYPE=HIDDEN NAME=reporter VALUE=\"$::COOKIE{'Bugzilla_login'}\">
|
|
<INPUT TYPE=HIDDEN NAME=product VALUE=\"" . value_quote($product) . "\">
|
|
<TABLE CELLSPACING=2 CELLPADDING=0 BORDER=0>";
|
|
|
|
if (Param("entryheaderhtml")){
|
|
print "
|
|
<TR>
|
|
<td></td>
|
|
<td colspan=3>" .
|
|
Param("entryheaderhtml") . "\n" .
|
|
" </td>
|
|
</TR>
|
|
<TR><td><br></td></TR>";
|
|
}
|
|
|
|
print "
|
|
<TR>
|
|
<td ALIGN=right valign=top><B>Reporter:</B></td>
|
|
<td valign=top>$::COOKIE{'Bugzilla_login'}</td>
|
|
<td ALIGN=right valign=top><B>Product:</B></td>
|
|
<td valign=top>$product</td>
|
|
</TR>
|
|
<TR>
|
|
<td ALIGN=right valign=top><B>Version:</B></td>
|
|
<td>" . Version_element(pickversion(), $product) . "</td>
|
|
<td align=right valign=top><b><a href=\"describecomponents.cgi?product=" .
|
|
url_quote($product) . "\">Component:</a></b></td>
|
|
<td>$component_popup</td>
|
|
</TR>
|
|
<tr><td> <td> <td> <td> <td> <td> </tr>
|
|
<TR>
|
|
<td align=right><B><A HREF=\"bug_status.html#rep_platform\">Platform:</A></B></td>
|
|
<TD>$platform_popup</TD>
|
|
<TD ALIGN=RIGHT><B><A HREF=\"bug_status.html#op_sys\">OS:</A></B></TD>
|
|
<TD>$opsys_popup</TD>
|
|
<td align=right valign=top></td>
|
|
<td rowspan=3></td>
|
|
<td></td>
|
|
</TR>
|
|
<TR>";
|
|
if (Param('letsubmitterchoosepriority')) {
|
|
print "
|
|
<TD ALIGN=RIGHT><B><A HREF=\"bug_status.html#priority\">Resolution<br>Priority</A>:</B></TD>
|
|
<TD>$priority_popup</TD>";
|
|
} else {
|
|
print '<INPUT TYPE=HIDDEN NAME=priority VALUE="' .
|
|
value_quote($priority) . '">';
|
|
}
|
|
print "
|
|
<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> <td> <td> <td> <td> <td> </tr>
|
|
";
|
|
|
|
if (UserInGroup("canedit") || UserInGroup("canconfirm")) {
|
|
SendSQL("SELECT votestoconfirm FROM products WHERE product = " .
|
|
SqlQuote($product));
|
|
if (FetchOneColumn()) {
|
|
print qq{
|
|
<TR>
|
|
<TD ALIGN="right"><B><A HREF="bug_status.html#status">Initial state:</B></A></TD>
|
|
<TD COLSPAN="5">
|
|
};
|
|
print BuildPulldown("bug_status",
|
|
[[$::unconfirmedstate], ["NEW"]],
|
|
"NEW");
|
|
print "</TD></TR>";
|
|
}
|
|
}
|
|
|
|
|
|
print "
|
|
<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 component owner)</td>
|
|
</tr>
|
|
<tr>
|
|
<TD ALIGN=RIGHT><B>Cc:</B></TD>
|
|
<TD colspan=5>$cc_element</TD>
|
|
</tr>
|
|
<tr><td> <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 align=right valign=top><B>Description:</b></td>
|
|
<!-- </tr> <tr> -->
|
|
<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 \" ONCLICK=\"if (this.form.short_desc.value =='') { alert('Please enter a summary sentence for this bug.'); return false; }\">
|
|
|
|
<INPUT TYPE=\"reset\" VALUE=\"Reset\">
|
|
|
|
<INPUT TYPE=\"submit\" NAME=maketemplate VALUE=\"Remember values as bookmarkable template\">
|
|
</td>
|
|
</tr>";
|
|
|
|
if ( Param('usebrowserinfo') ) {
|
|
print "
|
|
<tr>
|
|
<td></td>
|
|
<td colspan=3>
|
|
<br>
|
|
Some fields initialized from your user-agent,
|
|
<b>$ENV{'HTTP_USER_AGENT'}</b>. If you think it got it wrong,
|
|
please tell " . Param('maintainer') . " what it should have been.
|
|
</td>
|
|
</tr>";
|
|
}
|
|
print "
|
|
</TABLE>
|
|
<INPUT TYPE=hidden name=form_name VALUE=enter_bug>
|
|
</FORM>\n";
|
|
|
|
PutFooter();
|
|
|
|
print "</BODY></HTML>\n";
|
|
|