ASNMTAP
view release on metacpan or search on metacpan
lib/ASNMTAP/Asnmtap/Plugins/Mail.pm view on Meta::CPAN
return ( $ERRORS{UNKNOWN} );
}
unless ( defined $_[0]->{_mail}->{to} ) {
$$asnmtapInherited->pluginValues ( { stateValue => $ERRORS{UNKNOWN}, error => 'Missing MAIL parameter _mail => {to => ...}' }, $TYPE{APPEND} );
return ( $ERRORS{UNKNOWN} );
}
unless ( defined $_[0]->{_mail}->{status} ) {
$$asnmtapInherited->pluginValues ( { stateValue => $ERRORS{UNKNOWN}, error => 'Missing MAIL parameter _mail => {status => ...}' }, $TYPE{APPEND} );
return ( $ERRORS{UNKNOWN} );
}
unless ( defined $_[0]->{_mail}->{body} ) {
$$asnmtapInherited->pluginValues ( { stateValue => $ERRORS{UNKNOWN}, error => 'Missing MAIL parameter _mail => {body => ...}' }, $TYPE{APPEND} );
return ( $ERRORS{UNKNOWN} );
}
$_[0]->[ $_[0]->[0]{_subject_} = @{$_[0]} ] = $_[0]->{_text}->{SUBJECT} .' / '. $_[0]->{_text}->{from} .' '. $_[0]->{_mail}->{from} .' '. $_[0]->{_text}->{to} .' '. $_[0]->{_mail}->{to};
unless ( $_[0]->{_mailType} ) {
$_[0]->[ $_[0]->[0]{_branding_} = @{$_[0]} ] = '<'. $$asnmtapInherited->{_programName} .'> <'. $$asnmtapInherited->{_programDescription} .'>';
$_[0]->[ $_[0]->[0]{_timestamp_} = @{$_[0]} ] = 'Timestamp <'. $_[0]->{_mail}->{from} .'>:';
$_[0]->[ $_[0]->[0]{_status_} = @{$_[0]} ] = $_[0]->{_text}->{status} .' <'. $_[0]->{_mail}->{status} .'>';
}
if ( $$asnmtapInherited->{_debug} ) {
use Data::Dumper;
print "\n". ref ($_[0]) .": Now we'll dump data\n\n", Dumper ( $_[0] ), "\n\n";
}
}
# Utility methods - - - - - - - - - - - - - - - - - - - - - - - - - - - -
sub sending_fingerprint_mail {
my $self = shift; &_checkAccObjRef ( $self );
my $asnmtapInherited = $self->{_asnmtapInherited};
return ( $$asnmtapInherited->pluginValue ('stateValue') ) unless ( exists $self->{_subject_} );
my %defaults = ( perfdataLabel => undef );
my %parms = (%defaults, @_);
$$asnmtapInherited->setEndTime_and_getResponsTime ( $$asnmtapInherited->pluginValue ('endTime') ) if ( defined $parms{perfdataLabel} );
use Mail::Sendmail qw(sendmail %mailcfg);
$mailcfg {smtp} = $self->{_SMTP}->{smtp};
$mailcfg {port} = $self->{_SMTP}->{port};
$mailcfg {retries} = $self->{_SMTP}->{retries};
$mailcfg {delay} = $self->{_SMTP}->{delay};
$mailcfg {mime} = $self->{_SMTP}->{mime};
$mailcfg {tz} = $self->{_SMTP}->{tx} if ( defined $self->{_SMTP}->{tx} );
$mailcfg {debug} = $$asnmtapInherited->getOptionsValue ('debug');
my $message;
if ( $self->{_mailType} ) {
use Time::Local;
my ($localYear, $localMonth, $currentYear, $currentMonth, $currentDay, $currentHour, $currentMin, $currentSec) = ((localtime)[5], (localtime)[4], ((localtime)[5] + 1900), ((localtime)[4] + 1), (localtime)[3,2,1,0]);
my $mailEpochtime = timelocal($currentSec, $currentMin, $currentHour, $currentDay, $localMonth, $localYear);
$message = "<?xml version=\"1.0\" encoding=\"UTF-8\"?><!DOCTYPE FingerprintEmail SYSTEM \"dtd/FingerprintEmail-1.0.dtd\"><FingerprintEmail><Schema Value=\"1.0\"/><Fingerprint From=\"". $self->{_mail}->{from} ."\" To=\"". $self->{_mail}->{to} ."\"...
} else {
use ASNMTAP::Time qw(&get_datetimeSignal);
$message = $self->{_subject_} ."\n". $self->{_branding_} ."\n". $self->{_timestamp_} .' '. get_datetimeSignal() ."\n". $self->{_status_} ."\n";
}
$message .= $self->{_mail}->{body} ."\n";
my %mail = ( To => $self->{_mail}->{to}, From => $self->{_mail}->{from}, Subject => $self->{_subject_}, Message => $message );
my $returnCode = (sendmail %mail) ? $ERRORS{OK} : $ERRORS{CRITICAL};
$$asnmtapInherited->pluginValues ( { stateValue => $returnCode, alert => ( defined $parms{perfdataLabel} ? $parms{perfdataLabel} : 'email send' ) . ( $returnCode ? ' failed' : '' ) }, $TYPE{APPEND} );
if ( defined $parms{perfdataLabel} ) {
my $responseTime = $$asnmtapInherited->setEndTime_and_getResponsTime ( $$asnmtapInherited->pluginValue ('endTime') );
$$asnmtapInherited->appendPerformanceData ( "'". $parms{perfdataLabel} ."'=". $responseTime .'ms;;;;' );
}
print "\$Mail::Sendmail::log says:\n", $Mail::Sendmail::log, "\n" if ( $$asnmtapInherited->getOptionsValue ('debug') );
return ( $returnCode );
}
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
sub receiving_fingerprint_mails {
my $self = shift; &_checkAccObjRef ( $self );
my $asnmtapInherited = $self->{_asnmtapInherited};
return ( $$asnmtapInherited->pluginValue ('stateValue') ) unless ( exists $self->{_subject_} );
my %defaults = ( custom => undef,
customArguments => undef,
checkFingerprint => 1,
receivedState => 0,
outOfDate => undef,
perfdataLabel => undef
);
my %parms = (%defaults, @_);
if ( $self->{_mailType} ) {
unless ( defined $parms{outOfDate} ) {
$$asnmtapInherited->pluginValues ( { stateValue => $ERRORS{UNKNOWN}, error => 'Missing MAIL receiving_fingerprint_mails parameter {outOfDate => ...}' }, $TYPE{APPEND} );
return ( $ERRORS{UNKNOWN} );
}
}
use ASNMTAP::Asnmtap::Plugins::XML qw(&extract_XML);
$self->[ $self->[0]{defaultArguments} = @{$self} ] = { date => undef, day => undef, month => undef, year => undef, time => undef, hour => undef, min => undef, sec => undef, numberOfMatches => undef, result => undef };
unless ($parms{checkFingerprint} =~ /^[01]$/ ) {
$$asnmtapInherited->pluginValues ( { stateValue => $ERRORS{UNKNOWN}, error => 'Parameter checkFingerprint must be 0 or 1' }, $TYPE{APPEND} );
return ( $ERRORS{UNKNOWN} );
}
unless ($parms{receivedState} =~ /^[01]$/ ) {
$$asnmtapInherited->pluginValues ( { stateValue => $ERRORS{UNKNOWN}, error => 'Parameter receivedState must be 0 or 1' }, $TYPE{APPEND} );
return ( $ERRORS{UNKNOWN} );
}
my ($numberOfMails, $email);
lib/ASNMTAP/Asnmtap/Plugins/Mail.pm view on Meta::CPAN
my $xmlEpochtime = timelocal ( $checkSec, $checkMin, $checkHour, $checkDay, ($checkMonth-1), ($checkYear-1900) );
print "$checkEpochtime, $xmlEpochtime ($checkDate, $checkTime), $currentTimeslot - $checkEpochtime = ". ($currentTimeslot - $checkEpochtime) ." > ". $parms{outOfDate} ."\n" if ( $debug );
unless ( check_date ( $checkYear, $checkMonth, $checkDay) or check_time($checkHour, $checkMin, $checkSec ) ) {
$returnCode = $ERRORS{CRITICAL};
$$asnmtapInherited->pluginValues ( { stateValue => $returnCode, alert => "Date or Time into Fingerprint XML are wrong: $checkDate $checkTime" }, $TYPE{APPEND} );
} elsif ( $checkEpochtime != $xmlEpochtime ) {
$returnCode = $ERRORS{CRITICAL};
$$asnmtapInherited->pluginValues ( { stateValue => $returnCode, alert => "Epochtime difference from Date and Time into Fingerprint XML are wrong: $checkEpochtime != $xmlEpochtime ($checkDate $checkTime)" }, $TYPE{APPEND} );
} elsif ( $currentTimeslot - $checkEpochtime > $parms{outOfDate} * 2 ) {
$returnCode = $ERRORS{CRITICAL};
$$asnmtapInherited->pluginValues ( { stateValue => $returnCode, alert => "Result into Fingerprint XML are out of date: $checkDate $checkTime" }, $TYPE{APPEND} );
} elsif ( $currentTimeslot - $checkEpochtime > $parms{outOfDate} ) {
$returnCode = $ERRORS{WARNING};
$$asnmtapInherited->pluginValues ( { stateValue => $returnCode, alert => "Result into Fingerprint XML are out of date: $checkDate $checkTime" }, $TYPE{APPEND} );
} else {
($self->{defaultArguments}->{date}, $self->{defaultArguments}->{time}) = ($checkDate, $checkTime);
($self->{defaultArguments}->{day}, $self->{defaultArguments}->{month}, $self->{defaultArguments}->{year}) = split(/[\/|-]/, $checkDate);
($self->{defaultArguments}->{hour}, $self->{defaultArguments}->{min}, $self->{defaultArguments}->{sec}) = split(/:/, $checkTime);
}
$statusNotFound = ( $xml->{Fingerprint}{Status} ne $self->{_mail}->{status} );
my $label = $statusNotFound ? ' (?)' : '(match)';
print " $label : $self->{_text}->{status} < $self->{_mail}->{status} >\n" if ( $debug );
unless ( $statusNotFound ) { $fingerprintFound--; last; }
} else {
if ( $debug ) {
my $label = ( $xml->{Fingerprint}{From} =~ /^$self->{_mail}->{from}/ ? '(match)' : ' (?)' );
print " $label : $self->{_text}->{status} < $self->{_mail}->{status} >\n";
$label = ( $xml->{Fingerprint}{From} =~ /^$self->{_mail}->{from}/ ? '(match)' : ' (?)' );
print " $label : From ". $xml->{Fingerprint}{From} ."\n";
$label = ( $xml->{Fingerprint}{To} =~ /^$self->{_mail}->{to}/ ? '(match)' : ' (?)' );
print " $label : To ". $xml->{Fingerprint}{To} ."\n";
$label = ( $xml->{Fingerprint}{Destination} eq 'ASNMTAP' ? '(match)' : ' (?)' );
print " $label : Destination ". $xml->{Fingerprint}{Destination} ."\n";
$label = ( $xml->{Fingerprint}{Plugin} eq $$asnmtapInherited->{_programName} ? '(match)' : ' (?)' );
print " $label : Plugin ". $xml->{Fingerprint}{Plugin} ."\n";
$label = ( $xml->{Fingerprint}{Description} eq $$asnmtapInherited->{_programDescription} ? '(match)' : ' (?)' );
print " $label : Description ". $xml->{Fingerprint}{Description} ."\n";
$label = ( $xml->{Fingerprint}{Environment} =~ /^$self->{_environment_}/i ? '(match)' : ' (?)' );
print " $label : Environment ". $xml->{Fingerprint}{Environment} ."\n";
}
last;
}
}
next;
}
} else {
if ( $messageNotFound ) {
if ($msgline =~ /^$self->{_subject_}/) {
print "Header .. : $msgline\n (match) : $msgline\n" if ($debug);
$messageNotFound = 0; $fingerprintFound--; next;
}
}
if ( $brandingNotFound ) {
if ( $msgline =~ /$$asnmtapInherited->{_programName}/ ) {
if ( $debug ) {
my $msglineDebug = $msgline; $msglineDebug =~ s/</< /g; $msglineDebug =~ s/>/ >/g;
print "Branding : $msglineDebug\n";
}
$brandingNotFound = ( $msgline !~ /^$self->{_branding_}/ );
my $label = $brandingNotFound ? ' (?)' : '(match)';
if ( $debug ) {
my $msglineDebug = $msgline; $msglineDebug =~ s/</< /g; $msglineDebug =~ s/>/ >/g;
print " $label : $msglineDebug\n";
}
unless ( $brandingNotFound ) { $fingerprintFound--; next; }
}
}
if ( $timestampNotFound ) {
if ( $msgline =~ /^$self->{_timestamp_}/ ) {
print "Timestamp : $msgline\n" if ( $debug );
(undef, $msgline) = split(/:\s+/, $msgline, 2);
($self->{defaultArguments}->{date}, $self->{defaultArguments}->{time}) = split(/\s+/, $msgline);
($self->{defaultArguments}->{year}, $self->{defaultArguments}->{month}, $self->{defaultArguments}->{day}) = split(/[\/-]/, $self->{defaultArguments}->{date});
($self->{defaultArguments}->{hour}, $self->{defaultArguments}->{min}, $self->{defaultArguments}->{sec}) = split(/:/, $self->{defaultArguments}->{time});
print ' (match) : ', $self->{_timestamp_}, ' ', $self->{defaultArguments}->{year}, '/', $self->{defaultArguments}->{month}, '/', $self->{defaultArguments}->{day}, ' ', $self->{defaultArguments}->{hour}, ':', $self->{defaultArgume...
$timestampNotFound = 0; $fingerprintFound--; next;
}
}
if ( $fingerprintFound == 1 and $statusNotFound ) {
if ( $msgline =~ /^$self->{_text}->{status}/ ) {
if ( $debug ) {
my $msglineDebug = $msgline; $msglineDebug =~ s/</< /g; $msglineDebug =~ s/>/ >/g;
print "Status .. : $msglineDebug\n";
}
$statusNotFound = ( $msgline !~ /^$self->{_text}->{status}\s*<$self->{_mail}->{status}>/ );
my $label = $statusNotFound ? ' (?)' : '(match)';
print " $label : $self->{_text}->{status} < $self->{_mail}->{status} >\n" if ($debug);
unless ( $statusNotFound ) { $fingerprintFound--; last; }
}
}
}
unless ( $fingerprintFound ) {
$self->{defaultArguments}->{result} .= "$msgline\n";
print "- - - - - : $msgline\n" if ($debug);
last;
}
print ". . . . . : $msgline\n" if ($debug >= 2);
}
}
}
if ( $fingerprintFound == 0 ) {
if ( $parms{checkFingerprint} ) {
my $regexp = ( $self->{_mailType} ? "\Q$fingerprintXML\E" .'.+'. "\Q<\/FingerprintEmail>\E" : $self->{_text}->{status} .'\s+<'. $self->{_mail}->{status} .'>' );
$msgbuffer =~ /$regexp/;
$self->{defaultArguments}->{result} = ( $' ) ? $' : '';
} else {
$self->{defaultArguments}->{result} = $msgbuffer;
}
print "\n", ref ($self), "::receiving_fingerprint_mails(): BODY MESSAGE\n". $self->{defaultArguments}->{result}. "\n" if ($debug >= 2);
if ( defined $parms{custom} ) {
$returnCode = ( defined $parms{customArguments} ) ? $parms{custom}->($self, $self->{_asnmtapInherited}, $email, $msgnum, $parms{customArguments}) : $parms{custom}->($self, $self->{_asnmtapInherited}, $email, $msgnum);
} else {
$self->{defaultArguments}->{numberOfMatches}++;
unless ( $debug or $$asnmtapInherited->getOptionsValue ('onDemand') ) {
if ( defined $self->{_IMAP4}->{imap4} ) {
$email->delete ( $msgnum );
} elsif ( defined $self->{_POP3}->{pop3} ) {
$email->Delete( $msgnum );
}
}
}
}
$self->{defaultArguments}->{date} = undef;
$self->{defaultArguments}->{day} = undef;
$self->{defaultArguments}->{month} = undef;
$self->{defaultArguments}->{year} = undef;
$self->{defaultArguments}->{time} = undef;
$self->{defaultArguments}->{hour} = undef;
$self->{defaultArguments}->{min} = undef;
$self->{defaultArguments}->{sec} = undef;
undef $head;
$entity->purge;
undef $entity;
( run in 0.904 second using v1.01-cache-2.11-cpan-e1769b4cff6 )