diff options
| author | Ivan Kohler <ivan@freeside.biz> | 2017-03-06 21:33:28 -0800 |
|---|---|---|
| committer | Ivan Kohler <ivan@freeside.biz> | 2017-03-06 21:33:28 -0800 |
| commit | 70877d564009919054ca785c5b8f756f0e81691a (patch) | |
| tree | dd234934923329b4b395b6e99637f5d8090182f6 /FS/FS/Cron/backup.pm | |
| parent | 9886f9a440019c5424cec7fc254c9dcc777798f5 (diff) | |
detect errors on the scp portion of the backup, RT#74914
Diffstat (limited to 'FS/FS/Cron/backup.pm')
| -rw-r--r-- | FS/FS/Cron/backup.pm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/FS/FS/Cron/backup.pm b/FS/FS/Cron/backup.pm index a192ca90e..7d868c882 100644 --- a/FS/FS/Cron/backup.pm +++ b/FS/FS/Cron/backup.pm @@ -58,7 +58,9 @@ sub backup { if ( $scpdest ) { eval "use Net::SCP qw(scp);"; backup_log_and_die($filename,$@) if $@; - scp("/var/tmp/$database.$ext", "$scpdest/$filename.$ext"); + my $scp = new Net::SCP; + $scp->scp("/var/tmp/$database.$ext", "$scpdest/$filename.$ext") + or backup_log_and_die($filename, $scp->{errstr}); } unlink "/var/tmp/$database.$ext" or backup_log_and_die($filename,$!); #or just warn? |