#!/usr/bin/perl
use Getopt::Std;

sub usage {
  print <<EOF;

  Usage  : server_stats -d dirs
  Example: -d "/home/ccadieux/Mail:/tmp

EOF

}

if (!getopts("hd:", \%opts) || $opts{h}) {
  &usage();
  exit(1);
}
$FILES = $opts{d};

print "\nDF:\n";
print `/usr/bin/df -k`;

print "\nIOSTAT:\n";
print `/usr/bin/iostat -xn`;

print "\nDU:\n";
foreach my $f (split(/\:/, $FILES)) {
  if (-d $f) {
    print `/usr/bin/du -s $f/*`
  }
}
