mirror of
https://github.com/pgbackrest/pgbackrest.git
synced 2025-02-11 13:53:03 +02:00
17 lines
225 B
Perl
17 lines
225 B
Perl
#!/usr/bin/perl
|
|
|
|
#use Getopt::Long;
|
|
|
|
sub execute
|
|
{
|
|
local($strCommand) = @_;
|
|
my $strOutput;
|
|
|
|
print("$strCommand\n");
|
|
$strOutput = qx($strCommand) or return 0;
|
|
print("$strOutput\n");
|
|
|
|
return 1;
|
|
}
|
|
|
|
|