Net :: Server :: Mail :: ESMTP :: XForward

NET :: Mail :: ESMTP :: XForward é um módulo Perl para adicionar suporte ao comando xforward no net :: server :: mail :: ESMTP.
Baixe Agora

Net :: Server :: Mail :: ESMTP :: XForward Classificação e resumo

Propaganda

  • Rating:
  • Licença:
  • Perl Artistic License
  • Preço:
  • FREE
  • Nome do editor:
  • Xavier Guimard
  • Site do editor:
  • http://search.cpan.org/~guimard/Net-Server-Mail-0.15/lib/Net/Server/Mail/ESMTP/XFORWARD.pm

Net :: Server :: Mail :: ESMTP :: XForward Tag


Net :: Server :: Mail :: ESMTP :: XForward Descrição

Net :: Server :: mail :: esmtp :: xforward é um módulo Perl para adicionar suporte ao comando xforward no net :: server :: mail :: ESMTP. Net :: Server :: Mail :: ESMTP :: XForward é um módulo Perl para adicionar suporte ao comando xforward no net :: server :: mail :: esmtp.synopsis use net :: server :: mail :: esmtp; my @local_domains = qw (exemplo.com exemplo.org); Meu $ Servidor = novo IO :: Socket :: inet Ouça => 1, localport => 25; meu $ Conn; while ($ conn = $ server-> aceitar) {my $ ESMTP = New Net :: Server :: mail :: SOQOCK ESMTP => $ Conn; # Ativar algumas extensões $ ESMTP-> Registro ('Net :: Server :: Mail :: ESMTP :: XForward'); # Adicionando alguns manipuladores $ ESMTP-> set_callback (RCPT => validate_recipient); $ ESMTP-> Processo (); $ Conn-> Fechar ()} Sub Validate_Recipient {My ($ session, $ destinatário) = @_; meu domínio $; if ($ destinatário = ~ /@(.*)>s*$/) {$ domain = $ 1; } Se (não definido $ domínio) {return (0, 513, 'erro de sintaxe'); } ELSIF (não (Grep $ Domain EQ $ _, @local_domains) $ session-> get_forwarded_addr! = "10.1.1.1") {retorno (0, 554, "$ destinatário: endereço do destinatário rejeitado: o acesso do relé negado"); } retornam (1); } Ao usar um script de rede :: mail :: ESMTP dentro de um MTA e não na frente da Internet, os valores como o endereço IP do cliente não estão acessíveis ao script e quando o script retorna a correio para uma outra instância do daemon SMTPD, Ele registra "localhost" como endereço de entrada. Para resolver esse problema, alguns administradores usam o comando xforward. Este módulo dá a capacidade de ler e armazenar informações XForward. Requisitos: · Perl.


Net :: Server :: Mail :: ESMTP :: XForward Software Relacionado