#!/usr/bin/perl -w
use strict;
use warnings;
use DBI;
use Net::SMTP;
use POSIX qw(strftime);
use Date::Calc qw(Delta_DHMS);
use Text::CSV;
use Data::Dumper;
$\ = "\n";
#################
#############################################
#ticket_notifier.pl
#Purpose:  Check Database for open tickets and notify
#Help Desk staff of tickets that have been open too long
###############################################
#Variables
###############
#Captcha variables
#Bunch of variable specifying email addresses, database login info, etc redacted here
#these are the thresholds, in hours, for alerts.
my %thresholds = ( High => 6, Medium => 24, Low => 48 );
my $now_string = strftime "%Y-%m-%d %H:%M:%S", localtime;
my @now_time = split /:|\s|-/, $now_string;
#Ha ha! Time for Hash of Arrays! (of arrays)
my %notify = ( High => [], Medium => [], Low => [] );
my $ts = strftime "%Y%m%d%H%M%S", localtime;
my $backup_dir = '/var/chroot/home/content/12/11107612/html/_db_backups';
my $backup_filename = "$backup_dir/HDDBBU_$ts.csv";

my @data_elements = ('request id', 'time_received','name', 'email', 'primary_number', 'alt_number', 'facility_name', 'facility_addr',
                     'urgency','problem_type','message', 'status', 'closed_note', 'last_update_timestamp');


my $select_stmt = "SELECT * from $dbtbl order by ticket_id";

my $select_sth = $dbh->prepare($select_stmt) || warn "prepare statement failed: $DBI::errstr  <br/>";
$select_sth->execute() || warn "execute statement failed: $DBI::errstr  <br/>";
while (my $ref = $select_sth->fetchrow_arrayref()) {
    #split on colon,space,or dash
    my @ticket_time = split /:|\s|-/, $ref->[1];
    my ($Dd,$Dh,$Dm,$Ds) =
        Delta_DHMS($ticket_time[0],$ticket_time[1],$ticket_time[2],$ticket_time[3],$ticket_time[4],0,
                   $now_time[0],$now_time[1],$now_time[2],$now_time[3],$now_time[4],0);
    #my ($Dd,$Dh,$Dm,$Ds) = Delta_DHMS(@ticket_time,0,@now_time,0);
    my $delta_hrs = $Dd * 24 + $Dh;
    if ( $ref->[8] eq 'High' && $delta_hrs >= $thresholds{'High'}){
        push @{$notify{'High'}}, $ref;
    }elsif ( $ref->[8] eq 'Medium' && $delta_hrs >= $thresholds{'Medium'}){
        push @{$notify{'Medium'}}, $ref;
    }elsif( $ref->[8] eq 'Low' && $delta_hrs >= $thresholds{'Low'}){
        push @{$notify{'Low'}}, $ref;
    }
    #debug/testing statement here.
    warn "Time elapsed for ticket $ref->[0] of priority $ref->[8] is $delta_hrs.";
}
$select_sth->finish();

foreach my $k (sort keys %notify){
    warn "Expired $k priority tickets:\n\r";
    $email_text .= "Expired $k priority tickets:\n\r";
    foreach my $ticket_ref (@{$notify{$k}}){
        my $line = join " -- ", @$ticket_ref;
        $line = "$line \n\r";
        warn $line;
        $email_text .= "$line\n\r";
    }
}

warn Dumper(%notify);

my $smtp = Net::SMTP->new($email_server)  || die "Couldn't create new SMTP object: $!";
$smtp->mail($email_from_address)  || die "Couldn't set from address using send: $!";
$smtp->to(@email_to_addresses)|| die "Couldn't set to address: $!";
$smtp->data();

$smtp->datasend("To:",join ';',@email_to_addresses, "\n");
$smtp->datasend("From: $email_from_address\n");
$smtp->datasend("Subject: $email_subject\n");
$smtp->datasend("\n"); # done with header
$smtp->datasend("$email_intro\n");

#warn $q->p($html_text);
$smtp->datasend($email_text)    || die "Couldn't call datasend(): $!";

$smtp->dataend()    || die "Couldn't call dataend(): $!";    
#warn $q->p("called dataend");
$smtp->quit  || die "Couldn't call quit()"; 
#part where we back up the db:
my $csv = Text::CSV->new( { binary => 1, eol => "\015\012"  } );
#re-use $select_sth
$select_sth = $dbh->prepare($select_stmt) || warn "prepare statement failed: $DBI::errstr  <br/>";
$select_sth->execute() || warn "execute statement failed: $DBI::errstr  <br/>";

open (my $fh, ">", $backup_filename);

#warn a header row to the CSV--
$csv->print($fh, \@data_elements) || warn "Can't print:  $!";

while ( my $ref = $select_sth->fetchrow_arrayref() ) {
    #the csv print function needs a filehandle soo....STDOUT?
    $csv->print($fh, $ref) || warn "Can't print:  $!";
}
$select_sth->finish();