You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
592 lines
14 KiB
592 lines
14 KiB
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; |