package MailNotification;

sub Load {
	Feature::FuncReg(\&do_zmailnotify, 50);
	Feature::FuncReg(\&mail_notification, 80);
	Feature::LocalizeZephyr;
}

sub do_zmailnotify {
    if(($class eq "MAIL") && ($instance eq "POP")){
	`/usr/athena/bin/zmailnotify`;
	exit;
    }
}

sub mail_notification {
    if($main::opcode eq "NEW_MAIL"){
	@fields = &main::ZFields();
	$authstr = ($auth eq "yes") ? "Authentic":"UNAUTHENTIC";
	$z = <<MAILFORMAT;
(Authentication: \@bold($authstr))
You have new mail:

From: $fields[0]
To: $fields[1]
Subject: $fields[2]
MAILFORMAT

    chop($z);
&main::ZPut($z);
$main::displayed = 1;
    }
}

sub Description {
	"Provide standard format mail notification";
}

1;