#!/usr/bin/perl -w

my $tardir = '/herc3/backup/project/mvs3390';
my $project = '/herc2/mvs/';

my $bk_method = 'tar';

my ($sec, $min, $hour, $day, $mon, $year, $wday, $yday, $isdst) = localtime;
$mon += 1;
$year += 1900;
my $stamp = "$year-$mon-$day-$hour-$min";
my $dir;

$dir = '3390'; back();
exit 0;

sub back {
	chdir "$project" or die "cannot chdir $project\n";
	if ($bk_method eq 'tar') {
		my $targ_tar = "$tardir/$dir-$stamp.tar.gz";
		system "rm $targ_tar";
		system "tar -czvf $targ_tar $dir";
	} else {
		system "zip -r $dir-$stamp \*";
	}
}




