#!/usr/bin/perl
use Palm::Memo;
use ColdSync;

%HEADERS = (
	Jotfile	=> "$ENV{HOME}/.kde/share/apps/kjots/Palm",
);

ConduitMain(
	"dump"	=> \&DoDump,
);

sub DoDump
{
	open JOT, "> $HEADERS{Jotfile}" or
		die("501 - Can't open file $HEADERS{Jotfile}: $!\n");

	my $record;

	foreach $record (@{$PDB->{"records"}})
	{
		next if $record->{"attributes"}{"deleted"};
		next if $record->{"attributes"}{"expunged"};

		my $subject;
		my $text;

		if ($record->{"data"} =~ /\n/)
		{
			$subject = $`;
			$text = $';
		} else {
			$subject = '';
			$text = $record->{"data"};
		}

		$subject =~ tr/\225/\267/;
		$text =~ tr/\225/\267/;

		print JOT "\\NewEntry ", $subject, "\n", $text;
		print JOT "\n" unless $text =~ /\n$/;
	}

	close JOT;
}