document API

diff --git a/gearman/send_file.pl b/gearman/send_file.pl
index 9fbd698..b1e57de 100755 (executable)
--- a/gearman/send_file.pl
+++ b/gearman/send_file.pl
@@ -2,6 +2,13 @@
 use warnings;
 use strict;
 
+=head1 NAME
+
+Filesystem Gearman Worker
+
+=cut
+
+
 use Data::Dump qw(dump);
 
 use lib '/srv/cloudstore/lib';
@@ -16,6 +23,10 @@ $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
+
 $worker->register_function( send_file => sub {
        my ($job) = @_;
 
@@ -33,6 +44,10 @@ $worker->register_function( send_file => sub {
        $api->send_file( $f_uid => $from, $t_uid => $to );
 });
 
+=head2 rename_file ~u2001/old.txt#new.txt
+
+=cut
+
 $worker->register_function( rename_file => sub {
        my ($job) = @_;
 
@@ -45,6 +60,10 @@ $worker->register_function( rename_file => sub {
        $api->rename_file( $login, $from, $to );
 });
 
+=head2 delete ~u2001/file_or_dir
+
+=cut
+
 $worker->register_function( delete => sub {
        my ($job) = @_;
        my $work = $job->arg;
@@ -56,6 +75,10 @@ $worker->register_function( delete => sub {
 
 });
 
+=head2 user_usage u2001
+
+=cut
+
 $worker->register_function( user_usage => sub {
        my ($job) = @_;
        my $work = $job->arg;