[SP-pm] Script que registra IP

texugo89 texugo89 em yahoo.com.br
Segunda Janeiro 8 09:24:51 PST 2007


Olá para todos, eu sou novo na lista mas espero poder contribuir com o 
pouco que conheço de Perl!

Bom, mas eu estou com um problema...

Eu tenho um script em perl que usa o Módulo Net::Server e esse script 
fica ouvindo uma porta qualquer e quando alguém da um telnet nessa porta 
ele executa os comandos que eu preciso, mas eu estou precisando fazer 
com que ele pegue o ip e a data/hora de quem deu o bendito telnet...

Toda ajuda é bem-vinda!!!

Base do meu script (exemplo do próprio Net::Server):

#!/usr/bin/perl -w
package MyPackage;

use Net::Server;
@ISA = qw(Net::Server);

sub process_request {

#...code...

}

MyPackage->run(port => 2020);
exit;



Mais detalhes sobre a lista de discussão SaoPaulo-pm