status-report-scripts parseBZbugList,1.6,1.7

[Christian Iseli (c4chris)]

Author: c4chris

Update of /cvs/fedora/status-report-scripts
In directory cvs-int.fedora.redhat.com:/tmp/cvs-serv1489

Modified Files:
	parseBZbugList 
Log Message:
Add -extras_r.


Index: parseBZbugList
===================================================================
RCS file: /cvs/fedora/status-report-scripts/parseBZbugList,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -r1.6 -r1.7
--- parseBZbugList	19 Apr 2006 09:53:34 -0000	1.6
+++ parseBZbugList	19 Apr 2006 09:54:23 -0000	1.7
@@ -5,16 +5,19 @@
 use Date::Manip;
 
 my %opt;
-my @options = ( "help", "core=s", "extras=s", "bzid=s", "o=s", "d=s" );
+my @options = ( "help", "core=s", "extras=s", "bzid=s", "o=s", "d=s",
+		"extras_r=s" );
 
 $main::core = "http://mirrors.kernel.org/fedora/core/development/SRPMS/";
 $main::extras = "http://mirrors.kernel.org/fedora/extras/development/SRPMS/";
+$main::extras_r = "http://mirrors.kernel.org/fedora/extras/4/SRPMS/";
 
 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"};
 
 &usage() if defined $opt{'help'};
 
@@ -28,6 +31,7 @@
 my %BZA;
 my %CORE;
 my %EXTRAS;
+my %EXTRAS_R;
 my %SRPMS;
 my %NAME;
 my %OWN;
@@ -67,6 +71,9 @@
 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);
 }
@@ -177,6 +184,7 @@
   my $orphan = 0;
   my $cnt = 0;
   my @NP;
+  my @NP_R;
   my @NPC;
   my @OE;
   foreach my $k (keys %OWN) {
@@ -193,7 +201,11 @@
       if (defined $CORE{$k}) {
 	push @NPC, $k;
       } else {
-	push @NP, $k;
+	if (defined $EXTRAS_R{$k}) {
+	  push @NP_R, $k;
+	} else {
+	  push @NP, $k;
+	}
       }
     }
   }
@@ -209,13 +221,23 @@
   }
   if ($#NP >= 0) {
     $cnt = $#NP + 1;
-    print "\nWe have $cnt packages not available in extras devel:\n";
+    print "\nWe have $cnt packages not available in extras devel or release:\n";
     foreach my $p (sort @NP) {
       my $a = $OWN{$p};
       my ($owner) = $$a[3] =~ /^([^@]+)/;
       printf "%-40s %s\n", $p, $owner;
     }
   }
+  if ($#NP_R >= 0) {
+    $cnt = $#NP_R + 1;
+    print "\nWe have $cnt packages not available in extras devel ";
+    print "but present in release:\n";
+    foreach my $p (sort @NP_R) {
+      my $a = $OWN{$p};
+      my ($owner) = $$a[3] =~ /^([^@]+)/;
+      printf "%-40s %s\n", $p, $owner;
+    }
+  }
   if ($#OE >= 0) {
     $cnt = $#OE + 1;
     print "\nWe have $cnt orphaned packages available in extras devel:\n";
@@ -417,15 +439,17 @@
 
 sub usage {
   print STDERR "Usage: $0 [options] <bugs list>
-  where options are:
-   -help          this help note
-   -bzid <file>   list associating bz ticket number with package name
-   -extras <url>  Fedora extras SRPMS repo
+ where options are:
+  -help           this help note
+  -bzid <file>    list associating bz ticket number with package name
+  -extras <url>   Fedora extras SRPMS development repo
                   [$main::extras]
-   -core <url>    Fedora core SRPMS repo
+  -extras_r <url> Fedora extras SRPMS release repo
+                  [$main::extras_r]
+  -core <url>     Fedora core SRPMS repo
                   [$main::core]
-   -d <file>      list of discarded packages
-   -o <file>      owners.list file\n";
+  -d <file>       list of discarded packages
+  -o <file>       owners.list file\n";
   exit 1;
 }