#!/usr/bin/perl -w

use strict;

use backup;

my $TRANS_ID = shift;

my $ERROR;

if(!$TRANS_ID) {
	$ERROR = "No transaction ID";
	goto FINISH;
}

if(!backup::restore(id => $TRANS_ID)) {
	$ERROR = $backup::ERROR;
	goto FINISH;
}

FINISH:
if($ERROR) {
	print STDERR "$ERROR\n";
	exit 1;
}

exit;
