55 -n             do nothing - don't actually execute the commands

    55 -n             do nothing - don't actually execute the commands

    56 -help          print this help information

    56 -help          print this help information

    57 -exec          execute command on each repository

    57 -exec          execute command on each repository

    58 -filter <RE>   only process repository paths matching regular expression <RE>

    58 -filter <RE>   only process repository paths matching regular expression <RE>

    59 -dummyrun      Dummy Run, don't execute any Mercurial commands.

    59 -dummyrun      Dummy Run, don't execute any Mercurial commands.

    60 

    61 

    61 The -exec option processes the rest of the command line, treating it as

    62 The -exec option processes the rest of the command line, treating it as

    62 a command to apply to each repository in turn. Some keywords are expanded

    63 a command to apply to each repository in turn. Some keywords are expanded

    63 to repository-specific values, and "hg" is always expanded to "hg -R %REPO%"

    64 to repository-specific values, and "hg" is always expanded to "hg -R %REPO%"

    64 

    65 

   105     "h|help" => \$help,

   106     "h|help" => \$help,

   106     "e|exec" => \$exec,

   107     "e|exec" => \$exec,

   107     "f|filter=s" => \$filter,

   108     "f|filter=s" => \$filter,

   108     "l|packagelist=s" => \@packagelist_files,

   109     "l|packagelist=s" => \@packagelist_files,

   109     "d|dummyrun" => \$do_nothing,

   110     "d|dummyrun" => \$do_nothing,

   110     ))

   112     ))

   111   {

   113   {

   112   Usage("Invalid argument");

   114   Usage("Invalid argument");

   113   }

   115   }

   114   

   116   

   201   my $repo_url = "https://$username:$password\@$hostname/$package/";

   203   my $repo_url = "https://$username:$password\@$hostname/$package/";

   202   my $repo_push_url =$repo_url;

   204   my $repo_push_url =$repo_url;

   203   if ($license ne "sfl" && !$export_control_special_case{$package})

   205   if ($license ne "sfl" && !$export_control_special_case{$package})

   204     {

   206     {

   205     # user registration is not required for reading public package repositories

   207     # user registration is not required for reading public package repositories

   207     }

   209     }

   208   

   210   

   209   my @rev_options = ();

   211   my @rev_options = ();

   210   my $revision = $revisions{$package};

   212   my $revision = $revisions{$package};

   211   if (defined($revision))

   213   if (defined($revision))