Changeset 1447 in ProjectBuilder

Timestamp:

Apr 4, 2012, 5:14:48 PM (12 years ago)

Author:

ebaudrez

Message:

use either formail' or procmail'

Use either of those programs to process your mailboxes, whichever is
available, in that order of preference. Also, abort the program as early
as possible if neither program can be found.

File:

• projects/md2mb/devel/md2mb/bin/md2mb.pl (modified) (3 diffs)

projects/md2mb/devel/md2mb/bin/md2mb.pl

@@ -15 +15 @@
 use Getopt::Long;
 use Pod::Usage;
+use List::Util qw(first);
 
 # settings
-my $cmd="formail";
+my $cmd = first {
+        system("$_ </dev/null >/dev/null 2>/dev/null") == 0
+    } qw(formail procmail);
+$cmd or die <<EOF;
+cannot find a usable program to manipulate your mailboxes in your \$PATH!
+Try installing `formail' or `procmail'
+Aborting
+EOF
 # CHANGE AS YOU WISH
 my $oldroot = "/users/segolene/.Mail";
@@ -56 +64 @@
     mkpath("$newroot",0, 0755) if ((not -d "$newroot") && (not $nrisfile));
 }
-system("$cmd </dev/null >/dev/null 2>/dev/null") == 0 or die "cannot find formail on your \$PATH!\nTry installing procmail\nAborting";
 
 # the main work is done here
@@ -181 +188 @@
 
 B<md2mb.pl> will import a B<kmail> maildir environment, and transform it into a
-B<thunderbird> one.
+B<thunderbird> one. It relies on either B<formail> or B<procmail> being
+available in your search path, and will preferentially use B<formail>.
 
 =head1 AUTHOR