From 82fc3e72ef3969427e1bdf0bbc578c50bbd74e32 Mon Sep 17 00:00:00 2001 From: Steven Schubiger Date: Fri, 5 Feb 2016 00:18:29 +0100 Subject: lreminder: notify on timeout --- lreminder/reminder.pl | 24 +++++++++++++++++++++--- 1 file changed, 21 insertions(+), 3 deletions(-) (limited to 'lreminder') diff --git a/lreminder/reminder.pl b/lreminder/reminder.pl index eb9d794..3326424 100755 --- a/lreminder/reminder.pl +++ b/lreminder/reminder.pl @@ -15,7 +15,7 @@ # Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA # # Author: Steven Schubiger -# Last modified: Fri Jan 8 12:43:13 CET 2016 +# Last modified: Thu Feb 4 23:21:02 CET 2016 use strict; use warnings; @@ -37,7 +37,7 @@ use Text::Wrap::Smart::XS qw(fuzzy_wrap); use URI (); use WWW::Mechanize (); -my $VERSION = '0.51'; +my $VERSION = '0.52'; #----------------------- # Start of configuration @@ -47,6 +47,7 @@ my $Config = { events_url => 'http://www.lugs.ch/lugs/termine/termine.txt', form_url => 'http://lists.lugs.ch/reminder.cgi', mail_from => 'reminder@lugs.ch', + mail_admin => 'stsc@refcnt.org', dbase_name => '', dbase_user => '', dbase_pass => '', @@ -113,7 +114,24 @@ sub fetch_and_write_events close($fh); } else { - warn "[${\scalar localtime}] ${\File::Basename::basename($0)} not entirely run, no http content\n"; + my $script = File::Basename::basename($0); + warn "[${\scalar localtime}] $script not entirely run, no http content\n"; + my $message = <<"MSG"; +hello, + +This is lreminder [<$Config->{mail_from}>]. + +Could not run $script entirely, no http content. +Please re-run manually with `$0 --run' today. + +thanks, +MSG + sendmail( + From => $Config->{mail_from}, + To => $Config->{mail_admin}, + Subject => 'LUGS Reminder - warning: timeout', + Message => $message, + ) or die "Cannot send mail: $Mail::Sendmail::error"; exit; } } -- cgit v1.2.3