#!perl.exe -w

#----------------------------------------
# Read in PMMails Adressbook and convert it to Palmportable csv 
#----------------------------------------

print "Converter for PMMail's addressbook to Palm-Addressbook\n";
print "sync with pilot-addresses to the Palm.\n\n";

open (Addrfile, "<addr.db") 
  or die "Can't find Addressbook!\n";
open (Outfile, ">topalm.csv")
  or die "Can't open outputfile!\n";
  
while ($line = <Addrfile>)
{
  # convert umlauts:
  $line =~ s/�/�/g;
  $line =~ s/�/�/g;
  $line =~ s/�/�/g;
  $line =~ s/�/�/g;
  $line =~ s/�/�/g;
  $line =~ s/�/�/g;
  $line =~ s/�/�/g;
  
  @fields = split(/�/,$line);
  $name ="";
  $middle="";
  $surename="";
  ($name, $middle, $surename) = split(/ /, $fields[2]);
  if (defined($surename))
  {
    $name = $name . " " . $middle;
  }
  else {
    $surename = $middle;
  }
  $surename = "" if !defined($surename);
  $name = "" if !defined($name);
  print Outfile "\"$surename\",\"$name\",";
  for ($i = 0; $i < 6; $i++)
  {
    print Outfile "\"\",";
  }
  print Outfile "\"$fields[0]\",";
  for ($i=0; $i < 10; $i++)
  {
    print Outfile "\"\",";
  }
  print Outfile "\"0\"\n";
  
}
close(Addrfile);
close(Outfile);