projects
/
claws.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
2005-08-13 [hoa] 1.9.13cvs33
[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 ;
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);
}
open (OUTFILE, ">".$targetdir.'/'.$mailname);
- foreach (@lines) { print
f
OUTFILE "$_\n" ; }
+ foreach (@lines) { print OUTFILE "$_\n" ; }
close (OUTFILE);
if ($incl_attach) {
close (OUTFILE);
if ($incl_attach) {