1 package FS::Cron::backup;
4 use vars qw( @ISA @EXPORT_OK );
8 use FS::UID qw(driver_name datasrc);
9 use FS::Misc qw( send_email );
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_email_and_die($conf,$filename,"unparsable datasrc ". datasrc);
27 if ( driver_name eq 'Pg' ) {
28 system('pg_dump -Fc '. join(' ', map { "--exclude-table-data $_" }
29 qw( h_cdr h_queue h_queue_arg sessions )
31 " $database >/var/tmp/$database.Pg"
34 } elsif ( driver_name eq 'mysql' ) {
35 system("mysqldump $database >/var/tmp/$database.sql");
38 backup_email_and_die($conf,$filename,"database dumps not yet supported for ". driver_name);
40 chmod 0600, "/var/tmp/$database.$ext";
42 if ( $conf->config('dump-pgpid') ) {
44 backup_email_and_die($conf,$filename,$@) if $@;
46 $gpg->encrypt( plaintext => "/var/tmp/$database.$ext",
47 output => "/var/tmp/$database.gpg",
48 recipient => $conf->config('dump-pgpid'),
50 unlink "/var/tmp/$database.$ext"
51 or backup_email_and_die($conf,$filename,$!);
52 chmod 0600, "/var/tmp/$database.gpg";
57 copy("/var/tmp/$database.$ext", "$localdest/$filename.$ext")
58 or backup_email_and_die($conf,$filename,$!);
59 chmod 0600, "$localdest/$filename.$ext";
63 eval "use Net::SCP qw(scp);";
64 backup_email_and_die($conf,$filename,$@) if $@;
65 my $scp = new Net::SCP;
66 $scp->scp("/var/tmp/$database.$ext", "$scpdest/$filename.$ext")
67 or backup_email_and_die($conf, $filename, $scp->{errstr});
70 unlink "/var/tmp/$database.$ext" or backup_email_and_die($conf,$filename,$!); #or just warn?
72 backup_email($conf,$filename);
76 #runs backup_email and dies with same error message
77 sub backup_email_and_die {
78 my ($conf,$filename,$error) = @_;
79 backup_email($conf,$filename,$error);
80 warn "backup_email_and_die called without error message" unless $error;
84 #checks if email should be sent, sends it
86 my ($conf,$filename,$error) = @_;
87 my $to = $conf->config('dump-email_to');
89 my $result = $error ? 'FAILED' : 'succeeded';
90 my $email_error = send_email(
91 'from' => $conf->config('invoice_from'), #or whatever, don't think it matters
93 'subject' => 'FREESIDE NOTIFICATION: Backup ' . $result,
95 "This is an automatic message from your Freeside installation.\n",
96 "Freeside backup $filename $result",
97 ($error ? " with the following error:\n\n" : "\n"),
101 'msgtype' => 'admin',
103 warn $email_error if $email_error;