2006-08-25 [mones] 2.4.0cvs88

[claws.git] / tools / calypso_convert.pl

diff --git a/tools/calypso_convert.pl b/tools/calypso_convert.pl
index 19ddc8918b58aa91fff68c50e17b3a90ba3be93e..cded19aa83b9a575a5732bdafabf05eca0e26d81 100644 (file)
--- a/tools/calypso_convert.pl
+++ b/tools/calypso_convert.pl
@@ -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) {