status-report-scripts parseBZbugList,1.31,1.32
Christian Iseli (c4chris)
fedora-extras-commits at redhat.com
Thu Apr 27 14:19:11 UTC 2006
Author: c4chris
Update of /cvs/fedora/status-report-scripts
In directory cvs-int.fedora.redhat.com:/tmp/cvs-serv5000
Modified Files:
parseBZbugList
Log Message:
Add dropped from core info, and streamline repo querying a bit.
Index: parseBZbugList
===================================================================
RCS file: /cvs/fedora/status-report-scripts/parseBZbugList,v
retrieving revision 1.31
retrieving revision 1.32
diff -u -r1.31 -r1.32
--- parseBZbugList 19 Apr 2006 10:20:19 -0000 1.31
+++ parseBZbugList 27 Apr 2006 14:19:08 -0000 1.32
@@ -77,33 +77,27 @@
use Date::Manip;
my %opt;
-my @options = ( "help", "core=s", "extras=s", "bzid=s", "o=s", "d=s",
- "extras_r=s", "core_r=s", "cvs=s" );
+my @options = ( "help", "repourl=s", "bzid=s", "o=s", "d=s", "cvs=s",
+ "currel=i", "firstrel=i" );
-$main::core
- = "http://mirrors.kernel.org/fedora/core/development/SRPMS/";
-$main::core_r
- = "http://mirrors.kernel.org/fedora/core/5/source/SRPMS/";
-$main::extras
- = "http://mirrors.kernel.org/fedora/extras/development/SRPMS/";
-$main::extras_r
- = "http://mirrors.kernel.org/fedora/extras/5/SRPMS/";
+$main::repourl = "http://mirrors.kernel.org/fedora";
$main::discarded
= "http://fedoraproject.org/wiki/Extras/PackagesNoLongerInDevel";
$main::bzid
= "http://fedoraproject.org/wiki/Extras/UsefulScripts?action=AttachFile&do=get&target=bzId_pkg.txt";
$main::cvsDir = "/export/scratch/extras";
+$main::currel = 5;
+$main::firstrel = 1;
if( ! GetOptions( \%opt, @options ) ) { &usage(); }
# Override any default settings with arguments that the user has supplied
-$main::core = $opt{"core"} if defined $opt{"core"};
-$main::extras = $opt{"extras"} if defined $opt{"extras"};
-$main::extras_r = $opt{"extras_r"} if defined $opt{"extras_r"};
-$main::extras_r = $opt{"core_r"} if defined $opt{"core_r"};
+$main::repourl = $opt{"repourl"} if defined $opt{"repourl"};
$main::discarded = $opt{"d"} if defined $opt{"d"};
$main::bzid = $opt{"bzid"} if defined $opt{"bzid"};
$main::cvsDir = $opt{"cvs"} if defined $opt{"cvs"};
+$main::currel = $opt{"currel"} if defined $opt{"currel"};
+$main::firstrel = $opt{"firstrel"} if defined $opt{"firstrel"};
&usage() if defined $opt{'help'};
@@ -119,11 +113,12 @@
my %BZR;
my %BZA;
my %BZB;
-my %CORE;
-my %CORE_R;
-my %EXTRAS;
-my %EXTRAS_R;
+my %CORE_D;
+my @CORE_R;
+my %EXTRAS_D;
+my @EXTRAS_R;
my %SRPMS;
+my @CORE_DROPPED_SRPMS;
my %NAME;
my %OWN;
my %OWN_DUP;
@@ -209,20 +204,22 @@
print STDERR "$k is in the list of discarded pkgs, but not in owners\n";
}
}
-if ($main::extras ne "") {
- &grabRepoList($main::extras, \%EXTRAS);
-}
-if ($main::extras_r ne "") {
- &grabRepoList($main::extras_r, \%EXTRAS_R);
-}
-if ($main::core ne "") {
- &grabRepoList($main::core, \%CORE);
-}
-if ($main::core_r ne "") {
- &grabRepoList($main::core_r, \%CORE_R);
+&grabRepoList("$main::repourl/core/development/SRPMS/", \%CORE_D);
+&grabRepoList("$main::repourl/extras/development/SRPMS/", \%EXTRAS_D);
+for my $i ($main::firstrel .. $main::currel) {
+ $CORE_R[$i] = {};
+ if ($i >= 5) {
+ &grabRepoList("$main::repourl/core/$i/source/SRPMS/", $CORE_R[$i]);
+ } else {
+ &grabRepoList("$main::repourl/core/$i/SRPMS/", $CORE_R[$i]);
+ }
+ $EXTRAS_R[$i] = {};
+ if ($i >= 3) {
+ &grabRepoList("$main::repourl/extras/$i/SRPMS/", $EXTRAS_R[$i]);
+ }
}
-%SRPMS = %EXTRAS;
-foreach my $k (keys %CORE) {
+%SRPMS = %EXTRAS_D;
+foreach my $k (keys %CORE_D) {
$SRPMS{$k} = 1;
}
foreach my $k (keys %FC_INTEGRATED) {
@@ -251,7 +248,7 @@
while ( <IN> ) {
s/\s+$//;
$COUNT_LIST{"CVS"} += 1;
- if (defined($CORE{$_}) && -f "$main::cvsDir/$_/devel/$_.spec") {
+ if (defined($CORE_D{$_}) && -f "$main::cvsDir/$_/devel/$_.spec") {
push @PL, $_;
}
next if defined($OWN{$_}) || defined($DISCARD{$_});
@@ -381,8 +378,10 @@
&checkLowActivity(\%BZB, "OPEN-BUGS");
&checkBugs(\%BZB);
&checkMaintainers();
-&checkCoreAndExtras(\%CORE_R, \%EXTRAS_R, "release");
-&checkCoreAndExtras(\%CORE, \%EXTRAS, "devel");
+&checkCoreAndExtras($CORE_R[$main::currel],
+ $EXTRAS_R[$main::currel], "release");
+&checkCoreAndExtras(\%CORE_D, \%EXTRAS_D, "devel");
+&checkDropped();
print "[[TableOfContents]]\n\n= FE Package Status of ",
&UnixDate("today", "%b %e, %Y"), " =\n";
&displayOwnersWiki;
@@ -395,6 +394,7 @@
&displayNewReviewWiki(\%BZB, "OPEN-BUGS", 4);
&displayCVSWiki();
&displayMaintainersWiki();
+&displayDroppedWiki();
print "----\nCategoryExtras\n";
print STDERR "\n\nFE Package Status of ",
&UnixDate("today", "%b %e, %Y"), "\n";
@@ -410,6 +410,7 @@
&displayNewReviewMail("OPEN-BUGS");
&displayCVSMail();
&displayMaintainersMail();
+&displayDroppedMail();
exit 0;
@@ -421,7 +422,7 @@
my @NP_R;
my @NPC;
my @OE;
- foreach my $k (keys %EXTRAS) {
+ foreach my $k (keys %EXTRAS_D) {
next if defined $OWN{$k};
push @NO, $k
}
@@ -435,11 +436,11 @@
if (defined $OWN{$l}) {
$OWN_DUP{$l} = $OWN{$l};
$OWN_DUP{$k} = $OWN{$k};
- if (defined($EXTRAS{$l}) || defined($CORE{$l})) {
+ if (defined($EXTRAS_D{$l}) || defined($CORE_D{$l})) {
delete $OWN{$k};
next;
}
- if (defined($EXTRAS{$k}) || defined($CORE{$k})) {
+ if (defined($EXTRAS_D{$k}) || defined($CORE_D{$k})) {
delete $OWN{$l};
}
}
@@ -459,16 +460,16 @@
}
if ($$a[3] eq $extras_orphan) {
$orphan += 1;
- push @OE, $k if defined $EXTRAS{$k};
+ push @OE, $k if defined $EXTRAS_D{$k};
next;
} else {
$$s[2] = 1 if defined $OWN_CVS_RECENT{$k};
}
- unless (defined $EXTRAS{$k}) {
- if (defined($CORE{$k}) || defined($FC_INTEGRATED{$k})) {
+ unless (defined $EXTRAS_D{$k}) {
+ if (defined($CORE_D{$k}) || defined($FC_INTEGRATED{$k})) {
push @NPC, $k;
} else {
- if (defined $EXTRAS_R{$k}) {
+ if (defined $EXTRAS_R[$main::currel]->{$k}) {
push @NP_R, $k;
} else {
push @NP, $k;
@@ -692,7 +693,7 @@
$BZREV_CNT{$$a[4]} += 1;
$BZOWN_CNT{$$a[5]} += 1;
$COUNT_LIST{"acceptedClosed"} += 1;
- if (!defined($CORE{$pkg}) && !defined($OWN{$pkg})) {
+ if (!defined($CORE_D{$pkg}) && !defined($OWN{$pkg})) {
push @BLO, $b;
$COUNT_LIST{"missingOwner"} += 1;
}
@@ -869,18 +870,14 @@
-help this help note
-bzid <url> list associating bz ticket number with package name
[$main::bzid]
- -extras <url> Fedora extras SRPMS development repo
- [$main::extras]
- -extras_r <url> Fedora extras SRPMS release repo
- [$main::extras_r]
- -core <url> Fedora core SRPMS development repo
- [$main::core]
- -core_r <url> Fedora core SRPMS release repo
- [$main::core]
+ -currel <int> current Fedora release number [$main::currel]
+ -cvs <dir> extras CVS directory [$main::cvsDir]
-d <url> list of migrated/discarded packages
[$main::discarded]
+ -firstrel <int> first Fedora release number [$main::firstrel]
-o <file> owners.list file
- -cvs <dir> extras CVS directory [$main::cvsDir]\n";
+ -repourl <url> Fedora core and extras SRPMS development repo base
+ [$main::repourl]\n";
exit 1;
}
@@ -1195,3 +1192,44 @@
&displayPkgListByOwnerMail($PKG_LIST{"commondevel"});
}
}
+
+sub checkDropped {
+ my %D;
+ for (my $i = $main::currel - 1; $i >= $main::firstrel; $i--) {
+ print STDERR "Checking core $i\n";
+ foreach my $k (keys %{$CORE_R[$i]}) {
+ print STDERR " Checking package $k\n";
+ unless ($SRPMS{$k} or $D{$k}) {
+ $CORE_DROPPED_SRPMS[$i]->{$k} = 1;
+ $D{$k} = 1;
+ }
+ }
+ }
+ my @PL = keys %D;
+ $PKG_LIST{"Dropped"} = \@PL;
+ $COUNT_LIST{'Dropped'} = $#PL + 1;
+}
+
+sub displayDroppedWiki {
+ return if $COUNT_LIST{'Dropped'} == 0;
+ print "== About dropped packages ==\n\n";
+ print "We have a total of $COUNT_LIST{'Dropped'} dropped packages.\n";
+ for (my $i = $main::currel - 1; $i >= $main::firstrel; $i--) {
+ my @A = keys %{$CORE_DROPPED_SRPMS[$i]};
+ if ($#A >= 0) {
+ my $n = $i + 1;
+ print "\n=== FC packages dropped between release $i and $n ===\n";
+ my $cnt = $#A + 1;
+ print "\nWe have $cnt packages dropped from core:{{{\n";
+ print &toLine(join(" ", sort @A)), "\n";
+ print "}}}\n";
+ }
+ }
+}
+
+sub displayDroppedMail {
+ return if $COUNT_LIST{'Dropped'} == 0;
+ print STDERR "\nDropped FC packages:\n";
+ print STDERR " - $COUNT_LIST{'Dropped'} packages were dropped from core",
+ " since FC $main::firstrel\n";
+}
More information about the scm-commits
mailing list