#!/usr/bin/perl -w

# Dump Pilot MiniCalc database entries to stdout
#
# Dobrica Pavlinusic <dpavlin@rot13.org> 2000-08-01
#
# http://www.rot13.org/~dpavlin/
#
# PDA::Pilot comes with source of pilot-link, others are from CPAN

# please note that I will not try to develop this conduct anymore.
# it's property program, which I don't want to support!

use strict;
use PDA::Pilot;
use Data::Dumper;
use Getopt::Std;

my %opts;
$opts{d} = "DiddleBugDB.pdb";

if (! getopts('d:tx',\%opts)) {
	print "Usage: $0 x [-d dbname]\n";
	print "Dump all records from your Pilot DiddleBug database\n";
	print "  -t	shows types\n";
	exit;
}

die "Can't open $opts{d}" if (! -f $opts{d} && -r $opts{d});
my $db = PDA::Pilot::File::open($opts{d});

my $i=0;
while(defined(my $r = $db->getRecord($i++))) {
	print "$i: ",length($r->{raw}),"\n";
#	warn Dumper($r);
#	next if (length($r->{raw}) < 10);
	my @foo = unpack("B",$r->{raw});
	print @foo;
	foreach (@foo) {
		if ($_) {
			print ".";
		} else {
			print "o";
		}
	}
}