#!/usr/athena/bin/perl
($fd{'Jan'}, $fd{'Feb'}, $fd{'Mar'}, $fd{'Apr'}, $fd{'May'}, $fd{'Jun'},
$fd{'Jul'}, $fd{'Aug'}, $fd{'Sep'}, $fd{'Oct'}, $fd{'Nov'}, $fd{'Dec'}) =
(1, 32, 61, 92, 122, 153, 183, 214, 245, 275, 306, 336);

open(RCF, "~/.liferc");
$_ = `date`;
($day, $mon, $date, $time, $zone, $year) = split;
int($year);
int($date);
$byear = int(<RCF>);
print("$byear, $year, $mon, $date\n");
$dnum = ($byear-$year)*366 + $fd{$mon} + $date - 1;
$wnum = $dnum + 7;
print("Dnum: ", $dnum, "\n");
while(<RCF>) {
	($type, $start, @descrip) = split;
	int($start);
	if($type == 1) {
		if ($start==$dnum) {
			push(@today, @descrip, "\n");
			}
		if ($start<$wnum) {
			$n = $wnum -$start;
			push(@thisweek, "In $n days: ", @descrip, "\n");
			}
		}
}
print("Today: \n");
foreach $thing (@today) {
	print $thing;
}		
print("This week\n");
foreach $thing (@thisweek) {
	print $thing;
}