status-report-scripts parseBZbugList,1.91,1.92
Christian Iseli (c4chris)
fedora-extras-commits at redhat.com
Mon Aug 11 23:47:02 UTC 2008
Author: c4chris
Update of /cvs/fedora/status-report-scripts
In directory cvs-int.fedora.redhat.com:/tmp/cvs-serv14700
Modified Files:
parseBZbugList
Log Message:
New wiki, new FAS, and UTF-8 tweaks.
Index: parseBZbugList
===================================================================
RCS file: /cvs/fedora/status-report-scripts/parseBZbugList,v
retrieving revision 1.91
retrieving revision 1.92
diff -u -r1.91 -r1.92
--- parseBZbugList 3 May 2008 07:34:28 -0000 1.91
+++ parseBZbugList 11 Aug 2008 23:47:01 -0000 1.92
@@ -25,8 +25,10 @@
# have an arch dependent BZ tracking ticket.
use strict;
-use Getopt::Long;
use Date::Manip;
+use Getopt::Long;
+use open ':utf8';
+use open ':std';
use File::Temp qw/ tempfile /;
use XMLRPC::Lite;
use JSON;
@@ -43,10 +45,10 @@
$main::repourl = "http://mirrors.kernel.org/fedora";
$main::mailURL = "https://admin.fedoraproject.org/accounts/group/dump";
-$main::members = "https://admin.fedoraproject.org/accounts/group/dump/cvsextras";
+$main::members = "https://admin.fedoraproject.org/accounts/group/dump/packager";
$main::bzOwn = "https://admin.fedoraproject.org/pkgdb/acls/bugzilla?tg_format=json";
$main::cvsDir = "/export/scratch/extras";
-$main::currel = 8;
+$main::currel = 9;
$main::firstrel = 7;
$main::username = "c4chris";
$main::BZusername = "";
@@ -142,7 +144,7 @@
);
if ($main::mailURL ne "" && $main::password ne "") {
local *IN;
- open IN, "wget --user=$main::username --password=$main::password -nv -O - \"$main::mailURL\"|"
+ open IN, "wget -nv -O - \"$main::mailURL?user_name=$main::username&password=$main::password&login=Login\"|"
or die "Failed to wget members list : $!";
while ( <IN> ) {
s/\s+$//;
@@ -153,7 +155,7 @@
}
if ($main::members ne "" && $main::password ne "") {
local *IN;
- open IN, "wget --user=$main::username --password=$main::password -nv -O - \"$main::members\"|"
+ open IN, "wget -nv -O - \"$main::members?user_name=$main::username&password=$main::password&login=Login\"|"
or die "Failed to wget members list : $!";
while ( <IN> ) {
s/\s+$//;
@@ -387,7 +389,7 @@
&checkBugs(\%BZB);
&checkMaintainers();
&checkDropped();
-print "[[TableOfContents]]\n\n= Fedora Package Status of ",
+print "= Fedora Package Status of ",
&UnixDate("today", "%b %e, %Y"), " =\n";
&displayOwnersWiki;
&displayAcceptWiki(\%BZA);
@@ -401,7 +403,7 @@
&displayMaintainersWiki();
&displayDroppedWiki();
&displayCompsWiki;
-print "----\nCategoryFedora\n";
+print "\n[[Category:Fedora]]\n";
print STDERR "\n\nFedora Package Status of ",
&UnixDate("today", "%b %e, %Y"), "\n";
print STDERR "\nThe full report can be found here:\n";
@@ -484,8 +486,8 @@
sub displayOwnersWiki {
print "== About owners ==\n\n";
print "=== Package count ===\n\n";
- print "We have $COUNT_LIST{'owner'} packages in bugzilla owners.[[BR]]\n";
- print "We have $COUNT_LIST{'bin_rpms'} binary rpms in the devel repo.[[BR]]\n";
+ print "We have $COUNT_LIST{'owner'} packages in bugzilla owners.<BR>\n";
+ print "We have $COUNT_LIST{'bin_rpms'} binary rpms in the devel repo.<BR>\n";
print "There are $COUNT_LIST{'orphan'} orphans.\n";
print "\n=== Top $TopCount package owners ===\n";
&displayOwnerCntWiki($OWNER_LIST{"package"}, \%OWNER_STAT, 0);
@@ -513,18 +515,18 @@
if ($COUNT_LIST{"NoOwner"} > 0) {
print "\n\n=== Packages missing in bugzilla owners ===\n";
print "\nWe have $COUNT_LIST{'NoOwner'} packages present in the ",
- "development repo which have no entry in bugzilla owners:{{{\n";
+ "development repo which have no entry in bugzilla owners:<pre>\n";
my $p = $PKG_LIST{"NoOwner"};
print &toLine(join(" ", @$p)), "\n";
- print "}}}\n";
+ print "</pre>\n";
}
$a = $PKG_LIST{"OrphanDevel"};
print "\n=== Orphaned packages present in the development repo ===\n";
if ($#$a >= 0) {
my $cnt = $#$a + 1;
- print "\nWe have $cnt orphaned packages available in devel:{{{\n";
+ print "\nWe have $cnt orphaned packages available in devel:<pre>\n";
print &toLine(join(" ", sort @$a)), "\n";
- print "}}}\n";
+ print "</pre>\n";
}
}
@@ -538,7 +540,7 @@
print "\n=== Fedora $rel ===\n\n";
}
my $cnt = $COUNT_LIST{"InComps$rel"};
- print "We have $cnt packages in comps-f$rel file.[[BR]]\n";
+ print "We have $cnt packages in comps-f$rel file.<BR>\n";
$cnt = $COUNT_LIST{"CompsMiss$rel"};
if ($cnt > 0) {
print "\n=== Packages not present in comps-f$rel ===\n";
@@ -562,6 +564,7 @@
} else {
$count = $TopCount - 1;
}
+ print "{| border=\"1\"\n";
for my $i (0 .. $count) {
my $n = lc $$a[$i];
my $sponsor = 0;
@@ -587,12 +590,12 @@
. join(",", @A) . " $aa]";
}
if ($sponsor == 1) {
- print "||<style=\"background-color: #80FF80;\"> $n||$aa||\n";
+ print "|-\n|style=\"background-color: #80FF80;\" | $n||$aa\n";
} else {
- print "||$n||$aa||\n";
+ print "|-\n|$n||$aa\n";
}
}
- print "\n";
+ print "|}\n";
}
sub displayPkgListByOwnerWiki {
@@ -608,15 +611,17 @@
$PO{$owner} = [ $p ];
}
}
+ print "{| border=\"1\"\n";
foreach my $owner (sort(keys %PO)) {
my $e = $PO{$owner};
$owner =~ s/\@/ at /;
$owner =~ s/\./ dot /g;
foreach my $p (sort @$e) {
my $summary = $BZOWN->{$p}->{'summary'};
- print "||$owner||`$p`||$summary||\n";
+ print "|-\n|$owner||<code>$p</code>||$summary\n";
}
}
+ print "|}\n";
}
sub displayPkgListByOwnerMail {
@@ -1005,18 +1010,20 @@
$O{$a->{$field}} = [ $a ];
}
}
+ print "{| border=\"1\"\n";
foreach my $n (sort(keys %O)) {
my $e = $O{$n};
$n =~ s/["]//g;
$n =~ s/\@/ at /;
$n =~ s/\./ dot /g;
foreach my $a (@$e) {
- print "||$n||`$a->{'pkg_name'}`||[",
+ print "|-\n|$n||<code>$a->{'pkg_name'}</code>||[",
"https://bugzilla.redhat.com/show_bug.cgi?id=",
$a->{'bug_id'}, " ", $a->{'bug_id'},
- "]||$a->{'short_desc'}||\n";
+ "]||$a->{'short_desc'}\n";
}
}
+ print "|}\n";
}
sub displayNewReviewWiki {
@@ -1118,16 +1125,16 @@
if ($#A >= 0) {
my $cnt = $#A + 1;
print "\n=== Packages in CVS with no entry in owners ===\n";
- print "\nWe have $cnt packages in CVS with no owners entry:{{{\n";
- print join("\n", @A), "}}}\n";
+ print "\nWe have $cnt packages in CVS with no owners entry:<pre>\n";
+ print join("\n", @A), "</pre>\n";
}
@A = sort (keys %DISCARD);
if ($#A >= 0) {
print "\n=== Packages dropped from Fedora ===\n";
my $cnt = $#A + 1;
- print "\nWe have $cnt packages dropped:{{{\n";
+ print "\nWe have $cnt packages dropped:<pre>\n";
print &toLine(join(" ", sort @A)), "\n";
- print "}}}\n";
+ print "</pre>\n";
}
}
@@ -1180,7 +1187,7 @@
sub displayMaintainersWiki {
print "== About maintainers ==\n\n";
print "=== Maintainers count ===\n\n";
- print "We have $COUNT_LIST{'maintainers'} maintainers as bugzilla owners.[[BR]]\n";
+ print "We have $COUNT_LIST{'maintainers'} maintainers as bugzilla owners.<BR\n";
print "\n=== Top $TopCount bugs assignees ===\n";
&displayOwnerCntWiki($OWNER_LIST{"bugs"}, \%OWNER_STAT, 1);
if ($COUNT_LIST{'maintbugs'} > 0) {
@@ -1199,6 +1206,7 @@
print "=== Inactive maintainers ===\n\n";
print "We have $COUNT_LIST{'maintpkg'} maintainers that ",
"have had no noticeable CVS activity in the last 12 weeks:\n";
+ print "{| border=\"1\"\n";
my $a = $MAINT_LIST{"packages"};
foreach my $k (sort @$a) {
my $n = $k;
@@ -1208,10 +1216,10 @@
my $owner = $BZOWN->{$o}->{'owner'};
$owner = $ {$MEMBER_u{$owner}}[1];
next unless $owner eq $k;
- print "||$n||$o||\n";
+ print "|-\n|$n||$o\n";
}
}
- print "\n";
+ print "|}\n";
}
}
@@ -1253,9 +1261,9 @@
$n = "devel" if $n > $main::currel;
print "\n=== Fedora packages dropped between release $i and $n ===\n";
my $cnt = $#A + 1;
- print "\nWe have $cnt packages dropped:{{{\n";
+ print "\nWe have $cnt packages dropped:<pre>\n";
print &toLine(join(" ", sort @A)), "\n";
- print "}}}\n";
+ print "</pre>\n";
}
}
}
More information about the fedora-extras-commits
mailing list