[pcgen-commit-svn] SF.net SVN: pcgen: [1716] Trunk/pcgen/installers/win-installer/gendigest.pl

[<jde...@us...>]

Revision: 1716
          http://svn.sourceforge.net/pcgen/?rev=1716&view=rev
Author:   jdempsey
Date:     2006-11-28 01:29:36 -0800 (Tue, 28 Nov 2006)

Log Message:
-----------
New perl script to generate SHA1 digests of the release files.

Added Paths:
-----------
    Trunk/pcgen/installers/win-installer/gendigest.pl

Added: Trunk/pcgen/installers/win-installer/gendigest.pl
===================================================================
--- Trunk/pcgen/installers/win-installer/gendigest.pl	                        (rev 0)
+++ Trunk/pcgen/installers/win-installer/gendigest.pl	2006-11-28 09:29:36 UTC (rev 1716)
@@ -0,0 +1,44 @@
+#!/usr/bin/perl
+
+# gendigest.pl
+# ============
+#
+# This script generates SHA1 digests (checksums) for the release files.
+# The checksums are placed in a SHA1-digests.txt file in the release folder
+#
+# args: DEST_FOLDER - Optionally override the default release folder name.
+#
+# $Id$
+
+
+use strict;
+use warnings;
+use Readonly;
+use English;
+
+use Digest::SHA1;
+
+# Define the release folder and allow it to be overriden
+my $DEST_FOLDER   = 'E:/Projects/release';
+if ($#ARGV >= 0) {
+	$DEST_FOLDER = $ARGV[0];
+}
+
+my @files_found = <$DEST_FOLDER/*>;
+my $file;
+my $outputFileName = $DEST_FOLDER . "/SHA1-digests.txt";
+open (OUTPUT, ">$outputFileName") or die "Can't open '$outputFileName': $!";
+
+# Loop through the files in the releas folder, only working on the release files.
+foreach(@files_found) {
+	next unless /\.(zip|exe|jar|dmg)$/;
+	$file = $_;
+	my $name = $file;
+	$name =~ s/^.*\///;
+	open(FILE, $file) or die "Can't open '$file': $!";
+	binmode(FILE);
+	print OUTPUT "SHA1 digest for $name:\n";
+	print OUTPUT Digest::SHA1->new->addfile(*FILE)->hexdigest, " \n\n";
+	close FILE;
+}
+close OUTPUT;
\ No newline at end of file


Property changes on: Trunk/pcgen/installers/win-installer/gendigest.pl
___________________________________________________________________
Name: svn:keywords
   + Author Revision Date Id
Name: svn:eol-style
   + native


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.