Bug 56574 - [NEW PORT] mail/p5-Email-LocalDelivery-Ezmlm: Deliver mail into ezmlm archives
Summary: [NEW PORT] mail/p5-Email-LocalDelivery-Ezmlm: Deliver mail into ezmlm archives
Status: Closed FIXED
Alias: None
Product: Ports & Packages
Classification: Unclassified
Component: Individual Port(s) (show other bugs)
Version: Latest
Hardware: Any Any
: Normal Affects Only Me
Assignee: Erwin Lansing
URL:
Keywords:
Depends on:
Blocks:
 
Reported: 2003-09-07 22:10 UTC by Lars Thegler
Modified: 2003-09-24 09:49 UTC (History)
0 users

See Also:


Attachments
p5-Email-LocalDelivery-Ezmlm-0.10.shar (2.78 KB, text/plain)
2003-09-07 22:10 UTC, Lars Thegler
no flags Details

Note You need to log in before you can comment on or make changes to this bug.
Description Lars Thegler 2003-09-07 22:10:04 UTC
This module delivers RFC822 messages into ezmlm-style archive folders.

WWW: http://search.cpan.org/dist/Email-LocalDelivery-Ezmlm

Generated with FreeBSD Port Tools 0.26
Comment 1 Erwin Lansing freebsd_committer freebsd_triage 2003-09-10 10:15:20 UTC
State Changed
From-To: open->feedback

This port doesn't work with 5.005_03. Could you try to  
patch it or mark it IGNORE?
Comment 2 Lars Thegler 2003-09-10 21:35:30 UTC
The following patch file should make it 5.005_03-safe.

--- files/patch-Ezmlm.pm begins here ---
--- 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;

--- files/patch-Ezmlm.pm ends here ---
Comment 3 Erwin Lansing freebsd_committer freebsd_triage 2003-09-10 22:08:43 UTC
Responsible Changed
From-To: freebsd-ports-bugs->erwin

I'll handle this
Comment 4 Erwin Lansing freebsd_committer freebsd_triage 2003-09-24 09:48:42 UTC
State Changed
From-To: feedback->closed

Committed, thanks! 

I added a post-patch target to remove the .orig file which 
otherwise would have been installed