our $vverbose = $config->{CommandLine}->{Options}->{vverbose}->{value};\r
our $clean = $switches[0]->{clean}->{value};\r
local $src = $paths[0]->{src}->{path};\r
- local $toPath = $paths[0]->{out}->{path};\r
+ local $out = $paths[0]->{out}->{path};\r
\r
if ($clean && !$switches[0]->{nopackage}->{value}) {\r
print "Info -- /clean forces /nopackage.\n";\r
my $prunes = $config->{Stages}->{Make}->{Prunes};\r
my $j=0;\r
print "Info -- Processing prunes in ".`cd`."\n" if ($verbose);\r
+print Dumper($prunes);\r
while ($prunes->{Prune}->[$j]) {\r
if (exists $prunes->{Prune}->[$j]->{name}) { ## Don't process dummy entry!\r
my $prune = $prunes->{Prune}->[$j]->{name};\r
\r
# Begin packaging extra items:\r
chdir($src); # Now in <src>.\r
- print "Info -- chdir to ".`cd`."\n" if ($verbose);\r
- system("rm -rf $toPath") if (-d $toPath);\r
- die "Fatal -- Couldn't remove $src\\$toPath." if (-d $toPath);\r
- mkdir($toPath);\r
+ print "Info -- chdir to ".`cd`."\n" if ($verbose);\r
+ system("rm -rf $out") if (-d $out);\r
+ die "Fatal -- Couldn't remove $out." if (-d $out);\r
+ mkdir($out);\r
my $zipsXML = $config->{Stages}->{PostPackage}->{Zips};\r
\r
local $i = 0;\r
$i++; \r
} ## End zip in xml.\r
\r
- $ziptemp = "$src\\$toPath\\ziptemp"; ## Clean up any temp directory.\r
- chdir("$src\\$toPath");\r
+ $ziptemp = "$out\\ziptemp"; ## Clean up any temp directory.\r
+ chdir("$out");\r
print "Info -- chdir to ".`cd`."\n" if ($verbose);\r
system("rm -rf $ziptemp") if (-d $ziptemp);\r
\r
- my $out = $config->{CommandLine}->{Directories}->{out}->{path};\r
$config->{Stages}->{PostPackage}->{CopyList}->{Config} = $config->{Stages}->{PostPackage}->{Config}; ## Use the post package config.\r
$config->{Stages}->{PostPackage}->{CopyList}->{Config}->{From}->{root} = "$src\\pismere";\r
- $config->{Stages}->{PostPackage}->{CopyList}->{Config}->{To}->{root} = "$src\\$out";\r
+ $config->{Stages}->{PostPackage}->{CopyList}->{Config}->{To}->{root} = "$out";\r
copyFiles($config->{Stages}->{PostPackage}->{CopyList}, $config); ## Copy any files\r
\r
+ print "Info -- chdir to ".`cd`."\n" if ($verbose);\r
if ($switches[0]->{sign}->{value}) {\r
signFiles($config->{Stages}->{PostPackage}->{Config}->{Signing}, $config);\r
}\r
##-- Package action.\r
\r
system("rm -rf $src/a.tmp"); ## Clean up junk.\r
- system("rm -rf $src/$toPath/ziptemp"); ## Clean up junk.\r
+ system("rm -rf $out/a.tmp"); ## Clean up junk.\r
+ system("rm -rf $out/ziptemp"); ## Clean up junk.\r
\r
# End logging:\r
if ($switches[0]->{logfile}->{value}) {$l->stop;}\r
local ($zip, $config) = @_;\r
\r
local $src = $config->{CommandLine}->{Directories}->{src}->{path};\r
- local $toPath = $config->{CommandLine}->{Directories}->{out}->{path};\r
+ local $out = $config->{CommandLine}->{Directories}->{out}->{path};\r
local @switches = $config->{CommandLine}->{Options};\r
local $zipname = $zip->{filename};\r
local $filestem = $config->{Stages}->{PostPackage}->{Config}->{FileStem}->{name};\r
}\r
}\r
\r
- local $ziptemp = "$src\\$toPath\\ziptemp";\r
- chdir "$src\\$toPath";\r
+ local $ziptemp = "$out\\ziptemp";\r
+ chdir "$out";\r
print "Info -- chdir to ".`cd`."\n" if ($verbose);\r
system("rm -rf $ziptemp") if (-d $ziptemp);\r
die "Fatal -- Couldn't remove $ziptemp" if (-d $ziptemp);\r
$zipfile->addTree('.', $topdir);\r
if (-e $zipname) {!system("rm -f $zipname") or die "Error -- Couldn't remove $zipname.";}\r
$zipfile->writeToFileNamed($zipname);\r
- print "Info -- created $src\\$toPath\\$zipname.\n" if ($verbose);\r
- # move .zip from <src>/<out>/ziptemp to <src>/<out>.\r
+ print "Info -- created $out\\$zipname.\n" if ($verbose);\r
+ # move .zip from <out>/ziptemp to <out>.\r
!system("mv -f $zipname ..") or die "Error -- Couldn't move $zipname to ..";\r
}\r
\r