1 package FS::Cron::backup;
4 use vars qw( @ISA @EXPORT_OK );
8 use FS::UID qw(driver_name datasrc);
11 @ISA = qw( Exporter );
12 @EXPORT_OK = qw( backup );
15 my $conf = new FS::Conf;
16 my $localdest = $conf->config('dump-localdest');
17 my $scpdest = $conf->config('dump-scpdest');
18 return unless $localdest || $scpdest;
20 my $filename = time2str('%Y%m%d%H%M%S',time);
22 datasrc =~ /dbname=([\w\.]+)$/
23 or backup_log_and_die($filename,"unparsable datasrc ". datasrc);
27 if ( driver_name eq 'Pg' ) {
28 system("pg_dump -Fc -T h_cdr -T h_queue -T h_queue_arg -T sessions $database >/var/tmp/$database.Pg");
30 } elsif ( driver_name eq 'mysql' ) {
31 system("mysqldump $database >/var/tmp/$database.sql");
34 backup_log_and_die($filename,"database dumps not yet supported for ". driver_name);
36 chmod 0600, "/var/tmp/$database.$ext";
38 if ( $conf->config('dump-pgpid') ) {
40 backup_log_and_die($filename,$@) if $@;
42 $gpg->encrypt( plaintext => "/var/tmp/$database.$ext",
43 output => "/var/tmp/$database.gpg",
44 recipient => $conf->config('dump-pgpid'),
46 unlink "/var/tmp/$database.$ext"
47 or backup_log_and_die($filename,$!);
48 chmod 0600, "/var/tmp/$database.gpg";
53 copy("/var/tmp/$database.$ext", "$localdest/$filename.$ext")
54 or backup_log_and_die($filename,$!);
55 chmod 0600, "$localdest/$filename.$ext";
59 eval "use Net::SCP qw(scp);";
60 backup_log_and_die($filename,$@) if $@;
61 my $scp = new Net::SCP;
62 $scp->scp("/var/tmp/$database.$ext", "$scpdest/$filename.$ext")
63 or backup_log_and_die($filename, $scp->{errstr});
66 unlink "/var/tmp/$database.$ext" or backup_log_and_die($filename,$!); #or just warn?
68 backup_log($filename);
72 #runs backup_log and dies with same error message
73 sub backup_log_and_die {
74 my ($filename,$error) = @_;
75 $error = "backup_log_and_die called without error message" unless $error;
76 backup_log($filename,$error);
82 my ($filename,$error) = @_;
83 my $result = $error ? "FAILED: $error" : 'succeeded';
84 my $message = "backup $filename $result\n";
85 my $log = FS::Log->new('Cron::backup');
87 $log->error($message);