#!/afs/athena/contrib/perl/perl
# This is a reduced version of Mark Eichin's (eichin@mit.edu) ztodo.perl
push(@INC,"/afs/athena.mit.edu/user/m/a/marc/perl");
require 'zsend.pl';

sub zwriteme {
  local($body) = @_;
  &zsend(&zpacket(undef,		# figure out uid
		  "message",
		  "personal",
		  "", # opcode
		  "The Bitch",
		  "$ENV{\"USER\"}",
		  "",
		  "Nag Nag Nag\0$body\0"));
}

open(TODOFILE,"<$ENV{\"HOME\"}/TODO");
@quotes = <TODOFILE>;
close(TODOFILE);

srand((time + $$*10)%65537);
$num = rand($#quotes-$[); #]


&zwriteme($quotes[$num]);