#!/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"; }