#!/usr/bin/perl
#
# $Id: dump.pl,v 1.4 2002/01/18 22:39:21 aryan Exp $
#
# rsh dumpserver "touch /dump01/hostname_{partitions}.dump"
$|=1;

$dumpserver=shift;
$dumpDir=shift;

$dumpserver="10.1.1.1" if ($dumpserver eq '') ;
$dumpDir="dump01" if ($dumpDir eq '') ;


$hostname=`hostname`;
chop ($hostname);
#print $hostname."\n";
print `df -h -t ext2 -t ext3 -t ext4 `."\n";
print $cmd='df -h -t ext2 -t ext3 -t ext4 | awk \' $1 !~ /Filesystem/ { print $6 }\'';
print "\n";

@partitions=`$cmd`;
$cmdCount=scalar(@partitions);

print "#### START DUMPS at ".`date`;


foreach $part (@partitions)
{
chop($part);
$fs=$part;
print "cmd#(".++$i."/".$cmdCount.") - STARTING partition $part \n";
$part="_root" if ($part eq '/');
$part=~s/\//_/g;
$dumpFile="$dumpserver:/$dumpDir/$hostname".$part.".dump";
print $cmd='rsh  '.$dumpserver.' "cat /dev/null > /'.$dumpDir.'/'.$hostname.$part.'.dump"';
print `$cmd`;
print $cmd="dump -0u -a -f $dumpFile $fs\n";
print `$cmd`;

}
print "\n#### STOP DUMPS at ".`date`;