[prev] [thread] [next] [lurker] [Date index for 2004/08/26]
Author: richardc
Date: 2004-08-26 16:37:21 +0100 (Thu, 26 Aug 2004)
New Revision: 1527
Added:
trunk/Email-Folder/lib/Email/Folder/MH.pm
trunk/Email-Folder/t/03mh.t
trunk/Email-Folder/t/testmh/
trunk/Email-Folder/t/testmh/.mh_sequences
trunk/Email-Folder/t/testmh/1
trunk/Email-Folder/t/testmh/2
trunk/Email-Folder/t/testmh/3
trunk/Email-Folder/t/testmh/4
Log:
Date: Thu, 26 Aug 2004 08:34:59 -0400
From: Ricardo SIGNES <rjbs@xxxx.xxx>
Subject: Email::Folder::MH attached
Added: trunk/Email-Folder/lib/Email/Folder/MH.pm
===================================================================
--- trunk/Email-Folder/lib/Email/Folder/MH.pm 2004-06-17 20:39:12 UTC (rev 1526)
+++ trunk/Email-Folder/lib/Email/Folder/MH.pm 2004-08-26 15:37:21 UTC (rev 1527)
@@ -0,0 +1,69 @@
+package Email::Folder::MH;
+use strict;
+use Carp;
+use IO::File;
+use Email::Folder::Reader;
+use base 'Email::Folder::Reader';
+
+=head1 NAME
+
+Email::Folder::MH - reads raw RFC822 mails from an mh folder
+
+=head1 SYNOPSIS
+
+This isa Email::Folder::Reader - read about its API there.
+
+=head1 DESCRIPTION
+
+It's yet another email folder reader! It reads MH folders.
+
+=cut
+
+sub _what_is_there {
+ my $self = shift;
+ my $dir = $self->{_file};
+
+ croak "$dir does not exist" unless (-e $dir);
+ croak "$dir is not a directory" unless (-d $dir);
+
+ my @messages;
+ opendir(DIR,"$dir") or croak "Could not open '$dir'";
+ foreach my $file (readdir DIR) {
+ next unless $file =~ /\A\d+\Z/;
+ push @messages, "$dir/$file";
+ }
+
+ $self->{_messages} = \@messages;
+}
+
+sub next_message {
+ my $self = shift;
+ my $what = $self->{_messages} || $self->_what_is_there;
+
+ my $file = shift @$what or return;
+ local *FILE;
+ open FILE, $file or croak "couldn't open '$file' for reading";
+ join '', <FILE>;
+}
+
+1;
+
+__END__
+
+=head1 AUTHOR
+
+Ricardo SIGNES <C<rjbs@xxxx.xxx>>
+
+This code is just Simon Wistow's Email::Folder::Maildir adapted for C<mh>.
+
+=head1 COPYING
+
+Copyright 2004, Simon Wistow
+
+Distributed under the same terms as Perl itself.
+
+=head1 SEE ALSO
+
+L<Email::LocalDelivery>, L<Email::Folder>
+
+=cut
Added: trunk/Email-Folder/t/03mh.t
===================================================================
--- trunk/Email-Folder/t/03mh.t 2004-06-17 20:39:12 UTC (rev 1526)
+++ trunk/Email-Folder/t/03mh.t 2004-08-26 15:37:21 UTC (rev 1527)
@@ -0,0 +1,23 @@
+#!perl -w
+use strict;
+use Test::More tests => 4;
+
+use_ok("Email::Folder");
+
+my $folder;
+ok($folder = Email::Folder->new('t/testmh/.'));
+
+
+my @messages = $folder->messages;
+is(@messages, 4, "grabbed 4 messages");
+
+my @subjects = sort map { $_->header('Subject') } @messages;
+
+my @known = (
+ 'Alfa bravo charlie delta',
+ 'Echo foxtrot gulf hotel',
+ 'India juliet kilo lima',
+ 'Mike november oscar popa'
+ );
+
+is_deeply(\@subjects, \@known, "they're the messages we expected");
Added: trunk/Email-Folder/t/testmh/.mh_sequences
===================================================================
Added: trunk/Email-Folder/t/testmh/1
===================================================================
--- trunk/Email-Folder/t/testmh/1 2004-06-17 20:39:12 UTC (rev 1526)
+++ trunk/Email-Folder/t/testmh/1 2004-08-26 15:37:21 UTC (rev 1527)
@@ -0,0 +1,37 @@
+Return-Path: <nobody@xxxxx.xxxx.xxx>
+Delivered-To: anonymous-cpan@xxxxxxx.xxx
+Received: (qmail 31554 invoked from network); 29 Feb 2004 13:11:18 -0000
+Received: from unknown (HELO pause.perl.org) (195.149.117.110)
+ by cheshirecat.example.org with SMTP; 29 Feb 2004 13:11:18 -0000
+Received: from pause.perl.org (localhost [127.0.0.1])
+ by pause.perl.org (8.12.3/8.12.3/Debian-6.6) with ESMTP id i1TDBHcj014491
+ for <anonymous-cpan@xxxxxxx.xxx>; Sun, 29 Feb 2004 14:11:17 +0100
+Received: (from nobody@localhost)
+ by pause.perl.org (8.12.3/8.12.3/Debian-6.6) id i1TDBHEj014489;
+ Sun, 29 Feb 2004 14:11:17 +0100
+Date: Sun, 29 Feb 2004 14:11:17 +0100
+Message-Id: <200402291311.i1TDBHEj014489@xxxxx.xxxx.xxx>
+Subject: Alfa bravo charlie delta
+Reply-To: modules@xxxx.xxx
+To: anonymous-cpan@xxxxxxx.xxx
+From: "Perl Authors Upload Server" <upload@xxxxx.xxxx.xxx>
+X-Spam-Checker-Version: SpamAssassin 2.63 (2004-01-11) on
+ cheshirecat.example.org
+X-Spam-Level:
+X-Spam-Status: No, hits=0.0 required=4.0 tests=none autolearn=no version=2.63
+Status: RO
+Content-Length: 299
+Lines: 12
+
+Record update in the PAUSE uploads database:
+
+ uriid: [R/RJ/RJBS/Math-TotalBuilder-002targz/Math-TotalBuilder-0.02.tar.gz]
+ uri: [fixedMathTB2.tar.gz] was [Math-TotalBuilder-0.02.tar.gz]
+
+Data entered by Ricardo SIGNES (RJBS).
+Please check if they are correct.
+
+Thanks,
+--
+The PAUSE
+
Added: trunk/Email-Folder/t/testmh/2
===================================================================
--- trunk/Email-Folder/t/testmh/2 2004-06-17 20:39:12 UTC (rev 1526)
+++ trunk/Email-Folder/t/testmh/2 2004-08-26 15:37:21 UTC (rev 1527)
@@ -0,0 +1,37 @@
+Return-Path: <nobody@xxxxx.xxxx.xxx>
+Delivered-To: anonymous-cpan@xxxxxxx.xxx
+Received: (qmail 31567 invoked from network); 29 Feb 2004 13:11:19 -0000
+Received: from unknown (HELO pause.perl.org) (195.149.117.110)
+ by cheshirecat.example.org with SMTP; 29 Feb 2004 13:11:19 -0000
+Received: from pause.perl.org (localhost [127.0.0.1])
+ by pause.perl.org (8.12.3/8.12.3/Debian-6.6) with ESMTP id i1TDBIcj014504
+ for <anonymous-cpan@xxxxxxx.xxx>; Sun, 29 Feb 2004 14:11:18 +0100
+Received: (from nobody@localhost)
+ by pause.perl.org (8.12.3/8.12.3/Debian-6.6) id i1TDBIKc014502;
+ Sun, 29 Feb 2004 14:11:18 +0100
+Date: Sun, 29 Feb 2004 14:11:18 +0100
+Message-Id: <200402291311.i1TDBIKc014502@xxxxx.xxxx.xxx>
+Subject: Echo foxtrot gulf hotel
+Reply-To: modules@xxxx.xxx
+To: anonymous-cpan@xxxxxxx.xxx
+From: "Perl Authors Upload Server" <upload@xxxxx.xxxx.xxx>
+X-Spam-Checker-Version: SpamAssassin 2.63 (2004-01-11) on
+ cheshirecat.example.org
+X-Spam-Level:
+X-Spam-Status: No, hits=0.0 required=4.0 tests=none autolearn=no version=2.63
+Status: RO
+Content-Length: 299
+Lines: 12
+
+Record update in the PAUSE uploads database:
+
+ uriid: [R/RJ/RJBS/Math-TotalBuilder-002targz/Math-TotalBuilder-0.02.tar.gz]
+ uri: [fixedMathTB2.tar.gz] was [Math-TotalBuilder-0.02.tar.gz]
+
+Data entered by Ricardo SIGNES (RJBS).
+Please check if they are correct.
+
+Thanks,
+--
+The PAUSE
+
Added: trunk/Email-Folder/t/testmh/3
===================================================================
--- trunk/Email-Folder/t/testmh/3 2004-06-17 20:39:12 UTC (rev 1526)
+++ trunk/Email-Folder/t/testmh/3 2004-08-26 15:37:21 UTC (rev 1527)
@@ -0,0 +1,39 @@
+Return-Path: <nobody@xxxxx.xxxx.xxx>
+Delivered-To: anonymous-cpan@xxxxxxx.xxx
+Received: (qmail 31617 invoked from network); 29 Feb 2004 13:16:22 -0000
+Received: from unknown (HELO pause.perl.org) (195.149.117.110)
+ by cheshirecat.example.org with SMTP; 29 Feb 2004 13:16:22 -0000
+Received: from pause.perl.org (localhost [127.0.0.1])
+ by pause.perl.org (8.12.3/8.12.3/Debian-6.6) with ESMTP id i1TDGLcj014556
+ for <anonymous-cpan@xxxxxxx.xxx>; Sun, 29 Feb 2004 14:16:21 +0100
+Received: (from nobody@localhost)
+ by pause.perl.org (8.12.3/8.12.3/Debian-6.6) id i1TDGLl2014553;
+ Sun, 29 Feb 2004 14:16:21 +0100
+Date: Sun, 29 Feb 2004 14:16:21 +0100
+Message-Id: <200402291316.i1TDGLl2014553@xxxxx.xxxx.xxx>
+Subject: India juliet kilo lima
+Reply-To: modules@xxxx.xxx
+To: "Ricardo SIGNES" <anonymous-cpan@xxxxxxx.xxx>
+From: "Perl Authors Upload Server" <upload@xxxxx.xxxx.xxx>
+X-Spam-Checker-Version: SpamAssassin 2.63 (2004-01-11) on
+ cheshirecat.example.org
+X-Spam-Level:
+X-Spam-Status: No, hits=0.0 required=4.0 tests=none autolearn=no version=2.63
+Status: RO
+Content-Length: 545
+Lines: 14
+
+According to a request entered by Ricardo SIGNES the following files and
+the symlinks pointing to them have been scheduled for deletion. They
+will expire after 72 hours and then be deleted by a cronjob. Until then
+you can undelete them via
+https://pause.perl.org/pause/authenquery?ACTION=delete_files or
+http://pause.perl.org/pause/authenquery?ACTION=delete_files
+
+$CPAN/authors/id/R/RJ/RJBS/fixedMathTB2targz/fixedMathTB2.tar.gz
+
+Note: to encourage deletions, all of past CPAN glory is collected on
+http://history.perl.org/backpan/
+
+The Pause
+
Added: trunk/Email-Folder/t/testmh/4
===================================================================
--- trunk/Email-Folder/t/testmh/4 2004-06-17 20:39:12 UTC (rev 1526)
+++ trunk/Email-Folder/t/testmh/4 2004-08-26 15:37:21 UTC (rev 1527)
@@ -0,0 +1,40 @@
+Return-Path: <nobody@xxxxx.xxxx.xxx>
+Delivered-To: anonymous-cpan@xxxxxxx.xxx
+Received: (qmail 31929 invoked from network); 29 Feb 2004 13:55:15 -0000
+Received: from unknown (HELO pause.perl.org) (195.149.117.110)
+ by cheshirecat.example.org with SMTP; 29 Feb 2004 13:55:15 -0000
+Received: from pause.perl.org (localhost [127.0.0.1])
+ by pause.perl.org (8.12.3/8.12.3/Debian-6.6) with ESMTP id i1TDtEcj015049
+ for <anonymous-cpan@xxxxxxx.xxx>; Sun, 29 Feb 2004 14:55:14 +0100
+Received: (from nobody@localhost)
+ by pause.perl.org (8.12.3/8.12.3/Debian-6.6) id i1TDtEH2015046;
+ Sun, 29 Feb 2004 14:55:14 +0100
+Date: Sun, 29 Feb 2004 14:55:14 +0100
+Message-Id: <200402291355.i1TDtEH2015046@xxxxx.xxxx.xxx>
+Subject: Mike november oscar popa
+Reply-To: modules@xxxx.xxx
+To: "Ricardo SIGNES" <anonymous-cpan@xxxxxxx.xxx>
+From: "Perl Authors Upload Server" <upload@xxxxx.xxxx.xxx>
+X-Spam-Checker-Version: SpamAssassin 2.63 (2004-01-11) on
+ cheshirecat.example.org
+X-Spam-Level:
+X-Spam-Status: No, hits=0.0 required=4.0 tests=none autolearn=no version=2.63
+Status: RO
+Content-Length: 614
+Lines: 15
+
+According to a request entered by Ricardo SIGNES the following files and
+the symlinks pointing to them have been scheduled for deletion. They
+will expire after 72 hours and then be deleted by a cronjob. Until then
+you can undelete them via
+https://pause.perl.org/pause/authenquery?ACTION=delete_files or
+http://pause.perl.org/pause/authenquery?ACTION=delete_files
+
+WARNING: CHECKSUMS not erasable: R/RJ/RJBS/fixedMathTB2targz/CHECKSUMS
+$CPAN/authors/id/R/RJ/RJBS/fixedMathTB2targz/fixedMathTB2.meta
+
+Note: to encourage deletions, all of past CPAN glory is collected on
+http://history.perl.org/backpan/
+
+The Pause
+
Generated at 17:00 on 26 Aug 2004 by mariachi 0.52