2006-08-01 [wwp] 2.4.0cvs10
[claws.git] / tools / calypso_convert.pl
index 19ddc89..cded19a 100644 (file)
@@ -143,12 +143,15 @@ sub savemail {
        if (! $testonly ) {
                if ($create_dirs) {
                        $targetdir = $outdir.'/'.$folder ;
-                       ( -d $outdir)    || mkdir $outdir;
-                       ( -d $targetdir) || mkdir $targetdir;
+                       my $curdir = '';
+                       foreach (split('/',$targetdir)) {
+                               $curdir .= $_ . '/';
+                               ( -d $curdir) || mkdir $curdir;
+                       }
                }
 
                open (OUTFILE, ">".$targetdir.'/'.$mailname);
-               foreach (@lines) { printf OUTFILE "$_\n" ; }
+               foreach (@lines) { print OUTFILE "$_\n" ; }
                close (OUTFILE);
 
                if ($incl_attach) {