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
85
86
87
88
89
90
|
#!/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