#!/usr/bin/perl
use Palm::Datebook;

my $pdb = new Palm::PDB;

$pdb->Load("$ENV{HOME}/.palm/backup/DatebookDB.pdb");
my $datebook;

foreach my $event ( @{$pdb->{records}} )     {
     $datebook->{ $event->{description} } = $event;
}

while (<DATA>)
{
	my ($day, $month, $year, $desc, $note) = split /~/, $_;
     chomp($note);

     next if ( defined ( $datebook->{$desc} ) 
              && ( $datebook->{$desc}->{day} == $day )
              && ( $datebook->{$desc}->{month} == $month ) );
          
     my $record = $pdb->append_Record;
	$record->{"day"} = $day;
	$record->{"month"} = $month;
	$record->{"year"} = $year;
	$record->{"start_hour"} = 255;
	$record->{"start_minute"} = 255;
	$record->{"end_hour"} = 255;
	$record->{"end_minute"} = 255;
	$record->{"description"} = $desc;
	$record->{"note"} = "$note";
	$record->{"attributes"}{"dirty"} = 1;
	$record->{"category"} = 0;
     $record->{'repeat'} = { 'frequency' => 1, 
                            'type' => 5,
                            'unknown' => 0 };
     $record->{'alarm'} = {};                              

}

$pdb->Write("/tmp/DatebookDB.pdb");

__DATA__
31~1~2001~Nauru Independence Day~
1~2~2001~Robinson Crusoe Day~USA
2~2~2001~Candlemas~Sweden, Switzerland and Liechtenstein
2~2~2001~Groundhog Day~USA, Canada, and Switzerland
3~2~2001~Heroes' Day~Mozambique
10~2~2001~Feast of St Paul's Shipwreck~Malta
11~11~2001~Armed Forces Day~Liberia
11~2~2001~Empire Day~Japan
11~2~2001~Mothers' Day~Norway
11~2~2001~Thomas Edison's Birthday~
14~2~2001~St. Valentine's Day~
15~2~2001~National Flag of Canada Day~Canada
15~2~2001~Rose Monday~Bolivia
15~2~2001~Spanish-Americal War Memorial Day~Massachusetts, USA
15~2~2001~Susan B. Anthony Day~Florida, USA
16~2~2001~Gion Matsuri~Japan
16~2~2001~Lithuania Independence Day~1918
17~2~2001~National Public Science Day~USA
18~2~2001~Gambia Independence Day~