#!/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 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 = $::legal_keywords; $zz = $::userid; $zz = $::usergroupset; $zz = %::FORM; } print "Content-type: text/html\n"; #Changing attachment to inline to resolve 46897 #zach@zachlipton.com print "Content-disposition: inline; filename=bugzilla_bug_list.html\n\n"; PutHeader ("Full Text Bug Listing"); ConnectToDatabase(); quietly_check_login(); GetVersionTable(); my $generic_query = " select bugs.bug_id, bugs.product, bugs.version, bugs.rep_platform, bugs.op_sys, bugs.bug_status, bugs.bug_severity, bugs.priority, bugs.resolution, assign.login_name, report.login_name, bugs.component, bugs.bug_file_loc, bugs.short_desc, bugs.target_milestone, bugs.qa_contact, bugs.status_whiteboard, bugs.keywords from bugs,profiles assign,profiles report where assign.userid = bugs.assigned_to and report.userid = bugs.reporter and"; $::FORM{'buglist'} = "" unless exists $::FORM{'buglist'}; foreach my $bug (split(/:/, $::FORM{'buglist'})) { SendSQL(SelectVisible("$generic_query bugs.bug_id = $bug", $::userid, $::usergroupset)); my @row; if (@row = FetchSQLData()) { my ($id, $product, $version, $platform, $opsys, $status, $severity, $priority, $resolution, $assigned, $reporter, $component, $url, $shortdesc, $target_milestone, $qa_contact, $status_whiteboard, $keywords) = (@row); print "\n"; print "\n"; print "
" . html_quote($shortdesc) . "
\n"; print "\n"; print "\n"; } if (Param("usestatuswhiteboard")) { print "
Bug#: $id\n"; print "Product: $product\n"; print "Version: $version\n"; print "Platform: $platform\n"; print "
OS/Version: $opsys\n"; print "Status: $status\n"; print "Severity: $severity\n"; print "Priority: $priority\n"; print "
Resolution: $resolutionAssigned To: $assigned\n"; print "Reported By: $reporter\n"; if (Param("useqacontact")) { my $name = ""; if ($qa_contact > 0) { $name = DBID_to_name($qa_contact); } print "QA Contact: $name\n"; } print "
Component: $component\n"; if (Param("usetargetmilestone")) { print "Target Milestone: $target_milestone\n"; } print "
URL: "; print "" . html_quote($url) . "\n"; print "
Summary: " . html_quote($shortdesc) . "\n"; if (@::legal_keywords) { print "
Keywords: $keywords
Status Whiteboard:" . html_quote($status_whiteboard) . "\n"; } print "
Description:\n
\n"; print GetLongDescriptionAsHTML($bug); print "
\n"; } }