projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
better diagnostics
[freeside.git]
/
FS
/
FS
/
part_export
/
textradius.pm
diff --git
a/FS/FS/part_export/textradius.pm
b/FS/FS/part_export/textradius.pm
index
de0158b
..
450a0e5
100644
(file)
--- a/
FS/FS/part_export/textradius.pm
+++ b/
FS/FS/part_export/textradius.pm
@@
-43,7
+43,7
@@
sub textradius_queue {
'job' => "FS::part_export::textradius::textradius_$method",
};
$queue->insert(
'job' => "FS::part_export::textradius::textradius_$method",
};
$queue->insert(
- $self->option('user'),
+ $self->option('user')
||'root'
,
$self->machine,
$self->option('users'),
@_,
$self->machine,
$self->option('users'),
@_,
@@
-126,7
+126,10
@@
sub textradius_download {
$rsync->exec( {
src => "$user\@$host:$users",
dest => $dest,
$rsync->exec( {
src => "$user\@$host:$users",
dest => $dest,
- } );
+ } ) or die "error downloading $user\@$host:$users : ".
+ 'exit status: '. $rsync->status. ', '.
+ 'STDERR: '. join(" / ", $rsync->err). ', '.
+ 'STDOUT: '. join(" / ", $rsync->out);
$dest;
}
$dest;
}
@@
-145,7
+148,10
@@
sub textradius_upload {
$rsync->exec( {
src => "$dir/users",
dest => "$user\@$host:$users",
$rsync->exec( {
src => "$dir/users",
dest => "$user\@$host:$users",
- } );
+ } ) or 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;
flock(LOCK,LOCK_UN);
close LOCK;