Check your prompt regex. I had a similar problem, I ended up changing my
prompt value to /.*$ $/ and it worked.
Tom
--
#!/usr/bin/perl -w # 526-byte qrpff, Keith Winstein and Marc Horowitz
<[EMAIL PROTECTED]> # MPEG 2 PS VOB file on stdin -> descrambled output
on stdout # arguments: title key bytes in least to most-significant order
$_='while(read+STDIN,$_,2048){$a=29;$c=142;if((@a=unx"C*",$_)[20]&48){$h=5;
$_=unxb24,join"",@b=map{xB8,unxb8,chr($_^$a[--$h+84])}@ARGV;s/...$/1$&/;$d=
unxV,xb25,$_;$b=73;$e=256|(ord$b[4])<<9|ord$b[3];$d=$d>>8^($f=($t=255)&($d
>>12^$d>>4^$d^$d/8))<<17,$e=$e>>8^($t&($g=($q=$e>>14&7^$e)^$q*8^$q<<6))<<9
,$_=(map{$_%16or$t^=$c^=($m=(11,10,116,100,11,122,20,100)[$_/16%8])&110;$t
^=(72,@z=(64,72,$a^=12*($_%16-2?0:$m&17)),$b^=$_%64?12:0,@z)[$_%8]}(16..271))
[$_]^(($h>>=8)+=$f+(~$g&$t))for@a[128..$#a]}print+x"C*",@a}';s/x/pack+/g;eval
On Fri, 22 Jun 2001, Prabhu, Vrunda P (UMC-Student) wrote:
> I tried running an example from the document specified below by John and
> get the error:
> timed-out waiting for password prompt at ./newtry.cgi line 7
>
>
> My code from the document is below:
> #!/usr/bin/perl
> use Net::Telnet;
> $telnet = new Net::Telnet (Timeout=>10,
> Errmode=>'die',
> Prompt=>'/>$ $/i');
> $telnet->open('...');
> $telnet->login('...', '...');
> print $telnet->cmd('who');
>
> (I have deleted host, user and passwd).
>
> Could anyone suggest what I should change?
> Thanks very much.
> Vrunda
>
>
>
>
>
>
>
>
>
> [ Wrote 8 lines ]
>
> [c151@myclass router]ic./newtry.cgi
>
>
> -----Original Message-----
> From: John Edwards
> To: 'Prabhu, Vrunda P (UMC-Student)'; '[EMAIL PROTECTED] '
> Sent: 6/22/01 10:18 AM
> Subject: RE: :Telnet
>
> This might be of use to you
>
> http://www.perlfect.com/articles/telnet.shtml
>
> -----Original Message-----
> From: Prabhu, Vrunda P (UMC-Student) [mailto:[EMAIL PROTECTED]]
> Sent: 22 June 2001 16:07
> To: '[EMAIL PROTECTED] '
> Subject: RE: :Telnet
>
>
> I too have questions on the same topic - Net::Telnet. I tried the
> following code: (I have deleted the hostname, username and passwd), and
> get
> the error:
>
> read timed-out at ./teltry.cgi line 13
>
>
>
>
> #!/usr/bin/perl
>
> my ($hostname, $line, $passwd, $pop, $username);
>
> $hostname="...";
> $username="...";
> $passwd="...";
>
> use Net::Telnet ();
> $pop=new Net::Telnet (Telnetmode => 0);
> $pop->open(Host => $hostname, Port =>80);
>
> $line= $pop->getline;
> die $line unless $line=~/^\+OK/;
> $pop->print("user $username");
> $line = $pop->getline;
> die $line unless $line =~/^\+OK/;
> $pop->print("pass $passwd");
> $line=$pop->getline;
>
> Thanks in advance for any and all suggestions. My aim is to be able to
> telnet to a site, and once there work allow the user to work at the
> site,
> till the time when the user might wish to telnet to another site. If
> the
> second site is connected to the first, the program shoudl make an
> internal
> check, and allow the user to telnet there without asking for his/her
> username password again.
> I as you see in the code above am at the very early stages of attempting
> to
> connect to a remote site.
>
> Thanks again.
> Vrunda
>
> -----Original Message-----
> From: Tom Yarrish
> To: [EMAIL PROTECTED]
> Sent: 6/21/01 3:22 PM
> Subject: Net::Telnet
>
> Hey all,
> Okay, I'm playing with Net::Telnet, and I've gotten to the point where I
> connect to the other machine. What I wanted to know is, can I run and
> interact with a program just using the cmd() part of that module? Or do
> I
> need to use another module to do that. Basically what I'm going is
> telnetting to a server, then running a program (perl scripts actually),
> then feeding it some options, and then exiting out of the program. Sort
> of like this (snipped)
>
> $session->cmd("/home/export/user/Xmenu.pl");
> $session->cmd("2"); # This is fed to the Xmenu.pl program
> $session->cmd("1"); # and this
> $session->cmd("y"); # and this
>
> Thanks,
> Tom
>
>
