status-report-scripts parseBZbugList,1.82,1.83
Christian Iseli (c4chris)
fedora-extras-commits at redhat.com
Tue Sep 4 11:19:09 UTC 2007
Author: c4chris
Update of /cvs/fedora/status-report-scripts
In directory cvs-int.fedora.redhat.com:/tmp/cvs-serv20542
Modified Files:
parseBZbugList
Log Message:
Adjust to new bugzilla interface location.
Index: parseBZbugList
===================================================================
RCS file: /cvs/fedora/status-report-scripts/parseBZbugList,v
retrieving revision 1.82
retrieving revision 1.83
diff -u -r1.82 -r1.83
--- parseBZbugList 30 Aug 2007 21:47:49 -0000 1.82
+++ parseBZbugList 4 Sep 2007 11:19:06 -0000 1.83
@@ -30,7 +30,7 @@
use JSON;
my $rpc = new XMLRPC::Lite (
- proxy => 'https://bugzilla.redhat.com/bugzilla/xmlrpc.cgi'
+ proxy => 'https://bugzilla.redhat.com/xmlrpc.cgi'
);
# Not sure of the way to increase the timeout on reading...
$rpc->transport->timeout(360);
@@ -568,7 +568,7 @@
my $h = $buglist->{$$a[$i]};
my @A = sort(keys %$h);
$aa =
- "[https://bugzilla.redhat.com/bugzilla/buglist.cgi?bug_id="
+ "[https://bugzilla.redhat.com/buglist.cgi?bug_id="
. join(",", @A) . " $aa]";
}
if ($sponsor == 1) {
@@ -965,7 +965,7 @@
sub displayBL {
my ($BL, $BZ, $field) = @_;
return if $#$BL < 0;
- print STDERR " https://bugzilla.redhat.com/bugzilla/buglist.cgi?bug_id=",
+ print STDERR " https://bugzilla.redhat.com/buglist.cgi?bug_id=",
join(",", @$BL), "\n";
foreach my $b (sort @$BL) {
my $a = $BZ->{$b};
@@ -996,7 +996,7 @@
$n =~ s/\./ dot /g;
foreach my $a (@$e) {
print "||$n||`$a->{'pkg_name'}`||[",
- "https://bugzilla.redhat.com/bugzilla/show_bug.cgi?id=",
+ "https://bugzilla.redhat.com/show_bug.cgi?id=",
$a->{'bug_id'}, " ", $a->{'bug_id'},
"]||$a->{'short_desc'}||\n";
}
More information about the fedora-extras-commits
mailing list