[SP-pm] Script que registra IP

[Solli Honorio]

Cara,

Eu não testei, mas eu acredito que você possa fazer algo assim:
<code>
  #!/usr/bin/perl -w -T
  package MyPackage;

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

  sub process_request {
    my $self = shift;
    $self->post_accept;
    $self->*get_client_info*;
    my $ip = $self->get_property( 'peeraddr');
    ...
  }

  MyPackage->run(port => 160);
  exit;
</code>

On 1/8/07, texugo89 <texugo89 em yahoo.com.br> wrote:
>
> 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;
>
> _______________________________________________
> SaoPaulo-pm mailing list
> SaoPaulo-pm em pm.org
> http://mail.pm.org/mailman/listinfo/saopaulo-pm
>
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/saopaulo-pm/attachments/20070108/66a459a9/attachment-0001.html