</Files>\r
</CopyList>\r
<Prunes> <!-- Files to be removed from current build to match what is in the 3.1 distribution: -->\r
- <Prune dummy="foo" />\r
<Prune name="CVS" />\r
<Prune name=".cvsignore" flags="i" />\r
<Prune name="Changelog" flags="i" />\r
-<!-- <Prune name="site" /> -->\r
</Prunes>\r
<Requires>\r
<Switch dummy="foo" />\r
<Include path="sdkfiles.xml" /> <!-- Included file is relative to location of bkw.pl. -->\r
</Files>\r
</CopyList>\r
- <Prunes> \r
- <Prune dummy="foo" />\r
- <Prune name="*.exe" />\r
- <Prune name="*.msi" />\r
- <Prune name="*.dll" />\r
- <Prune name="*.obj" />\r
- <Prune name="*.wixobj" />\r
- <Prune name="custom.lib" />\r
- <Prune name="custom.exp" />\r
- </Prunes>\r
</Zip>\r
</Zips> \r
<CopyList> <!-- Copied at end of post-package step. -->\r
'pismere/athena/util/lib/getopt', \r
'pismere/athena/util/guiwrap'\r
);\r
- local $logging = $odr->{logfile}->{def} ? ">> $odr->{logfile}->{value} 2>&1" : " ";\r
foreach my $module (@cvsmodules) {\r
local $cvscmd = $cvscmdroot." ".$module;\r
if ($verbose) {print "Info -- cvs command: $cvscmd\n";}\r
#!perl -w\r
\r
#use strict;\r
-require "makeZip.pl";\r
+use Data::Dumper;\r
\r
sub pruneFiles {\r
local ($xml, $config) = @_;\r
- local $prunes = $xml->{Prunes};\r
+ local $prunes = $xml->{Prunes};\r
if (! $prunes) {return 0;}\r
- \r
+\r
# Use Unix find instead of Windows find. Save PATH so we can restore it when we're done:\r
local $savedPATH = $ENV{PATH};\r
$ENV{PATH} = $config->{Config}->{unixfind}->{value}.";".$savedPATH;\r
- local $j=0;\r
print "Info -- Processing prunes in ".`cd`."\n" if ($verbose);\r
- while ($prunes->{Prune}->[$j]) {\r
- if (exists $prunes->{Prune}->[$j]->{name}) { ## Don't process dummy entry!\r
- local $prune = $prunes->{Prune}->[$j]->{name};\r
- local $flags = $prunes->{Prune}->[$j]->{flags};\r
- $flags = "" if (!$flags);\r
- local $cmd = "find . -".$flags."name $prune";\r
- print "Info -- Looking for filenames containing $prune\n";\r
- local $list = `$cmd`;\r
- foreach $target (split("\n", $list)) {\r
- print "Info -- Pruning $target\n" if ($verbose);\r
- ! system("rm -rf $target") or die "Unable to prune $target";\r
- }\r
- }\r
- $j++;\r
+ local $pru = $prunes->{Prune};\r
+ local $files = "( ";\r
+ local $bFirst = 1;\r
+ while (($key, $val) = each %$pru) {\r
+ local $flags = $val->{flags};\r
+ $flags = "" if (!$flags);\r
+ if (!$bFirst) {$files .= " -or ";}\r
+ $bFirst = 0;\r
+ $files .= "-".$flags."name $key";\r
+ print "Info -- Looking for filenames matching $key\n" if ($verbose);\r
+ }\r
+ $files .= " )";\r
+ local $list = `find . $files`;\r
+ if (length($list) > 1) {\r
+ print "Info -- Pruning $list\n" if ($verbose);\r
+ ! system("rm -rf $list") or die "Unable to prune $list";\r
}\r
+\r
$ENV{PATH} = $savedPATH;\r
}\r
\r
\r
<File name="relnotes.html" from="doc\kerberos" to="doc" />\r
<File name="kclient.rtf" from="athena\auth\krb4\kclient\doc" to="doc" />\r
- <File name="msi-deployment-guide.txt" from="athena\auth\krb5\src\windows\installer\wix\" to="\doc" />\r
+ <File name="msi-deployment-guide.txt" from="athena\auth\krb5\src\windows\installer\wix\" to="\doc" />\r
\r
<File name="*.*" from="staging\inc" to="inc" />\r
<!-- loadfuncs.c is deliberately here. Otherwise, *.h would work. -->\r