#!/usr/bin/perl

use Palm::Raw;

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

print "<html><head><title>The Quotes File</title></head><body>";

#for($recnum=1;$recnum < scalar(($pdb->{records}[20]{data})) ; $recnum ++)
$recnum=1;
while(1)
{
	$elem=($pdb->{records}[$recnum]{data})[0];
	if (length($elem)<=0)
	{
		last;
	}

	(@buff,$recorder,$quote)=unpack("C",$elem);
	$recorderlen=$buff[0];

	@buff=unpack("CCCCCCCa${recorderlen}a*",$elem);
	$seqnum=($buff[1] << 8 ) | $buff[2];
	$time=(($buff[3] << 24) | ($buff[4] << 16) | ($buff[5] << 8) | $buff[6]) - ((1970-1904)*(365.25*24*60*60)) - (12*60*60);
#	$time=$buff[6] - ((1970-1904)*(365.25*24*60*60));
	$recorder=$buff[7];
	$quote=$buff[8];

	printf("<hr> <p> record number: %d recorder: %s-%d  timestamp: %s <p>\n <pre>\n%s\n</pre>",$recnum,$recorder,$seqnum,scalar(gmtime($time)),$quote);

	$recnum++;
}

	print "</body></html>\n";

