| Server IP : 49.231.201.246 / Your IP : 216.73.216.149 Web Server : Apache/2.4.18 (Ubuntu) System : User : root ( 0) PHP Version : 7.0.33-0ubuntu0.16.04.16 Disable Function : exec,passthru,mail,shell_exec,system,proc_open,popen,ini_alter,dl,proc_close,curl_exec,curl_multi_exec,readfile,parse_ini_file,escapeshellarg,escapeshellcmd,show_source,pcntl_alarm,pcntl_fork,pcntl_waitpid,pcntl_wait,pcntl_wifexited,pcntl_wifstopped,pcntl_wifsignaled,pcntl_wifcontinued,pcntl_wexitstatus,pcntl_wtermsig,pcntl_wstopsig,pcntl_signal,pcntl_signal_get_handler,pcntl_signal_dispatch,pcntl_get_last_error,pcntl_strerror,pcntl_sigprocmask,pcntl_sigwaitinfo,pcntl_sigtimedwait,pcntl_exec,pcntl_getpriority,pcntl_setpriority,pcntl_async_signals,pcntl_unshare,mail,php_uname,phpinfo MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : ON | Sudo : ON | Pkexec : ON Directory : /usr/share/webmin/postgresql/ |
Upload File : |
#!/usr/bin/perl
# backup.pl
# Called by cron to backup a database
$no_acl_check++;
require './postgresql-lib.pl';
if ($ARGV[0] eq "--all") {
$all = 1;
@dbs = &list_databases();
$cmode = $config{'backup_cmode_'};
}
else {
$ARGV[0] || die "Missing database parameter";
@dbs = ( $ARGV[0] );
$cmode = 0;
}
if ($cmode) {
# Run and check before-backup command (for all DBs)
$bok = &execute_before(undef, STDOUT, 0, $config{'backup_'}, undef);
if (!$bok) {
print STDERR "Before-backup command failed!\n";
exit(1);
}
}
$ex = 0;
foreach $db (@dbs) {
$sf = $all ? "" : $db;
if (!&accepting_connections($db)) {
#print STDERR "Database $db is not accepting connections.\n";
next;
}
$format = $config{'backup_format_'.$sf};
$compress = $config{'backup_compress_'.$sf};
$mkdir = $config{'backup_mkdir_'.$sf};
$suf = $format eq "p" ? "sql" :
$format eq "t" ? "tar" : "post";
$suf .= ($compress == 1 ? ".gz" :
$compress == 2 ? ".bz2" : "");
if ($all) {
$dir = &date_subs($config{'backup_'});
$file = "$dir/$db.$suf";
&make_backup_dir($dir) if ($mkdir);
}
else {
$file = &date_subs($config{'backup_'.$db});
}
@tables = split(/\s+/, $config{'backup_tables_'.$sf});
if (!$file) {
print STDERR "No backup file set for database $db\n";
exit(1);
}
if (!$cmode) {
# Run and check before-backup command (for one DB)
$bok = &execute_before($db, STDOUT, 0, $file, $all ? undef : $db);
if (!$bok) {
print STDERR "Before-backup command failed!\n";
$ex = 1;
next;
}
}
unlink($file);
$err = &backup_database($db, $file, $format, \@tables, undef,$compress);
if ($err) {
print STDERR "Backup of database $db to file $file failed:\n";
print STDERR $err;
$ex = 1;
}
if (!$cmode) {
&execute_after($db, STDOUT, 0, $file, $all ? undef : $db);
}
}
if ($cmode) {
&execute_after(undef, STDOUT, 0, $config{'backup_'}, undef);
}
exit($ex);