| 9 |
|
$normal = "\033[0m"; |
| 10 |
|
@allowed_commands=qw(project build install version list arch setup); |
| 11 |
|
|
| 12 |
< |
foreach $command ( @allowed_commands ) { |
| 13 |
< |
if ( $inputcmd=~/^$command\Z/i) { |
| 12 |
> |
if ( $inputcmd ne "" ) { |
| 13 |
> |
foreach $command ( @allowed_commands ) { |
| 14 |
> |
if ( $command=~/^$inputcmd/i) { |
| 15 |
|
# Deal with a help request |
| 16 |
|
do{ helpheader($command); |
| 17 |
|
&{"help_".$command}; exit; } if $ARGV[0]=~/help/i; |
| 18 |
|
&$command; $found='true'; |
| 19 |
|
last; |
| 20 |
|
} |
| 21 |
+ |
} |
| 22 |
|
} |
| 23 |
|
|
| 24 |
|
if ( ! ( $found=~/true/ ) ) { |
| 57 |
|
use File::Copy; |
| 58 |
|
use Utilities::AddDir; |
| 59 |
|
|
| 60 |
+ |
&localtop; |
| 61 |
+ |
chdir $ENV{LOCALTOP}; |
| 62 |
|
use BootStrapProject; |
| 63 |
|
# get the bootstrap files downloaded |
| 64 |
|
BootStrapProject("$project\?\?$version"); |
| 65 |
|
# Go setup the rest of the environement, now we can |
| 62 |
– |
chdir $ENV{LOCALTOP}; |
| 63 |
– |
&localtop; |
| 66 |
|
LoadEnvFile(); |
| 67 |
|
# |
| 68 |
|
# Now create the directories specified in the interface |
