db/pgbackrest
1
0
Fork 0
mirror of https://github.com/pgbackrest/pgbackrest.git synced 2025-11-06 08:49:29 +02:00
Code Issues Releases Activity

More cleanup

Browse Source
This commit is contained in:
David Steele
2013-12-11 19:57:54 -05:00
parent aa6e72bb9c
commit 299d402209
1 changed files with 26 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

40
pg_backrest.pl
View File

@@ -33,11 +33,6 @@ sub trim
#################################################################################################################################### ####################################################################################################################################
# LOG - log messages # LOG - log messages
#################################################################################################################################### ####################################################################################################################################
#Readonly my $DEBUG = "DEBUG";
#Readonly my $INFO = "INFO";
#Readonly my $WARNING = "WARNING";
#Readonly my $ERROR = "ERROR";
use constant use constant
{ {
DEBUG => 'DEBUG', DEBUG => 'DEBUG',
@@ -253,29 +248,29 @@ if ($strOperation eq "archive-push")
# Execute the copy # Execute the copy
execute($strCommand); execute($strCommand);
# print "$strCommandManifest\n";
# print execute($strCommandManifest) . "\n";
exit 0; exit 0;
} }
#################################################################################################################################### ####################################################################################################################################
# GET MORE CONFIG INFO # GET MORE CONFIG INFO
#################################################################################################################################### ####################################################################################################################################
# Load and check the base backup path
my $strBasePath = $oConfig{common}{backup_path}; my $strBasePath = $oConfig{common}{backup_path};
if (!defined($strBasePath)) if (!defined($strBasePath))
{ {
die 'undefined base path'; die &log(ERROR, "common:backup_path undefined");
} }
unless (-e $strBasePath) unless (-e $strBasePath)
{ {
die 'base path ${strBackupPath} does not exist'; die &log(ERROR, "base path ${strBasePath} does not exist");
} }
# Load and check the cluster
if (!defined($strCluster)) if (!defined($strCluster))
{ {
$strCluster = "db"; $strCluster = "db"; #!!! Modify to load cluster from conf if there is only one, else error
} }
my $strClusterPath = "${strBasePath}/${strCluster}"; my $strClusterPath = "${strBasePath}/${strCluster}";
@@ -286,6 +281,14 @@ unless (-e $strClusterPath)
mkdir $strClusterPath or die &log(ERROR, "cluster backup path '${strClusterPath}' create failed"); mkdir $strClusterPath or die &log(ERROR, "cluster backup path '${strClusterPath}' create failed");
} }
# Load and check manifest command
my $strCommandManifest = $oConfig{command}{manifest};
if (!defined($strCommandManifest))
{
die &log(ERROR, "command:manifest undefined");
}
#################################################################################################################################### ####################################################################################################################################
# BACKUP # BACKUP
#################################################################################################################################### ####################################################################################################################################
@@ -315,23 +318,32 @@ if ($strOperation eq "backup")
if (-e $strBackupConfFile) if (-e $strBackupConfFile)
{ {
unlink $strBackupConfFile or die "Unable to delete backup config"; unlink $strBackupConfFile or die &log(ERROR, "backup config ${strBackupConfFile} could not be deleted");
} }
} }
# Else create the backup tmp path # Else create the backup tmp path
else else
{ {
&log(INFO, "creating backup path $strBackupPath"); &log(INFO, "creating backup path $strBackupPath");
mkdir $strBackupPath or die "Unable to create backup path"; mkdir $strBackupPath or die &log(ERROR, "backup path ${strBackupPath} could not be created");
} }
# Create a new backup conf hash # Create a new backup conf hash
my %oBackupConfig; my %oBackupConfig;
tie %oBackupConfig, 'Config::IniFiles' or die 'Unable to create backup config'; tie %oBackupConfig, 'Config::IniFiles' or die &log(ERROR, "Unable to create backup config");
# Build the backup manifest # Build the backup manifest
backup_manifest($oConfig{command}{manifest}, $strClusterDataPath, \%oBackupConfig); backup_manifest($strCommandManifest, $strClusterDataPath, \%oBackupConfig);
# Delete files leftover from a partial backup
# !!! do it
# Perform the backup
# !!! do it
# Save the backup conf file # Save the backup conf file
tied(%oBackupConfig)->WriteConfig($strBackupConfFile); tied(%oBackupConfig)->WriteConfig($strBackupConfFile);
# Rename the backup tmp path to complete the backup
# !!! Still not sure about format, probably YYYYMMDDTHH24MMSS
} }