52ffd8b406
* COPYING * README * autogen.sh * manual/claws-mail-manual.xml * manual/gpl.xml * manual/es/claws-mail-manual.xml * manual/es/gpl.xml * manual/fr/claws-mail-manual.xml * manual/fr/gpl.xml * manual/pl/gpl.xml * src/account.c * src/account.h * src/action.c * src/action.h * src/adbookbase.h * src/addr_compl.c * src/addr_compl.h * src/addrbook.c * src/addrbook.h * src/addrcache.c * src/addrcache.h * src/addrcindex.c * src/addrcindex.h * src/addrclip.c * src/addrclip.h * src/addrdefs.h * src/addressadd.c * src/addressadd.h * src/addressbook.c * src/addressbook.h * src/addressbook_foldersel.c * src/addressbook_foldersel.h * src/addressitem.h * src/addrgather.c * src/addrgather.h * src/addrharvest.c * src/addrharvest.h * src/addrindex.c * src/addrindex.h * src/addritem.c * src/addritem.h * src/addrquery.c * src/addrquery.h * src/addrselect.c * src/addrselect.h * src/alertpanel.c * src/alertpanel.h * src/browseldap.c * src/browseldap.h * src/codeconv.c * src/codeconv.h * src/compose.c * src/compose.h * src/crash.c * src/crash.h * src/customheader.c * src/customheader.h * src/displayheader.c * src/displayheader.h * src/editaddress.c * src/editaddress.h * src/editaddress_other_attributes_ldap.c * src/editaddress_other_attributes_ldap.h * src/editbook.c * src/editbook.h * src/editgroup.c * src/editgroup.h * src/editjpilot.c * src/editjpilot.h * src/editldap.c * src/editldap.h * src/editldap_basedn.c * src/editldap_basedn.h * src/edittags.c * src/edittags.h * src/editvcard.c * src/editvcard.h * src/enriched.c * src/enriched.h * src/exphtmldlg.c * src/exphtmldlg.h * src/expldifdlg.c * src/expldifdlg.h * src/export.c * src/export.h * src/exporthtml.c * src/exporthtml.h * src/exportldif.c * src/exportldif.h * src/filtering.c * src/filtering.h * src/folder.c * src/folder.h * src/folder_item_prefs.c * src/folder_item_prefs.h * src/foldersel.c * src/foldersel.h * src/folderutils.c * src/folderutils.h * src/folderview.c * src/folderview.h * src/gedit-print.c * src/gedit-print.h * src/grouplistdialog.c * src/grouplistdialog.h * src/headerview.c * src/headerview.h * src/html.c * src/html.h * src/image_viewer.c * src/image_viewer.h * src/imap.c * src/imap.h * src/imap_gtk.c * src/imap_gtk.h * src/import.c * src/import.h * src/importldif.c * src/importldif.h * src/importmutt.c * src/importmutt.h * src/importpine.c * src/importpine.h * src/inc.c * src/inc.h * src/jpilot.c * src/jpilot.h * src/ldapctrl.c * src/ldapctrl.h * src/ldaplocate.c * src/ldaplocate.h * src/ldapquery.c * src/ldapquery.h * src/ldapserver.c * src/ldapserver.h * src/ldapupdate.c * src/ldapupdate.h * src/ldaputil.c * src/ldaputil.h * src/ldif.c * src/ldif.h * src/localfolder.c * src/localfolder.h * src/main.c * src/main.h * src/mainwindow.c * src/mainwindow.h * src/manual.c * src/manual.h * src/matcher.c * src/matcher.h * src/matcher_parser.h * src/matcher_parser_lex.l * src/matcher_parser_parse.y * src/mbox.c * src/mbox.h * src/message_search.c * src/message_search.h * src/messageview.c * src/messageview.h * src/mh.c * src/mh.h * src/mh_gtk.c * src/mh_gtk.h * src/mimeview.c * src/mimeview.h * src/msgcache.c * src/msgcache.h * src/mutt.c * src/mutt.h * src/news.c * src/news.h * src/news_gtk.c * src/news_gtk.h * src/noticeview.c * src/noticeview.h * src/partial_download.c * src/partial_download.h * src/pine.c * src/pine.h * src/pop.c * src/pop.h * src/prefs_account.c * src/prefs_account.h * src/prefs_actions.c * src/prefs_actions.h * src/prefs_common.c * src/prefs_common.h * src/prefs_compose_writing.c * src/prefs_compose_writing.h * src/prefs_customheader.c * src/prefs_customheader.h * src/prefs_display_header.c * src/prefs_display_header.h * src/prefs_ext_prog.c * src/prefs_ext_prog.h * src/prefs_filtering.c * src/prefs_filtering.h * src/prefs_filtering_action.c * src/prefs_filtering_action.h * src/prefs_folder_column.c * src/prefs_folder_column.h * src/prefs_folder_item.c * src/prefs_folder_item.h * src/prefs_fonts.c * src/prefs_fonts.h * src/prefs_gtk.c * src/prefs_gtk.h * src/prefs_image_viewer.c * src/prefs_image_viewer.h * src/prefs_logging.c * src/prefs_logging.h * src/prefs_matcher.c * src/prefs_matcher.h * src/prefs_message.c * src/prefs_message.h * src/prefs_msg_colors.c * src/prefs_msg_colors.h * src/prefs_other.c * src/prefs_other.h * src/prefs_quote.c * src/prefs_quote.h * src/prefs_receive.c * src/prefs_receive.h * src/prefs_send.c * src/prefs_send.h * src/prefs_spelling.c * src/prefs_spelling.h * src/prefs_summaries.c * src/prefs_summaries.h * src/prefs_summary_column.c * src/prefs_summary_column.h * src/prefs_summary_open.c * src/prefs_summary_open.h * src/prefs_template.c * src/prefs_template.h * src/prefs_themes.c * src/prefs_themes.h * src/prefs_toolbar.c * src/prefs_toolbar.h * src/prefs_wrapping.c * src/prefs_wrapping.h * src/privacy.c * src/privacy.h * src/procheader.c * src/procheader.h * src/procmime.c * src/procmime.h * src/procmsg.c * src/procmsg.h * src/quote_fmt.c * src/quote_fmt_lex.l * src/quote_fmt_parse.y * src/recv.c * src/recv.h * src/remotefolder.c * src/remotefolder.h * src/send_message.c * src/send_message.h * src/setup.c * src/setup.h * src/simple-gettext.c * src/sourcewindow.c * src/sourcewindow.h * src/ssl_manager.c * src/ssl_manager.h * src/statusbar.c * src/statusbar.h * src/stock_pixmap.c * src/stock_pixmap.h * src/summary_search.c * src/summary_search.h * src/summaryview.c * src/summaryview.h * src/textview.c * src/textview.h * src/toolbar.c * src/toolbar.h * src/undo.c * src/undo.h * src/unmime.c * src/unmime.h * src/uri_opener.c * src/uri_opener.h * src/vcard.c * src/vcard.h * src/wizard.c * src/wizard.h * src/common/base64.c * src/common/base64.h * src/common/claws.c * src/common/claws.h * src/common/defs.h * src/common/fnmatch.c * src/common/fnmatch.h * src/common/fnmatch_loop.c * src/common/hooks.c * src/common/hooks.h * src/common/log.c * src/common/log.h * src/common/md5.c * src/common/md5.h * src/common/mgutils.c * src/common/mgutils.h * src/common/nntp.c * src/common/nntp.h * src/common/passcrypt.c * src/common/passcrypt.h.in * src/common/plugin.c * src/common/plugin.h * src/common/prefs.c * src/common/prefs.h * src/common/progressindicator.c * src/common/progressindicator.h * src/common/quoted-printable.c * src/common/quoted-printable.h * src/common/session.c * src/common/session.h * src/common/smtp.c * src/common/smtp.h * src/common/socket.c * src/common/socket.h * src/common/ssl.c * src/common/ssl.h * src/common/ssl_certificate.c * src/common/ssl_certificate.h * src/common/string_match.c * src/common/string_match.h * src/common/stringtable.c * src/common/stringtable.h * src/common/tags.c * src/common/tags.h * src/common/template.c * src/common/template.h * src/common/timing.h * src/common/utils.c * src/common/utils.h * src/common/uuencode.c * src/common/uuencode.h * src/common/version.h.in * src/common/w32_dirent.c * src/common/w32_reg.c * src/common/w32_signal.c * src/common/w32_stat.c * src/common/w32_stdlib.c * src/common/w32_string.c * src/common/w32_time.c * src/common/w32_unistd.c * src/common/w32_wait.c * src/common/w32lib.h * src/common/xml.c * src/common/xml.h * src/common/xmlprops.c * src/common/xmlprops.h * src/etpan/etpan-errors.h * src/etpan/etpan-thread-manager-types.h * src/etpan/etpan-thread-manager.c * src/etpan/etpan-thread-manager.h * src/etpan/imap-thread.c * src/etpan/imap-thread.h * src/gtk/about.c * src/gtk/about.h * src/gtk/colorlabel.c * src/gtk/colorlabel.h * src/gtk/colorsel.c * src/gtk/colorsel.h * src/gtk/combobox.c * src/gtk/combobox.h * src/gtk/description_window.c * src/gtk/description_window.h * src/gtk/filesel.c * src/gtk/filesel.h * src/gtk/foldersort.c * src/gtk/foldersort.h * src/gtk/gtkaspell.c * src/gtk/gtkaspell.h * src/gtk/gtksctree.c * src/gtk/gtkshruler.c * src/gtk/gtkshruler.h * src/gtk/gtksourceprintjob.c * src/gtk/gtksourceprintjob.h * src/gtk/gtkutils.c * src/gtk/gtkutils.h * src/gtk/gtkvscrollbutton.c * src/gtk/gtkvscrollbutton.h * src/gtk/icon_legend.c * src/gtk/icon_legend.h * src/gtk/inputdialog.c * src/gtk/inputdialog.h * src/gtk/logwindow.c * src/gtk/logwindow.h * src/gtk/manage_window.c * src/gtk/manage_window.h * src/gtk/menu.c * src/gtk/menu.h * src/gtk/pluginwindow.c * src/gtk/pluginwindow.h * src/gtk/prefswindow.c * src/gtk/prefswindow.h * src/gtk/progressdialog.c * src/gtk/progressdialog.h * src/gtk/quicksearch.c * src/gtk/quicksearch.h * src/gtk/sslcertwindow.c * src/gtk/sslcertwindow.h * src/plugins/bogofilter/bogofilter.c * src/plugins/bogofilter/bogofilter.h * src/plugins/bogofilter/bogofilter_gtk.c * src/plugins/clamav/clamav_plugin.c * src/plugins/clamav/clamav_plugin.h * src/plugins/clamav/clamav_plugin_gtk.c * src/plugins/demo/demo.c * src/plugins/dillo_viewer/dillo_prefs.c * src/plugins/dillo_viewer/dillo_prefs.h * src/plugins/dillo_viewer/dillo_viewer.c * src/plugins/pgpcore/passphrase.c * src/plugins/pgpcore/passphrase.h * src/plugins/pgpcore/pgp_viewer.c * src/plugins/pgpcore/pgp_viewer.h * src/plugins/pgpcore/plugin.c * src/plugins/pgpcore/prefs_gpg.c * src/plugins/pgpcore/prefs_gpg.h * src/plugins/pgpcore/select-keys.c * src/plugins/pgpcore/select-keys.h * src/plugins/pgpcore/sgpgme.c * src/plugins/pgpcore/sgpgme.h * src/plugins/pgpinline/pgpinline.c * src/plugins/pgpinline/pgpinline.h * src/plugins/pgpinline/plugin.c * src/plugins/pgpmime/pgpmime.c * src/plugins/pgpmime/pgpmime.h * src/plugins/pgpmime/plugin.c * src/plugins/spamassassin/spamassassin.c * src/plugins/spamassassin/spamassassin.h * src/plugins/spamassassin/spamassassin_gtk.c * src/plugins/trayicon/trayicon.c * src/plugins/trayicon/trayicon_prefs.c * src/plugins/trayicon/trayicon_prefs.h * src/plugins/trayicon/libeggtrayicon/eggtrayicon.c * src/plugins/trayicon/libeggtrayicon/eggtrayicon.h * src/plugins/trayicon/libeggtrayicon/gtk2-funcs.h * src/plugins/trayicon/libeggtrayicon/gtkplugxembed.c * src/plugins/trayicon/libeggtrayicon/gtkplugxembed.h * tools/OOo2claws-mail.pl * tools/README.sylprint * tools/acroread2claws-mail.pl * tools/claws-mail-compose-insert-files.pl * tools/convert_mbox.pl * tools/filter_conv.pl * tools/filter_conv_new.pl * tools/fix_date.sh * tools/freshmeat_search.pl * tools/google_search.pl * tools/kmail-mailbox2claws-mail.pl * tools/kmail2claws-mail.pl * tools/kmail2claws-mail_v2.pl * tools/mairix.sh * tools/make.themes.project * tools/multiwebsearch.pl * tools/nautilus2claws-mail.sh * tools/outlook2claws-mail.pl * tools/textviewer.sh * tools/thunderbird-filters-convertor.pl * tools/update-po * tools/uuooffice * tools/vcard2xml.py * tools/kdeservicemenu/claws-mail-kdeservicemenu.pl Upgrade to GPLv3 or later.
219 lines
6 KiB
Perl
219 lines
6 KiB
Perl
#!/usr/bin/perl -w
|
|
|
|
# * Copyright 2002-2003 Ricardo Mones Lastra <mones@aic.uniovi.es>
|
|
# *
|
|
# * This file is free software; you can redistribute it and/or modify it
|
|
# * under the terms of the GNU General Public License as published by
|
|
# * the Free Software Foundation; either version 3 of the License, or
|
|
# * (at your option) any later version.
|
|
# *
|
|
# * This program is distributed in the hope that it will be useful, but
|
|
# * WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
# * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
|
# * General Public License for more details.
|
|
# *
|
|
# * You should have received a copy of the GNU General Public License
|
|
# * along with this program; if not, write to the Free Software
|
|
# * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
|
|
#
|
|
# outlook2claws-mail.pl -- perl script to convert an Outlook generated
|
|
# contact list into a Claws Mail XML address book.
|
|
#
|
|
# This script is based on:
|
|
# out2syl.sh by Rafael Lossurdo <mugas@via-rs.net>
|
|
# kmail2claws-mail.pl by Paul Mangan <paul@claws-mail.org>
|
|
#
|
|
# See README file for details and usage.
|
|
#
|
|
|
|
$nboffields = 28; # change this only if you did read README
|
|
|
|
# parse parameters
|
|
$do_csv = 0;
|
|
die "Error: required filename missing\n" unless (defined($ARGV[0]));
|
|
$_=$ARGV[0];
|
|
if (/--csv/) {
|
|
die "Error: required filename missing\n" unless (defined($ARGV[1]));
|
|
$do_csv = 1;
|
|
$outl_file = $ARGV[1];
|
|
}
|
|
else {
|
|
$outl_file = $ARGV[0];
|
|
}
|
|
# some init
|
|
$clawsconf = ".claws-mail";
|
|
$indexname = "$clawsconf/addrbook--index.xml";
|
|
|
|
# the next is mostly Paul's code
|
|
$time = time;
|
|
|
|
chdir;
|
|
opendir(CLAWS, $clawsconf) || die("Error: can't open $clawsconf directory\n");
|
|
push(@cached,(readdir(CLAWS)));
|
|
closedir(CLAWS);
|
|
|
|
foreach $cached (@cached) {
|
|
if ($cached =~ m/^addrbook/ && $cached =~ m/[0-9].xml$/) {
|
|
push(@addr, "$cached");
|
|
}
|
|
}
|
|
|
|
@sorted = sort {$a cmp $b} @addr;
|
|
$last_one = pop(@sorted);
|
|
$last_one =~ s/^addrbook-//;
|
|
$last_one =~ s/.xml$//;
|
|
$last_one++;
|
|
$new_book = "/addrbook-"."$last_one".".xml";
|
|
|
|
# some subs
|
|
# warning: output file is global
|
|
sub write_header {
|
|
print NEWB "<?xml version=\"1.0\" encoding=\"US-ASCII\" ?>\n";
|
|
print NEWB "<address-book name=\"Outlook Address Book\" >\n";
|
|
}
|
|
|
|
sub write_footer {
|
|
print NEWB "</address-book>\n";
|
|
}
|
|
|
|
sub write_person_h {
|
|
my($fn, $ln, $nn, $cn) = @_;
|
|
# one of them must be given
|
|
if (($fn eq "") and ($ln eq "") and ($nn eq "") and ($cn eq "")) {
|
|
$cn = "No name provided";
|
|
# but return may break XML structure
|
|
}
|
|
print NEWB " <person uid=\"", $time++, "\" first-name=\"", $fn, "\" ";
|
|
print NEWB "last-name=\"", $ln, "\" nick-name=\"", $nn, "\" cn=\"", $cn, "\" >\n";
|
|
}
|
|
|
|
sub write_person_f {
|
|
print NEWB " </person>\n";
|
|
}
|
|
|
|
sub write_addrlist_h {
|
|
print NEWB " <address-list>\n";
|
|
}
|
|
|
|
sub write_addrlist_f {
|
|
print NEWB " </address-list>\n";
|
|
}
|
|
|
|
sub write_address {
|
|
my($al, $em, $re) = @_;
|
|
if ($em eq "") {
|
|
$em = "No e-mail address";
|
|
# email is a must -> no address breaks claws-mail display
|
|
# (claws-mail says file is ok but no name is shown)
|
|
# maybe this is a bug on claws-mail?
|
|
}
|
|
print NEWB " <address uid=\"", $time++, "\" ";
|
|
print NEWB "alias=\"", $al, "\" email=\"", $em, "\" remarks=\"", $re, "\" />\n";
|
|
}
|
|
|
|
sub write_attrlist_h {
|
|
print NEWB " <attribute-list>\n";
|
|
}
|
|
|
|
sub write_attrlist_f {
|
|
print NEWB " </attribute-list>\n";
|
|
}
|
|
|
|
sub write_attribute {
|
|
my($aname, $aval) = @_;
|
|
if (($aname eq "") or ($aval eq "")) { return; } # both are must
|
|
print NEWB " <attribute uid=\"", $time++, "\" ";
|
|
print NEWB "name=\"", $aname, "\" >", $aval, "</attribute>\n";
|
|
}
|
|
|
|
sub process_text {
|
|
write_header();
|
|
$count = 0;
|
|
while (<OUTL>) {
|
|
chomp;
|
|
if (/\s+[0-9]+\s+(.+)/) { $_ = $1; }
|
|
else { $count += 2 and die "Error: wrong format at line $count \n"; }
|
|
@field = split(/;/); # first is name, second mail addr
|
|
write_person_h("","","",$field[0]);
|
|
write_addrlist_h();
|
|
$field[1] =~ s/\r//; # beware, dangerous chars inside ;)
|
|
write_address("",$field[1],"");
|
|
write_addrlist_f();
|
|
write_person_f();
|
|
++$count;
|
|
}
|
|
write_footer();
|
|
}
|
|
|
|
sub process_csv {
|
|
write_header();
|
|
$count = 0;
|
|
while (<OUTL>) {
|
|
chomp;
|
|
# do something useful: quote XML chars
|
|
s/\&/&/g;
|
|
s/\</</g;
|
|
s/\>/>/g;
|
|
s/\'/'/g;
|
|
s/\"/"/g;
|
|
@field = split(/,/);
|
|
if ($#field != $nboffields) { $count += 2 and die "Error: wrong format at line $count \n"; }
|
|
# First Name, Last Name, Nickname, Name
|
|
write_person_h($field[0],$field[1],$field[4],$field[3]);
|
|
write_addrlist_h();
|
|
write_address("",$field[5],$field[$nboffields - 1]);
|
|
write_addrlist_f();
|
|
write_attrlist_h(); # the remaining values as attributes
|
|
foreach $a (2, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27) {
|
|
# add only filled fields (should be trimmed?)
|
|
if (defined($field[$a]) && $field[$a] ne "") {
|
|
write_attribute($headerline[$a],$field[$a]);
|
|
}
|
|
}
|
|
write_attrlist_f();
|
|
write_person_f();
|
|
++$count;
|
|
}
|
|
write_footer();
|
|
}
|
|
|
|
# ok, was enough, do some more bit bashing now
|
|
open(OUTL, $outl_file)
|
|
or die "Error: can't open $outl_file for reading\n";
|
|
# 1st line: file format checking (csv) or discarding (default)
|
|
$_ = <OUTL>;
|
|
chomp;
|
|
if ($do_csv) {
|
|
@headerline = split(/,/);
|
|
# check before creating output file
|
|
die "Error: unknown csv file format\n"
|
|
unless ($#headerline == $nboffields);
|
|
}
|
|
open(NEWB, '>', "$clawsconf/$new_book")
|
|
or die "Error: can't open $clawsconf/$new_book for writting\n";
|
|
if ($do_csv) { process_csv(); }
|
|
else { process_text(); }
|
|
|
|
close NEWB;
|
|
close OUTL;
|
|
|
|
# update index (more Paul's code :)
|
|
|
|
open(INDX, $indexname)
|
|
or die "Error: can't open $indexname for reading\n";
|
|
@index_file = <INDX>;
|
|
close INDX;
|
|
|
|
foreach $index_line (@index_file) {
|
|
if ($index_line =~ m/<\/book_list>/) {
|
|
$new_index .= " <book name=\"Outlook Address Book\" file=\"$new_book\" />\n"." </book_list>\n"; } else {
|
|
$new_index .= "$index_line";
|
|
}
|
|
}
|
|
open (INDX, '>', $indexname)
|
|
or die "Error: can't open $indexname for writting\n";
|
|
print INDX "$new_index";
|
|
close INDX;
|
|
|
|
print "Done. $count address(es) converted successfully.\n";
|
|
|