use Palm::PDB;
use Palm::Address;
my $pdb = new Palm::PDB;
$pdb->Load("AddressDB.pdb");
for $record (sort @{$pdb->{records}}) {
	$cat = $pdb->{appinfo}{categories}->[$record->{'category'}]{'name'};
	$nick = $record->{fields}{firstName}.$record->{fields}{name};
	$first= $record->{fields}{firstName};
	$last= $record->{fields}{name};
	$address= $record->{fields}{address};
	$city= $record->{fields}{city};
	$state= $record->{fields}{state};
	$zip= $record->{fields}{zipCode};
	$note= $record->{fields}{note};
	$ph="";
	$email="";
	for($i=1;$i<6;$i++){
		if($record->{fields}{"phone".$i} ne ""){
			$ptype = $record->{phoneLabel}{"phone".$i};
			if($ptype == 0){
				$ph.=" WK:".$record->{fields}{"phone".$i};
			}           
			if($ptype == 1){
				$ph.=" HM:".$record->{fields}{"phone".$i};
			}           
			if($ptype == 2){
				$ph.=" FX:".$record->{fields}{"phone".$i};
			}           
			if($ptype == 3){
				$ph.=" OT:".$record->{fields}{"phone".$i};
			}           
			if($ptype == 4){
				$email=$record->{fields}{"phone".$i};
			}           
			if($ptype == 5){
				$ph.=" MN:".$record->{fields}{"phone".$i};
			} 
			if($ptype == 6){
				$ph.=" PG:".$record->{fields}{"phone".$i};
			}
			if($ptype == 7){
				$ph.=" CL:".$record->{fields}{"phone".$i};
			}
		}
	}
	$nick=~ s/,/~/g;
	$last=~ s/,/~/g;
	$first=~ s/,/~/g;
	$address=~ s/,/~/g;
	$address=~ s/\n/ > /g;
	$note=~ s/,/~/g;
	$note=~ s/\n/ > /g;
	print $nick."|".$first."|".$last."|".$email."|".$ph;
	print " ".$address."-".$city."-".$state."-".$zip."-".$note."\n";
}
print $record;