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