Changeset 3223

Timestamp:

03/20/09 18:36:16 (3 years ago)

Author:

WillNorris

Message:

Item1338: add SHA1 checksum

File:

• trunk/BuildContrib/lib/Foswiki/Contrib/Build.pm (modified) (2 diffs)

trunk/BuildContrib/lib/Foswiki/Contrib/Build.pm

@@ -1188 +1188 @@
         push( @fs, "$target$f" ) if ( -e "$target$f" );
     }
+
     eval "require Digest::MD5";
     if ($@) {
-        print STDERR "WARNING: Digest::MD5 not installed; cannot checksum\n";
+        print STDERR "WARNING: Digest::MD5 not installed; cannot generate MD5 checksum\n";
     }
     else {
@@ -1205 +1206 @@
         print "MD5 checksums in $this->{basedir}/$target.md5\n";
     }
+
+    eval "require Digest::SHA";
+    if ($@) {
+        print STDERR "WARNING: Digest::SHA not installed; cannot generate SHA1 checksum\n";
+    }
+    else {
+        open( CS, '>', "$target.sha1" ) || die $!;
+        foreach my $file (@fs) {
+            open( F, '<', $file );
+            local $/;
+            my $data = <F>;
+            close(F);
+            my $cs = Digest::SHA::sha1_hex($data);
+            print CS "$cs  $file\n";
+        }
+        close(CS);
+        print "SHA1 checksums in $this->{basedir}/$target.sha1\n";
+    }
+
     $this->popd();
     $this->popd();