$home = glob("~");
$clawsdir=`claws-mail --config-dir`;
chomp($clawsdir);
-$clawsdir = $home . '/' . $clawsdir;
+$clawsdir = $home . '/' . $clawsdir . '/' . 'addrbook/';
opendir(CLAWS, $clawsdir) || die("Can't open $clawsdir directory\n");
push(@cached,(readdir(CLAWS)));
$outl_file = $ARGV[0];
}
# some init
-$clawsconf = ".claws-mail";
+$clawsconf = ".claws-mail/addrbook";
$indexname = "$clawsconf/addrbook--index.xml";
# the next is mostly Paul's code
unless ($#headerline == $nboffields);
}
open(NEWB, '>', "$clawsconf/$new_book")
- or die "Error: can't open $clawsconf/$new_book for writting\n";
+ or die "Error: can't open $clawsconf/$new_book for writing\n";
if ($do_csv) { process_csv(); }
else { process_text(); }
}
}
open (INDX, '>', $indexname)
- or die "Error: can't open $indexname for writting\n";
+ or die "Error: can't open $indexname for writing\n";
print INDX "$new_index";
close INDX;
chdir;
# check is Claws-Mail instrtalled
-opendir(CLAWS, ".claws-mail") || die("Can't open Claws Mail directory! Conversion abroted\n");
+opendir(CLAWS, ".claws-mail/addrbook") || die("Can't open Claws Mail directory! Conversion aborted\n");
push(@cached, (readdir(CLAWS)));
closedir(CLAWS);
$claws_addr .= "</address-book>\n";
# print new addressbook to file
-open (NEWADDR, ">.claws-mail/$new_addrbk");
+open (NEWADDR, ">.claws-mail/addrbook/$new_addrbk");
print NEWADDR $claws_addr;
close NEWADDR;
# add new addressbook to index
-open (ADDRIN, "<.claws-mail/addrbook--index.xml") || die("Can't open addrbook--index.xml");
+open (ADDRIN, "<.claws-mail/addrbook/addrbook--index.xml") || die("Can't open addrbook--index.xml");
@addrindex_file = <ADDRIN>;
close ADDRIN;
}
}
-open (NEWADDRIN, ">.claws-mail/addrbook--index.xml");
+open (NEWADDRIN, ">.claws-mail/addrbook/addrbook--index.xml");
print NEWADDRIN "$rewrite_addrin";
close NEWADDRIN;
print "You have sucessfully converted your The Bat! addressbook\n";