15 # Perl script to clone or update all of the Foundation MCL repositories

    15 # Perl script to clone or update all of the Foundation MCL repositories

    16 

    16 

    17 use strict;

    17 use strict;

    18 

    18 

    19 my @clone_options = (); # use ("--noupdate") to clone without extracting the source

    19 my @clone_options = (); # use ("--noupdate") to clone without extracting the source

    21 

    21 

    22 # Important: This script uses http access to the repositories, so

    22 # Important: This script uses http access to the repositories, so

    23 # the username and password will be stored as cleartext in the

    23 # the username and password will be stored as cleartext in the

    24 # .hg/hgrc file in each repository.

    24 # .hg/hgrc file in each repository.

    25 

    25 

   210       }

   210       }

   211     }

   211     }

   212   

   212   

   213   $path .= "/$destdir";   # this is where the repository will go

   213   $path .= "/$destdir";   # this is where the repository will go

   214 

   214 

   216   if ($license ne "sfl")

   216   if ($license ne "sfl")

   217     {

   217     {

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

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

   219     $repo_url = "http://developer.symbian.org/$package/";

   219     $repo_url = "http://developer.symbian.org/$package/";

   220     }

   220     }