/* Kmail to YAM Address Book Arexx Script V1.0
    Specify the filename of Kmail's exported Addressbook (Comma delimited)
    a file called .addressbook will be placed in the directory where this is run from
    It will process all names in that addressbook file and create the YAM equivalent
    Written by: Arthur D. Moyer (lordart@lbpsinc.com)
    Disclaimer:  Worked for me for what I was using it for, and YAM didn't seem to have an issue!
                 Hopefully it will do the same for you!  :)
*/


parse arg filen
address command

if open(addb,filen,'R')=0 THEN DO
   say 'File 'filen' not found, please check spelling and try again'
   exit
   END

l=open(outadd,'.addressbook','W')

l=writeln(outadd,'YAB4 - YAM addressbook')
l=writeln(outadd,'@Group Imported')
l=writeln(outadd,'Imported Addressbook')

ln=readln(addb) /*skip first line with headers*/

i=0

DO WHILE EOF(addb)=0
   ln=readln(addb)

   parse var ln '"' FormName '","' FamName '","' GivenName '","' AddName '","' HonorPre '","' HonorSuf '","' NickName '","' Birthday '","' HAddSt '","' HAddLoc '","' HAddRegion '","' HAddCode '","' HAddCountry '","' HAddLabel '","' BusAddSt '","' BusAddLoc '","' BusAddRegion '","' BusAddCode '","' BusAddCountry '","' BusAddLabel '","' HPhone '","' BusPhone '","' MobilePhone '","' HFax '","' BusFax '","' CarPhone '","' ISDN '","' Pager '","' Email '","' MailClient '","' Title '","' Role '","' Organization '","' Note '","' URL '","' Dept '","' Profession '","' AssistName '","' ManagerName '","' SpouseName '","' Office '","' IMAddress '","' Anniversary '"'
   if (strip(Email)~='') THEN DO
      if (strip(FormName)='') THEN
           nout=strip(AddName)
      else
           nout=strip(FormName)

      if (nout='') THEN nout=strip(Email)

      l=writeln(outadd,'@USER 'nout)      /*User Alias*/
      l=writeln(outadd,strip(Email))      /*Email*/
      l=writeln(outadd,strip(FormName))   /*Name*/
      l=writeln(outadd,strip(Note))       /*Description*/
      l=writeln(outadd,strip(HPhone))     /*Phone*/
      l=writeln(outadd,strip(HAddSt))     /*Street Address*/
      l=writeln(outadd,strip(HAddLoc)',  'strip(HAddCode))  /*City/Zip*/
      l=writeln(outadd,strip(HAddCountry))  /*Country*/
      l=writeln(outadd,'')                /*PGP ID*/
      l=writeln(outadd,strip(Birthday))   /*Birthday*/
      l=writeln(outadd,'0')               /*Portrait*/
      l=writeln(outadd,strip(URL))        /*URL*/
      l=writeln(outadd,'0')               /*Security*/

      l=writeln(outadd,'@ENDUSER')
      say 'Processing Email: 'strip(Email)
      i=i+1
   END
END

l=writeln(outadd,'@ENDGROUP')
l=close(outadd)
l=close(addb)

say 'Processing Complete.  Processed 'i' Email address'
exit

.