Skip to content
Snippets Groups Projects
Commit 9ae25e28 authored by Jan-hinnerk Vogel's avatar Jan-hinnerk Vogel
Browse files

sub md5sum changend - check added if file exists

parent 43493b2b
No related branches found
No related tags found
No related merge requests found
......@@ -607,6 +607,14 @@ sub dbi {
sub md5sum {
my $file = shift;
unless (-e $file) {
print "\n\nOOOPS ! Can't find file $file - you have to download it again. \n\n" ;
print " SKIPPING $file\n" ;
sleep(10) ;
return ;
}
open(FILE, $file);
binmode(FILE);
my $md5 = Digest::MD5->new->addfile(*FILE)->hexdigest();
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment