#!/usr/bin/perl
use strict;
use MIME::Lite;

require "/local/freeswitch/bin/hook-libs.pl";

our $env;
our $session;
my $addr     = $session->getVariable("fax_notify_address");
my $to       = $session->getVariable("destination_number");
my $from     = $session->getVariable("caller_id_number");
my $fromname = $session->getVariable("caller_id_name");

my $debug = 0;

if ($debug) {
    my $sid = $session->getVariable("session_id");
    if ( int($sid) eq $sid ) {
        open( my $out, "|sort > /tmp/notify-${sid}.txt" );
        print $out $env->serialize;
        close($out);
    }
}

my $direction = $session->getVariable("direction");
my $cause     = $session->getVariable("hangup_cause");
if ( $direction eq "inbound" || $cause eq "NORMAL_UNSPECIFIED" ) {

    # ignore
}
else {

    my $time = scalar( localtime(time) );

    my $fax_status = $session->getVariable("fax_success");
    my $status_msg = "Sent OK";
    if ( $fax_status != 1 ) {
        $status_msg = "Failed";
    }
    my $result = $session->getVariable("fax_result_text");

    freeswitch::console_log( "info",
        "sending fax status notify ($status_msg) for call from $from to $to to address $addr\n" );

    my $msg = MIME::Lite->new(
        From    => "freeswitch\@mst.edu",
        To      => $addr,
        Subject => "Fax status ($status_msg) for fax to ($to) at ($time)",
        Type    => "multipart/mixed"
    );

    if ( !$result ) {
        $result = "Hangup Cause (" . $session->getVariable("hangup_cause") . ")";
    }

    my $content = <<EOF;
Fax Message: $status_msg
Fax Result: $result

Call To: $to
Call From: $from ($fromname)
Call Time: $time

EOF

    foreach my $var (
        "fax_bad_rows",                   "fax_document_total_pages",
        "fax_document_transferred_pages", "fax_ecm_requested",
        "fax_ecm_used",                   "fax_filename",
        "fax_image_resolution",           "fax_image_size",
        "fax_local_station_id",           "fax_result_code",
        "fax_result_text",                "fax_remote_station_id",
        "fax_success",                    "fax_transfer_rate",
        "hangup_cause",                   "direction",
        "loopback_leg",                   "channel_name"
        )
    {
        my $tmp;
        eval { $tmp = $session->getVariable($var); };
        $content .= "Variable($var):  " . $tmp . "\n";
        freeswitch::console_log( "info", "fax status notify ($var => $tmp)\n" );
    }

    $msg->attach(
        Type => 'TEXT',
        Data => $content,
    );

    &stack_max();
    $msg->send();
    &stack_restore();

    freeswitch::console_log( "info", "done sending fax status notify for call from $from to $to to address $addr\n" );

}

# Finish with a true status
1;