display and/or create md5sum in user.md5 xattr

[cloudstore.git] / gearman / send_file.pl

diff --git a/gearman/send_file.pl b/gearman/send_file.pl
index 03ef140..a3eabd6 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,6 +21,21 @@ use Gearman::Worker;
 my $worker = Gearman::Worker->new;
 $worker->job_servers('127.0.0.1:4730');
 
+=head2 create_user
+
+=cut
+
+$worker->register_function( create_user => sub {
+       my ($job) = @_;
+
+       my $work = $job->arg;
+       chomp $work;
+       warn "# create_user [$work]\n";
+       my ( $email, $password, $quota ) = split(/\s+/,$work,3);
+       $quota ||= 200000 && warn "default quota";
+       $api->create_user( $email, $password, $quota );
+});
+
 =head2 send_file ~u2001/from.txt#~u2003/dir/new to.txt
 
 =cut