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";