#!/usr/bonsaitools/bin/perl -wT # -*- 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 # Gervase Markham ############################################################################## # # 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 strict; use lib qw(.); use Bugzilla::Constants; require "CGI.pl"; use vars qw( $unconfirmedstate $template $vars %COOKIE @enterable_products @legal_opsys @legal_platform @legal_priority @legal_severity $userid %MFORM %versions $proddesc ); # We have to connect to the database, even though we don't use it in this code, # because we might occasionally rebuild the version cache, which causes tokens # to get deleted from the database, which needs a database connection. ConnectToDatabase(); # If we're using bug groups to restrict bug entry, we need to know who the # user is right from the start. confirm_login() if AnyEntryGroups(); if (!defined $::FORM{'product'}) { GetVersionTable(); quietly_check_login(); my %products; foreach my $p (@enterable_products) { if (CanEnterProduct($p)) { $products{$p} = $::proddesc{$p}; } } my $prodsize = scalar(keys %products); if ($prodsize == 0) { ThrowUserError("no_products"); } elsif ($prodsize > 1) { $vars->{'proddesc'} = \%products; $vars->{'target'} = "enter_bug.cgi"; $vars->{'format'} = $::FORM{'format'}; print "Content-type: text/html\n\n"; $template->process("global/choose-product.html.tmpl", $vars) || ThrowTemplateError($template->error()); exit; } $::FORM{'product'} = (keys %products)[0]; $::MFORM{'product'} = [$::FORM{'product'}]; } my $product = $::FORM{'product'}; ############################################################################## # Useful Subroutines ############################################################################## sub formvalue { my ($name, $default) = (@_); return $::FORM{$name} || $default || ""; } sub pickplatform { return formvalue("rep_platform") if formvalue("rep_platform"); if ( Param('usebrowserinfo') ) { for ($ENV{'HTTP_USER_AGENT'}) { #PowerPC /\(.*PowerPC.*\)/i && do {return "Macintosh";}; /\(.*PPC.*\)/ && do {return "Macintosh";}; /\(.*AIX.*\)/ && do {return "Macintosh";}; #Intel x86 /\(.*[ix0-9]86.*\)/ && do {return "PC";}; #Versions of Windows that only run on Intel x86 /\(.*Windows 9.*\)/ && do {return "PC";}; /\(.*Win9.*\)/ && do {return "PC";}; /\(.*Windows 3.*\)/ && do {return "PC";}; /\(.*Win16.*\)/ && do {return "PC";}; #Sparc /\(.*sparc.*\)/ && do {return "Sun";}; /\(.*sun4.*\)/ && do {return "Sun";}; #Alpha /\(.*Alpha.*\)/i && do {return "DEC";}; #MIPS /\(.*IRIX.*\)/i && do {return "SGI";}; /\(.*MIPS.*\)/i && do {return "SGI";}; #68k /\(.*68K.*\)/ && do {return "Macintosh";}; /\(.*680[x0]0.*\)/ && do {return "Macintosh";}; #ARM # /\(.*ARM.*\) && do {return "ARM";}; #Stereotypical and broken /\(.*Macintosh.*\)/ && do {return "Macintosh";}; /\(.*Mac OS [89].*\)/ && do {return "Macintosh";}; /\(Win.*\)/ && do {return "PC";}; /\(.*Windows NT.*\)/ && do {return "PC";}; /\(.*OSF.*\)/ && do {return "DEC";}; /\(.*HP-?UX.*\)/i && do {return "HP";}; /\(.*IRIX.*\)/i && do {return "SGI";}; /\(.*(SunOS|Solaris).*\)/ && do {return "Sun";}; #Braindead old browsers who didn't follow convention: /Amiga/ && do {return "Macintosh";}; } } # default return "Other"; } sub pickos { if (formvalue('op_sys') ne "") { return formvalue('op_sys'); } if ( Param('usebrowserinfo') ) { for ($ENV{'HTTP_USER_AGENT'}) { /\(.*IRIX.*\)/ && do {return "IRIX";}; /\(.*OSF.*\)/ && do {return "OSF/1";}; /\(.*Linux.*\)/ && do {return "Linux";}; /\(.*SunOS 5.*\)/ && do {return "Solaris";}; /\(.*SunOS.*\)/ && do {return "SunOS";}; /\(.*HP-?UX.*\)/ && do {return "HP-UX";}; /\(.*BSD\/OS.*\)/ && do {return "BSDI";}; /\(.*FreeBSD.*\)/ && do {return "FreeBSD";}; /\(.*OpenBSD.*\)/ && do {return "OpenBSD";}; /\(.*NetBSD.*\)/ && do {return "NetBSD";}; /\(.*BeOS.*\)/ && do {return "BeOS";}; /\(.*AIX.*\)/ && do {return "AIX";}; /\(.*IBM.*\)/ && do {return "OS/2";}; /\(.*QNX.*\)/ && do {return "Neutrino";}; /\(.*VMS.*\)/ && do {return "OpenVMS";}; /\(.*Windows XP.*\)/ && do {return "Windows XP";}; /\(.*Windows NT 5\.1.*\)/ && do {return "Windows XP";}; /\(.*Windows 2000.*\)/ && do {return "Windows 2000";}; /\(.*Windows NT 5.*\)/ && do {return "Windows 2000";}; /\(.*Windows.*NT.*\)/ && do {return "Windows NT";}; /\(.*Win.*9[8x].*4\.9.*\)/ && do {return "Windows ME";}; /\(.*Win98.*\)/ && do {return "Windows 98";}; /\(.*Win95.*\)/ && do {return "Windows 95";}; /\(.*Win16.*\)/ && do {return "Windows 3.1";}; /\(.*WinNT.*\)/ && do {return "Windows NT";}; /\(.*32bit.*\)/ && do {return "Windows 95";}; /\(.*16bit.*\)/ && do {return "Windows 3.1";}; /\(.*Mac OS 9.*\)/ && do {return "Mac System 9.x";}; /\(.*Mac OS 8\.6.*\)/ && do {return "Mac System 8.6";}; /\(.*Mac OS 8\.5.*\)/ && do {return "Mac System 8.5";}; # Bugzilla doesn't have an entry for 8.1 /\(.*Mac OS 8\.1.*\)/ && do {return "Mac System 8.0";}; /\(.*Mac OS 8\.0.*\)/ && do {return "Mac System 8.0";}; /\(.*Mac OS 8[^.].*\)/ && do {return "Mac System 8.0";}; /\(.*Mac OS 8.*\)/ && do {return "Mac System 8.6";}; /\(.*Mac OS X.*\)/ && do {return "MacOS X";}; /\(.*Darwin.*\)/ && do {return "MacOS X";}; # Silly /\(.*Mac.*PowerPC.*\)/ && do {return "Mac System 9.x";}; /\(.*Mac.*PPC.*\)/ && do {return "Mac System 9.x";}; /\(.*Mac.*68k.*\)/ && do {return "Mac System 8.0";}; # Evil /Amiga/i && do {return "other";}; /\(.*PowerPC.*\)/ && do {return "Mac System 9.x";}; /\(.*PPC.*\)/ && do {return "Mac System 9.x";}; /\(.*68K.*\)/ && do {return "Mac System 8.0";}; } } # default return "other"; } ############################################################################## # End of subroutines ############################################################################## confirm_login() if (!(AnyEntryGroups())); # We need to check and make sure # that the user has permission to enter a bug against this product. if(!CanEnterProduct($product)) { ThrowUserError("entry_access_denied", { product => $product}); } GetVersionTable(); if (lsearch(\@::enterable_products, $product) == -1) { ThrowUserError("invalid_product_name", { product => $product}); } my $product_id = get_product_id($product); if (0 == @{$::components{$product}}) { ThrowUserError("no_components"); } elsif (1 == @{$::components{$product}}) { # Only one component; just pick it. $::FORM{'component'} = $::components{$product}->[0]; } my @components; SendSQL("SELECT name, description FROM components " . "WHERE product_id = $product_id ORDER BY name"); while (MoreSQLData()) { my ($name, $description) = FetchSQLData(); my %component; $component{'name'} = $name; $component{'description'} = $description; push @components, \%component; } my %default; $vars->{'component_'} = \@components; $default{'component_'} = formvalue('component'); $vars->{'assigned_to'} = formvalue('assigned_to'); $vars->{'cc'} = formvalue('cc'); $vars->{'reporter'} = $::COOKIE{'Bugzilla_login'}; $vars->{'product'} = $product; $vars->{'bug_file_loc'} = formvalue('bug_file_loc', "http://"); $vars->{'short_desc'} = formvalue('short_desc'); $vars->{'comment'} = formvalue('comment'); $vars->{'priority'} = \@legal_priority; $default{'priority'} = formvalue('priority', Param('defaultpriority')); $vars->{'bug_severity'} = \@legal_severity; $default{'bug_severity'} = formvalue('bug_severity', 'normal'); $vars->{'rep_platform'} = \@legal_platform; $default{'rep_platform'} = pickplatform(); $vars->{'op_sys'} = \@legal_opsys; $default{'op_sys'} = pickos(); # Use the version specified in the URL, if one is supplied. If not, # then use the cookie-specified value. (Posting a bug sets a cookie # for the current version.) If no URL or cookie version, the default # version is the last one in the list (hopefully the latest one). # Eventually maybe each product should have a "current version" # parameter. $vars->{'version'} = $::versions{$product} || []; if (formvalue('version')) { $default{'version'} = formvalue('version'); } elsif (exists $::COOKIE{"VERSION-$product"} && lsearch($vars->{'version'}, $::COOKIE{"VERSION-$product"}) != -1) { $default{'version'} = $::COOKIE{"VERSION-$product"}; } else { $default{'version'} = $vars->{'version'}->[$#{$vars->{'version'}}]; } # There must be at least one status in @status. my @status = "NEW"; if (UserInGroup("editbugs") || UserInGroup("canconfirm")) { SendSQL("SELECT votestoconfirm FROM products WHERE name = " . SqlQuote($product)); push(@status, $unconfirmedstate) if (FetchOneColumn()); } $vars->{'bug_status'} = \@status; $default{'bug_status'} = $status[0]; SendSQL("SELECT DISTINCT groups.id, groups.name, groups.description, " . "membercontrol, othercontrol " . "FROM groups LEFT JOIN group_control_map " . "ON group_id = id AND product_id = $product_id " . "WHERE isbuggroup != 0 AND isactive != 0 ORDER BY description"); my @groups; while (MoreSQLData()) { my ($id, $groupname, $description, $membercontrol, $othercontrol) = FetchSQLData(); # Only include groups if the entering user will have an option. next if ((!$membercontrol) || ($membercontrol == CONTROLMAPNA) || ($membercontrol == CONTROLMAPMANDATORY) || (($othercontrol != CONTROLMAPSHOWN) && ($othercontrol != CONTROLMAPDEFAULT) && (!UserInGroup($groupname))) ); my $check; # If this is the group for this product, make it checked. if(formvalue("maketemplate") ne "") { # If this is a bookmarked template, then we only want to set the # bit for those bits set in the template. $check = formvalue("bit-$id", 0); } else { # Checkbox is checked by default if $control is a default state. $check = (($membercontrol == CONTROLMAPDEFAULT) || (($othercontrol == CONTROLMAPDEFAULT) && (!UserInGroup($groupname)))); } my $group = { 'bit' => $id , 'checked' => $check , 'description' => $description }; push @groups, $group; } $vars->{'group'} = \@groups; $vars->{'default'} = \%default; $vars->{'use_keywords'} = 1 if (@::legal_keywords); my $format = GetFormat("bug/create/create", $::FORM{'format'}, $::FORM{'ctype'}); print "Content-type: $format->{'ctype'}\n\n"; $template->process($format->{'template'}, $vars) || ThrowTemplateError($template->error());