#!/usr/bin/perl -wT
# This copy of buglist is simple and stupid, just for bots
use strict;
use lib qw(. lib);
use Data::Dumper;
use DateTime;
use Bugzilla;
use Bugzilla::Constants;
use Bugzilla::Util;
my $cgi = Bugzilla->cgi;
my $template = Bugzilla->template;
my $vars = {};
my $dbh = Bugzilla->switch_to_shadow_db();
my @bindValues;
print $cgi->header(-type => 'text/html');
my $reso = $cgi->param('reso');
my $status = $cgi->param('status');
my $since = $cgi->param('since');
$status = undef unless defined($status);
$reso = undef unless defined($reso);
$since = undef unless defined($since) and $since =~ /^[0-9]+/;
trick_taint($reso) if defined($reso);
trick_taint($status) if defined($status);
trick_taint($since) if defined($since);
# SELECT profiles.login_name,bugs.bug_id,short_desc,priority,resolution,rep_platform,bug_status,bug_severity,profilesb.login_name AS reporter FROM bugs LEFT JOIN profiles ON bugs.assigned_to = profiles.userid LEFT JOIN profiles AS profilesb ON bugs.reporter = profilesb.userid LEFT JOIN bug_group_map ON bug_group_map.bug_id = bugs.bug_id WHERE bugs.bug_id=160786 AND (bug_group_map.group_id IS NULL OR bug_group_map.group_id!=24)
my @bindValues2;
my ($reso_sql, $status_sql, $since_sql);
my ($reso_desc, $status_desc, $since_desc);
$reso_sql = $status_sql = $since_sql = '1';
$reso_desc = $status_desc = $since_desc = '';
if (defined($reso)) {
$reso_sql = 'resolution=?';
push(@bindValues2, $reso);
$reso_desc = 'with resolution ' . $reso;
}
if (defined($status)) {
$status_sql = 'bug_status=?';
push(@bindValues2, $status);
$status_desc = 'with status ' . $status;
}
if (defined($since)) {
$since_sql = 'since=?';
push(@bindValues2, $since);
$since_desc = 'since ' . $since;
}
my $query2 = sprintf 'SELECT
bugs.bug_id, short_desc, priority,
resolution, bug_status, bug_severity
FROM bugs
LEFT JOIN bug_group_map ON bug_group_map.bug_id = bugs.bug_id
WHERE bug_group_map.group_id IS NULL
AND %s
AND %s
AND %s', $reso_sql, $status_sql, $since_sql;
#print Dumper($vars);
my $title = sprintf "Bug listing %s %s %s as at %s", $status_desc, $reso_desc,
$since_desc, DateTime->now->strftime("%Y/%m/%d %H:%M:%S");
print
''
. "\n";
printf "$title\n";
printf "%s
\n", $title;
my $actions = $dbh->selectall_arrayref($query2, {Slice => {}}, @bindValues2);
my $counter = 0;
print "";
foreach my $row (@$actions) {
printf
"- Bug:%d - \"%s\" status:%s resolution:%s severity:%s
\n",
correct_urlbase(), $row->{'bug_id'}, $row->{'bug_id'},
html_quote($row->{'short_desc'}), $row->{'bug_status'}, $row->{'resolution'},
$row->{'bug_severity'};
$counter++;
}
printf "
Done. Count=%d