#!/usr/bin/perl

# This script is used to establish a TCP connection with a host to get the 

# disk info provided by showdisk.pl.

#

# use: ./getdisk.pl <hostname> <disk number>

#

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

# Externale bug fixed by Alon Goldberg <pyro@elapsed.net> 27/2/2000.

use Net::Telnet;

$hostname = $ARGV[0];

$disk_no = $ARGV[1];

# If you've changed the port showdisk.pl runs on, change it here too.

$port = 9047;

$i = 0;

if (!defined($disk_no)) { print "Usage: $0 <hostname> <disk number>\n"; exit }

$t = new Net::Telnet ( Host => $hostname, Port => $port);

$t->open("$hostname");

while ($i ne $disk_no) {

  $data = $t->getline(Timeout => 40);

  $i++;

  print $data, 0, "\n" if $i eq $disk_no;

}