/clean Build clean target.\r
/nopackage Skip packaging step.\r
/verbose /v Debug mode - verbose output.\r
- /logfile /l path Where to write output. If omitted, ...\r
+ /logfile /l path Where to write output. Default is bkw.pl.log\r
+ /nolog Don't save output\r
Other:\r
NMAKE-options any options you want to pass to NMAKE, which can be:\r
(note: /nologo is always used)\r
'debug|d',\r
'config|f:s',\r
'logfile|l:s',\r
+ 'nolog',\r
'repository:s',\r
'username|u:s',\r
'verbose|v',\r
$switches[0]->{logfile}->{path} = $OPT->{logfile};\r
$switches[0]->{logfile}->{value} = 1;\r
}\r
+ if (exists $OPT->{nolog}) {\r
+ $switches[0]->{logfile}->{value} = 0;\r
+ }\r
our $verbose = $config->{CommandLine}->{Options}->{verbose}->{value};\r
our $vverbose = $config->{CommandLine}->{Options}->{vverbose}->{value};\r
our $clean = $switches[0]->{clean}->{value};\r
}\r
}\r
\r
- if ($rverb =~ /checkout/) {\r
+ if ( ($rverb =~ /checkout/) && (-d $wd) ){\r
print "\n\nHEADS UP!!\n\n";\r
print "/REPOSITORY CHECKOUT will cause everything under $wd to be deleted.\n";\r
print "If this is not what you intended, here's your chance to bail out!\n\n\n";\r
if ($rverb =~ /skip/) {print "Info -- *** Skipping repository access.\n" if ($verbose);}\r
else {\r
if ($verbose) {print "Info -- *** Begin fetching sources.\n";}\r
-\r
+ if (! -d $wd) { ## xcopy will create the entire path for us.\r
+ !system("echo foo > a.tmp") or die "Fatal -- Couldn't create temporary file in ".`cd`;\r
+ !system("echo F | xcopy a.tmp $wd\\CVS\\a.tmp") or die "Fatal -- Couldn't xcopy to $wd.";\r
+ !system("rm a.tmp") or die "Fatal -- Couldn't remove temporary file.";\r
+ !system("rm $wd\\CVS\\a.tmp") or die "Fatal -- Couldn't remove temporary file.";\r
+ }\r
+ \r
# Set up cvs environment variables:\r
$ENV{CVSROOT} = $fetch[0]->{CVSROOT}->{name};\r
chdir($src) or die "Fatal -- couldn't chdir to $src\n";\r
\r
chdir("pismere/athena") or die "Fatal -- couldn't chdir to source directory $wd\\pismere\\athena\n";\r
if ($verbose) {print "Info -- chdir to $wd\\pismere\\athena\n";}\r
- !system("perl ../scripts/build.pl --softdirs $buildtarget") or die "Fatal -- build $buildtarget failed.";\r
+ local $log = ($switches[0]->{logfile}->{value}) ? " " : " --nolog ";\r
+ !system("perl ../scripts/build.pl --softdirs --nolog $buildtarget") or die "Fatal -- build $buildtarget failed.";\r
\r
chdir("$wd\\pismere") or die "Fatal -- couldn't chdir to $wd\\pismere.";\r
if ($clean) {\r