tools/kmail2claws-mail.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.pl
  20
  21 ## script purpose : convert a Kmail addressbook into a Claws Mail addressbook
  22
  23 use Getopt::Long;
  24
  25 $kmailfile = '';
  26
  27 GetOptions("kmailfile=s" => \$kmailfile);
  28
  29 $time = time;
  30
  31 $claws_addr = "<?xml version=\"1.0\" encoding=\"US-ASCII\" ?>\n";
  32 $claws_addr .= "<address-book name=\"Kmail Address Book\" >\n";
  33
  34 chdir;
  35
  36 opendir(CLAWS, ".claws-mail") || die("Can't open .claws-mail directory\n");
  37         push(@cached,(readdir(CLAWS)));
  38 closedir(CLAWS);
  39
  40 foreach $cached (@cached) {
  41         if ($cached =~ m/^addrbook/ && $cached =~ m/[0-9].xml$/) {
  42                 push(@addr, "$cached");
  43         }
  44 }
  45
  46 @sorted = sort {$a cmp $b} @addr;
  47 $last_one = pop(@sorted);
  48 $last_one =~ s/^addrbook-//;
  49 $last_one =~ s/.xml$//;
  50 $last_one++;
  51 $new_addrbk = "addrbook-"."$last_one".".xml";
  52
  53 open (KFILE, "<$kmailfile") || die("Can't find the kmail file\n");
  54         @kmaillines = <KFILE>;
  55 close KFILE;
  56
  57 $dross = shift(@kmaillines);
  58
  59 foreach $kmailline (@kmaillines) {
  60     (@kmaildata) = split(/,/,$kmailline);
  61         foreach $kmaildata (@kmaildata) {
  62                 $kmaildata =~ s/^"//;
  63                 $kmaildata =~ s/"$//;
  64                 $kmaildata =~ s/"/&quot;/g;
  65                 $kmaildata =~ s/&/&amp;/g;
  66                 $kmaildata =~ s/'/&apos;/g;
  67                 $kmaildata =~ s/</&lt;/g;
  68                 $kmaildata =~ s/>/&gt;/g;
  69         }
  70     $claws_addr .= "  <person uid=\"$time\" first-name=\"$kmaildata[0]\""
  71                  ." last-name=\"$kmaildata[1]\" nick-name=\"$kmaildata[7]\""
  72                  ." cn=\"$kmaildata[0] $kmaildata[1]\" >\n"
  73                  ."    <address-list>\n";
  74     $time++;
  75     $claws_addr .= "      <address uid=\"$time\" alias=\"\" email=\"$kmaildata[6]\""
  76                 ." remarks=\"$kmaildata[8]\" />\n"
  77                 ."    </address-list>\n";
  78     if ($kmaildata[13] ne "" || $kmaildata[9] ne "" || $kmaildata[21] ne "" ||
  79         $kmaildata[16] ne "" || $kmaildata[5] ne "" || $kmaildata[24] ne "" ||
  80         $kmaildata[19] ne "" || $kmaildata[12] ne "" || $kmaildata[10] ne "" ||
  81         $kmaildata[4] ne "" || $kmaildata[2] ne "" || $kmaildata[11] ne "" ||
  82         $kmaildata[3] ne "" || $kmaildata[14] ne "" || $kmaildata[22] ne "" ||
  83         $kmaildata[17] ne "" || $kmaildata[20] ne "" || $kmaildata[15] ne "" ||
  84         $kmaildata[23] ne "" || $kmaildata[18] ne "") {
  85         $claws_addr .= "    <attribute-list>\n";
  86
  87         if ($kmaildata[3] ne "" || $kmaildata[2] ne "") {
  88                 $time++;
  89                 $claws_addr .= "      <attribute uid=\"$time\" name=\"Full Name\" >"
  90                         ."$kmaildata[3] $kmaildata[0] $kmaildata[2] $kmaildata[1]</attribute>\n";
  91         }
  92         if ($kmaildata[15] ne "") {
  93                 $time++;
  94                 $claws_addr .= "      <attribute uid=\"$time\" name=\"Home Street Address\" >"
  95                         ."$kmaildata[15]</attribute>\n";
  96         }
  97         if ($kmaildata[16] ne "") {
  98                 $time++;
  99                 $claws_addr .= "      <attribute uid=\"$time\" name=\"Home City Address\" >"
 100                         ."$kmaildata[16]</attribute>\n";
 101         }
 102         if ($kmaildata[17] ne "") {
 103                 $time++;
 104                 $claws_addr .= "      <attribute uid=\"$time\" name=\"Home State Address\" >"
 105                         ."$kmaildata[17]</attribute>\n";
 106         }
 107         if ($kmaildata[18] ne "") {
 108                 $time++;
 109                 $claws_addr .= "      <attribute uid=\"$time\" name=\"Home Zip Address\" >"
 110                         ."$kmaildata[18]</attribute>\n";
 111         }
 112         if ($kmaildata[19] ne "") {
 113                 $time++;
 114                 $claws_addr .= "      <attribute uid=\"$time\" name=\"Home Country Address\" >"
 115                         ."$kmaildata[19]</attribute>\n";
 116         }
 117         if ($kmaildata[10] ne "") {
 118                 $time++;
 119                 $claws_addr .= "      <attribute uid=\"$time\" name=\"Home Phone\" >"
 120                         ."$kmaildata[10]</attribute>\n";
 121         }
 122         if ($kmaildata[12] ne "") {
 123                 $time++;
 124                 $claws_addr .= "      <attribute uid=\"$time\" name=\"Home Fax\" >"
 125                         ."$kmaildata[12]</attribute>\n";
 126         }
 127         if ($kmaildata[11] ne "") {
 128                 $time++;
 129                 $claws_addr .= "      <attribute uid=\"$time\" name=\"Mobile Phone\" >"
 130                         ."$kmaildata[11]</attribute>\n";
 131         }
 132         if ($kmaildata[14] ne "") {
 133                 $time++;
 134                 $claws_addr .= "      <attribute uid=\"$time\" name=\"Pager\" >"
 135                         ."$kmaildata[14]</attribute>\n";
 136         }
 137         if ($kmaildata[5] ne "") {
 138                 $time++;
 139                 $claws_addr .= "      <attribute uid=\"$time\" name=\"Company\" >"
 140                         ."$kmaildata[5]</attribute>\n";
 141         }
 142         if ($kmaildata[4] ne "") {
 143                 $time++;
 144                 $claws_addr .= "      <attribute uid=\"$time\" name=\"Job Title\" >"
 145                         ."$kmaildata[4]</attribute>\n";
 146         }
 147         if ($kmaildata[20] ne "") {
 148                 $time++;
 149                 $claws_addr .= "      <attribute uid=\"$time\" name=\"Business Street Address\" >"
 150                         ."$kmaildata[20]</attribute>\n";
 151         }
 152         if ($kmaildata[21] ne "") {
 153                 $time++;
 154                 $claws_addr .= "      <attribute uid=\"$time\" name=\"Business City Address\" >"
 155                         ."$kmaildata[21]</attribute>\n";
 156         }
 157         if ($kmaildata[22] ne "") {
 158                 $time++;
 159                 $claws_addr .= "      <attribute uid=\"$time\" name=\"Business State Address\" >"
 160                         ."$kmaildata[22]</attribute>\n";
 161         }
 162         if ($kmaildata[23] ne "") {
 163                 $time++;
 164                 $claws_addr .= "      <attribute uid=\"$time\" name=\"Business Zip Address\" >"
 165                         ."$kmaildata[23]</attribute>\n";
 166         }
 167         if ($kmaildata[24] ne "") {
 168                 $time++;
 169                 $claws_addr .= "      <attribute uid=\"$time\" name=\"Business Country Address\" >"
 170                         ."$kmaildata[24]</attribute>\n";
 171         }
 172         if ($kmaildata[9] ne "") {
 173                 $time++;
 174                 $claws_addr .= "      <attribute uid=\"$time\" name=\"Business Phone\" >"
 175                         ."$kmaildata[9]</attribute>\n";
 176         }
 177         if ($kmaildata[13] ne "") {
 178                 $time++;
 179                 $claws_addr .= "      <attribute uid=\"$time\" name=\"Business Fax\" >"
 180                         ."$kmaildata[13]</attribute>\n";
 181         }
 182         $claws_addr .= "    </attribute-list>\n";
 183     }
 184     $claws_addr .=  "  </person>\n";
 185     $time++;
 186 }
 187 $claws_addr .= "</address-book>\n";
 188
 189 open (NEWADDR, ">.claws-mail/$new_addrbk");
 190 print NEWADDR $claws_addr;
 191 close NEWADDR;
 192
 193 open (ADDRIN, "<.claws-mail/addrbook--index.xml") || die("can't open addrbook--index.xml");
 194         @addrindex_file = <ADDRIN>;
 195 close ADDRIN;
 196
 197 foreach $addrindex_line (@addrindex_file) {
 198         if ($addrindex_line =~ m/<\/book_list>/) {
 199                 $rewrite_addrin .= "    <book name=\"Kmail Address Book\" file=\"$new_addrbk\" />\n"
 200                         ."  </book_list>\n";
 201         } else {
 202                 $rewrite_addrin .= "$addrindex_line";
 203         }
 204 }
 205
 206 open (NEWADDRIN, ">.claws-mail/addrbook--index.xml");
 207 print NEWADDRIN "$rewrite_addrin";
 208 close NEWADDRIN;
 209
 210 print "\nYou have sucessfully converted your Kmail addressbook\n";
 211 exit;