db/pgbackrest
1
0
Fork 0
mirror of https://github.com/pgbackrest/pgbackrest.git synced 2025-09-16 09:06:18 +02:00
Code Issues Releases Activity

Working on backup.

Browse Source
This commit is contained in:
David Steele
2013-12-05 08:59:39 -05:00
parent ae6886c8e0
commit 12518e7296
1 changed files with 22 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

23
pg_backrest.pl
View File

@@ -168,5 +168,26 @@ if ($strOperation eq "backup")
$strCommand =~ s/\%path\%/$oConfig{"cluster:$strCluster"}{pgdata}/g;
my $strManifest = execute($strCommand);
print "$strManifest\n";
my @stryFile = split("\n", $strManifest);
for (my $iFileIdx = 0; $iFileIdx < scalar @stryFile; $iFileIdx++)
{
my @stryField = split("\t", $stryFile[$iFileIdx]);
my $dfTime = $stryField[0];
my $lInode = $stryField[1];
my $cType = $stryField[2];
my $strPermission = $stryField[3];
my $strUser = $stryField[4];
my $strGroup = $stryField[5];
my $strSize = $stryField[6];
my $strName = $stryField[7];
if ($cType eq "f" && index($strName, 'pg_xlog') != 0)
{
# print "$strName\n"
}
}
# print scalar @stryFile . "\n";
}