#!/usr/bin/perl
#

if ( $ARGV[0] eq "" )
{
	print "Usage: $0 <device or mount point>\n";
	exit;
}

foreach $_ (`df -t ufs -m -i | grep -v "Filesystem"`)
{
	($dev, $size, $used, $avail, $capacity, $iused, $ifree, $pinodes, $mountpt) = split(/\s+/);

	if($ARGV[0] eq $dev || $ARGV[0] eq $mountpt)
        {
		last;
	}
}

chop $capacity;
chop $pinodes;

print "$capacity\n";
print "$pinodes\n";

# uptime
$uptime = `uptime`;
$uptime =~ /up (.*?),/;
print "$1\n";

# os, os release, machine name

$os = `uname -s`;
chomp $os;
$osrel = `uname -r`;
chomp $osrel;
$name = `uname -n`;
chomp $name;

print "$name running $os $osrel\n";