package LogError;
use strict;

## no critic

#use threads 1.72; # qw(running);
#use threads::shared;

#use LoadConfig;
use Globals qw(
    $system_version
    $erroremailrecipient
    $warnemailrecipient
    $successemailrecipient
    $completionemailrecipient
    $appstartsecs
    $root_threadid
);

use Mail qw(
    send_message
    send_email
    $signature
    wrap_mailbody
    $lowpriority
    $normalpriority
);
use Utils qw(
    threadid
    create_guid
    getscriptpath
    timestamp
    secs_to_years
);

use POSIX qw(ceil locale_h);
setlocale(LC_NUMERIC, 'C');

use Time::HiRes qw(time);

use Carp qw(carp cluck croak confess);

require Exporter;
our @ISA = qw(Exporter);
our @EXPORT_OK = qw(
    notimplementederror
    dberror
    dbwarn
    fieldnamesdiffer
    transferzerorowcount
    processzerorowcount
    deleterowserror

    tabletransferfailed
    tableprocessingfailed

    fileerror
    filewarn
    
    yamlerror

    parameterdefinedtwice
    emailwarn
    configurationwarn
    configurationerror

    sortconfigerror

    xls2csverror
    xls2csvwarn

    serviceerror
    servicewarn

    webarchivexls2csverror
    webarchivexls2csvwarn

    dbclustererror
    dbclusterwarn

    success
    completion
);

my $erroremailsubject = 'error: module ';
my $warnemailsubject = 'warning: module ';
my $successmailsubject = 'success: module ';
my $completionmailsubject = 'completed: module ';

sub success {

    my ($message,$attachments,$logger) = @_;

    if (length($message) == 0) {
        $message = 'success';
    }

    my $appexitsecs = Time::HiRes::time();
    #$message .= "\n\n" . sprintf("%.2f",$appexitsecs - $appstartsecs) . ' seconds';
    $message .= "\n\n" . 'time elapsed: ' . secs_to_years(ceil($appexitsecs - $appstartsecs));

    if (defined $logger) {
        $logger->info($message);
    }

    if (threadid() == $root_threadid) {
        if (length($successemailrecipient) > 0 and defined $logger) {
            my $email = {
                to          => $successemailrecipient,
                #cc          => 'rkrenn@sipwise.com',
                #bcc         => '',
                #return_path => undef,
                priority    => $lowpriority,
                #sender_name => 'Rene K.',
                #from        => 'rkrenn@sipwise.com',
                subject     => $successmailsubject . $logger->{category},
                body        => getscriptpath() . ":\n\n" . wrap_mailbody($message) . "\n\n" . $signature,
                guid        => create_guid()
            };

            my ($mailresult,$mailresultmessage) = send_email($email,$attachments,\&fileerror,\&emailwarn);
        }

    }

}

sub completion {

    my ($message,$attachments,$logger) = @_;

    if (length($message) == 0) {
        $message = 'completed';
    }

    my $appexitsecs = Time::HiRes::time();
    #$message .= "\n\n" . sprintf("%.2f",$appexitsecs - $appstartsecs) . ' seconds';
    $message .= "\n\n" . 'time elapsed: ' . secs_to_years(ceil($appexitsecs - $appstartsecs));

    if (defined $logger) {
        $logger->info($message);
    }

    if (threadid() == $root_threadid) {
        if (length($completionemailrecipient) > 0 and defined $logger) {
            my $email = {
                to          => $completionemailrecipient,
                #cc          => 'rkrenn@sipwise.com',
                #bcc         => '',
                #return_path => undef,
                priority    => $normalpriority,
                #sender_name => 'Rene K.',
                #from        => 'rkrenn@sipwise.com',
                subject     => $completionmailsubject . $logger->{category},
                body        => getscriptpath() . ":\n\n" . wrap_mailbody($message) . "\n\n" . $signature,
                guid        => create_guid()
            };

            my ($mailresult,$mailresultmessage) = send_email($email,$attachments,\&fileerror,\&emailwarn);
        }

        #exit(0);
    }

}

sub warning {

    my ($message,$logger,$sendemail) = @_;

    if (threadid() == $root_threadid) {
        if ($sendemail and length($warnemailrecipient) > 0 and defined $logger) {
            my ($mailresult,$mailresultmessage) = send_message($warnemailrecipient,$warnemailsubject . $logger->{category},getscriptpath() . ":\n\n" . wrap_mailbody($message) . "\n\n" . $signature,\&fileerror,\&emailwarn);
        }
        carp($message);
        #warn($message);
    } else {
        carp($message);
        #warn($message);
    }

}

sub terminate {

    my ($message,$logger) = @_;

    if (threadid() == $root_threadid) {

        my $appexitsecs = Time::HiRes::time();
        #$message .= "\n\n" . sprintf("%.2f",$appexitsecs - $appstartsecs) . ' seconds';
        $message .= "\n\n" . 'time elapsed: ' . secs_to_years(ceil($appexitsecs - $appstartsecs));

        if (length($erroremailrecipient) > 0 and defined $logger) {
            my ($mailresult,$mailresultmessage) = send_message($erroremailrecipient,$erroremailsubject . $logger->{category},getscriptpath() . ":\n\n" . wrap_mailbody($message) . "\n\n" . $signature,\&fileerror,\&emailwarn);
        }
        croak($message); # confess...
        #die($message);
    } else {

        croak($message);
        #die($message);
    }

}

#sub registerthread {
#
#    my $thrlogger = shift;
#    $registered_tids{threads->tid()} = 1;
#    $SIG{'DIE'} = sub {
#
#                            print "signal\n";
#                            my $tid = threads->tid();
#                            my $message = '[' . $tid . '] aborting';
#                            if (defined $thrlogger) {
#                                $thrlogger->error('[' . $tid . '] aborting');
#                            }
#                            unregisterthread($tid);
#                            #threads->exit();
#                            croak($message);
#                        };
#
#}
#
#sub unregisterthread {
#
#    my $tid = shift;
#    if (!defined $tid) {
#        $tid = threads->tid();
#    }
#    delete $registered_tids{$tid};
#
#}

#sub terminatethreads {
#
#    # Loop through all the threads
#    foreach my $thr (threads->list()) {
#        # Don't join the main thread or ourselves
#        if ($thr->tid != 0 && !threads::equal($thr,threads->self)) {
#            $thr->kill('DIE'); #->detach();
#        }
#    }
#
#}

sub notimplementederror {

    my ($message, $logger) = @_;
    if (defined $logger) {
        $logger->error($message);
    }

    terminate($message, $logger);
    #terminatethreads();
    #die();

}

sub dberror {

    my ($db, $message, $logger) = @_;
    $message = _getconnectorinstanceprefix($db) . _getconnectidentifiermessage($db,$message);
    if (defined $logger) {
        $logger->error($message);
    }

    terminate($message, $logger);
    #terminatethreads();
    #die();

}

sub dbwarn {

    my ($db, $message, $logger) = @_;
    $message = _getconnectorinstanceprefix($db) . _getconnectidentifiermessage($db,$message);
    if (defined $logger) {
        $logger->warn($message);
    }

    #die();
    warning($message, $logger, 1);

}

sub fieldnamesdiffer {

    my ($db,$tablename,$expectedfieldnames,$fieldnamesfound,$logger) = @_;
    my $message = _getconnectorinstanceprefix($db) . 'wrong table fieldnames (v ' . $system_version . '): [' . $db->connectidentifier() . '].' . $tablename . ":\nexpected: " . ((defined $expectedfieldnames) ? join(', ',@$expectedfieldnames) : '<none>') . "\nfound:    " . ((defined $fieldnamesfound) ? join(', ',@$fieldnamesfound) : '<none>');
    if (defined $logger) {
        $logger->error($message);
    }

    terminate($message, $logger);
    #terminatethreads();
    #die();

}

sub dbclustererror {

    my ($clustername,$message,$logger) = @_;
    $message = 'database cluster ' . $clustername . ': ' . $message;
    if (defined $logger) {
        $logger->error($message);
    }

    terminate($message, $logger);

}

sub dbclusterwarn {

    my ($clustername,$message,$logger) = @_;
    $message = 'database cluster ' . $clustername . ': ' . $message;
    if (defined $logger) {
        $logger->warn($message);
    }

    #die();
    warning($message, $logger, 1);

}

sub transferzerorowcount {

    my ($db,$tablename,$target_db,$targettablename,$numofrows,$logger) = @_;
    my $message = _getconnectorinstanceprefix($db) . '[' . $db->connectidentifier() . '].' . $tablename . ' has 0 rows';
    if (defined $logger) {
        $logger->error($message);
    }

    terminate($message, $logger);
    #terminatethreads();
    #die();

}

sub processzerorowcount {

    my ($db,$tablename,$numofrows,$logger) = @_;
    my $message = '[' . $db->connectidentifier() . '].' . $tablename . ' has 0 rows';
    if (defined $logger) {
        $logger->error($message);
    }

    terminate($message, $logger);
    #terminatethreads();
    #die();

}

sub deleterowserror {

    my ($db,$tablename,$message,$logger) = @_;
    $message = _getconnectorinstanceprefix($db) . '[' . $db->connectidentifier() . '].' . $tablename . ' - ' . $message;
    if (defined $logger) {
        $logger->error($message);
    }

    terminate($message, $logger);
    #terminatethreads();
    #die();

}

sub tabletransferfailed {

    my ($db,$tablename,$target_db,$targettablename,$numofrows,$logger) = @_;
    my $message = _getconnectorinstanceprefix($db) . 'table transfer failed: [' . $db->connectidentifier() . '].' . $tablename . ' > ' . $targettablename;
    if (defined $logger) {
        $logger->error($message);
    }
    terminate($message, $logger);

}

sub tableprocessingfailed {

    my ($db,$tablename,$numofrows,$logger) = @_;
    my $message = 'table processing failed: [' . $db->connectidentifier() . '].' . $tablename;
    if (defined $logger) {
        $logger->error($message);
    }
    terminate($message, $logger);

}

sub fileerror {

    my ($message, $logger) = @_;
    if (defined $logger) {
        $logger->error($message);
    }

    terminate($message, $logger);
    #terminatethreads();
    #die();

}

sub yamlerror {
    
    my ($message, $logger) = @_;
    if (defined $logger) {
        $logger->error($message);
    }

    terminate($message, $logger);
    #terminatethreads();
    #die();

}

sub xls2csverror {

    my ($message, $logger) = @_;
    if (defined $logger) {
        $logger->error($message);
    }

    terminate($message, $logger);
    #terminatethreads();
    #die();

}

sub webarchivexls2csverror {

    my ($message, $logger) = @_;
    if (defined $logger) {
        $logger->error($message);
    }

    terminate($message, $logger);
    #terminatethreads();
    #die();

}

sub filewarn {

    my ($message, $logger) = @_;
    if (defined $logger) {
        $logger->warn($message);
    }

    #die();
    warning($message, $logger, 1);
}


sub xls2csvwarn {

    my ($message, $logger) = @_;
    if (defined $logger) {
        $logger->warn($message);
    }

    warning($message, $logger, 1);
}

sub webarchivexls2csvwarn {

    my ($message, $logger) = @_;
    if (defined $logger) {
        $logger->warn($message);
    }

    warning($message, $logger, 1);
}

sub parameterdefinedtwice {

    my ($message,$logger) = @_;
    if (defined $logger) {
        $logger->warn($message);
    }
    warning($message, $logger, 1);
}

sub emailwarn {

    my ($message, $errormsg, $response, $logger) = @_;
    if (defined $logger) {
        if (length($response) > 0) {
            $logger->warn($message . ': ' . $errormsg . ' \'' . $response . '\'');
        } else {
            $logger->warn($message . ': ' . $errormsg);
        }
    }

    warning($message, $logger, 0);

}

sub configurationwarn {

    my ($configfile,$message,$logger) = @_;
    $message = 'configuration file ' . $configfile . ': ' . $message;
    if (defined $logger) {
        $logger->warn($message);
    }
    warning($message, $logger, 0);

}

sub configurationerror {

    my ($configfile,$message,$logger) = @_;
    $message = 'configuration file ' . $configfile . ': ' . $message;
    if (defined $logger) {
        $logger->error($message);
    }

    terminate($message, $logger);

}

sub sortconfigerror {

    my ($identifier,$message,$logger) = @_;

    if (defined $identifier) {
        $message = 'sort configuration (' . $identifier . '): ' . $message;
    } else {
        $message = 'sort configuration: ' . $message;
    }
    if (defined $logger) {
        $logger->error($message);
    }

    terminate($message, $logger);

}

sub serviceerror {

    my ($service, $message, $logger) = @_;
    $message = '[' . $service->{tid} . '] ' . $service->identifier() . ' - ' . $message;
    if (defined $logger) {
        $logger->error($message);
    }

    terminate($message, $logger);

}

sub servicewarn {

    my ($service, $message, $logger) = @_;
    $message = '[' . $service->{tid} . '] ' . $service->identifier() . ' - ' . $message;
    if (defined $logger) {
        $logger->warn($message);
    }

    #die();
    warning($message, $logger, 1);

}

sub _getconnectorinstanceprefix {
    my ($db) = @_;
    my $instancestring = $db->instanceidentifier();
    if (length($instancestring) > 0) {
    if ($db->{tid} != $root_threadid) {
        return '[' . $db->{tid} . '/' . $instancestring . '] ';
    } else {
        return '[' . $instancestring . '] ';
    }
    } elsif ($db->{tid} != $root_threadid) {
    return '[' . $db->{tid} . '] ';
    }
    return '';
}

sub _getconnectidentifiermessage {
    my ($db,$message) = @_;
    my $result = $db->connectidentifier();
    my $connectidentifier = $db->_connectidentifier();
    if (length($result) > 0 and defined $db->cluster and length($connectidentifier) > 0) {
    $result .= '->' . $connectidentifier;
    }
    if (length($result) > 0) {
    $result .= ' - ';
    }
    return $result . $message;
}

1;