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