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