Morning all:
My goal is to write a program with will connect to the port (10014) of a
network device using telnet and echo to the screen as intermittent
information is passed to it. (At this time all the information being passed
is one way).
Now the program works for me as expected, with one exception, since the data
is intermittent, I am getting a time out from my while loop if there is a
delay of more than a few seconds before receiving the next data stream. I
tried chaing the timeout parameter when opening the Telnet session, but if I
understand the docs correctly that is referring to the port pramaters of the
Telnet session and not the problem that I am experiencing.
Any and all help would be appreciated,
--
Terry Poperszky
[EMAIL PROTECTED]
my ($report, $t, $hostname);
$hostname = "tsa038";
use Net::Telnet;
$t = new Net::Telnet;
$t->open(Host => $hostname,
Port => 10014,
Timeout => 6000);
while ($report = $t->getline) {
print $report;
}
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
