[streaming] Re: Telnet session and PERL script

[Bill Eldridge]

I have an old one in Python as well at
http://techweb.rfa.org/staff/bill

Bob Yeaw wrote:

> i tinkered with a perl script that does this, though i don't use it 
> much anymore.  might be usefull to you...
>
> hope it's readable...
>
>
> -bob
>
> CONFIDENTIALITY NOTICE:  The information in this electronic mail 
> transmission contains confidential information intended only for the 
> use of the individual or entity named above.  If the reader of this 
> message is not the intended recipient, you are hereby notified that 
> any dissemination, distribution or copy of the transmission is 
> strictly prohibited.
>
>
> > -----Original Message-----
> > From: MICHEL NGUYEN [mailto:michel.nguyen at eturs.u-strasbg.fr]
> > Sent: Monday, June 02, 2003 6:38 AM
> > To: vls at videolan.org
> > Subject: [streaming] Telnet session and PERL script
> >
> >
> > Hello there !
> >
> > I'm trying to write a script in order to connect to a telnet session
> > from a web page. I succeed on it but on ly for a normal
> > telnet session.
> > VLS is also running a telnet session but cannot write response to the
> > PERL script and here is what I get :
> >
> > 2003-06-02 15:32:14 [INFO/Vls]  Telnet server initialised
> > 2003-06-02 15:32:49 [INFO/Vls]  Processing incoming connection from
> > XXX.XXX.XXX.XXX
> > 2003-06-02 15:33:00 [WARN/Vls]  Error when processing data from
> > XXX.XXX.XXX.XXX: closing connection(error was: Error: Connection reset
> > by peer)
> > 2003-06-02 15:33:00 [INFO/Vls]  Closing connection from
> > XXX.XXX.XXX.XXX
> > 2003-06-02 15:33:00 [WARN/Vls]  Received SIGPIPE: Unexpected
> > Broken Pipe
> > encountered
> > 2003-06-02 15:33:00 [ERROR/Vls]  Connection from XXX.XXX.XXX.XXX could
> > not be closed: Error: Unable to close connection with XXX.XXX.XXX.XXX
> > Error: Unable to write string
> >
> >
> > And here is my testing script :
> >
> > #!/usr/bin/perl
> >
> > use Net::Telnet;
> >
> > $vls = new Net::Telnet (Host=>"XXX.XXX.XXX.XXX", Port=>9999);
> > $vls -> login(Name=>'user',Password=>'passwd');
> > #print $vls->cmd("help");
> >
> >
> > Where is my error ? Have I done anything wrong ?
> >
> > --
> > This is the streaming mailing-list, see
> http://www.videolan.org/streaming/
> To unsubscribe, please read http://www.videolan.org/support/lists.html
> If you are in trouble, please contact <postmaster at videolan.org>
>
>  
>

-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://mailman.videolan.org/pipermail/streaming/attachments/20030603/0bd19d1e/attachment.htm