projects
/
clearscm.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Added global gitignore
[clearscm.git]
/
bin
/
nag.pl
diff --git
a/bin/nag.pl
b/bin/nag.pl
index
689c817
..
7485e7f
100755
(executable)
--- a/
bin/nag.pl
+++ b/
bin/nag.pl
@@
-4,7
+4,7
@@
=head1 NAME $RCSfile: nag.pl,v $
=head1 NAME $RCSfile: nag.pl,v $
-Nag: A progressively more agressive reminder program.
+Nag: A progressively more ag
g
ressive reminder program.
=head1 VERSION
=head1 VERSION
@@
-50,7
+50,7
@@
$Date: 2013/06/13 14:36:03 $
=head1 DESCRIPTION
=head1 DESCRIPTION
-This script read a file indicating who to remind. The format for this file is:
+This script read
s
a file indicating who to remind. The format for this file is:
<email>|<subject>|<when>|<msgfile>|<sent>|<date>
<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.
would then white list the sender and deliver the email as well as put the nag in
a pending state.
+=back
+
=cut
use strict;
=cut
use strict;
@@
-195,11
+197,12
@@
while (<$nagsIn>) {
or error "Unable to open message file $msgfile - $!", 1;
mail (
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
);
close $msg