#!/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.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 use diagnostics; use strict; require "CGI.pl"; # Shut up misguided -w warnings about "used only once": use vars @::legal_platform, @::buffer, @::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 "

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

\n"; foreach my $p (sort (@prodlist)) { print "$p
\n"; } 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; } for ($ENV{'HTTP_USER_AGENT'}) { /Mozilla.*\(X11/ && do {return "X-Windows";}; /Mozilla.*\(Windows/ && do {return "PC";}; /Mozilla.*\(Macintosh/ && do {return "Macintosh";}; /Mozilla.*\(Win/ && do {return "PC";}; # default return "PC"; } } sub pickversion { my $version = formvalue('version'); 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'); } 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 "System 7.5";}; /Mozilla.*\(.*;.*; PPC.*\)/ && do {return "System 7.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.*\(Win16.*\)/ && do {return "Windows 3.1";}; /Mozilla.*\(Win95.*\)/ && do {return "Windows 95";}; /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_popup = make_popup('priority', \@::legal_priority, formvalue('priority', 'P2'), 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); my $component_popup = make_popup('component', $::components{$product}, formvalue('component'), 1); PutHeader ("Enter Bug"); print "
Product: $product
Version: " . Version_element(pickversion(), $product) . " Component: $component_popup
 
Platform: $platform_popup OS: $opsys_popup
Priority: $priority_popup Severity: $sev_popup
 
Assigned To: $assign_element (Leave blank to assign to default owner for component)
Cc: $cc_element
 
URL:
Summary:
 
Description:
         
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. ";