'job' => "FS::part_export::textradius::textradius_$method",
};
$queue->insert(
- $self->option('user'),
+ $self->option('user')||'root',
$self->machine,
$self->option('users'),
@_,
#silly arg processing
my($att, @check);
- push @check, $att while ($att=shift @attributes) ne '-';
+ push @check, $att while @attributes && ($att=shift @attributes) ne '-';
my %check = @check;
my %reply = @attributes;
$rsync->exec( {
src => "$user\@$host:$users",
dest => $dest,
- } );
+ } ); # true/false return value from exec is not working, alas
+ if ( $rsync->err ) {
+ die "error downloading $user\@$host:$users : ".
+ 'exit status: '. $rsync->status. ', '.
+ 'STDERR: '. join(" / ", $rsync->err). ', '.
+ 'STDOUT: '. join(" / ", $rsync->out);
+ }
$dest;
}
$rsync->exec( {
src => "$dir/users",
dest => "$user\@$host:$users",
- } );
+ } ); # true/false return value from exec is not working, alas
+ if ( $rsync->err ) {
+ die "error uploading to $user\@$host:$users : ".
+ 'exit status: '. $rsync->status. ', '.
+ 'STDERR: '. join(" / ", $rsync->err). ', '.
+ 'STDOUT: '. join(" / ", $rsync->out);
+ }
flock(LOCK,LOCK_UN);
close LOCK;