Extendendo o Amavisd New

Extendendoo Amavisd-New

YAPC::Brasil 2009, Rio de Janeiro, RJ

Friday, October 30, 2009

Quem?

Otávio Fernandes;

[email protected] / [email protected]

http://blog.emresumo.com

Líder, São Paulo Perl Mongers;


mailto:[email protected]






Minha História com Perl

Final de 2006;

Na época, as minhas principais linguagens eram: C, C++ e Shell Script;

Estava construindo um appliance de Anti-Spam... logo Amavisd-New;


Amavisd-New

A necessidade de entender como este software funciona, foi o que me levou a estudar e amar o Perl;

Perl, não existe melhor linguagem para o tratamento de email;


O que ele é?

Interface entre o MTA e anti-spam/anti-vírus;

Mail part decoder/unpacker;

Quarentenas (SQL/Local/Forward);

Log e Reporting para o SQL;


Quais as vantagens?MUITAS features;

Extensível;

Respeita os padrões (SMTP, MIME, DSN, etc);

Tolerante a falhas:

Verifica o estado de cada operação;

Se houver erro, o email permanece com o MTA;


Performance

Não é tão rápido quando se ele fosse escrito em C;

Porem, permite escalar;

Trabalha com daemons (conforme o setup, você usa mais instâncias);

200ms * N;


Performance Real:1938 msgs/min


Arquitetura do Amavisd / Postfix


Afinal, como extender?

Todos os arquivos de configuração são scripts Perl;

include_config_files("/usr/local/etc/amavis_custom.pm") if ( -e "/usr/local/etc/.pm" );

package Amavis::Custom;


Métodos

new;

checks;

before_send;

after_send;

mail_done;


Exemplo


if ($must_exec_action) { do_log( $cll, "CUSTOM: must_exec_action %d", $must_exec_action );

# redirecting to another recipient $r->recip_addr_modified( $mail_rules->{mailRedirectTo} ) if ( $mail_rules->{mailRedirectTo} );

# rejecting mail for sender if ( $mail_rules->{mailReject} =~ /(true|1)/i ) { do_log( $cll, "CUSTOM: reject this mail for '%s'", ( $mail_rules->{description} ) ? $mail_rules->{description} : 'no_description' ); for my $r ( @{ $msginfo->per_recip_data } ) { $r->add_contents_category( CC_BANNED, 0 ) if !$r->bypass_banned_checks; $r->banning_reason_short( ( $mail_rules->{description} ) ? $mail_rules->{description} : 'no_descption' ); $r->banned_parts( ['MAIL'] ); } $msginfo->add_contents_category( CC_BANNED, 0 ); }}


Testes?

TDD;

Unit Tests;

Testes de Aceitação com Fixtures;


Perguntas?


Obrigado :-)


Extendendo o Amavisd New

Technology

Transcript of Extendendo o Amavisd New