#!/usr/bin/perl

# Douglas S. J. De Couto <decouto@lcs.mit.edu>
# 8 April 2001


use Palm::PDB;
use Palm::Address;

$pdb = new Palm::PDB;
$pdb->Load("AddressDB.pdb");

# map palm phone number indices to qpe indices
@palm_to_ipaq = ("1", # work
		 "2", # home
		 "4", # fax
		 "5", # other
		 "3", # email
		 "5", # main (treat as other)
		 "5", # pager (treat as other)
		 "0"); # mobile

sub print_phone {
    # $1 is record, $2 is tag, e.g. phone1
    $idx = $_[0]->{phoneLabel}{$_[1]};
    $lab = @Palm::Address::phoneLabels[$_[0]->{phoneLabel}{$_[1]}];
    $num = $_[0]->{fields}{$_[1]};

    if (!($num eq "")) {
	print " $palm_to_ipaq[$idx]\n";
	print " $num\n";
	print "[EOR]\n";
    }
#     print "$idx $lab: $num\n";
}

# print	     "$pdb->{appinfo}{fieldLabels}{phone1}\n";
# print	     "$pdb->{appinfo}{fieldLabels}{phone2}\n";
# print	     "$pdb->{appinfo}{fieldLabels}{phone3}\n";
# print	     "$pdb->{appinfo}{fieldLabels}{phone4}\n";
# print	     "$pdb->{appinfo}{fieldLabels}{phone5}\n";
# print	     "$pdb->{appinfo}{fieldLabels}{phone6}\n";
# print	     "$pdb->{appinfo}{fieldLabels}{phone7}\n";
# print	     "$pdb->{appinfo}{fieldLabels}{phone8}\n";

# $sz = $#{@{$pdb->{records}}} + 1;

foreach $r (@{$pdb->{records}}) {
    
    print " FullName\n";
    print " $r->{fields}{firstName} $r->{fields}{name}\n";
    print "[EOR]\n";

    print " FirstName\n";
    print " $r->{fields}{firstName}\n";
    print "[EOR]\n";

    print " LastName\n";
    print " $r->{fields}{name}\n";
    print "[EOR]\n";
    

    # phone numbers
    foreach $tag ("phone1", "phone2", "phone3", "phone4", "phone5") {
	print_phone($r, $tag);
    }

    print " Company\n";
    print " $r->{fields}{company}\n";
    print "[EOR]\n";

    print " Role\n";
    print " $r->{fields}{title}\n";
    print "[EOR]\n";

    print " AddressStreet\n";
    print " $r->{fields}{address}\n";
    print "[EOR]\n";

    print " AddressCity\n";
    print " $r->{fields}{city}\n";
    print "[EOR]\n";

    print " AddressZip\n";
    print " $r->{fields}{zipCode}\n";
    print "[EOR]\n";

    print " AddressState\n";
    print " $r->{fields}{state}\n";
    print "[EOR]\n";

    print " Notes\n";
    print " $r->{fields}{notes}\n";
    print "[EOR]\n";

    print "[EOS]\n";

}


#print " X-FieldOrder\n";
#print " 4,8,3,1,0,6\n";
#print "[EOR]\n";
#print "[EOS]\n";