<div><font face="courier new,monospace">Cara,</font></div>
<div><font face="courier new,monospace"></font> </div>
<div><font face="courier new,monospace">Eu não testei, mas eu acredito que você possa fazer algo assim:</font></div>
<div><font face="courier new,monospace"><code></font></div>
<div><font face="courier new,monospace"> #!/usr/bin/perl -w -T<br> package MyPackage;<br><br> use Net::Server;<br> @ISA = qw(Net::Server);<br><br> sub process_request {</font></div>
<div><font face="courier new,monospace"> my $self = shift;<br> $self->post_accept;<br> $self-><b style="COLOR: black; BACKGROUND-COLOR: #a0ffff">get_client_info</b>;</font></div>
<div><font face="courier new,monospace"> my $ip = $self->get_property( 'peeraddr');<br> ...<br> }<br><br> MyPackage->run(port => 160);<br> exit;</font></div>
<div><font face="courier new,monospace"></code></font></div>
<div> </div>
<div><span class="gmail_quote">On 1/8/07, <b class="gmail_sendername">texugo89</b> <<a href="mailto:texugo89@yahoo.com.br">texugo89@yahoo.com.br</a>> wrote:</span>
<blockquote class="gmail_quote" style="PADDING-LEFT: 1ex; MARGIN: 0px 0px 0px 0.8ex; BORDER-LEFT: #ccc 1px solid">Olá para todos, eu sou novo na lista mas espero poder contribuir com o<br>pouco que conheço de Perl!<br><br>
Bom, mas eu estou com um problema...<br><br>Eu tenho um script em perl que usa o Módulo Net::Server e esse script<br>fica ouvindo uma porta qualquer e quando alguém da um telnet nessa porta<br>ele executa os comandos que eu preciso, mas eu estou precisando fazer
<br>com que ele pegue o ip e a data/hora de quem deu o bendito telnet...<br><br>Toda ajuda é bem-vinda!!!<br><br>Base do meu script (exemplo do próprio Net::Server):<br><br>#!/usr/bin/perl -w<br>package MyPackage;<br><br>
use Net::Server;<br>@ISA = qw(Net::Server);<br><br>sub process_request {<br><br>#...code...<br><br>}<br><br>MyPackage->run(port => 2020);<br>exit;<br><br>_______________________________________________<br>SaoPaulo-pm mailing list
<br><a href="mailto:SaoPaulo-pm@pm.org">SaoPaulo-pm@pm.org</a><br><a href="http://mail.pm.org/mailman/listinfo/saopaulo-pm">http://mail.pm.org/mailman/listinfo/saopaulo-pm</a><br></blockquote></div><br>