equal
deleted
inserted
replaced
73 my $sLabelBaseString = $sFbfProjectRepo; |
73 my $sLabelBaseString = $sFbfProjectRepo; |
74 $sLabelBaseString = $sFbfProjectDir if ($sFbfProjectDir); |
74 $sLabelBaseString = $sFbfProjectDir if ($sFbfProjectDir); |
75 $sLabelBaseString =~ m,.*[\\/]([^\\^/]+),; |
75 $sLabelBaseString =~ m,.*[\\/]([^\\^/]+),; |
76 my $sJobLabel = $1; |
76 my $sJobLabel = $1; |
77 $sJobLabel = $sLabelBaseString if (! $1); |
77 $sJobLabel = $sLabelBaseString if (! $1); |
|
78 mkdir($sJOB_BASE_DIR) if (!-d$sJOB_BASE_DIR); |
78 my $sJobDir = mkdir_unique("$sJOB_BASE_DIR\\$sJobLabel"); |
79 my $sJobDir = mkdir_unique("$sJOB_BASE_DIR\\$sJobLabel"); |
79 print "Created project dir $sJOB_BASE_DIR\\$sJobLabel\n"; |
80 print "Created project dir $sJOB_BASE_DIR\\$sJobLabel\n"; |
80 |
81 |
81 print("cd $sBOOTSTRAP_DIR\n"); |
82 print("cd $sBOOTSTRAP_DIR\n"); |
82 chdir("$sBOOTSTRAP_DIR"); |
83 chdir("$sBOOTSTRAP_DIR"); |