db/pgbackrest
1
0
Fork 0
mirror of https://github.com/pgbackrest/pgbackrest.git synced 2026-06-20 01:17:49 +02:00
Code Issues Releases Activity

Working on manifest.

Browse Source
This commit is contained in:
David Steele
2013-12-09 17:26:47 -05:00
parent 02a9a693b8
commit 39989dd01c
2 changed files with 16 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files
pg_backrest.pl
+15 -8
View File
@@ -22,9 +22,9 @@ sub trim
{
my $strBuffer = shift;
$strBuffer =~ s/^\s+|\s+$//g;
$strBuffer =~ s/^\s+|\s+$//g;
return $strBuffer;
return $strBuffer;
}
####################################################################################################################################
@@ -64,9 +64,11 @@ sub backup
my $strCommandManifest = shift;
my $strBackupPath = shift;
my $strPath = shift;
my %oBackupConfig = shift;
my $oBackupConfigRef = shift;
my $strLevel = shift;
# my %oBackupConfig = %{$oBackupConfigRef};
my $strCommand = $strCommandManifest;
$strCommand =~ s/\%path\%/$strPath/g;
my $strManifest = execute($strCommand);
@@ -115,16 +117,20 @@ sub backup
{
print "$strPath link: $strName -> $strLinkDestination\n";
${$oBackupConfigRef}{"base:link"}{"$strName"} = "$dfModifyTime,$strSize,$strUser,$strGroup,$strPermission,$lInode";
if (index($strName, 'pg_tblspc/') == 0)
{
backup($strCommandManifest, $strBackupPath, $strLinkDestination, %oBackupConfig, $strName);
}
#${$oBackupConfigRef}{"base:tablespace"}{"$strName"} = $;
backup($strCommandManifest, $strBackupPath, $strLinkDestination, $oBackupConfigRef, $strName);
}
}
# Process files except those in pg_xlog (hard links not supported)
elsif ($cType eq "f")
{
#$oBackupConfig{"file"}{"$strName"} = $dfModifyTime;
${$oBackupConfigRef}{"$strLevel\:file"}{"$strName"} = "$dfModifyTime,$strSize,$strUser,$strGroup,$strPermission,$lInode";
print "$strPath file: $strName\n"
}
@@ -265,15 +271,16 @@ if ($strOperation eq "backup")
if (-e "$strBackupPath/backup.conf")
{
tie %oBackupConfig, 'Config::IniFiles', (-file => "$strBackupPath/backup.conf") or die "Unable to open backup config";
tie %oBackupConfig, 'Config::IniFiles', (-file => "$strBackupPath/backup.conf") or die "Unable to open backup config" . @_;
}
else
{
tie %oBackupConfig, 'Config::IniFiles' or die 'Unable to create backup config';
}
backup($oConfig{command}{manifest}, $strBackupPath, $oConfig{"cluster:$strCluster"}{pgdata}, %oBackupConfig, "base");
backup($oConfig{command}{manifest}, $strBackupPath, $oConfig{"cluster:$strCluster"}{pgdata}, \%oBackupConfig, "base");
# $oBackupConfig{"file"}{"name"} = "test";
tied(%oBackupConfig)->WriteConfig("$strBackupPath/backup.conf");
# print scalar @stryFile . "\n";
test/test.pl
+1 -1
View File
@@ -146,4 +146,4 @@ $dbh->disconnect();
################################################################################
# Stop the server
################################################################################
pg_stop($strPgBinPath, "$strTestPath/$strDbDir/common");
#pg_stop($strPgBinPath, "$strTestPath/$strDbDir/common");