Net :: validmx. net :: validmx é um módulo Perl para usar DNS e / ou expressões regulares para verificar se um endereço de e-mail pode ser válido.
Baixe Agora

Net :: validmx. Classificação e resumo

Net :: validmx. Tag

regular Módulo Perl. expressões regulares Dns. Expressões Verifique o endereço de e-mail

Net :: validmx. Descrição

Net :: ValidMX é um módulo Perl para usar DNS e / ou expressões regulares para verificar se um endereço de e-mail pode ser válido. Net :: validmx é um módulo Perl para usar expressões DNS e / ou regulares para verificar se um endereço de e-mail pode ser válido.synopsisnet :: validmx - eu queria que a capacidade de usar o DNS para verificar se um endereço de e-mail pode ser válido verificando Registros MX válidos. Isso pode ser usado para verificação do remetente para e-mails com um programa como MimedeFang ou para sites para verificar endereços de e-mail antes de registrar usuários e / ou enviar uma confirmação E-mail.Examplethe Distribution contém um programa de exemplo para demonstrar funcionalidade de trabalho, bem como Interface de linha de comando para consultar um ou mais endereços de e-mail.run o programa com os endereços de e-mail separados por espaço para testar como seus argumentos: perl Exemplo / Check_Email_and_mx.pl keevin.mcGail@thoughtworthy.com ou perl EXEMPLO / Check_Email_and_mx.pl keevin.mcgeil @ PayyWorthy.com google@google.com presidente@whitehouse.govif você fornecer apenas um argumento de endereço de e-mail, o programa sairá com um status de saída de 0 para um sucesso e 1 para uma falha: Perl Exemplo / Check_Email_and_mx.pl keevin.mcGail @Failed ||. Echo 'Este e-mail não é bom' Mimedefangwe estão usando esta rotina com Mimedefang e foram por muitos meses através dos ganchos filtros_sender. Por exemplo, faça uma função que exclua os remetentes autorizados para sua configuração específica e adicione os snippets de código a seguir ao seu MimedEfang-Filter: Sub Filter_Initialize {#Para Verificação Valid MX Use Net :: Validmx QW (Check_VALID_MX); } sub is_authorized_sender {MY ($ remetente, $ RELAYADDR) = @_; if () {return 1; } else {return 0; }} sub filtro_sender {MY ($ remetente, $ IP, $ hostname, $ helo) = @_; meu ($ RV, $ Razo); #md_syslog ('aviso' ", testando $ remetente, $ IP, $ hostname, $ Helo"); if (is_authorized_sender ($ remetente, $ RELAYADDR)) {return ('continuar', "OK"); } Se ($ remetente ne '' ') {($ RV, $ Razo) = Check_Valid_MX ($ remetente); A menos que ($ RV) {MD_SYSLOG ('Aviso' ", rejeitando $ remetente - MX inválido de $: $."); retorno ('rejeitar', "desculpe; $ remetente tem um registro MX inválido: $ Razão."); }}} Requisitos: · DNS. · Perl.

Net :: validmx. Software Relacionado