[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