1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
|
#!/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
'<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd"><html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en">'
. "\n";
printf "<head><title>$title</title></head>\n";
printf "<body><h1>%s</h1>\n", $title;
my $actions = $dbh->selectall_arrayref($query2, {Slice => {}}, @bindValues2);
my $counter = 0;
print "<div><ul>";
foreach my $row (@$actions) {
printf
"<li><a href='%s%d'>Bug:%d - \"<em>%s</em>\" status:%s resolution:%s severity:%s</a></li>\n",
correct_urlbase(), $row->{'bug_id'}, $row->{'bug_id'},
html_quote($row->{'short_desc'}), $row->{'bug_status'}, $row->{'resolution'},
$row->{'bug_severity'};
$counter++;
}
printf "</ul>Done. Count=%d</div></body></html>\n", $counter;
|
GitWeb