From 48da3a2e3ee946ed944d772c3a6919a8d3cab8df Mon Sep 17 00:00:00 2001
From: Daouda Lo <daouda@mandriva.com>
Date: Thu, 15 Sep 2005 17:40:15 +0000
Subject: - satisfy ancient distros

---
 mdkonline.pm | 16 +++++++++++++++-
 1 file changed, 15 insertions(+), 1 deletion(-)

diff --git a/mdkonline.pm b/mdkonline.pm
index 836a1fcf..aa460f56 100644
--- a/mdkonline.pm
+++ b/mdkonline.pm
@@ -14,7 +14,7 @@ use HTTP::Request;
 use SOAP::Lite;
 
 #For debugging
-use Data::Dumper;
+#use Data::Dumper;
 
 my $release_file = find { -f $_ } '/etc/mandriva-release', '/etc/mandrakelinux-release', '/etc/mandrake-release', '/etc/redhat-release';
 my $uri = 'https://my.mandriva.com/soap/';
@@ -29,6 +29,20 @@ sub is_proxy () {
     return 1 if defined $ENV{http_proxy};
 }
 
+sub md5file {
+    require Digest::MD5;
+    my @md5 = map {
+        my $sum;
+        if (open(my $FILE, $_)) {
+            binmode($FILE);
+            $sum = Digest::MD5->new->addfile($FILE)->hexdigest;
+            close($FILE); 
+        }
+        $sum;
+    } @_;   
+    return wantarray() ? @md5 : $md5[0];
+}
+
 sub get_release() {
     my ($release) = cat_($release_file) =~ /release\s+(\S+)/;
     ($release)
-- 
cgit v1.2.1