$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;