зеркало из https://github.com/mozilla/pjs.git
477 строки
16 KiB
Perl
Executable File
477 строки
16 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>
|
|
# Dave Miller <justdave@syndicomm.com>
|
|
# Joe Robins <jmrobins@tgix.com>
|
|
|
|
|
|
########################################################################
|
|
#
|
|
# 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" just
|
|
# doesn't work for me.
|
|
|
|
sub sillyness {
|
|
my $zz;
|
|
$zz = $::unconfirmedstate;
|
|
$zz = @::legal_opsys;
|
|
$zz = @::legal_platform;
|
|
$zz = @::legal_priority;
|
|
$zz = @::legal_severity;
|
|
}
|
|
|
|
# I've moved the call to confirm_login up to here, since if we're using bug
|
|
# groups to restrict bug entry, we need to know who the user is right from
|
|
# the start. If that parameter is turned off, there's still no harm done in
|
|
# doing it now instead of a bit later. -JMR, 2/18/00
|
|
# Except that it will cause people without cookies enabled to have to log
|
|
# in an extra time. Only do it here if we really need to. -terry, 3/10/00
|
|
if (Param("usebuggroupsentry")) {
|
|
confirm_login();
|
|
}
|
|
|
|
if (!defined $::FORM{'product'}) {
|
|
GetVersionTable();
|
|
my @prodlist;
|
|
foreach my $p (sort(keys %::versions)) {
|
|
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;
|
|
}
|
|
if(Param("usebuggroupsentry")
|
|
&& GroupExists($p)
|
|
&& !UserInGroup($p)) {
|
|
# If we're using bug groups to restrict entry on products, and
|
|
# this product has a bug group, and the user is not in that
|
|
# group, we don't want to include that product in this list.
|
|
next;
|
|
}
|
|
push(@prodlist, $p);
|
|
}
|
|
if (1 != @prodlist) {
|
|
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 (@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;
|
|
}
|
|
if(Param("usebuggroupsentry")
|
|
&& GroupExists($p)
|
|
&& !UserInGroup($p)) {
|
|
# If we're using bug groups to restrict entry on products, and
|
|
# this product has a bug group, and the user is not in that
|
|
# group, we don't want to include that product in this list.
|
|
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.*Windows NT/ && 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";};
|
|
/Mozilla.*Windows NT 5.*\)/ && do {return "Windows 2000";};
|
|
/Mozilla.*\(Windows.*NT/ && 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 (0 == $::components{$product}) {
|
|
print "<H1>Permission Denied</H1>\n";
|
|
print "Sorry. You need to have at least one component for this product\n";
|
|
print "in order to create a new bug. Go to the \"Components\" link to create\n";
|
|
print "a new component\n";
|
|
print "<P>\n";
|
|
PutFooter();
|
|
exit;
|
|
} elsif (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.");
|
|
|
|
# Modified, -JMR, 2/24,00
|
|
# If the usebuggroupsentry parameter is set, we need to check and make sure
|
|
# that the user has permission to enter a bug against this product.
|
|
# Modified, -DDM, 3/11/00
|
|
# added GroupExists check so we don't choke on a groupless product
|
|
if(Param("usebuggroupsentry")
|
|
&& GroupExists($product)
|
|
&& !UserInGroup($product)) {
|
|
print "<H1>Permission denied.</H1>\n";
|
|
print "Sorry; you do not have the permissions necessary to enter\n";
|
|
print "a bug against this product.\n";
|
|
print "<P>\n";
|
|
PutFooter();
|
|
exit;
|
|
}
|
|
|
|
# Modified, -JMR, 2/18/00
|
|
# I'm putting in a select box in order to select whether to restrict this bug to
|
|
# the product's bug group or not, if the usebuggroups parameter is set, and if
|
|
# this product has a bug group. This box will default to selected, but can be
|
|
# turned off if this bug should be world-viewable for some reason.
|
|
#
|
|
# To do this, I need to (1) get the bit and description for the bug group from
|
|
# the database, (2) insert the select box in the giant print statements below,
|
|
# and (3) update post_bug.cgi to process the additional input field.
|
|
|
|
# Modified, -DDM, 3/11/00
|
|
# Only need the bit here, and not the description. Description is gotten
|
|
# when the select boxes for all the groups this user has access to are read
|
|
# in later on.
|
|
# First we get the bit and description for the group.
|
|
my $group_bit=0;
|
|
if(Param("usebuggroups") && GroupExists($product)) {
|
|
SendSQL("select bit from groups ".
|
|
"where name = ".SqlQuote($product)." ".
|
|
"and isbuggroup != 0");
|
|
($group_bit) = FetchSQLData();
|
|
}
|
|
|
|
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("editbugs") || 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=\"http://" .
|
|
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>";
|
|
|
|
print "
|
|
<tr>
|
|
<td></td><td colspan=5>
|
|
";
|
|
|
|
if ($::usergroupset ne '0') {
|
|
SendSQL("SELECT bit, description FROM groups " .
|
|
"WHERE bit & $::usergroupset != 0 " .
|
|
" AND isbuggroup != 0 ORDER BY description");
|
|
while (MoreSQLData()) {
|
|
my ($bit, $description) = (FetchSQLData());
|
|
# Rather than waste time with another Param check and another database
|
|
# access, $group_bit will only have a non-zero value if we're using
|
|
# bug groups and have one for this product, so I'll check on that
|
|
# instead here. -JMR, 2/18/00
|
|
# Moved this check to this location to fix conflict with existing
|
|
# select-box patch. Also, if $group_bit is 0, it won't match the
|
|
# current group, either, so I'll compare it to the current bit
|
|
# instead of checking for non-zero. -DDM, 3/11/00
|
|
my $check = 0; # default selection
|
|
if($group_bit == $bit) {
|
|
# In addition, we need to handle the possibility that we're coming
|
|
# from a bookmark template. We'll simply check if we've got a
|
|
# parameter called bit-# passed. If so, then we're coming from a
|
|
# template, and we'll use the template value.
|
|
$check = formvalue("bit-$bit","1");
|
|
}
|
|
print BuildPulldown("bit-$bit",
|
|
[["0",
|
|
"People not in the \"$description\" group can see this bug"],
|
|
["1",
|
|
"Only people in the \"$description\" group can see this bug"]],
|
|
$check);
|
|
print "<BR>\n";
|
|
}
|
|
}
|
|
|
|
print "
|
|
</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";
|
|
|