[Expectperl-discuss] Please Help me with Expect and Net::Telnet or IO::Socket::Telnet

[deepblue <rak...@ya...>]

Hi all,

I am working on a project that would automate the installation of product o=
n
remote machine(s).

I have a Perl-Expect script ready that would send answers to the questions
asked by the InstallerProgram and thus drive the InstallerProgram
independently without the interaction of user.

Pictiorally:

configurationFile =3D=3D> PerlScript <=3D=3D> InstallerProgram

This PerlScript would read the configurationFile and talk with the
InstallerProgram and provide the answers to the questions the
InstallerProgram asks.

I need this to run this PerlScript from host1 onto host2, host3 ... so that
the product is installed on host2, host3 ...

For this, I am using Net::Telnet to connect to the host then using Expect's
exp_init() to convert this telnet handle to expect's handle. However I coul=
d
not get this working.

Below is the script along with the output.

Script: [Name: telnet.pl]
---------------------------
#!/usr/local/bin/perl

use Expect;
use Net::Telnet;

$prompt =3D '/[\]%>#\$]\s$/i';

$telnetObj =3D new Net::Telnet ( Timeout =3D> 20, Prompt =3D> $prompt);
$telnetObj->open ('host1');

$telnet =3D Expect->exp_init ($telnetObj);
$telnet->log_stdout (1);

$telnet->expect (20, 'login: ');
$telnet->send ("user\r");
$telnet->expect (20, 'Password: ');
$telnet->send ("password\r");

$telnet->expect (20, -re, $prompt);
$telnet->send ("id\r");
$telnet->expect (20, -re, $prompt);
$telnet->send ("ls -ltr\r");

$telnet->hard_close();

## END OF SCRIPT ##


Output:
---------------------------
# ./telnet.pl
=C3=BF=C3=BD%
#
---------------------------
It shows the above output and stops there until timeout occurs.

I also tried this using: (1) IO::Socket::INET (2) IO::Socket::Telnet,
however I could not make it work for me.

I am using -
1. SUN Solaris 10,
2. Perl 5.8.8
3. Expect 1.21

Is there a better way of making this work (using some other module?).

One NOTE: I have contents of the .rhosts file as:
+ +
so that root can directly execute commands using rsh and but cannot login t=
o
the system (using rlogin/ssh)as /etc/default/login has the CONSOLE paramete=
r
enabled (i.e., it is NOT commented out).
Also I dont want to have the passwords stored somewhere.. This would be a
overhead since each time the root password is changed, I need to change the
file storing passwords.

Could any of you please help me on this ?

Regards,
~DeepBlue

--=20
View this message in context: http://www.nabble.com/Please-Help-me-with-Exp=
ect-and-Net%3A%3ATelnet-or-IO%3A%3ASocket%3A%3ATelnet-tp14274995p14274995.h=
tml
Sent from the Perl - Expectperl-Discuss mailing list archive at Nabble.com.