db/pgbackrest
1
0
Fork 0
mirror of https://github.com/pgbackrest/pgbackrest.git synced 2025-01-16 04:54:47 +02:00
Code Issues Releases Activity

More work on archive-pull

Browse Source
This commit is contained in:
David Steele 2014-02-12 22:33:09 -05:00
parent 8e60a3111f
commit b770c8ebec
1 changed files with 16 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
pg_backrest_backup.pm
View File

@ -97,17 +97,32 @@ sub archive_push
sub archive_pull
{
my $strArchivePath = shift;
my $strCompressLocal = shift;
# Load the archive manifest - all the files that need to be pushed
my %oManifestHash = $oFile->manifest_get(PATH_DB_ABSOLUTE, $strArchivePath . "/archive/" . ${oFile}->{strStanza});
# Get all the files to be transferred and calculate the total size
my @stryFile;
my $lFileSize = 0;
foreach my $strFile (sort(keys $oManifestHash{name}))
{
if ($strFile =~ /^[0-F]{16}\/[0-F]{24}.*/)
{
&log(DEBUG, "SHOULD BE LOGGING ${strFile}");
push @stryFile, $strFile;
$lFileSize += $oManifestHash{name}{"$strFile"}{size};
}
}
&log(INFO, "total archive to be copied to backup " . (${lFileSize} / 1024 / 1024 ) . "MB");
# Find all the archive files
foreach my $strFile (@stryFile)
{
&log(DEBUG, "SHOULD BE LOGGING ${strFile}");
}
}
####################################################################################################################################