Re: Mail::Audit persistent running

Robert Nicholson <[email protected]> Sat, 6 Dec 2003 10:51:25 -0600
Newsgroups gmane.comp.lang.perl.modules.mail-audit
Message-ID <[email protected]>
Just to elaborate on the change I had to make to support Maildir

In my case I remember having to make the following change to 
Audit/List.pm

From

     my $deliver_filename = join '/', $dir, $name;

To

     my $deliver_filename = join '.', $dir, $name . '/';

I was wondering if things have changed to accomodate this today? And 
therefore
I could go ahead and safely update my ListDetector.

so you see normally if I'm using Mail::Audit::accept I'll be doing 
something like this.

"java.kvm-interest",

Where

$listsdir = $home/Maildir/.lists
$where = 'java.kvm-interest'

   $mail->accept("$listsdir.$where/");

So whilst Mail::Audit supports Maildir out of the box ListDetector 
makes some assumptions about Mbox.

Secondly, I had to add my own MyCommuniGatePro detector but honestly I 
cannot
remember why I had to this but it's changes looked like this

if (defined($x_listserver) && ($x_listserver =~ m/CommuniGate Pro LIST/)
) {
                 chomp $x_listserver;

                 my $sender = $head->get('Sender');
                 return undef unless defined($sender);
                 $sender =~ m/<(.+)>/ or return undef;
                 my $posting_address = $1;
                 $posting_address =~ m/(.+)@/ or return undef;
                 my $list_name = $1;

                 #my $rfc2919 = new 
Mail::ListDetector::Detector::RFC2919;
                 #my $list = ( $rfc2919->match($message) or new 
Mail::ListDetecto
r::List );
                 my $list = new Mail::ListDetector::List;

                 $list->listname($list_name);
                 $list->listsoftware($x_listserver);
                 $list->posting_address($posting_address);

                 return $list;
         } else {

Obviously at the time I couldn't rely on RFC2919 to work with the lists 
I was subscribed
to.

That said I know that currently I'm not using this change for some 
reason but I remember
it being necessary at the time.


On Dec 5, 2003, at 6:49 PM, Peter Oliver wrote:

> Is anyone running Mail::Audit under PPerl, PersistentPerl, or even
> mod_perl?
>
> I've just given it a quick go with a few test mailings, and one think 
> that
> I did notice is that LOG never gets closed, and hence the log doesn't 
> get
> written out in a timely fashion.  I'll knock up a patch.
>
> Can anyone who knows the code think of any other likely problems?  I'm
> understandably wary of just letting it loose on my mail and seeing what
> happens.
>
>
> Meanwhile, Mail::ListDetector helpfully comes with a bunch of tests 
> that
> fail the second time you run them under perperl.  Looks like
> Mail::SpamAssassin should work, though:
> http://use.perl.org/comments.pl?cid=13171&sid=8620
>
> -- 
> Peter Oliver
>
> _______________________________________________
> mail-audit mailing list
> [email protected]
> http://lists.netthink.co.uk/listinfo/mail-audit