X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=FS%2FFS%2FCron%2Fbackup.pm;fp=FS%2FFS%2FCron%2Fbackup.pm;h=9d88261205b5a5cba40db7e2dd04f3a6a63189d3;hp=63f22f73723664460d9ac9adcbf936569bb126c7;hb=9d662c980e98fe536214269e7d07fbcc806b17ef;hpb=ac1d2a68b0b3d7df7f81a0c9e75f5f31bbcbe379 diff --git a/FS/FS/Cron/backup.pm b/FS/FS/Cron/backup.pm index 63f22f737..9d8826120 100644 --- a/FS/FS/Cron/backup.pm +++ b/FS/FS/Cron/backup.pm @@ -12,8 +12,8 @@ use FS::UID qw(driver_name datasrc); sub backup_scp { my $conf = new FS::Conf; my $dest = $conf->config('dump-scpdest'); - $dest .= time2str('/%Y%m%d%H%M%S',time); if ( $dest ) { + $dest .= time2str('/%Y%m%d%H%M%S',time); datasrc =~ /dbname=([\w\.]+)$/ or die "unparsable datasrc ". datasrc; my $database = $1; eval "use Net::SCP qw(scp);";