------------------------------------------------
On 29 Jul 2003 11:06:09 -0400, K Old <[EMAIL PROTECTED]> wrote:
> Hello everyone,
>
> I'm trying to use Net::Telnet to connect to a server that has a test
> account called (appropriately) TEST. It has no password on doing a
> normal telnet to the server after supplying the username, I am taken to
> the shell rather than being prompted for my password.
>
> The prompt I'm given is:
>
> TEST F50:/genii4 $
>
> Heres's the script I wrote:
>
> #!/usr/bin/perl -w
> #
> use strict;
> use Net::Telnet();
>
> my $host = "172.16.1.2";
> my $user = "TEST";
> my $pass = "";
>
> my $t = new Net::Telnet(Timeout => 30, Dump_Log => "/tmp/log-dump");
> $t->open("$host");
> $t->login(Name => $user, Password => $pass);
> $t->waitfor('/.*genii4.*\$$/');
> $t->print('cd $GENSRC');
> $t->cmd('cd g2oesrc');
> my @pwd = $t->cmd("pwd");
> print @pwd;
> $t->close();
>
>From the docs for Net::Telnet:
"Use a combination of print() and waitfor() as an alternative to login() or cmd() when
they don't do what you want."
It appears that 'login' requires both a username and password to be asked for
otherwise it will timeout, because your case is special (aka no password prompt) you
will probably need to mimic the behavior with 'print/waitfor'.
> This is what's in the log-dump file:
>
<snip> log dump
>
>
> The error I get from Net::Telnet is:
>
> timed-out waiting for password prompt at ./telnet.pl line 12
>
> Can anyone offer any ideas how I can get around this. Don't worry about
> security issues, it's an internal box and nothing important is on it, I
> just need to test this as the TEST user.
>
> I've also tried to set the Prompt parameter when initializing the object
> like so:
> my $t = new Net::Telnet(Timeout => 30,
> Dump_Log => "/tmp/log-dump",
> Prompt => '/genii4 ?$/i');
>
>
> Still no luck.
>
> Any help is appreciated...
>
Check the docs again specifically the section on "What To Know Before Using" and the
'login' method...
http://danconia.org
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
