#!/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 # Dave Miller # Joe Robins ######################################################################## # # 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 "

First, you must pick a product on which to enter\n"; print "a bug.

\n"; print ""; 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 "\n"; if (defined $::proddesc{$p}) { print "\n"; } print ""; } print "
$p:$::proddesc{$p}
\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 or later";}; /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 "

Permission Denied

\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 "

\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 "

Permission denied.

\n"; print "Sorry; you do not have the permissions necessary to enter\n"; print "a bug against this product.\n"; print "

\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 "

"; if (Param("entryheaderhtml")){ print " "; } print " "; if (Param('letsubmitterchoosepriority')) { print " "; } else { print ''; } print " "; if (UserInGroup("editbugs") || UserInGroup("canconfirm")) { SendSQL("SELECT votestoconfirm FROM products WHERE product = " . SqlQuote($product)); if (FetchOneColumn()) { print qq{ "; } } print " "; print " "; if ( Param('usebrowserinfo') ) { print " "; } print "
" . Param("entryheaderhtml") . "\n" . "

Reporter: $::COOKIE{'Bugzilla_login'} Product: $product
Version: " . Version_element(pickversion(), $product) . " Component: $component_popup
 
Platform: $platform_popup OS: $opsys_popup
Resolution
Priority
:
$priority_popupSeverity: $sev_popup
 
Initial state: }; print BuildPulldown("bug_status", [[$::unconfirmedstate], ["NEW"]], "NEW"); print "
Assigned To: $assign_element (Leave blank to assign to default component owner)
Cc: $cc_element
 
URL:
Summary:
Description:
"; 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 "
\n"; } } print "
         

Some fields initialized from your user-agent, $ENV{'HTTP_USER_AGENT'}. If you think it got it wrong, please tell " . Param('maintainer') . " what it should have been.
\n"; PutFooter(); print "\n";