<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
  <meta http-equiv="Content-Type" content="text/html;charset=ISO-8859-1">
  <title></title>
</head>
<body>
<br>
<br>
I have an old one in Python as well at<br>
<a class="moz-txt-link-freetext" href="http://techweb.rfa.org/staff/bill">http://techweb.rfa.org/staff/bill</a><br>
<br>
Bob Yeaw wrote:<br>
<blockquote type="cite"
 cite="midE2462F68A99DB74D8AEDF13B261B1BDD011BB71C@Larry.widevine.com">
  <meta http-equiv="Content-Type" content="text/html; ">
  <meta name="Generator"
 content="MS Exchange Server version 5.5.2653.12">
  <title>RE: [streaming] Telnet session and PERL script</title>
  <p><font size="2">i tinkered with a perl script that does this,
though i don't use it much anymore.&nbsp; might be usefull to you...</font> </p>
  <p><font size="2">hope it's readable...</font> </p>
  <br>
  <p><font size="2">-bob</font> </p>
  <p><font size="2">CONFIDENTIALITY <a class="moz-txt-link-freetext" href="NOTICE:&nbsp;">NOTICE:&nbsp;</a> The information in this
electronic mail transmission contains confidential information intended
only for the use of the individual or entity named above.&nbsp; 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.</font></p>
  <br>
  <p><font size="2">&gt; -----Original Message-----</font> <br>
  <font size="2">&gt; From: MICHEL NGUYEN [<a
 href="mailto:michel.nguyen@eturs.u-strasbg.fr">mailto:michel.nguyen@eturs.u-strasbg.fr</a>]</font> <br>
  <font size="2">&gt; Sent: Monday, June 02, 2003 6:38 AM</font> <br>
  <font size="2">&gt; To: <a class="moz-txt-link-abbreviated" href="mailto:vls@videolan.org">vls@videolan.org</a></font> <br>
  <font size="2">&gt; Subject: [streaming] Telnet session and PERL
script</font> <br>
  <font size="2">&gt; </font> <br>
  <font size="2">&gt; </font> <br>
  <font size="2">&gt; Hello there !</font> <br>
  <font size="2">&gt; </font> <br>
  <font size="2">&gt; I'm trying to write a script in order to connect
to a telnet session</font> <br>
  <font size="2">&gt; from a web page. I succeed on it but on ly for a
normal </font> <br>
  <font size="2">&gt; telnet session.</font> <br>
  <font size="2">&gt; VLS is also running a telnet session but cannot
write response to the</font> <br>
  <font size="2">&gt; PERL script and here is what I get :</font> <br>
  <font size="2">&gt; </font> <br>
  <font size="2">&gt; 2003-06-02 15:32:14 [INFO/Vls]&nbsp; Telnet server
initialised</font> <br>
  <font size="2">&gt; 2003-06-02 15:32:49 [INFO/Vls]&nbsp; Processing
incoming connection from</font> <br>
  <font size="2">&gt; XXX.XXX.XXX.XXX</font> <br>
  <font size="2">&gt; 2003-06-02 15:33:00 [WARN/Vls]&nbsp; Error when
processing data from</font> <br>
  <font size="2">&gt; XXX.XXX.XXX.XXX: closing connection(error was:
Error: Connection reset</font> <br>
  <font size="2">&gt; by peer)</font> <br>
  <font size="2">&gt; 2003-06-02 15:33:00 [INFO/Vls]&nbsp; Closing
connection from </font> <br>
  <font size="2">&gt; XXX.XXX.XXX.XXX</font> <br>
  <font size="2">&gt; 2003-06-02 15:33:00 [WARN/Vls]&nbsp; Received SIGPIPE:
Unexpected </font> <br>
  <font size="2">&gt; Broken Pipe</font> <br>
  <font size="2">&gt; encountered</font> <br>
  <font size="2">&gt; 2003-06-02 15:33:00 [ERROR/Vls]&nbsp; Connection from
XXX.XXX.XXX.XXX could</font> <br>
  <font size="2">&gt; not be closed: Error: Unable to close connection
with XXX.XXX.XXX.XXX</font> <br>
  <font size="2">&gt; Error: Unable to write string</font> <br>
  <font size="2">&gt; </font> <br>
  <font size="2">&gt; </font> <br>
  <font size="2">&gt; And here is my testing script :</font> <br>
  <font size="2">&gt; </font> <br>
  <font size="2">&gt; #!/usr/bin/perl</font> <br>
  <font size="2">&gt; </font> <br>
  <font size="2">&gt; use <a class="moz-txt-link-freetext" href="Net::Telnet">Net::Telnet</a>;</font> <br>
  <font size="2">&gt; </font> <br>
  <font size="2">&gt; $vls = new <a class="moz-txt-link-freetext" href="Net::Telnet">Net::Telnet</a>
(Host=&gt;"XXX.XXX.XXX.XXX", Port=&gt;9999);</font> <br>
  <font size="2">&gt; $vls -&gt;
login(Name=&gt;'user',Password=&gt;'passwd');</font> <br>
  <font size="2">&gt; #print $vls-&gt;cmd("help");</font> <br>
  <font size="2">&gt; </font> <br>
  <font size="2">&gt; </font> <br>
  <font size="2">&gt; Where is my error ? Have I done anything wrong ?</font> <br>
  <font size="2">&gt; </font> <br>
  <font size="2">&gt; -- </font> <br>
  <font size="2">&gt; This is the streaming mailing-list, see </font> <br>
  <font size="2"><a href="http://www.videolan.org/streaming/"
 target="_blank">http://www.videolan.org/streaming/</a></font> <br>
  <font size="2">To unsubscribe, please read <a
 href="http://www.videolan.org/support/lists.html" target="_blank">http://www.videolan.org/support/lists.html</a></font> <br>
  <font size="2">If you are in trouble, please contact
<a class="moz-txt-link-rfc2396E" href="mailto:postmaster@videolan.org">&lt;postmaster@videolan.org&gt;</a></font> </p>
  <p>&nbsp; </p>
</blockquote>
<br>
</body>
</html>