6 |
6 |
7 system("rmdir /S /Q tmp") if (-d "tmp"); |
7 system("rmdir /S /Q tmp") if (-d "tmp"); |
8 mkdir("tmp"); |
8 mkdir("tmp"); |
9 chdir("tmp"); |
9 chdir("tmp"); |
10 |
10 |
11 print "\n\n### CLONE FCL/sftools/fbf/projects/packages REPO ###\n"; |
11 print "\n\n### CLONE MCL/sftools/fbf/projects/packages REPO ###\n"; |
12 system("hg clone -r HighFidelityModel http://developer.symbian.org/oss/FCL/sftools/fbf/projects/packages"); |
12 system("hg clone -r HighFidelityModel http://developer.symbian.org/oss/MCL/sftools/fbf/projects/packages"); |
13 my $changeset = `hg -R packages identify -i`; |
13 my $changeset = `hg -R packages identify -i`; |
14 chomp $changeset; |
14 chomp $changeset; |
15 print "-->$changeset<--\n"; |
15 print "-->$changeset<--\n"; |
16 my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time); |
16 my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time); |
17 my $timestamp = sprintf "%4d%02d%02d%02d%02d%02d",$year+1900,$mon+1,$mday,$hour,$min,$sec; |
17 my $timestamp = sprintf "%4d%02d%02d%02d%02d%02d",$year+1900,$mon+1,$mday,$hour,$min,$sec; |