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

Working on archive-local command.

Browse Source
This commit is contained in:
David Steele 2013-11-17 21:48:53 -05:00
parent 548578c8c9
commit 9ce37308b5
1 changed files with 38 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

41
pg_backrest.pl Normal file → Executable file
View File

@ -2,16 +2,51 @@
#use Getopt::Long;
my $strCommandCompress = "pigz --rsyncable --best --stdout %file%";
my $strCommandHash = "sha1sum %file% | awk '{print \$1}'";
sub execute
{
local($strCommand) = @_;
my $strOutput;
print("$strCommand\n");
# print("$strCommand\n");
$strOutput = qx($strCommand) or return 0;
print("$strOutput\n");
# print("$strOutput\n");
return 1;
return($strOutput);
}
sub file_hash_get
{
local($strFile) = @_;
my $strCommand = $strCommandHash;
$strCommand =~ s/\%file\%/$strFile/g;
my $strHash = execute($strCommand);
$strHash =~ s/^\s+|\s+$//g;
return($strHash);
}
# Get the command
$strCommand = $ARGV[0];
if ($strCommand eq "archive-local")
{
my $strSource = $ARGV[1];
my $strDestination = $ARGV[2];
my $strCommand = $strCommandCompress;
$strCommand =~ s/\%file\%/$strFile/g;
my $strHash = file_hash_get($strSource);
$strCommand !!! construct the rest of the string
print("$strHash");
# execute("$strCommandCompress $strSource >
}