Changeset 1328


Ignore:
Timestamp:
Sep 15, 2011, 11:31:46 AM (8 years ago)
Author:
Bruno Cornec
Message:
  • Fix a problem with spaces in folder names
File:
1 edited

Legend:

Unmodified
Added
Removed
  • projects/md2mb/devel/md2mb/bin/md2mb.pl

    r1300 r1328  
    1111my $cmd="formail";
    1212# CHANGE AS YOU WISH
    13 my $oldroot = "/users/beatrice/.Mail.sav";
    14 my $newroot = "/users/beatrice/.thunderbird/30cq2rn3.default/Mail/Local Folders/";
     13my $oldroot = "/users/segolene/.Mail";
     14my $newroot = "/users/segolene/.thunderbird/60q6hqwp.default/Mail/Local Folders/";
    1515# Is the newroot a file (1) or a dir (0)
    1616my $nrisfile = 0;
     
    5959$outputfile="$newroot" if ($destname =~ /^\s*$/);
    6060if (-d $File::Find::name) {
    61     my @files = (<$File::Find::name/cur/*>,<$File::Find::name/new/*>);
     61    if ($debug) {
     62        print "HANDLING: $File::Find::name content\n";
     63    }
     64    my @files = (<"$File::Find::name"/cur/*>,<"$File::Find::name"/new/*>);
    6265    if (@files) {
    6366        if ($debug) {
Note: See TracChangeset for help on using the changeset viewer.