use common::md5file

1 files changed, 2 insertions, 13 deletions

diff --git a/userdrake b/userdrake
index 6e6270c..0e4e290 100755
--- a/userdrake
+++ b/userdrake
@@ -37,7 +37,6 @@ use USER;
 use Gtk2::Gdk::Keysyms;
 use utf8;
 use log;
-use Digest::MD5;
 
 $ugtk2::wm_icon = "userdrake";
 
@@ -238,16 +237,6 @@ sub Refresh {
     RefreshGroupsFull($filt, $strfilt);
     GrayDelEdit();
 }
-sub GetFileMd5 {
-    my @md5;
-    foreach my $file (@_) {
-	open(my $FILE, $file) or do { print STDERR "Can't open '$file': $!"; push @md5, "" };
-	binmode($FILE);
-	push @md5, Digest::MD5->new->addfile($FILE)->hexdigest;
-	close($FILE);
-    }
-    return wantarray() ? @md5 : $md5[0];
-}
 sub GetFaceIcon {
     my ($user) = @_;
     my @icones = any::facesnames();
@@ -268,8 +257,8 @@ sub GetFaceIcon {
 	$us->{o}{icon}->show;
     };
     if (-e $user_icon) {
-	my $current_md5 = GetFileMd5($user_icon);
-	eval { $i = find_index { GetFileMd5(any::face2png($_)) =~ /$current_md5/ } @icones };
+	my $current_md5 = common::md5file($user_icon);
+	eval { $i = find_index { common::md5file(any::face2png($_)) =~ /$current_md5/ } @icones };
 	if (!$@) { #- current icon found in @icones, select it
 	    $current_icon = $icones[$i];
 	} else { #- add and select current icon in @icones