From c7e68b63607b7d33e5f5fa59478c32d71ea79e9e Mon Sep 17 00:00:00 2001
From: Dobrica Pavlinusic <dpavlin@rsync1.maxxo.com>
Date: Wed, 16 May 2012 19:12:33 +0200
Subject: [PATCH] gearman md5_get ~u2001/foo.txt

---
 lib/CloudStore/Gearman/API.pm | 13 +++++++++++++
 1 file changed, 13 insertions(+)

diff --git a/lib/CloudStore/Gearman/API.pm b/lib/CloudStore/Gearman/API.pm
index d743b63..05b78e2 100644
--- a/lib/CloudStore/Gearman/API.pm
+++ b/lib/CloudStore/Gearman/API.pm
@@ -132,4 +132,17 @@ sub list_files : Job : Decode(chomp_work) : MaxProcesses(10) {
 	$api->list_files($login);
 }
 
+=head2 md5_get ~u2001/foo.txt
+
+=cut
+
+sub md5_get : Job : Decode(chomp_work) : MaxProcesses(10) {
+	my ( $self, $job, $work ) = @_;
+	warn "# md5_get [$work]\n";
+	my $login = $1 if $work =~ s{~(\w+)/}{};
+	my $user = $api->user_info($login);
+	my $full_path = "$user->{dir}/$work";
+	$api->md5_get($full_path);
+}
+
 1;
-- 
2.20.1