From 52e31cfd4fc85003f78b4e0dbb5a3bf4569092e4 Mon Sep 17 00:00:00 2001
From: martinahansen <martinahansen@74ccb610-7750-0410-82ae-013aeee3265d>
Date: Fri, 4 Dec 2009 14:52:34 +0000
Subject: [PATCH 1/1] added file_md5 routine to Filesys.pm

git-svn-id: http://biopieces.googlecode.com/svn/trunk@795 74ccb610-7750-0410-82ae-013aeee3265d
---
 code_perl/Maasha/Filesys.pm | 26 ++++++++++++++++++++++++++
 code_perl/Maasha/KISS.pm    |  2 +-
 2 files changed, 27 insertions(+), 1 deletion(-)

diff --git a/code_perl/Maasha/Filesys.pm b/code_perl/Maasha/Filesys.pm
index 7b959c9..0f5f93d 100644
--- a/code_perl/Maasha/Filesys.pm
+++ b/code_perl/Maasha/Filesys.pm
@@ -35,6 +35,7 @@ use IO::File;
 use Storable;
 use Data::Dumper;
 use Maasha::Common;
+use Digest::MD5;
 
 use Exporter;
 
@@ -309,6 +310,31 @@ sub file_size
 }
 
 
+sub file_md5
+{
+    # Martin A. Hansen, December 2009.
+
+    # Get an MD5 sum for a given file.
+
+    my ( $file,   # file path
+       ) = @_;
+
+    # Returns a string.
+
+    my ( $fh, $md5 );
+
+    $fh = file_read_open( $file );
+
+    $md5 = Digest::MD5->new;
+
+    $md5->addfile( $fh );
+
+    close $fh;
+
+    return $md5->hexdigest;
+}
+
+
 # >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DIRECTORIES <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
 
 
diff --git a/code_perl/Maasha/KISS.pm b/code_perl/Maasha/KISS.pm
index a75ca57..a2b3f15 100644
--- a/code_perl/Maasha/KISS.pm
+++ b/code_perl/Maasha/KISS.pm
@@ -301,7 +301,7 @@ sub kiss_index_offset
         }
     }
 
-    # Maasha::Common::error( "No offset" ) if not defined $offset;
+    # Maasha::Common::error( "No offset" ) if not defined $offset;   # FIXME
 
     return $offset;
 }
-- 
2.39.2