From 4727e6c09f88e63f02e6c8f359862d0c0942ed36 Mon Sep 17 00:00:00 2001 From: "terry%netscape.com" <> Date: Wed, 16 Sep 1998 04:49:23 +0000 Subject: Everything has been ported to now run under Perl. --- bug_form.pl | 239 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 239 insertions(+) create mode 100644 bug_form.pl (limited to 'bug_form.pl') diff --git a/bug_form.pl b/bug_form.pl new file mode 100644 index 000000000..ed6aead8a --- /dev/null +++ b/bug_form.pl @@ -0,0 +1,239 @@ +# -*- 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; + +my $query = " +select + bug_id, + product, + version, + rep_platform, + op_sys, + bug_status, + resolution, + priority, + bug_severity, + component, + assigned_to, + reporter, + bug_file_loc, + short_desc, + date_format(creation_ts,'Y-m-d') +from bugs +where bug_id = $::FORM{'id'}"; + +SendSQL($query); +my %bug; +my @row; +if (@row = FetchSQLData()) { + my $count = 0; + foreach my $field ("bug_id", "product", "version", "rep_platform", + "op_sys", "bug_status", "resolution", "priority", + "bug_severity", "component", "assigned_to", "reporter", + "bug_file_loc", "short_desc", "creation_ts") { + $bug{$field} = shift @row; + if (!defined $bug{$field}) { + $bug{$field} = ""; + } + $count++; + } +} else { + my $maintainer = Param("maintainer"); + print "Bug Splat Error\n"; + print "

Query Error

Somehow something went wrong. Possibly if\n"; + print "you mail this page to $maintainer, he will be able to fix\n"; + print "things.
\n"; + print "Bug $::FORM{'id'} not found

Query Text

$query
\n";
+    exit 0
+}
+
+$bug{'assigned_to'} = DBID_to_name($bug{'assigned_to'});
+$bug{'reporter'} = DBID_to_name($bug{'reporter'});
+$bug{'long_desc'} = GetLongDescription($::FORM{'id'});
+
+
+GetVersionTable();
+
+#
+# These should be read from the database ...
+#
+
+my $resolution_popup = make_options(\@::legal_resolution_no_dup,
+				    $bug{'resolution'});
+my $platform_popup = make_options(\@::legal_platform, $bug{'rep_platform'});
+my $priority_popup = make_options(\@::legal_priority, $bug{'priority'});
+my $sev_popup = make_options(\@::legal_severity, $bug{'bug_severity'});
+
+
+my $component_popup = make_options($::components{$bug{'product'}},
+				   $bug{'component'});
+
+my $cc_element = '';
+
+
+my $URL = $bug{'bug_file_loc'};
+
+if (defined $URL && $URL ne "none" && $URL ne "NULL" && $URL ne "") {
+    $URL = "URL:";
+} else {
+    $URL = "URL:";
+}
+
+print "
+Bug $::FORM{'id'} -- " . html_quote($bug{'short_desc'}) .
+    "
+

+
+
+  
+    
+    
+    
+    
+    
+  
+    
+    
+    
+    
+  
+    
+      
+    
+      
+    
+      
+  
+    
+      
+    
+      
+    
+      
+  
+    
+      
+  
+    
+  
+    
+  
+
Bug#:$bug{'bug_id'}Platform:Version:
Product:OS:$bug{'op_sys'}Reporter:$bug{'reporter'}
Status:$bug{'bug_status'}Priority:Cc: $cc_element 
Resolution:$bug{'resolution'}Severity:Component:
Assigned To:
+        $bug{'assigned_to'}
$URL
+    
+      
Summary:
+    
+      

+

+Additional Comments:
+

+

+

+
+        Leave as $bug{'bug_status'} $bug{'resolution'}
";
+
+# knum is which knob number we're generating, in javascript terms.
+
+my $knum = 1;
+
+my $status = $bug{'bug_status'};
+
+if ($status eq "NEW" || $status eq "ASSIGNED" || $status eq "REOPENED") {
+    if ($status ne "ASSIGNED") {
+        print "";
+	print "Accept bug (change status to ASSIGNED)
";
+        $knum++;
+    }
+    if ($bug{'resolution'} ne "") {
+        print "\n";
+        print "Clear the resolution (remove the current resolution of\n";
+        print "$bug{'resolution'})
\n";
+        $knum++;
+    }
+    print "
+        Resolve bug, changing resolution to
+        
\n";
+    $knum++;
+    print "
+        Resolve bug, mark it as duplicate of bug # 
+        
\n";
+    $knum++;
+    my $assign_element = "";
+
+    print " 
+          Reassign bug to
+          $assign_element
+        
\n";
+    $knum++;
+    print "
+          Reassign bug to owner of selected component
\n";
+    $knum++;
+} else {
+    print " Reopen bug
\n";
+    $knum++;
+    if ($status eq "RESOLVED") {
+        print "
+        Mark bug as VERIFIED
\n";
+        $knum++;
+    }
+    if ($status ne "CLOSED") {
+        print "
+        Mark bug as CLOSED
\n";
+        $knum++;
+    }
+}
+ 
+print "
+
+
+
+

+
+ View Bug Activity
+ Format For Printing
+

+

+
+
Description: Opened: $bug{'creation_ts'}

+

+
+" . html_quote($bug{'long_desc'}) . "
+

+
\n";
+
+# To add back option of editing the long description, insert after the above
+# long_list.cgi line:
+#  Edit Long Description
+
+
+navigation_header();
+
+print "\n";
-- 
cgit v1.2.3-24-g4f1b