# HG changeset patch
# User William Roberts <williamr@symbian.org>
# Date 1245769560 -3600
# Node ID dda0176e838b82343ad06ba6dd7a41753874730c
# Parent  319764718a57780c2c3ef9527c7d19e89ba1f548
Fix mistake in -password and -username options, tweak the (doomed) sfl repository screen scraping

diff -r 319764718a57 -r dda0176e838b clone_all_packages.pl
--- a/clone_all_packages.pl	Tue Jun 23 15:31:56 2009 +0100
+++ b/clone_all_packages.pl	Tue Jun 23 16:06:00 2009 +0100
@@ -66,8 +66,8 @@
 my $help = 0;
 
 if (!GetOptions(
-    "u|username" => \$username,
-    "p|password" => \$password,
+    "u|username=s" => \$username,
+    "p|password=s" => \$password,
     "m|mirror" => \$mirror, 
     "r|retries=i" => \$retries,
     "v|verbose" => \$verbose,
@@ -368,7 +368,7 @@
     my @oss_packages = ($res->content =~ m/<td><a href="\/(oss\/[^"]+)\/?">/g);  # umatched "
     print join ("\n\t",@oss_packages), "\n";
 
-    # Request the oss package list
+    # Request the sfl package list
     $res = $ua->request(GET "https://$username:$password\@$hostname/sfl");
   
     # Check the outcome of the response
@@ -378,6 +378,7 @@
       }
     
     my @sfl_packages = ($res->content =~ m/<td><a href="\/(sfl\/[^"]+)\/?">/g);  # umatched "
+    print join ("\n\t",@sfl_packages), "\n";
     
     @all_packages = (@sfl_packages, @oss_packages);
     }