RE: [coldsync-hackers] ExpenseDB format

["Ferrell, Jason" <Jason dot Ferrell at MCCookMETALS.com>]

Sorry for the delay, here's my script, with the output below.  Basically, I'm not getting anything that I can use as far as a number that I can manipulate as the number of seconds since a date or something else.  How should I format the data to get something like that? 

#!/bin/perl

use Palm::PDB;

use Palm::Raw;

my $pdb = new Palm::PDB;

my $dbfile="/home/jtferrel/visor/backup/ExpenseDB.pdb";

$pdb->Load($dbfile) || die print "oops! no $dbfile found\n";

$pdb->{sort};

open( OUT, ">visorsynch.csv");

print( OUT "Date,Category,Type,Amount,Country,Payment Type,Vendor,City,Attendee,Note\n");

print( OUT "uid,date,expensetype,currency,amount,category,payment,vendor,city,attendees,note\n" );

my $i = 0;

foreach $record (@{$pdb->{records}}){

my $record = {};

$record = $pdb->{records}[$i];

# ($uid,$date,$expensetype,$currency,$amount,$category,$payment,$vendor,$city,$attendees,$note)=unpack("A3 a a a a a a a a a a",$record->{data});

# print( OUT "$uid,$date,$expensetype,$currency,$amount,$category,$payment,$vendor,$city,$attendees,$note\n" );

($recordstring)=unpack("a1000000",$record->{data});

$recordstring =~ tr/\cW/,/;

$recordstring =~ tr/\c@/,/;

print( OUT "$recordstring\n" );

($amount,$vendor,$city,$attendees,$note) = split(/,/,$recordstring);

print( OUT "$amount\t$vendor\t$city\t$attendees\t$note\t".ord($vendor)."\n" );

$i++;

}

close OUT;

Results:

Date,Category,Type,Amount,Country,Payment Type,Vendor,City,Attendee,Note

uid,date,expensetype,currency,amount,category,payment,vendor,city,attendees,note

Äx

,u28.00,Lunch,,,,

Äx

u28.00 Lunch 117

Äx
,u10.00,Dinner ,,,,

Äx
u10.00 Dinner 117

Äy

,u5.50,Lunch - Jason,,,,

Äy

u5.50 Lunch - Jason 117

Äz

,u2.50,Dinner - jason,,,,

Äz

u2.50 Dinner - jason 117

Äz

,u.30,Genoiogy copies,,,,

Äz

u.30 Genoiogy copies 117

Äz

,u4.00,Snack / drinks - Jason,,,,

Äz

u4.00 Snack / drinks - Jason 117

Äy
,¾7.58,Southeastern wholesale,1498,,,

Äy
¾7.58 Southeastern wholesale 1498 190

Ä
,¾500.00,NBC,1005,,,

Ä
¾500.00 NBC 1005 190

ă
,Î30.46,Gas,126403.6,Van,19.412-1.569,

ă
 Î30.46 Gas 126403.6 Van 206

ă
,¾18.08,Gas,121149.1,Honda,11.104-1.629,

ă
 ¾18.08 Gas 121149.1 Honda 190

ă
,¾18.00,NBC,1499,,,

ă
¾18.00 NBC 1499 190

ă
,¾35.68,Village of Woodridge,1494,,,

ă
¾35.68 Village of Woodridge 1494 190

Ä"

,¾6.94,Cub,,,,

Ä"

¾6.94 Cub 190

ÄŠ
,¾10.02,Dupage Co. Public Works,,,,

ÄŠ
¾10.02 Dupage Co. Public Works 190

Ę
,¾50.83,Com Ed,,,,

Ę
¾50.83 Com Ed 190