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

Thanks - it looks interesting. One question about the plugins - how do you maintain a database connection persistent for a worker process? The docs only say:

There is no restriction, what you can do in “register()”, but creating database connections and reuse them later in the process may not be a good idea. This initialisation happens before any “fork()” is done. Therefore the file handle will be shared by all qpsmtpd processes and the database will probably be confused if several different queries arrive on the same file handle at the same time (and you may get the wrong answer, if any).

So is there a way to initialize the connection just after the fork - and before any request is served?

Comment on Re^2: Simple (but robust) email server (receiver)

Replies are listed 'Best First'.

Re^3: Simple (but robust) email server (receiver)
by skx (Parson) on Dec 17, 2008 at 19:23 UTC

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.

e.g.

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;
}
[download]

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" ) );
}
[download]

(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.

Steve
--

[reply]
[d/l]
[select]


Don't ask to ask, just ask
	PerlMonks