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

Timestamp:

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

Author:

ebaudrez

Message:

create empty files for subdirs

Subfolders in KMail lead to directories ending in .sbd, which might not
show up in Thunderbird. This commit automates the process of creating
corresponding empty files to indicate the presence of the subfolders to
Thunderbird.

File:

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

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

@@ -37 +37 @@
 if (@default_profiles) { undef $profile }
 my $subdir;
+my $touch = 0;
 
 # parse command-line options
@@ -47 +48 @@
     'profile|p=s'     => \$profile,
     'subdir|s=s'      => \$subdir,
+    'touch|t'         => \$touch,
 ) or pod2usage(2);
 pod2usage(1) if ($help);
@@ -86 +88 @@
 }
 find(\&md2mb,($oldroot));
+
+# now go back again and create empty files corresponding to the `.sbd'
+# directories
+if ($touch) {
+    print "DESCENDING AGAIN INTO oldroot($oldroot)\n" if ($debug);
+    find(sub {
+            return if (! -d);   # consider only directories ...
+            return if (! /\.sbd$/); # ... with the right name
+            s/\.sbd//;      # strip .sbd suffix
+            if ($debug) {
+                print "WOULD CREATE file($_) IF NEEDED\n";
+            } else {
+                open my $fh, '>>', $_ or die "cannot open $_: $!";
+            }
+        }, $newroot);
+}
 
 # rename `inbox' to `Inbox'
@@ -186 +204 @@
    -subdir  | -s        subdir that will be created to hold the
                 imported mails
+   -touch   | -t        create empty files corresponding to .sdb dirs
 
 =head1 OPTIONS
@@ -226 +245 @@
 profile to hold the imported mails. This option is mandatory; there is no
 default.
+
+=item B<-touch>
+
+Create empty files corresponding to the F<.sbd> dirs created by this script.
+Use this hack if your mails don't show up in Thunderbird.
 
 =back
@@ -267 +291 @@
 above.
 
+If you have used a structure with subfolders in KMail, mails in subfolders
+might not show up in Thunderbird. Remove the import, and run again with
+B<-touch>.
+
 =head1 AUTHOR