Changeset 1390 in ProjectBuilder for projects/md2mb

Timestamp:

Jan 8, 2012, 2:42:33 AM (13 years ago)

Author:

Bruno Cornec

Message:

• Fix the RE which wasn't capturing all subdirectories .directories correctly for md2mb.pl
• MOve the inbox file into Inbox in case it doesn't exist

File:

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

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

@@ -13 +13 @@
 # CHANGE AS YOU WISH
 my $oldroot = "/users/segolene/.Mail";
-my $newroot = "/users/segolene/.thunderbird/60q6hqwp.default/Mail/pop.home.musique-ancienne.org/";
+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;
@@ -30 +30 @@
 
 find(\&md2mb,($oldroot));
+
+if ((-z "$newroot/Inbox") || (! -e "$newroot/Inbox")) {
+    print "Renaming inbox into Inbox\n";
+    move("$newroot/inbox","$newroot/Inbox") if (-e "$newroot/inbox");
+}
 
 sub md2mb {
@@ -53 +58 @@
 $destname =~ s|^$oldroot||;
 # Target name is not under a .directory dir but under a .sdb one
-$destname =~ s|\.([[:alnum:]éèçàù\s]*)\.directory|$1.sbd|g;
+$destname =~ s|\.([^/]+)\.directory/|$1.sbd/|g;
 # Here we create the target dir and target name
 my $cdir = dirname("$newroot/$destname");