Still tinkering with announceEmail
[clearscm.git] / bin / nag.pl
index 093dd0f..7485e7f 100755 (executable)
@@ -4,7 +4,7 @@
 
 =head1 NAME $RCSfile: nag.pl,v $
 
-Nag: A progressively more agressive reminder program.
+Nag: A progressively more aggressive reminder program.
 
 =head1 VERSION
 
@@ -50,7 +50,7 @@ $Date: 2013/06/13 14:36:03 $
 
 =head1 DESCRIPTION
 
-This script read a file indicating who to remind. The format for this file is:
+This script reads a file indicating who to remind. The format for this file is:
 
  <email>|<subject>|<when>|<msgfile>|<sent>|<date>
 
@@ -73,6 +73,8 @@ tag it with X-Nag: <nag id> (will this come back when the user replies?). MAPS
 would then white list the sender and deliver the email as well as put the nag in
 a pending state.
 
+=back
+
 =cut
 
 use strict;
@@ -195,11 +197,12 @@ while (<$nagsIn>) {
       or error "Unable to open message file $msgfile - $!", 1;
 
     mail (
-      to      => $email,
-      subject => $subject,
-      mode    => 'html',
-      data    => $msg,
-      footing => $footing,
+      to            => $email,
+      subject       => $subject,
+      mode          => 'html',
+      data          => $msg,
+      footing       => $footing,
+      randomizeFrom => 1,
     );
 
     close $msg
@@ -257,10 +260,10 @@ L<Getopt::Long|Getopt::Long>
 =begin html
 
 <blockquote>
-<a href="http://clearscm.com/php/cvs_man.php?file=lib/DateUtils.pm">DateUtils</a><br>
-<a href="http://clearscm.com/php/cvs_man.php?file=lib/Display.pm">Display</a><br>
-<a href="http://clearscm.com/php/cvs_man.php?file=lib/Mail.pm">Mail</a><br>
-<a href="http://clearscm.com/php/cvs_man.php?file=lib/Utils.pm">Utils</a><br>
+<a href="http://clearscm.com/php/scm_man.php?file=lib/DateUtils.pm">DateUtils</a><br>
+<a href="http://clearscm.com/php/scm_man.php?file=lib/Display.pm">Display</a><br>
+<a href="http://clearscm.com/php/scm_man.php?file=lib/Mail.pm">Mail</a><br>
+<a href="http://clearscm.com/php/scm_man.php?file=lib/Utils.pm">Utils</a><br>
 </blockquote>
 
 =end html