Update authors lists
[claws.git] / tools / kmail2claws-mail_v2.pl
1 #!/usr/bin/perl
2
3 #  * Copyright 2002 Paul Mangan <paul@claws-mail.org>
4 #  *
5 #  * This file is free software; you can redistribute it and/or modify it
6 #  * under the terms of the GNU General Public License as published by
7 #  * the Free Software Foundation; either version 3 of the License, or
8 #  * (at your option) any later version.
9 #  *
10 #  * This program is distributed in the hope that it will be useful, but
11 #  * WITHOUT ANY WARRANTY; without even the implied warranty of
12 #  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
13 #  * General Public License for more details.
14 #  *
15 #  * You should have received a copy of the GNU General Public License
16 #  * along with this program; if not, write to the Free Software
17 #  * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
18
19 ## script name : kmail2claws-mail_v2.pl
20
21 ## script purpose : convert an exported Kmail addressbook csv file 
22 ## into a Claws Mail addressbook
23
24 ## tested with Kmail 1.4.7 and KAddressBook 3.1beta1
25
26 use Getopt::Long;
27
28 $kmailfile = '';
29 $iNeedHelp = '';
30
31 GetOptions("kmailfile=s" => \$kmailfile,
32            "help"        => \$iNeedHelp);
33
34 if ($kmailfile eq "" || $iNeedHelp) {
35         if (!$iNeedHelp) {
36                 print "No filename given\n";
37         }
38         print "Use the following format:\n";
39         print "\tkmail2claws-mail_v2.pl --kmailfile=/path/to/addressbook.csv\n";
40         exit;
41 }
42
43 $claws_dir  = ".claws-mail";
44 $addr_index = "$claws_dir/addrbook--index.xml";
45 $new_addressbook = "Kmail address book";
46  
47 $time = time;
48
49 chdir;
50
51 opendir(CLAWS, $claws_dir) || die("Can't open $claws_dir directory\n");
52         push(@cached,(readdir(CLAWS)));
53 closedir(CLAWS);
54
55 foreach $cached (@cached) {
56         if ($cached =~ m/^addrbook/ && $cached =~ m/[0-9].xml$/) {
57                 push(@addr, "$cached");
58         }
59 }
60
61 @sorted = sort {$a cmp $b} @addr;
62 $last_one = pop(@sorted);
63 $last_one =~ s/^addrbook-//;
64 $last_one =~ s/.xml$//;
65 $last_one++;
66 $new_addrbk = "addrbook-"."$last_one".".xml";
67
68 open (KFILE, "<$kmailfile") || die("Can't open the kmail file [$kmailfile]\n");
69         @kmaillines = <KFILE>;
70 close KFILE;
71
72 $count = 0;
73 $defs = shift(@kmaillines);
74 @extra_def = (3,4,5,7 ... 27,29 ... 32,34 ... 42);
75
76 (@kmaildefs) = split(/,/,$defs);
77
78 $claws_addr = "<?xml version=\"1.0\" encoding=\"US-ASCII\" ?>\n";
79 $claws_addr .= "<address-book name=\"Kmail address book\" >\n";
80
81 foreach $kmailline (@kmaillines) {
82     (@kmaildata) = split(/,/,$kmailline); 
83         foreach $kmaildata (@kmaildata) {
84                 $kmaildata =~ s/^"//;
85                 $kmaildata =~ s/"$//;
86                 $kmaildata =~ s/"/&quot;/g;
87                 $kmaildata =~ s/&/&amp;/g;
88                 $kmaildata =~ s/'/&apos;/g;
89                 $kmaildata =~ s/</&lt;/g;
90                 $kmaildata =~ s/>/&gt;/g;
91                 $kmaildata =~ s/\\n/, /g;
92                 chomp $kmaildata;
93         }
94     $claws_addr .= "  <person uid=\"$time\" first-name=\"$kmaildata[2]\""
95                  ." last-name=\"$kmaildata[1]\" nick-name=\"$kmaildata[6]\""
96                  ." cn=\"$kmaildata[2] $kmaildata[1]\" >\n"
97                  ."    <address-list>\n";
98     $time++;
99     $claws_addr .= "      <address uid=\"$time\" alias=\"\" email=\"$kmaildata[28]\""
100                 ." remarks=\"$kmaildata[33]\" />\n"
101                 ."    </address-list>\n";
102
103         foreach $extra_def (@extra_def) {
104                 if ($kmaildata[$extra_def] ne "") {
105                         push (@def_exist, $extra_def);
106                 }
107         }
108         if ($def_exist[0]) {
109                 $claws_addr .= "    <attribute-list>\n";
110         }
111         foreach $def_exist (@def_exist) {
112                 $kmaildefs[$def_exist] =~ s/^"//;
113                 $kmaildefs[$def_exist] =~ s/"$//;
114                 $kmaildefs[$def_exist] =~ s/'/&apos;/g;
115                 
116                 $time++;
117                 $claws_addr .= "      <attribute uid=\"$time\" name=\"$kmaildefs[$def_exist]\" >"
118                         ."$kmaildata[$def_exist]</attribute>\n";
119                 $attribs = 1;
120         }
121         if ($attribs == 1) {
122                 $claws_addr .= "    </attribute-list>\n";
123         }
124     $claws_addr .=  "  </person>\n";
125     $time++;
126     $count++;
127 }
128 $claws_addr .= "</address-book>\n";
129
130 open (NEWADDR, ">$claws_dir/$new_addrbk");
131 print NEWADDR $claws_addr;
132 close NEWADDR;
133
134 open (ADDRIN, "<$addr_index") 
135         || die("can't open $addr_index for reading");
136         @addrindex_file = <ADDRIN>;
137 close ADDRIN;
138
139 foreach $addrindex_line (@addrindex_file) {
140         if ($addrindex_line =~ m/<\/book_list>/) {
141                 $rw_addrindex .= "    <book name=\"$new_addressbook\" file=\"$new_addrbk\" />\n"
142                         ."  </book_list>\n";
143         } else {
144                 $rw_addrindex .= "$addrindex_line";
145         }
146 }
147
148 open (NEWADDRIN, ">$addr_index")
149         || die("Can't open $addr_index for writing");
150 print NEWADDRIN "$rw_addrindex";
151 close NEWADDRIN;
152
153 print "Done. $count address(es) converted successfully.\n";
154
155 exit;
156