status-report-scripts parseBZbugList,1.82,1.83

[Christian Iseli (c4chris)]

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";
     }