#!/usr/bin/perl
# This script is used to establish a TCP connection with a host to get the
# report of disk-space quota provided by repquota utility.
#
# use: ./getreport.pl <hostname> <port number>
#
# By Steven Micallef <smic@wire.net.au> on the 24/4/1999.
# Modified by Adrian Turcu <adrianturcu@yahoo.com> on 18/9/2000.
use Net::Telnet ();
$hostname = $ARGV[0];
$port = $ARGV[1];
# If you've changed the port showdisk.pl runs on, change it here too.
#$port = 9047;
$i = 0;
if ($hostname eq "" || $port eq "" )
{
print "Usage: $0 <hostname> <port number>\n";
exit;
}
$t = new Net::Telnet ( Host => $hostname, Port => $port);
$t->open("$hostname");
do
{
$data = $t->getline(Timeout => 40);
print $data;
} while ( $data );