#!/usr/athena/bin/perl

require '/mit/mkgray/perl/dateparse.pl';
$now = time();

@files = `grep Expires: /mit/mkgray/Mail/inbox/*`;
for $l (@files) {
	($msg, @g) = split(":", $l);
	next if $did{$msg};
	$did{$msg}=1;

	open(M, $msg);
	while(<M>){
		if(/^Expires: (.+)/){
			$date = $1;
			last;
		}
	}
	close(M);
	$when  = &pgetdate($date);
	$til = int(($when-$now)/3600);
	print "$til hours till expire $msg\n";
	if($til < 0 ) {
		print("Deleting $msg\n");
		unlink($msg);
	}
}