Re: [Expectperl-discuss] problems with logging

SourceForge Headquarters 225 Broadway Suite 1600 San Diego, CA 92101 +1 (858) 422-6466

On Tue, 17 Jun 2003 15:05:35 -0500 (CDT)
Kit Stube <uni...@iw...> wrote:

> I am having difficulty controling how expectperl is dumping output to the
> log file.

First you should really use Net::Telnet and second you really haven't defined
your problem.  Saying that you're "having difficulty" isn't telling anyone
enough.  Is the file empty? Does have only part of what you expect it to have?
Is the remote machine not printing back the data?  

And third try Net::Telnet  ;^)

> 
> i get the cat /etc/passwd like i desire but i also get the launching of
> bin/sh the prompt and the last which i do not desire (this is just a dummy
> program to solve the exact same problem in my larger one so ignore the why
> would you want to of the /usr/bin/last), i have tried everything i can
> think of and still no idea why it is broken, any thoughts?
> 
> 
> ----code-----
> 
> 
> #!/usr/bin/perl -w
> use strict;
> use Expect;
> 
> $|++;
> 
> #open STDERR, "/dev/null";
> 
> my $username="testuser";
> my $password="password";
> my $host="localhost";
> 
> my $timeout=4;
> 
> my $exp = new Expect; 
> 
> #$exp->debug(3);
> 
> $exp->log_file("/dev/null");
> $exp->log_file(undef);
> 
> print "Content-type: text/html\n\n<html>";
> 
> telnet_login($username,$password,$host,\$exp);
>     
> $exp->expect($timeout,
>              ['ncorrect',
>                 sub { print "<center>ERROR:<br>Login Incorrect, check username or password</center>\n"; &html_stop; die;   }  ],
>              [timeout =>
>               sub {
>                 $exp->send("/bin/sh\n");
>                 $exp->send("/usr/bin/last -5 $username\n");
> 
>                 $exp->clear_accum();
>                 $exp->log_file(\&formatoutput);
> 
>                 $exp->send("/bin/cat /etc/passwd\n");
> 
>                 $exp->log_file(undef);
>               }
>              ],
>             );
> 
> $exp->soft_close();
> 
> print "</html>\n";
> 
> sub formatoutput {
>   my $input = shift;
> 
>   chomp($input);
>   $input =~ tr/\r//;
>   $input =~ s|\n|<br>\n|g;
> 
>   print $input;
>  }
> 
> sub telnet_login
>  {
>     my ($username, $password, $host, $exp) = @_;
> 
>     $$exp->raw_pty(1);    #treat this terminal as a raw file
>     $$exp->log_stdout(0); #do not show terminal output to STDOUT
> 
>     $$exp->spawn("/usr/bin/telnet $host") || die "Cannot open telnet\n"; 
> 
>     $$exp->expect(7,
>                  ['ogin:', sub {
>     $$exp->send("$username\n"); exp_continue; } ],
>                  ['assword:', sub { $$exp->send("$password\n"); } ],
>                  [timeout => sub { die "<center>ERROR: <BR>A timeout has occured at login</center>\n"; }  ],
>                 );
>  }