BackupPC_tarCreate wrapper

bpc-tar

#!/usr/bin/perl
use warnings;
use v5.12;

use File::Basename qw(dirname);
use Data::Dumper;

sub usage {
  print <<USAGE;
bpc-tar HOST DIR

Output a tarball corresponding to the most recent BackupPC backup of a
directory for a host.
USAGE
  exit 2;
}

my $host = shift;
usage if $host eq '-h' || $host eq '--help';
my $path = shift;

# Try to get directory from SSH_ORIGINAL_COMMAND
unless (defined $path) {
  my @orig = split ' ', $ENV{SSH_ORIGINAL_COMMAND};
  splice @orig, 0, 2; # Don't allow to override command or host
  $path = shift @orig;
}

usage unless defined $path;


my $prefix = dirname($path);
my $cmd = '/usr/share/backuppc/bin/BackupPC_tarCreate';

my @args = ($cmd,
  '-n', '-1',     # Last backup
  '-s', '/',      # Share name is /
  '-h', $host,
  '-r', $prefix,  # Prune the prefix
  $path);

#print STDERR Dumper \@args;
exec @args or die "Failed to run BackupPC_tarCreate: $!\n";