Skip Menu |
 

Preferred bug tracker

Please visit the preferred bug tracker to report your issue.

This queue is for tickets about the Mail-Audit CPAN distribution.

Report information
The Basics
Id: 2568
Status: resolved
Priority: 0/
Queue: Mail-Audit

People
Owner: Nobody in particular
Requestors: mah [...] everybody.org
Cc:
AdminCc:

Bug Information
Severity: (no value)
Broken in: (no value)
Fixed in: (no value)



Subject: patch for list_accept
Download (untitled) / with headers
text/plain 642b
list_accept doesn't quite work with maildirs. I'm using Courier maildirs and the following list_accept: sub list_accept { my $self = shift; my $dir = shift; $dir ||= $DEFAULT_DIR; my $list = new Mail::ListDetector($self->{obj}); if (!(defined $list)) { return 0; } else { my $name = $list->listname; $name =~ tr/A-Za-z0-9_-//dc; my $deliver_filename; if($self->mbox_or_maildir($dir) eq 'maildir') { $deliver_filename = "$dir/.$name/"; # Force to maildir } else { $deliver_filename = join '/', $dir, $name; } $self->accept($deliver_filename); return $deliver_filename; } }
I've added a named arg to Mail::Audit::List that will make this simple and flexible. -- rjbs


This service is sponsored and maintained by Best Practical Solutions and runs on Perl.org infrastructure.

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.