• Files
• Commits
• Log
• Graph
• Stats

#!/usr/bin/perl

=begin -------------------------------------------------------------------------
generates list of Gallium trial requests which are not ready for data transfer,
when diagnosis one of: 'Awaiting final diagnosis', 'Gallium trial - additional
material required', 'Gallium trial - referred to Kiel', 'See comments'
=cut ---------------------------------------------------------------------------

use strict;
use warnings;

my $JUST_TESTING = 0; # email to ra.jones only

BEGIN {
    use FindBin qw($Bin); # warn $Bin;
    use lib (
        "$Bin/../../../lib",
        '/home/raj/perl5/lib/perl5',
    );
}

use Data::Dumper;
use LIMS::Local::ScriptHelpers;

my $tools = LIMS::Local::ScriptHelpers->new();
$tools->test_only($JUST_TESTING);

############ recipients from contacts.lib ######################################
my @recipients = qw( raj andrew.jack );
################################################################################

# get tools from LIMS::Local::ScriptHelpers:
my $sql_lib = $tools->sql_lib();
my $config  = $tools->config(); 
my $dbix    = $tools->dbix();

# email subject line:
my $subject = 'Gallium trial diagnoses pending';

my $sql = $sql_lib->retr('gallium_pending'); # warn $sql;
my $rows = $dbix->query($sql)->arrays; # warn Dumper $rows;

exit unless @$rows;

# flag to Local::Mail::_verify_service_status() that msg safe to send:
$config->{_safe_message} = 1 if ! $config->{is_in_production_mode};

my $message_body
    = $tools->process_template('cron/gallium_pending.tt', { data => $rows }); # warn $message_body;

my %mail = (		
    subject => $subject,
    message => $message_body,
    content => 'html',
	config  => $config,
); # warn Dumper \%mail;

$tools->send_mail(\%mail, \@recipients);