[ale] Perl 'Expect' timeout question

[Mills John M-NPHW64]

Chris -

Thanks for both replies.

Yes, the 'expect' example works fine.

I would like to salvage my existing scripts if possible - can I check whether the reverse look-up is what actually failed?

 - Mills

-----Original Message-----
From: ale-bounces at ale.org on behalf of Chris Fowler
Sent: Mon 10/4/2010 10:20 AM
To: Atlanta Linux Enthusiasts - Yes! We run Linux!
Subject: Re: [ale] Perl 'Expect' timeout question
 
Use just Expect.

use Expect;
use strict;

my $exp = Expect->spawn('ssh user at host');
$exp->expect(10, 'password:');
$exp->send("password\r");
$exp->expect(5, "]$ ") or die "password authentication failed";
$exp->send("command\r");
....

$exp->close();

On Mon, 2010-10-04 at 10:12 -0400, Mills John M-NPHW64 wrote:
> ALErs -
> 
> I wrote a Perl script that uses net-SSH::Expect to connect with a
> remote target by SSH. I can establish the connection manually without
> any problem, but my scripts (which had been working) now fail with the
> message:
>  "SSHAuthenticationError Login timed out" coming from ".../Expect.pm
> line 813". This line is in the function '_multi_expect($$@)' and the
> timeout is presumably passed when the function is called.
-------------- next part --------------
A non-text attachment was scrubbed...
Name: not available
Type: application/ms-tnef
Size: 3213 bytes
Desc: not available
Url : http://mail.ale.org/pipermail/ale/attachments/20101004/a7e85796/attachment-0001.bin