#!/usr/bin/perl =begin ------------------------------------------------------------------------- request status = complete and updated_at = yesterday =cut --------------------------------------------------------------------------- use strict; use warnings; my $JUST_TESTING = 0; # email to ra.jones only ################################################################################ my @recipients = qw(); # admin contact **must be nhs.net** pushed below my $duration = 1; ################################################################################ use lib '/home/raj/perl5/lib/perl5'; use Data::Dumper::Concise; use HTML::Template; use FindBin qw($Bin); # warn $Bin; use lib "$Bin/../../../lib"; use LIMS::Local::ScriptHelpers; # get tools from LIMS::Local::ScriptHelpers: my $tools = LIMS::Local::ScriptHelpers->new(); $tools->test_only($JUST_TESTING); my $sql_lib = $tools->sql_lib(); my $config = $tools->config(); # warn Dumper $config->{email_from}; my $dbix = $tools->dbix(); my $query = $sql_lib->retr('completed_requests'); my @rows = $dbix->query($query, $duration)->hashes; # warn Dumper @rows; exit unless @rows; push @recipients, $config->{email_from}; # sole contact - must be nhs.net my $html = do { local $/; }; my $yesterday = $tools->date_subtract( days => $duration )->dmy('.'); my $template = HTML::Template->new(scalarref => \$html, loop_context_vars => 1); $template->param( ROWS => \@rows, DATE => $yesterday ); my $message_body = $template->output(); # warn $message_body; my %mail = ( subject => 'Request status complete', message => $message_body, content => 'html', config => $config, ); # warn Dumper [\%mail, \@recipients]; exit; $tools->send_mail(\%mail, \@recipients); __DATA__ Request Status Complete

Request status complete on

,