Net:Telnet == Strange variable interaction

[novawolf1]

Hello All,

I am trying to use the Net::Telnet module to connect to UNIX machines and gather information about kernel parameters, file systems, applications, patch levels and so on.

Here is the issue:

I get varying output each time I run my script. It seems like the Net::Telnet module is having problems reading from its own buffer. I have been working on the problem for about a week thinking it was my code, but I can now make it happen even with a simple script. The systems I am connecting to are not under my direct care (i.e. the prompts, shell settings, everything can be different). I am also trying to do this without FTP'ing code to the server and running it for there. I would like to get a module running that would connect and allow for individual processes to be called by my main program.

CLIENT SYSTEM:
Windows 2000 Service Pack 4
PIII - 1000MHz

SERVER SYSTEMS:
HPUX 11i - (But I will actually be connecting to HP, AIX and LINUX).

SCRIPT:

#!/usr/local/bin/perl
#===================================

#########################################
# START REQUIREMENTS
#########################################
require 5.6.1;
#########################################
# END REQUIREMENTS
#########################################

#########################################
# START USE
#########################################
use 5.6.1;
use Net::Telnet;
use strict;
#########################################
# END USE
#########################################

#########################################
# START MAIN
#########################################
my (
$host,
$hostname,
@line1,
@line2,
$username,
$passwd,
$pro
);
$hostname = "hp1";
$username = "root";
$passwd = "******";

## Connect and login.
use Net::Telnet ();
$host = new Net::Telnet ( Timeout => 30,
Prompt => '/[\$%#>] $/',
Output_log => 'TELNET.out',
Input_log => 'TELNET.out');
$host->open($hostname);
$host->login($username, $passwd);

$pro = "/##\$/";

#Set prompt code
my $rc1 = $host->prompt("$pro"

#Debugging
print "RC 1 -> $rc1\n";

#Set prompt on unix side
my $rc2 = $host->cmd('PS1="##" export PS1');

#Debugging
print "RC 2 -> $rc2\n";

#Get os type
(@line1) = $host->cmd("uname"

#Debugging
print " LINE 1 -> $line1[0]\n";

#Get hostname
(@line2) = $host->cmd("hostname"

#Debugging
print "LINE 2 -> @line2\n";


#########################################
# END MAIN
#########################################

#########################################
# START SUBROUTINES
#########################################
#########################################
# END SUBROUTINES
#########################################

__END__ #End of running code


OUTPUT:
This output was run against the same server, within 15 seconds of each other.

1
###############################
RC 1 -> /[\$%#>] $/
RC 2 -> 1
LINE 1 -> HP-UX

LINE 2 -> hostname
hp1

2
###############################
RC 1 -> /[\$%#>] $/
RC 2 -> 1
LINE 1 -> ##uname

LINE 2 -> hp1

3
###############################
RC 1 -> /[\$%#>] $/
RC 2 -> 1
LINE 1 -> HP-UX

LINE 2 -> hp1



PLEASE HELP!!!


Thank you in advance for all your time and effort!

P.S. If you need more information to understand the issue, just ask!

------------------------------

The beatings will stop when morale improves!!!!!