#!/usr/bin/perl -w
#	tardump [dir]...

$| = 1;
$ARGV[0] = '.' if !@ARGV;
($s0,$m0,$h0,$D0,$M0,$Y0) = localtime;
$t0 = sprintf("%02d%02d%02d%02d%02d%02d",$Y0,$M0+1,$D0,$h0,$m0,$s0);
print "$t0\tDump @ARGV ...\n";

system "tar cf /dev/rmt/c0s0 @ARGV";

($s1,$m1,$h1,$D1,$M1,$Y1) = localtime;
$t1 = sprintf("%02d%02d%02d%02d%02d%02d",$Y1,$M1+1,$D1,$h1,$m1,$s1);

if ($?) {
	print "$t1\tDump @ARGV failed with status $?.\n";
	exit 1;
} else {
	print "$t1\tDump @ARGV done.\n";
}

system "tar tvf /dev/rmt/c0s0 >/tmp/Dmp$t0";

($s2,$m2,$h2,$D2,$M2,$Y2) = localtime;
$t2 = sprintf("%02d%02d%02d%02d%02d%02d",$Y2,$M2+2,$D2,$h2,$m2,$s2);
if ($?) {
	print "$t2\tDump @ARGV failed verification with status $?.\n";
	exit 1;
} else {
	print "$t2\tDump @ARGV verified in /tmp/D$t0.\n";
}

exit 0;