#!/usr/bin/perl

# Displays disk info to the hosts that connect to it.

#

# No command line options, just put it in /etc/inetd.conf as shown in

# the README file.

#

# By Steven Micallef <smic@wire.net.au> on the 24/4/1999.

foreach $_ (`df -k | grep -v "Filesystem"`)

{

  ($device, $size, $used, $free, $percent, $mount) = split(/\s+/);

  chop($percent);

  print "$percent\n";

}