X-Git-Url: https://defaria.com/gitweb/?a=blobdiff_plain;f=bin%2Fnag.pl;h=7485e7fac7e65ea2b65680824f5df21eb081b8e1;hb=2dca9460aaac20e49c409da4f9e59c85027c3605;hp=093dd0fa7a042dbe1ac1208a6be1523dd0f691fe;hpb=020a4a5ea2be725b155cae3a2cadc9aba3911b9b;p=clearscm.git diff --git a/bin/nag.pl b/bin/nag.pl index 093dd0f..7485e7f 100755 --- a/bin/nag.pl +++ b/bin/nag.pl @@ -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: ||||| @@ -73,6 +73,8 @@ tag it with X-Nag: (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 =begin html
-DateUtils
-Display
-Mail
-Utils
+DateUtils
+Display
+Mail
+Utils
=end html