diff -r a336af707767 -r 63f0d628edff src/Tools/Cache_IO/lib/scripts/compute_hash_key --- a/src/Tools/Cache_IO/lib/scripts/compute_hash_key Tue Mar 23 19:03:05 2010 -0700 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,24 +0,0 @@ -#!/usr/bin/env perl -# -# Author: Sascha Boehme, TU Muenchen -# -# Compute MD5 hash key. - -use strict; -use warnings; -use Digest::MD5; - - -# argument - -my $file = $ARGV[0]; - - -# compute MD5 hash key - -my $md5 = Digest::MD5->new; -open FILE, "<$file" or die "ERROR: Failed to open '$file' ($!)"; -$md5->addfile(*FILE); -close FILE; -print $md5->b64digest . "\n"; -