packages no longer in core page
Patrice Dumas
pertusus at free.fr
Thu Apr 13 23:07:56 UTC 2006
> (And I know I haven't been very good at keeping it up-to-date on the wiki
> page...)
Here is the patch I made against the wiki version of your script. It
is not incredibly complicated ;-). I have commented out all that is
linked with output.
I also think that it could be good to have an explanation on how to
generate the csv from bugzilla, that you use with your script.
--
Pat
-------------- next part --------------
--- parseBZbugList.pl-orig 2006-04-13 16:15:35.000000000 +0200
+++ parseBZbugList.pl 2006-04-13 16:57:28.000000000 +0200
@@ -33,6 +33,14 @@
&usage() if defined $opt{'help'};
+my $first_core_rel = 1;
+my $last_core_rel = 5;
+my %CORE_SRPMS;
+my %CORE_DROPPED_SRPMS;
+my %DROPPED_SRPMS;
+my $core_url = "http://mirrors.kernel.org/fedora/core/";
+my $core_dir = '/SRPMS/';
+
my $FE_NEW = 163776;
my $FE_REVIEW = 163778;
my $FE_ACCEPT = 163779;
@@ -134,6 +142,30 @@
foreach my $k (keys %CORE) {
$SRPMS{$k} = 1;
}
+
+#open (DROPPED,">dropped.txt");
+for (my $i = $last_core_rel -1; $i>=$first_core_rel;$i--)
+{
+ my $url = $core_url . $i . $core_dir;
+ $CORE_SRPMS{$i} = {};
+ &grabRepoList($url, $CORE_SRPMS{$i});
+
+ #print "Package removed from fc $i and not in extras\n";
+ foreach my $k (keys %{$CORE_SRPMS{$i}})
+ {
+ unless ($SRPMS{$k} or $DROPPED_SRPMS{$k})
+ {
+ #print "$k ";
+ #print DROPPED "$k\n";
+ $CORE_DROPPED_SRPMS{$i}->{$k} = 1;
+ $DROPPED_SRPMS{$k} = 1;
+ }
+ }
+ print "\n";
+}
+#close (DROPPED);
+#exit 0;
+
while ( <> ) {
s/[,\n]+$//;
my @F = split /,/;
More information about the fedora-extras-list
mailing list