From dcca787ff7c8339cabff592d8dd81a1b58cc99ad Mon Sep 17 00:00:00 2001 From: "justdave%syndicomm.com" <> Date: Thu, 14 Feb 2002 01:25:02 +0000 Subject: Backing out checkin for bug 115369, it's busted on Perl 5.00503. --- long_list.cgi | 162 ++++++++++++++++++++++++++++------------------------------ 1 file changed, 79 insertions(+), 83 deletions(-) (limited to 'long_list.cgi') diff --git a/long_list.cgi b/long_list.cgi index 623ea0d16..552457b06 100755 --- a/long_list.cgi +++ b/long_list.cgi @@ -19,11 +19,10 @@ # Rights Reserved. # # Contributor(s): Terry Weissman -# Gervase Markham + use diagnostics; use strict; -use lib "."; use lib qw(.); @@ -34,44 +33,17 @@ require "CGI.pl"; sub sillyness { my $zz; + $zz = $::legal_keywords; $zz = $::userid; $zz = $::usergroupset; - $zz = @::legal_keywords; $zz = %::FORM; } -# Use the template toolkit (http://www.template-toolkit.org/) to generate -# the user interface (HTML pages and mail messages) using templates in the -# "template/" subdirectory. -use Template; - -# Create the global template object that processes templates and specify -# configuration parameters that apply to all templates processed in this script. -my $template = Template->new( -{ - # Colon-separated list of directories containing templates. - INCLUDE_PATH => "template/custom:template/default", - # Allow templates to be specified with relative paths. - RELATIVE => 1, - PRE_CHOMP => 1, -}); - -# Define the global variables and functions that will be passed to the UI -# template. Individual functions add their own values to this hash before -# sending them to the templates they process. -my $vars = -{ - # Function for retrieving global parameters. - 'Param' => \&Param, - - # Function for processing global parameters that contain references - # to other global parameters. - 'PerformSubsts' => \&PerformSubsts, - - 'quoteUrls' => \"eUrls, - 'time2str' => \&time2str, - 'str2time' => \&str2time, -}; +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(); @@ -79,55 +51,79 @@ 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.resolution, bugs.priority, - bugs.bug_severity, bugs.component, assign.login_name, report.login_name, - 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"; - -my $buglist = $::FORM{'buglist'} || - $::FORM{'bug_id'} || - $::FORM{'id'} || ""; - -my @bugs; - -foreach my $bug_id (split(/[:,]/, $buglist)) { - detaint_natural($bug_id) || next; - SendSQL(SelectVisible("$generic_query AND bugs.bug_id = $bug_id", +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'})) { + detaint_natural($bug) || next; + SendSQL(SelectVisible("$generic_query bugs.bug_id = $bug", $::userid, $::usergroupset)); - my %bug; - my @row = FetchSQLData(); - - 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", "target_milestone", - "qa_contact", "status_whiteboard", "keywords") - { - $bug{$field} = shift @row; - } - - if ($bug{'bug_id'}) { - $bug{'comments'} = GetComments($bug{'bug_id'}); - $bug{'qa_contact'} = $bug{'qa_contact'} > 0 ? - DBID_to_name($bug{'qa_contact'}) : ""; - - push (@bugs, \%bug); + 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"; } } - -# Add the bug list of hashes to the variables -$vars->{'bugs'} = \@bugs; - -$vars->{'use_keywords'} = 1 if (@::legal_keywords); - -print "Content-type: text/html\n"; -print "Content-disposition: inline; filename=bugzilla_bug_list.html\n\n"; - -# Generate and return the UI (HTML page) from the appropriate template. -$template->process("show/multiple.tmpl", $vars) - || DisplayError("Template process failed: " . $template->error()) - && exit; -- cgit v1.2.3-24-g4f1b