Re: [Expectperl-discuss] conditional prompt?

[Sorrell, A. <Al_...@tr...>]

> -----Original Message-----
> From: exp...@li...
[mailto:expectperl-
> dis...@li...] On Behalf Of Austin Schutz
> Sent: Tuesday, June 10, 2008 2:34 PM
> To: Noah
> Cc: exp...@li...
> Subject: Re: [Expectperl-discuss] conditional prompt?
> 
> On Tue, Jun 10, 2008 at 11:25:19AM -0700, Noah wrote:
> > Hi,
> >
> > sometimes the RSA fingerprint is not in ~/.ssh/known_hosts so the
prompt
> > could be different.
> >
> > what would be the best way to handle the differences.  there is one
more
> > prompt to handle, defined as $prompt2, when the IP or hostname does
not
> > appear in ~/.ssh/known_hosts.  How would you handle the condition
and
> > then move back to accepting $prompt1?
> >
> >
> >
> >      $prompt1 = ".*password:";
> >      $prompt2 = "^[^?]+?\s";
> >      my $patidx = $exp->expect($timeout, [$prompt]);
> >
> 
> 	Expect both prompts at once. Run until $prompt1 is matched.
> 	You can do this one of two ways: use the simple interface
> and wrap it in a while loop, or you can use the "Tcl like" interface
and
> use exp_continue. See the expect example in the synopsis section of
the
> docs.
> 
> 	Austin
> 
Possibly something like this:

#
# Might get the warning about "Are you sure you want to continue
connecting (yes/no)?"
#
      $exp->expect(2,
        ['yes/no',
        sub { my $fh = shift; $fh->send("yes\n");$stat=0;}]);
      $exp->expect($timeout,
        ['assword:',
          sub { my $fh = shift; $fh->send("$auth_pass\n");
          $stat=0;}],
        [timeout =>
          sub {print STDERR " *** cisco_login:Timed out waiting for
(auth) 'assword:'\n";
          $stat=1;}]
      );
      print "After waiting for SSH 'assword:', stat=$stat\n"
if($DEBUG>1);
      return($stat,'') if($stat);


The contents of this e-mail and any attachments are intended solely for the use of the named addressee(s) and may contain confidential and/or privileged information. Any unauthorized use, copying, disclosure, or distribution of the contents of this e-mail is strictly prohibited by the sender and may be unlawful. If you are not the intended recipient, please notify the sender immediately and delete this e-mail.