test file_size with send to different shard

[cloudstore.git] / gearman / send_file.pl

diff --git a/gearman/send_file.pl b/gearman/send_file.pl
index b1e57de..4c5820f 100755 (executable)
--- a/gearman/send_file.pl
+++ b/gearman/send_file.pl
@@ -13,6 +13,7 @@ use Data::Dump qw(dump);
 
 use lib '/srv/cloudstore/lib';
 use CloudStore::API;
+use WarnColor;
 
 my $api = CloudStore::API->new('s1');
 
@@ -20,9 +21,6 @@ use Gearman::Worker;
 my $worker = Gearman::Worker->new;
 $worker->job_servers('127.0.0.1:4730');
 
-open(my $log, '>>', '/rsync1/s1/log/send_file.log');
-select($log); $|++;
-
 =head2 send_file ~u2001/from.txt#~u2003/dir/new to.txt
 
 =cut
@@ -75,6 +73,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
@@ -90,11 +102,5 @@ $worker->register_function( user_usage => sub {
 
 warn "$0 pid $$ waitng for jobs\n";
 
-if ( $ENV{SLICE} ) {
-       chroot $ENV{SLICE} || die "can't chroot $ENV{SLICE}: $!";
-} else {
-       warn "WARNING: not running under chroot SLICE=/hostname/sx\n";
-}
-
 $worker->work while 1;