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