5 Send-reminders - send email reminders for special occasions
9 Send emails reminders set by users for special occasions.
13 Email-reminder allows users to define events that they want to be
14 reminded of by email. Possible events include birthdays,
15 anniversaries and yearly events. Reminders can be sent on the day of
16 the event and a few days beforehand.
18 This script is meant to be invoked everyday by a cron job. It mails
19 the actual reminders out.
21 When run by the root user, it processes all of the spooled reminders.
22 When run by a specific user, it only processes reminders set by that
31 Displays basic usage message.
35 Does not actually send any emails out.
39 Prints out information about what the program is doing, including the
40 full emails being sent out.
44 Displays the version number.
50 F<~/.email-reminders>, F</etc/email-reminder.conf>
54 Francois Marier <francois@debian.org>
58 email-reminder-editor, collect-reminders
62 Copyright (C) 2004-2008 by Francois Marier
64 Email-Reminder is free software; you can redistribute it and/or
65 modify it under the terms of the GNU General Public License as
66 published by the Free Software Foundation; either version 3 of the
67 License, or (at your option) any later version.
69 Email-Reminder is distributed in the hope that it will be useful,
70 but WITHOUT ANY WARRANTY; without even the implied warranty of
71 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
72 General Public License for more details.
74 You should have received a copy of the GNU General Public License
75 along with Email-Reminder; if not, write to the Free Software
76 Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
87 use MIME
::QuotedPrint
;
91 use EmailReminder
::EventList
;
92 use EmailReminder
::Utils
;
93 use Date
::Manip
qw(ParseDate UnixDate);
96 my $PREFERENCE_FILE = '/etc/email-reminder.conf';
98 $preferences{"send_reminders"} = 1;
99 $preferences{"smtp_server"} = 'localhost';
100 $preferences{"smtp_username"} = '';
101 $preferences{"smtp_password"} = '';
102 $preferences{"mail_from"} = 'root@localhost';
109 # Command-line parameters
114 GetOptions
( "verbose" => \
$verbose,
115 "simulate" => \
$simulate,
116 "version" => \
$version,
120 # Override preferences with system values
123 if (open CONFIG
, '<', $PREFERENCE_FILE)
125 print "Reading preferences from '$PREFERENCE_FILE'\n" if $verbose;
127 # Stolen off of the Cookbook (section 8.16)
130 s/#.*//; # no comments
131 s/^\s+//; # no leading white
132 s/\s+$//; # no trailing white
133 next unless length; # anything left?
134 my ($var, $value) = split(/\s*=\s*/, $_, 2);
135 $preferences{$var} = $value;
141 print "Warning: cannot read configuration file at $PREFERENCE_FILE.\nMake sure that the user running $0 has read permissions on that configuration file.\n";
149 my $user_name = shift;
150 my $user_email = shift;
152 unless ($user_email) {
156 my $to = $user_email;
157 $to = "$user_name <$user_email>" if ($user_name);
159 print "--> Emailing '$to':\n".encode
("UTF-8", $subject."\n\n".$message) if $verbose;
162 my $smtp_server = '';
163 if ($preferences{"smtp_server"} =~ /^([A-Za-z_0-9\-\/.]+)$/) {
166 my $smtp = Net
::SMTP
->new($smtp_server, Debug
=> 0);
167 die "Error: couldn't connect to server '$smtp_server'" unless $smtp;
169 # SMTP SASL authentication (if necessary)
170 if ($preferences{"smtp_username"} and $preferences{"smtp_password"}) {
171 unless ($smtp->auth($preferences{"smtp_username"}, $preferences{"smtp_password"})) {
172 die "Error: authentication with the SMTP server failed with error code ".$smtp->status;
176 unless ($smtp->mail($preferences{"mail_from"})) {
177 die "Error: the sending address was not accepted. Try setting the 'mail_from' variable to a valid email address in the configuration file";
181 $ok = $ok && $smtp->to($to);
182 $ok = $ok && $smtp->data();
183 $ok = $ok && $smtp->datasend("From: Email-Reminder <" . $preferences{"mail_from"} . ">\n");
185 # Create an RFC822 compliant date (current time)
186 my $rfc822_format = "%a, %d %b %Y %H:%M %z";
187 my $today = ParseDate
("Now");
188 my $rfc822_date = UnixDate
($today,$rfc822_format);
189 $ok = $ok && $smtp->datasend("Date: $rfc822_date\n");
191 $ok = $ok && $smtp->datasend("To: $to\n");
192 $ok = $ok && $smtp->datasend("Subject: =?utf-8?B?".encode_base64
(encode
("UTF-8", $subject), '')."?=\n");
193 $ok = $ok && $smtp->datasend("Mime-Version: 1.0\n");
194 $ok = $ok && $smtp->datasend("Content-Type: text/plain; charset=utf-8\n");
195 $ok = $ok && $smtp->datasend("Content-Disposition: inline\n");
196 $ok = $ok && $smtp->datasend("Content-Transfer-Encoding: quoted-printable\n");
197 $ok = $ok && $smtp->datasend("\n");
198 $ok = $ok && $smtp->datasend(encode_qp
(encode
("UTF-8", $message)));
199 $ok = $ok && $smtp->dataend();
203 die "Error: could not mail the reminder out" unless $ok;
213 print "==> Processing $file\n" if $verbose;
215 my $list = EmailReminder
::EventList
->new($file);
217 my @fullname = $list->get_user_name();
218 my $user_fname = $fullname[0];
219 my $user_lname = $fullname[1];
220 my $user_name = $user_fname;
221 $user_name .= " " . $user_lname if defined($user_lname);
222 my $user_email = $list->get_user_email();
224 foreach my $event ($list->get_events()) {
225 if ($event->is_occurring()) {
226 my $msg = $event->get_message($user_fname);
227 my $subject = $event->get_subject();
229 my @recipients = @
{$event->get_recipients()};
230 if ($#recipients > -1) {
231 foreach my $recipient (@recipients) {
232 my $recipient_email = shift @
{$recipient};
233 my $recipient_name = shift @
{$recipient};
234 my $success = send_email
($msg, $subject, $recipient_name, $recipient_email) if $msg;
235 return 0 if !$success;
238 my $success = send_email
($msg, $subject, $user_name, $user_email) if $msg;
239 return 0 if !$success;
249 my $running_uid = $>;
250 if (0 == $running_uid) {
251 print STDERR
"Warning: for security reasons, this script should not be not as root.\n";
254 my $spool_dir = $EmailReminder::Utils
::SPOOL_DIRECTORY
;
256 # Iterate through all spooled files
257 while (defined(my $file = <$spool_dir/*>)) {
259 if ($file =~ /^([A-Za-z_0-9\-\/]+)$/) {
262 print STDERR
"Skipped unclean filename" if $verbose;
266 unless (process_file
($file, 0, 1)) {
270 # Delete the file once we're done with it
271 unless (unlink($file)) {
272 print STDERR
"Could not remove $file.\n" if $verbose;
277 # Normal users only get to test their own reminders
278 my @pwinfo = getpwuid($>);
279 my $homedir = $pwinfo[7];
280 my $file = "$homedir/" . $EmailReminder::Utils
::USER_CONFIG_FILE
;
283 return process_file
($file, 0, 1);
285 print STDERR
"Warning: could not find your .email-reminders file.\n";
291 if ($help || $version) {
292 print "send-reminders $EmailReminder::Utils::VERSION\n";
297 } elsif ($preferences{"send_reminders"}) {
299 print STDERR
"Could not send reminders.\n";