summaryrefslogtreecommitdiffstats
path: root/src/windows/build/makeZip.pl
diff options
context:
space:
mode:
authorKen Raeburn <raeburn@mit.edu>2007-09-24 22:05:56 +0000
committerKen Raeburn <raeburn@mit.edu>2007-09-24 22:05:56 +0000
commit5386b775b2fbce68cbc846f7dac3ef495e72457a (patch)
tree34e1350d51f8265d21fc69f47e293ea1dec1b8c1 /src/windows/build/makeZip.pl
parentecdd7622b03b8e3ffa1dce68e081fca9e9b0aa70 (diff)
downloadkrb5-5386b775b2fbce68cbc846f7dac3ef495e72457a.tar.gz
krb5-5386b775b2fbce68cbc846f7dac3ef495e72457a.tar.xz
krb5-5386b775b2fbce68cbc846f7dac3ef495e72457a.zip
Set svn:eol-style on a bunch of text-looking files that didn't have it
git-svn-id: svn://anonsvn.mit.edu/krb5/trunk@19972 dc483132-0cff-0310-8789-dd5450dbe970
Diffstat (limited to 'src/windows/build/makeZip.pl')
-rw-r--r--src/windows/build/makeZip.pl166
1 files changed, 83 insertions, 83 deletions
diff --git a/src/windows/build/makeZip.pl b/src/windows/build/makeZip.pl
index 1a1b533c33..30f0cf14b3 100644
--- a/src/windows/build/makeZip.pl
+++ b/src/windows/build/makeZip.pl
@@ -1,84 +1,84 @@
-#!perl -w
-
-#use strict;
-
-require "prunefiles.pl";
-
-use Data::Dumper;
-
-sub makeZip {
- local ($zip, $config) = @_;
-
- local $odr = $config->{Config}; ## Options, directories, repository, environment.
- local $src = $odr->{src}->{value};
- local $out = $odr->{out}->{value};
- local $zipname = $zip->{filename};
- local $filestem = $config->{Stages}->{PostPackage}->{Config}->{FileStem}->{name};
- $zipname =~ s/%filestem%/$filestem/g;
- if (exists $zip->{Requires}) {
- local $bMakeIt = 1;
- local $rverb = $odr->{repository}->{value};
- local $j = 0;
- while ($zip->{Requires}->{Switch}[$j]) { ## Check Require switches
- local $switch = $zip->{Requires}->{Switch}[$j];
- if (exists $switch->{name}) { ## Ignore dummy entry
- # We handle REPOSITORY and CLEAN switches:
- if ($switch->{name} =~ /REPOSITORY/i) {
- $bMakeIt &&= ($switch->{value} =~ /$rverb/i); ## Repository verb must match requirement
- }
- elsif ($switch->{name} =~ /CLEAN/i) { ## Clean must be specified
- $bMakeIt &&= $clean;
- }
- else {print "Error -- Unsupported switch $switch->{name} in Requires in ".Dumper($zip);
- $bMakeIt = 0;
- }
- }
- $j++;
- }
- if ( !$bMakeIt ) {
- if (exists $zip->{Requires}->{ErrorMsg}) {
- print "Error -- $zip->{Requires}->{ErrorMsg}->{text}\n";
- }
- else {
- print "Error -- requirements not met for building $zipname.\n";
- }
- return 0;
- }
- }
-
- local $ziptemp = "$out\\ziptemp";
- chdir "$out";
- print "Info -- chdir to ".`cd`."\n" if ($verbose);
- system("rm -rf $ziptemp") if (-d $ziptemp);
- die "Fatal -- Couldn't remove $ziptemp" if (-d $ziptemp);
- mkdir($ziptemp);
- # Set up the zip's config section:
- $zip->{Config} = $config->{Stages}->{PostPackage}->{Config};
- # Add to the copylist's config section. Don't copy Postpackage->Config,
- # because the CopyList's Config might contain substitution tags.
- $zip->{CopyList}->{Config}->{FileStem}->{name} = $config->{Stages}->{PostPackage}->{Config}->{FileStem}->{name};
- $zip->{CopyList}->{Config}->{From}->{root} = "$src\\pismere"; ## Add zip-specific config settings.
- $zip->{CopyList}->{Config}->{To}->{root} = $ziptemp;
- copyFiles($zip->{CopyList}, $config);
- # Drop down into <out>/ziptemp so the path to the added file won't include <out>:
- chdir $ziptemp;
- print "Info -- chdir to ".`cd`."\n" if ($verbose);
-
- # Prune any unwanted files or directories from the directory we're about to zip:
- pruneFiles($zip, $config);
-
- local $zipfile = Archive::Zip->new();
- local $topdir = $zip->{topdir};
- $topdir =~ s/%filestem%/$filestem/g;
- $zipfile->addTree('.', $topdir);
- if (-e $zipname) {!system("rm -f $zipname") or die "Error -- Couldn't remove $zipname.";}
- $zipfile->writeToFileNamed($zipname);
- chdir("$out");
- print "Info -- chdir to ".`cd`."\n" if ($verbose);
- # move .zip from <out>/ziptemp to <out>.
- !system("mv -f ziptemp/$zipname .") or die "Error -- Couldn't move $zipname to ..";
- system("rm -rf ziptemp") if (-d "ziptemp"); ## Clean up any temp directory.
- print "Info -- created $out\\$zipname.\n" if ($verbose);
- }
-
+#!perl -w
+
+#use strict;
+
+require "prunefiles.pl";
+
+use Data::Dumper;
+
+sub makeZip {
+ local ($zip, $config) = @_;
+
+ local $odr = $config->{Config}; ## Options, directories, repository, environment.
+ local $src = $odr->{src}->{value};
+ local $out = $odr->{out}->{value};
+ local $zipname = $zip->{filename};
+ local $filestem = $config->{Stages}->{PostPackage}->{Config}->{FileStem}->{name};
+ $zipname =~ s/%filestem%/$filestem/g;
+ if (exists $zip->{Requires}) {
+ local $bMakeIt = 1;
+ local $rverb = $odr->{repository}->{value};
+ local $j = 0;
+ while ($zip->{Requires}->{Switch}[$j]) { ## Check Require switches
+ local $switch = $zip->{Requires}->{Switch}[$j];
+ if (exists $switch->{name}) { ## Ignore dummy entry
+ # We handle REPOSITORY and CLEAN switches:
+ if ($switch->{name} =~ /REPOSITORY/i) {
+ $bMakeIt &&= ($switch->{value} =~ /$rverb/i); ## Repository verb must match requirement
+ }
+ elsif ($switch->{name} =~ /CLEAN/i) { ## Clean must be specified
+ $bMakeIt &&= $clean;
+ }
+ else {print "Error -- Unsupported switch $switch->{name} in Requires in ".Dumper($zip);
+ $bMakeIt = 0;
+ }
+ }
+ $j++;
+ }
+ if ( !$bMakeIt ) {
+ if (exists $zip->{Requires}->{ErrorMsg}) {
+ print "Error -- $zip->{Requires}->{ErrorMsg}->{text}\n";
+ }
+ else {
+ print "Error -- requirements not met for building $zipname.\n";
+ }
+ return 0;
+ }
+ }
+
+ local $ziptemp = "$out\\ziptemp";
+ chdir "$out";
+ print "Info -- chdir to ".`cd`."\n" if ($verbose);
+ system("rm -rf $ziptemp") if (-d $ziptemp);
+ die "Fatal -- Couldn't remove $ziptemp" if (-d $ziptemp);
+ mkdir($ziptemp);
+ # Set up the zip's config section:
+ $zip->{Config} = $config->{Stages}->{PostPackage}->{Config};
+ # Add to the copylist's config section. Don't copy Postpackage->Config,
+ # because the CopyList's Config might contain substitution tags.
+ $zip->{CopyList}->{Config}->{FileStem}->{name} = $config->{Stages}->{PostPackage}->{Config}->{FileStem}->{name};
+ $zip->{CopyList}->{Config}->{From}->{root} = "$src\\pismere"; ## Add zip-specific config settings.
+ $zip->{CopyList}->{Config}->{To}->{root} = $ziptemp;
+ copyFiles($zip->{CopyList}, $config);
+ # Drop down into <out>/ziptemp so the path to the added file won't include <out>:
+ chdir $ziptemp;
+ print "Info -- chdir to ".`cd`."\n" if ($verbose);
+
+ # Prune any unwanted files or directories from the directory we're about to zip:
+ pruneFiles($zip, $config);
+
+ local $zipfile = Archive::Zip->new();
+ local $topdir = $zip->{topdir};
+ $topdir =~ s/%filestem%/$filestem/g;
+ $zipfile->addTree('.', $topdir);
+ if (-e $zipname) {!system("rm -f $zipname") or die "Error -- Couldn't remove $zipname.";}
+ $zipfile->writeToFileNamed($zipname);
+ chdir("$out");
+ print "Info -- chdir to ".`cd`."\n" if ($verbose);
+ # move .zip from <out>/ziptemp to <out>.
+ !system("mv -f ziptemp/$zipname .") or die "Error -- Couldn't move $zipname to ..";
+ system("rm -rf ziptemp") if (-d "ziptemp"); ## Clean up any temp directory.
+ print "Info -- created $out\\$zipname.\n" if ($verbose);
+ }
+
return 1; \ No newline at end of file