diff options
| author | Kevin Koch <kpkoch@mit.edu> | 2007-03-30 20:08:53 +0000 |
|---|---|---|
| committer | Kevin Koch <kpkoch@mit.edu> | 2007-03-30 20:08:53 +0000 |
| commit | 53b462aa4829fa9e1b9f191e55c83698bc44501a (patch) | |
| tree | da82677f8ac5fbbe6bfdfc16583dcfb3cfe6d826 /src/windows/build/signFiles.pl | |
| parent | 4a1a867562bbc20ef769e3f556a69767b236433f (diff) | |
| download | krb5-53b462aa4829fa9e1b9f191e55c83698bc44501a.tar.gz krb5-53b462aa4829fa9e1b9f191e55c83698bc44501a.tar.xz krb5-53b462aa4829fa9e1b9f191e55c83698bc44501a.zip | |
Remove tabs. Improve some comments. Regroup files in copylist.pl according to destination
Add signing.
Factor zipfiles out of bkw.pl and signing out of makeZip.pl.
Rename MITKerberosForWindows.exe before zipping it into the SDK zipfile.
Target_Version: 1.6.1
Ticket: 5490
Tags: pullup
git-svn-id: svn://anonsvn.mit.edu/krb5/trunk@19344 dc483132-0cff-0310-8789-dd5450dbe970
Diffstat (limited to 'src/windows/build/signFiles.pl')
| -rw-r--r-- | src/windows/build/signFiles.pl | 27 |
1 files changed, 27 insertions, 0 deletions
diff --git a/src/windows/build/signFiles.pl b/src/windows/build/signFiles.pl new file mode 100644 index 0000000000..a94c4f2d99 --- /dev/null +++ b/src/windows/build/signFiles.pl @@ -0,0 +1,27 @@ +#!perl -w
+
+#use strict;
+use Data::Dumper;
+
+sub signFiles {
+ local ($signing, $config) = @_;
+ local $exprs = $signing->{FilePatterns}->{value};
+ local $template = $signing->{CommandTemplate}->{value};
+ # Use Unix find instead of Windows find. Save PATH so we can restore it when we're done:
+ local $savedPATH= $ENV{PATH};
+ $ENV{PATH} = $config->{CommandLine}->{Directories}->{unixfind}->{path}.";".$savedPATH;
+ foreach $expr (split(" ", $exprs)) { ## exprs is something like "*.exe *.dll"
+ local $cmd = "find . -iname \"$expr\"";
+ local $list = `$cmd`; ## $list is files matching *.exe, for example.
+ foreach $target (split("\n", $list)) {
+ $target =~ s|/|\\|g; ## Flip path separators from unix-style to windows-style.
+ local $template2 = $template;
+ $template2 =~ s/%filename%/$target/;
+ print "Info -- Signing $target\n" if ($verbose);
+ !system($template2) or die "Fatal -- Error signing $target.";
+ }
+ }
+ $ENV{PATH} = $savedPATH;
+ }
+
+return 1;
\ No newline at end of file |