Changeset 1448

Timestamp:

04/04/12 17:14:49 (14 months ago)

Author:

ebaudrez

Message:

improvements to handling of $oldroot

Try to determine $oldroot automatically, by looking for a folder called
.Mail or Mail in your homedir. Failing that, the root can be specified
with a command-line option.

File:

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

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

@@ -26 +26 @@
 Aborting
 EOF
+my $oldroot = first { -d } "$ENV{HOME}/.Mail", "$ENV{HOME}/Mail";
 # CHANGE AS YOU WISH
-my $oldroot = "/users/segolene/.Mail";
 my $newroot = "/users/segolene/.thunderbird/qk2f4dl6.default/Mail/pop.home.musique-ancienne.org/";
 # Is the newroot a file (1) or a dir (0)
@@ -38 +38 @@
 # parse command-line options
 GetOptions(
-    'debug|d'   => \$debug,
-    'help|h'    => \$help,
-    'man|m'     => \$man,
+    'debug|d'       => \$debug,
+    'help|h'        => \$help,
+    'man|m'         => \$man,
+    'oldroot|old|o' => \$oldroot,
 ) or pod2usage(2);
 pod2usage(1) if ($help);
@@ -56 +57 @@
 EOF
 }
+
+# some sanity checks before proceeding
+-d $oldroot or die "cannot find mailbox root `$oldroot'";
 
 # create destination path
@@ -162 +166 @@
 
  Options:
-   -debug | -d      debug mode
-   -help | -h       brief help message
-   -man | -m        full documentation
+   -debug   | -d        debug mode
+   -help    | -h        brief help message
+   -man     | -m        full documentation
+   -oldroot | -old | -o     location of the KMail mailboxes
 
 =head1 OPTIONS
@@ -182 +187 @@
 
 Prints the manual page and exits.
+
+=item B<-oldroot>
+
+Specify where your B<KMail> mailboxes are to be found. By default assumes a
+folder called F<.Mail> or F<Mail> in your homedir, preferring F<.Mail> if it
+exists.
 
 =back
@@ -191 +202 @@
 available in your search path, and will preferentially use B<formail>.
 
+By default, B<md2mb.pl> assumes that your B<kmail> mailboxes are stored in a
+folder called F<.Mail> or F<Mail> in your homedir. If this assumption is
+incorrect, you need to specify the correct folder with B<-oldroot>.
+
 =head1 AUTHOR
 
+=over 4
+
+=item *
+
 Bruno Cornec, http://brunocornec.wordpress.com
 
+=item *
+
+Edward Baudrez, C<< ebaudrez@cpan.org >>
+
+=back
+
 =head1 LICENSE