projects
/
freeside.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
3ebd1b1
)
datestamp backups
author
ivan
<ivan>
Sat, 23 Oct 2010 21:31:48 +0000
(21:31 +0000)
committer
ivan
<ivan>
Sat, 23 Oct 2010 21:31:48 +0000
(21:31 +0000)
FS/FS/Cron/backup.pm
patch
|
blob
|
history
diff --git
a/FS/FS/Cron/backup.pm
b/FS/FS/Cron/backup.pm
index
204069a
..
2b16e95
100644
(file)
--- a/
FS/FS/Cron/backup.pm
+++ b/
FS/FS/Cron/backup.pm
@@
-11,6
+11,7
@@
use FS::UID qw(driver_name datasrc);
sub backup_scp {
my $conf = new FS::Conf;
my $dest = $conf->config('dump-scpdest');
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 ) {
datasrc =~ /dbname=([\w\.]+)$/ or die "unparsable datasrc ". datasrc;
my $database = $1;
if ( $dest ) {
datasrc =~ /dbname=([\w\.]+)$/ or die "unparsable datasrc ". datasrc;
my $database = $1;
@@
-30,11
+31,11
@@
sub backup_scp {
recipient => $conf->config('dump-pgpid'),
);
chmod 0600, '/var/tmp/$database.gpg';
recipient => $conf->config('dump-pgpid'),
);
chmod 0600, '/var/tmp/$database.gpg';
- scp("/var/tmp/$database.gpg",
$dest
);
+ scp("/var/tmp/$database.gpg",
"$dest.gpg"
);
unlink "/var/tmp/$database.gpg" or die $!;
} else {
chmod 0600, '/var/tmp/$database.sql';
unlink "/var/tmp/$database.gpg" or die $!;
} else {
chmod 0600, '/var/tmp/$database.sql';
- scp("/var/tmp/$database.sql",
$dest
);
+ scp("/var/tmp/$database.sql",
"$dest.sql"
);
}
unlink "/var/tmp/$database.sql" or die $!;
}
}
unlink "/var/tmp/$database.sql" or die $!;
}