added file_size ~u2002/baz.txt

[cloudstore.git] / gearman / send_file.pl

diff --git a/gearman/send_file.pl b/gearman/send_file.pl
index b1e57de..c1354cb 100755 (executable)
--- a/gearman/send_file.pl
+++ b/gearman/send_file.pl
@@ -75,6 +75,20 @@ $worker->register_function( delete => sub {
 
 });
 
+=head2 file_size ~u2001/foo.txt
+
+=cut
+
+$worker->register_function( file_size => sub {
+       my ($job) = @_;
+       my $work = $job->arg;
+       chomp $work;
+       warn "# file_size [$work]\n";
+
+       my $login = $1 if $work =~ s{~(\w+)}{};
+       $api->file_size( $login, $work );
+});
+
 =head2 user_usage u2001
 
 =cut