Changeset 1328

Timestamp:

09/15/11 11:31:46 (20 months ago)

Author:

bruno

Message:

• Fix a problem with spaces in folder names

File:

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

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

@@ -11 +11 @@
 my $cmd="formail";
 # CHANGE AS YOU WISH
-my $oldroot = "/users/beatrice/.Mail.sav";
-my $newroot = "/users/beatrice/.thunderbird/30cq2rn3.default/Mail/Local Folders/";
+my $oldroot = "/users/segolene/.Mail";
+my $newroot = "/users/segolene/.thunderbird/60q6hqwp.default/Mail/Local Folders/";
 # Is the newroot a file (1) or a dir (0)
 my $nrisfile = 0;
@@ -59 +59 @@
 $outputfile="$newroot" if ($destname =~ /^\s*$/);
 if (-d $File::Find::name) {
-    my @files = (<$File::Find::name/cur/*>,<$File::Find::name/new/*>);
+    if ($debug) { 
+        print "HANDLING: $File::Find::name content\n";
+    }
+    my @files = (<"$File::Find::name"/cur/*>,<"$File::Find::name"/new/*>);
     if (@files) {
         if ($debug) {