gearman md5_get ~u2001/foo.txt

diff --git a/lib/CloudStore/Gearman/API.pm b/lib/CloudStore/Gearman/API.pm
index d743b63..05b78e2 100644 (file)
--- 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;