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
--
#!/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
--------------------------Confidentiality--------------------------.
This E-mail is confidential. It should not be read, copied, disclosed or
used by any person other than the intended recipient. Unauthorised use,
disclosure or copying by whatever medium is strictly prohibited and may be
unlawful. If you have received this E-mail in error please contact the
sender immediately and delete the E-mail from your system.
