Add p5-Email-LocalDelivery-Ezmlm 0.10,

deliver mail into ezmlm
archives.

PR:		56574
Submitted by:	Lars Thegler <lars@thegler.dk>
This commit is contained in:
Erwin Lansing
2003-09-24 08:49:00 +00:00
parent 7abfbb7e73
commit 021a90a648
6 changed files with 73 additions and 0 deletions

View File

@@ -181,6 +181,7 @@
SUBDIR += p5-Email-Folder
SUBDIR += p5-Email-FolderType
SUBDIR += p5-Email-LocalDelivery
SUBDIR += p5-Email-LocalDelivery-Ezmlm
SUBDIR += p5-Email-Simple
SUBDIR += p5-Email-Valid
SUBDIR += p5-Email-Valid-Loose

View File

@@ -0,0 +1,31 @@
# New ports collection makefile for: p5-Email-LocalDelivery-Ezmlm
# Date created: September 7 2003
# Whom: Lars Thegler <lars@thegler.dk>
#
# $FreeBSD$
#
PORTNAME= Email-LocalDelivery-Ezmlm
PORTVERSION= 0.10
CATEGORIES= mail perl5
MASTER_SITES= ${MASTER_SITE_PERL_CPAN}
MASTER_SITE_SUBDIR= Email
PKGNAMEPREFIX= p5-
MAINTAINER= lars@thegler.dk
COMMENT= Deliver mail into ezmlm archives
BUILD_DEPENDS= ${SITE_PERL}/Email/LocalDelivery.pm:${PORTSDIR}/mail/p5-Email-LocalDelivery \
${SITE_PERL}/Email/FolderType.pm:${PORTSDIR}/mail/p5-Email-FolderType
RUN_DEPENDS= ${BUILD_DEPENDS}
PERL_CONFIGURE= yes
MAN3= Email::LocalDelivery::Ezmlm.3
post-patch:
@${RM} ${WRKSRC}/lib/Email/LocalDelivery/Ezmlm.pm.orig
test:
cd ${WRKSRC} ; make test
.include <bsd.port.mk>

View File

@@ -0,0 +1 @@
MD5 (Email-LocalDelivery-Ezmlm-0.10.tar.gz) = c0700356d96418efe97d4d48ca34d69b

View File

@@ -0,0 +1,29 @@
--- lib/Email/LocalDelivery/Ezmlm.pm.orig Wed Sep 10 22:17:27 2003
+++ lib/Email/LocalDelivery/Ezmlm.pm Wed Sep 10 22:19:41 2003
@@ -1,6 +1,6 @@
use strict;
package Email::LocalDelivery::Ezmlm;
-our $VERSION = '0.10';
+use vars qw($VERSION); $VERSION = '0.10';
use File::Path qw(mkpath);
use File::Basename qw( dirname );
@@ -40,7 +40,8 @@
# XXX should lock the folder - figure out how ezmlm does that
my $num;
- if (open my $fh, "$folder/num") {
+ use IO::Handle; my $fh = IO::Handle->new;
+ if (open $fh, "$folder/num") {
($num) = (<$fh> =~ m/^(\d+)/);
}
++$num;
@@ -48,7 +49,7 @@
my $filename = sprintf('%s/archive/%d/%02d',
$folder, int $num / 100, $num % 100);
eval { mkpath( dirname $filename ) };
- open my $fh, ">$filename" or next;
+ open $fh, ">$filename" or next;
print $fh $mail;
close $fh or next;

View File

@@ -0,0 +1,3 @@
This module delivers RFC822 messages into ezmlm-style archive folders.
WWW: http://search.cpan.org/dist/Email-LocalDelivery-Ezmlm

View File

@@ -0,0 +1,8 @@
%%SITE_PERL%%/Email/LocalDelivery/Ezmlm.pm
%%SITE_PERL%%/%%PERL_ARCH%%/auto/Email/LocalDelivery/Ezmlm/.packlist
@dirrm %%SITE_PERL%%/%%PERL_ARCH%%/auto/Email/LocalDelivery/Ezmlm
@unexec rmdir %D/%%SITE_PERL%%/%%PERL_ARCH%%/auto/Email/LocalDelivery 2>/dev/null || true
@unexec rmdir %D/%%SITE_PERL%%/%%PERL_ARCH%%/auto/Email 2>/dev/null || true
@unexec rmdir %D/%%SITE_PERL%%/Email/LocalDelivery/Ezmlm 2>/dev/null || true
@unexec rmdir %D/%%SITE_PERL%%/Email/LocalDelivery 2>/dev/null || true
@unexec rmdir %D/%%SITE_PERL%%/Email 2>/dev/null || true