Beefy Boxes and Bandwidth Generously Provided by pair Networks
XP is just a number

Re^3: Simple (but robust) email server (receiver)

by skx (Parson)
on Dec 17, 2008 at 19:23 UTC ( #731028=note: print w/replies, xml ) Need Help??

in reply to Re^2: Simple (but robust) email server (receiver)
in thread Simple (but robust) email server (receiver)

I don't maintain a database handle throughout the transaction - instead I use the connection object to make notes as the SMTP transaction is completed.


sub hook_helo { my ( $self, $transaction, $host ) = @_; # # Make sure helo includes a domain # if ( $host !~ /\./ ) { $self->log( LOGWARN, "HELO $host doesn't contain a period." ); $transaction->notes( "reject", 1 ); $transaction->notes( "reason", "invalid helo" ); } return DECLINED; }

Then I have a series of plugins which do different things at the last step, either forward the message or reject it, but archive a searchable copy for the recipients benefit. Here's a simplified version of the reject + archive plugin:

sub hook_queue { my ( $self, $transaction ) = @_; # # We only log mails which have been rejected. # if ( 0 == ( $transaction->notes("reject") || 0 ) ) { return DECLINED; } # connect to DB # archive message # disconnect return ( DECLINED, "Rejected this is spam: " . $transaction-Notes +("reason" ) ); }

(Actually this is a polite fiction. I actually archive messages to local disk, if they were to be rejected, then later rsync them to a central location - and import them to MySQL there.


Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://731028]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others imbibing at the Monastery: (5)
As of 2017-12-16 14:10 GMT
Find Nodes?
    Voting Booth?
    What programming language do you hate the most?

    Results (453 votes). Check out past polls.