#!/bin/perl

# libby.miller@bristol.ac.uk 2000-01-23 
# gets dates from Palm datebook database, 
# e.g. /home/user/.jpilot/DatebookDB.pdb 
# now converts to simple rss+events-like schema
#
# see also RDF calendar taskforce 
# http://ilrt.org/discovery/2001/04/calendar/
#
# useage: ./date2rdf.pl  
# 
# requires the Palm perl modules 
# 
# http://search.cpan.org/doc/ARENSB/p5-Palm-1.1.5/Palm/PDB.pm 
#

use Palm::PDB;
use Palm::Datebook;

my $pdb = new Palm::PDB;

#my $dbfile="$ENV{HOME}/.jpilot/DatebookDB.pdb";        
my $dbfile="/Users/libby/palmbackup/DatebookDB.pdb";

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

$pdb->{sort};

my $label;
my $labelt;
my $dlabel=undef;
my $mbox="none";

$dlabel=$ARGV[0];

$mbox=$ARGV[1];  

my $tz=$ARGV[2];

my $tzns="http://ilrt.org/discovery/2001/06/content/tz/";


if($tz eq ""){
$tz="UTC";
}

if($mbox eq ""){
$mbox="none";
}



my $label;
my $labelt;

if($dlabel eq "today"){
($sec, $min, $hour, $mday,$mon,$year,$wday,$yday,$isdst)=localtime(time);

$m=$mon+1;
$y=$year+1900;
$d=$mday;

if($m<10){
$m="0".$m;
}
if($d<10){
$d="0".$d;
}

$dlabel=$y.$m.$d;

#print $dlabel;
}



my $buf;
my $abuf;

$abuf="<rdf:RDF ";
$abuf=$abuf."\n xmlns:rdf=\"http://www.w3.org/1999/02/22-rdf-syntax-ns#\"";
$abuf=$abuf."\n xmlns:rdfs=\"http://www.w3.org/2000/01/rdf-schema#\"";
$abuf=$abuf."\n xmlns:foaf=\"http://xmlns.com/foaf/0.1/\"";
$abuf=$abuf."\n xmlns:dc=\"http://purl.org/dc/elements/1.1/\"";
$abuf=$abuf."\n xmlns:ev=\"http://purl.org/rss/1.0/modules/event/\"";
$abuf=$abuf."\n xmlns=\"http://purl.org/rss/1.0/\" >";

$abuf=$abuf."\n\n\t <channel rdf:about=\"\"> ";
$abuf=$abuf."\n\n\t <title>Palm events</title> ";
$abuf=$abuf."\n\n\t <description>Palm events file</description> ";
$abuf=$abuf."\n\n\t <image rdf:resource=\"http://www.w3.org/RDF/icons/rdf_w3c_icon.48\"/>";

## creation information

$abuf=$abuf."\n\t\t<dc:source rdf:resource=\"http://swordfish.rdfweb.org/calendar/tmp/$mbox.rdf\" />";
$abuf=$abuf."\n\t\t<dc:description>Generated Calendar RDF for $mbox for the date $dlabel</dc:description>";
$abuf=$abuf."\n\t\t<dc:contributor rdf:resource=\"http://swordfish.rdfweb.org/calendar/import.html\" />";
$abuf=$abuf."\n\t\t<dc:date>$dlabel</dc:date>";

$abuf=$abuf."\n\n\t\t <items>\n\n\t\t\t<rdf:Seq>";


my $i=0;


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

	my $record = {};

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


	$i++;
	my $time;
	my $day;
	my $date;
	my $start;
	my $end;
	my $endm;
	my $location;
	my $desc;

	chomp;
	($time, $desc, $location, $note) = split /\n/, $_, 4;


my $m=$record->{"month"};
my $d=$record->{"day"};

if($m<10){
$m="0".$m;
}
if($d<10){
$d="0".$d;
}

$label=$record->{"year"}."-".$m."-".$d;
$labelt=$record->{"year"}.$m.$d;


#print "\nlabel is ".$label."\n";
#print "\nlabelt is ".$labelt."\n";
#print "\ndlabel is ".$dlabel."\n";


##don't want to print private ones

my $priv=$record->{"attributes"}{"private"};

####remove this part to show all
if($priv!=1){

	if( ($dlabel eq $labelt) || ($dlabel==undef)){

	my $sdh=$record->{"start_hour"};
	my $edh=$record->{"end_hour"};

	my $sdm=$record->{"start_minute"};
	my $edm=$record->{"end_minute"};

	if($sdh<10){$sdh="0".$sdh;}
	if($edh<10){$edh="0".$edh;}
	if($sdm<10){$sdm="0".$sdm;}
	if($edm<10){$edm="0".$edm;}

	$abuf=$abuf."\n\t\t<rdf:li rdf:resource=\"urn:libby:palm:" . $i ."\" />";

	$buf=$buf."\n\t\t<item rdf:about=\"urn:libby:palm:" . $i ."\" >";
	$buf=$buf."\n\t\t\t\t <title>" . $record->{"description"} . "</title>";
	$buf=$buf."\n\t\t\t\t<ev:startdate>".$label."T".$sdh."".$sdm."</ev:startdate>";
	$buf=$buf."\n\t\t\t\t<ev:enddate>".$label."T".$edh."".$edm."</ev:enddate>";;
	$buf=$buf."\n\t\t</item>\n";
	}

	}


}

$abuf=$abuf."\n\t\t</rdf:Seq>\n\t\t</items>\n\t\t</channel>";



$buf=$buf."\n</rdf:RDF>";
$buf=~ s/&/&amp;/g;
$abuf=~ s/&/&amp;/g;


print $abuf;
print $buf;