#!/usr/athena/bin/perl
$msg="\@beep()";

if($#ARGV != -1)
{
	$t = $ARGV[0];
	$t =~ s/r//;
	if($t =~ s/m//){
		$time = int($t) * 60;
	}
	else{
		$t =~ s/s//;
		$time = int($t);
	}
	$repeat = ($ARGV[0] =~ s/r//);
}
else
{
	$time = 600;
}
	$msg .= "Reminder from $ARGV[0] ago:\n\n"; 
        print("\nEnd with a . on a line by itself.\n");
        while($line ne ".\n") {
                $msg = $msg.$line;
                $line = (<STDIN>);
        }
$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);
}