status-report-scripts parseBZbugList,1.55,1.56

[Christian Iseli (c4chris)]

Author: c4chris

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

Modified Files:
	parseBZbugList 
Log Message:
Username/password are required to get members list.


Index: parseBZbugList
===================================================================
RCS file: /cvs/fedora/status-report-scripts/parseBZbugList,v
retrieving revision 1.55
retrieving revision 1.56
diff -u -r1.55 -r1.56
--- parseBZbugList	30 Oct 2006 09:36:30 -0000	1.55
+++ parseBZbugList	2 Nov 2006 16:31:17 -0000	1.56
@@ -50,7 +50,7 @@
 
 my %opt;
 my @options = ( "help", "repourl=s", "o=s", "d=s", "cvs=s",
-		"comps=s", "currel=i", "firstrel=i" );
+		"comps=s", "currel=i", "firstrel=i", "u=s", "p=s" );
 
 $main::repourl = "http://mirrors.kernel.org/fedora";
 $main::members
@@ -58,6 +58,8 @@
 $main::cvsDir = "/export/scratch/extras";
 $main::currel = 6;
 $main::firstrel = 1;
+$main::username = "c4chris";
+$main::password = "";
 
 if( ! GetOptions( \%opt, @options ) ) { &usage(); }
 
@@ -67,6 +69,8 @@
 $main::compsDir = $opt{"comps"} if defined $opt{"comps"};
 $main::currel = $opt{"currel"} if defined $opt{"currel"};
 $main::firstrel = $opt{"firstrel"} if defined $opt{"firstrel"};
+$main::username = $opt{"u"} if defined $opt{"u"};
+$main::password = $opt{"p"} if defined $opt{"p"};
 
 &usage() if defined $opt{'help'};
 
@@ -122,9 +126,9 @@
   "php-pecl-sqlite" => 1,
   "wxPythonGTK2" => 1
 );
-if ($main::members ne "") {
+if ($main::members ne "" && $main::password ne "") {
   local *IN;
-  open IN, "wget -nv -O - --no-check-certificate \"$main::members\"|"
+  open IN, "wget --user=$main::username --password=$main::password -nv -O - --no-check-certificate \"$main::members\"|"
     or die "Failed to wget members list : $!";
   while ( <IN> ) {
     s/\s+$//;
@@ -978,8 +982,10 @@
   -cvs <dir>      extras CVS directory [$main::cvsDir]
   -firstrel <int> first Fedora release number [$main::firstrel]
   -o <file>       owners.list file
+  -p <str>        password (to retrieve members list)
   -repourl <url>  Fedora core and extras SRPMS development repo base
-                  [$main::repourl]\n";
+                  [$main::repourl]
+  -u <str>        username (to retrieve members list) [$main::username]\n";
   exit 1;
 }