#!/usr/athena/bin/perl

$now = time;

$jdir = $ENV{'HOME'}.'/journal/' unless ($jdir = $ENV{'JOURNALDIR'});
$ji = $jdir."journal.index";
$lj = `tail $ji`;
split(':', $lj);
$_[0]=~ s/\D//g;
$ltime = int($_[0])+0;
$dif = $now - $ltime;
print("Now: $now, Then: $ltime, Dif: $dif\n");
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = gmtime($dif);

if($yday > 4){
	print("Preparing reminder: $yday\n");
	$time = 400;
	$msg = "Yo, you haven't made a journal entry\nin more than 4 days.  Do it.\n";
	

$pid = fork();
do{

if(!$pid){
sleep($time);
if(!$repeat){&zme($msg);}
else{&zme($msg."\nPid: $$\n");}

}
else{
exit;
}
} until (!$repeat);
}

sub zme {
        local($message) = @_;
        open (ZME, "|zwrite -n -q -d -s 'AutoReminder' $ENV{'USER'}");
        print(ZME $message);
        close(ZME);
}