Listing 2: "nukewarn" template

Subject:Account Deletion
Eval:
@dname = (Sunday, Monday, Tuesday, Wednesday, Thursday,
Friday, Saturday);
@moname = (January, February, March, April, May, June,
July, August, September, October, Novermber, December);
@in2wks = localtime(time + 14 * 86400);
$nukedate = "$dname[$in2wks[6]], $moname[$in2wks[4]] $in2wks[3]";

Text:
Your UNIX account is scheduled to be deleted on
$nukedate.  Please let me know before then if you need
any assistance in offloading your files to tape or
floppy disk, or if I can assist you in any other way.
(Please also let me know as soon as possible if the
account deletion would be a dreadful bureaucratic
mistake. These things happen at times.)