Changeset 1449 in ProjectBuilder for projects/md2mb/devel/md2mb/bin/md2mb.pl

Timestamp:

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

Author:

ebaudrez

Message:

do not hardcode $newroot

$newroot is composed of two elements: the Thunderbird profile, and a
directory inside this profile. Both can be specified on the command
line, but the profile will be determined automatically if possible. Note
that this commit also fixes a bug in the command-line handling of
$oldroot and $profile (oops!).

File:

• projects/md2mb/devel/md2mb/bin/md2mb.pl (modified) (9 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 $newroot = "/users/segolene/.thunderbird/qk2f4dl6.default/Mail/pop.home.musique-ancienne.org/";
 # Is the newroot a file (1) or a dir (0)
 my $nrisfile = 0;
@@ -35 +33 @@
 my $help = 0;
 my $man = 0;
+my $oldroot = first { -d } "$ENV{HOME}/.Mail", "$ENV{HOME}/Mail";
+my @default_profiles = bsd_glob("$ENV{HOME}/.thunderbird/*.default");
+my $profile = shift @default_profiles;
+# if there is more than one default profile (quite unlikely, but you never
+# know), unset $profile again and let the user resolve this
+if (@default_profiles) { undef $profile }
+my $subdir;
 
 # parse command-line options
 GetOptions(
-    'debug|d'       => \$debug,
-    'help|h'        => \$help,
-    'man|m'         => \$man,
-    'oldroot|old|o' => \$oldroot,
+    'debug|d'         => \$debug,
+    'help|h'          => \$help,
+    'man|m'           => \$man,
+    'oldroot|old|o=s' => \$oldroot,
+    'profile|p=s'     => \$profile,
+    'subdir|s=s'      => \$subdir,
 ) or pod2usage(2);
 pod2usage(1) if ($help);
 pod2usage(-exitstatus => 0, -verbose => 2) if ($man);
+defined $subdir or pod2usage("Error: -subdir is a mandatory argument\n");
+
+# the new root is constructed from the profile and the chosen subdirectory name
+my $newroot = "$profile/$subdir";
 
 # debug mode overview
@@ -53 +64 @@
 cmd     = $cmd
 oldroot = $oldroot
-newroot = $newroot
+profile = $profile
+subdir  = $subdir
+newroot = $newroot (constructed)
 --- end ---
 EOF
@@ -60 +73 @@
 # some sanity checks before proceeding
 -d $oldroot or die "cannot find mailbox root `$oldroot'";
+-d $profile or die "cannot find Thunderbird profile directory `$profile'";
 
 # create destination path
@@ -163 +177 @@
 =head1 SYNOPSIS
 
-md2mb.pl  [options]
+md2mb.pl  [options]  -s name
 
  Options:
@@ -170 +184 @@
    -man     | -m        full documentation
    -oldroot | -old | -o     location of the KMail mailboxes
+   -profile | -p        path to the Thunderbird profile to install to
+   -subdir  | -s        subdir that will be created to hold the
+                imported mails
 
 =head1 OPTIONS
@@ -188 +205 @@
 Prints the manual page and exits.
 
-=item B<-oldroot>
+=item B<-oldroot> I<path>
 
 Specify where your B<KMail> mailboxes are to be found. By default assumes a
@@ -194 +211 @@
 exists.
 
+=item B<-profile> I<path>
+
+Specify the path to the Thunderbird profile. Your imported mails will go inside
+a directory in this profile. By default uses the default profile in the
+F<.thunderbird> directory in your home directory, if it is unique.
+
+=item B<-subdir> I<name>
+
+Specify the subdirectory I<name> that will be created inside the Thunderbird
+profile to hold the imported mails. This option is mandatory; there is no
+default.
+
 =back
+
+=head1 EXAMPLES
+
+    # this will fetch all mails from the folder .Mail or Mail in your home
+    # directory, and import them into your default Thunderbird profile, in
+    # a directory called Mail/pop.home.musique-ancienne.org/
+    #
+    # usually, this is all you need to specify:
+
+    perl md2mb.pl -s Mail/pop.home.musique-ancienne.org/
+
+    # on your computer, the mails may end up in
+    # /users/segolene/.thunderbird/qk2f4dl6.default/Mail/pop.home.musique-ancienne.org/
+
+    # if md2mb.pl cannot figure out where your default Thunderbird profile
+    # is, use the following:
+
+    perl md2mb.pl -p ~/.thunderbird/qk2f4dl6.default -s Mail/pop.home.musique-ancienne.org/
 
 =head1 DESCRIPTION
@@ -206 +253 @@
 incorrect, you need to specify the correct folder with B<-oldroot>.
 
+The mails will be imported into the Thunderbird profile that is either
+specified with B<-profile> or determined automatically. The script will try to
+determine the default Thunderbird profile automatically. If there is a folder
+that ends in F<.default> in the F<.thunderbird> directory in your home dir, and
+if it is unique, that one will be used.
+
+The mails finally end up in a subdirectory below the profile. You must specify
+the subdirectory on the command line with B<-subdir>, as shown in the examples
+above.
+
 =head1 AUTHOR