Nagios插件的check_logfiles postscript选项无法执行后记

问题描述

我正在使用一个名为check_logfiles的Nagios插件。一个非常强大的脚本。我可以在Unix / Linux和Windows上工作。好吧，除了1个功能之外。能够执行发布或前脚本挂钩。

我只是无法从check_logfiles.cfg执行附言。

我从check_logfiles协议文件中获得警告附言（标签附言）中的错误无法执行custom_mail_alert.pl

我尝试使用-d跟踪选项运行它-成功获取调试输出失败。？

我尝试了以下配置文件中所示的几种不同实现。感谢您对理解为什么后记无法在check_logfies中执行的任何帮助。

注意：即使后记脚本失败，脚本check_logfiles也会成功执行-很好，很好。谢谢您的帮助，我正在拔头发:)我似乎无法弄清楚。 check_logfiles有效

custom_mail_alert.pl在命令行上工作，但不像check_logfiles所调用吗？
check_logfiles.cfg：

  $scriptpath = 'C:\Program Files (x86)\Nagios\NCPA\contrib';
  $protocolsdir = 'C:\Program Files (x86)\Nagios\NCPA\protocols';
  $seekfilesdir = 'C:\Program Files (x86)\Nagios\NCPA\seek';

  $MACROS = {
  LOGS_DIR => 'C:\APMConnect\Logs',PP_INGESTION_EP => 'C:\APMConnect\AutoDataLoader\Scandir\ManageAPM',SRC_DIR => '\\win.alPHPer031.corporate.com\APM_Data_Storage\Zip File Archive',CL_CMAIL_SMTP_HOST => 'mail.ad.com',CL_CMAIL_TO => 'gary.l.mills@corp.com',CL_CMAIL_FROM => 'ALPCTS000000881@alpcts000000881.corp.com',CL_CMAIL_SUBJECT => 'APM Loader - Upload Failure Notification'
  };
  #$postscript = 'C:\Program Files (x86)\Nagios\NCPA\contrib\custom_mail_alert.pl';
  #$postscript = 'perl custom_mail_alert.pl';
  $postscript = 'custom_mail_alert.pl';
  $postscriptparams = '-Host $CL_CMAIL_SMTP_HOST$ -To $CL_CMAIL_TO$ -From $CL_CMAIL_FROM$ -Subject "$CL_CMAIL_SUBJECT$" -Body "The APM Loader Upload Failed.\n Please see attached." -Attachment "C:\Program Files (x86)\Nagios\NCPA\seek\check_logfiles.C__APMConnect_Logs_AutoLoader.log.504 Gateway Time-Out" -Send_if_rc_gt $CL_SERVICESTATEID$';

  #$postscriptstdin = '$CL_HOSTNAME$\t$CL_SERVICEDESC$\t$CL_SERVICESTATEID$\t$CL_SERVICEOUTPUT$\n';
  @searches = (
  {
  tag => '504 Gateway Time-Out',logfile => '$LOGS_DIR$\AutoLoader.log',rotation => 'AutoLoader.log.\d{1,2}',type => 'rotating',criticalpatterns => [
      '^java.lang.Exception:Method Failed: HTTP/1.1 504 Gateway Time-out Please check configuration details and replace or update the file :.*'],options => 'protocol,perfdata,script,supersmartscript',script => sub {
      use File::copy;

  my $cmd = 'net use E: /delete /y';
  my $other_cmd = 'net use E: \\\\win.alPHPer031.corporate.com\\APM_Data_Storage /USER:logon.ds.com\\lg4274sv xnEDs7UMh3gT /PERSISTENT:YES';

  my $other_status = system($other_cmd);

  my $_source_dir = $ENV{CHECK_LOGFILES_SRC_DIR};
  my $_target_dir = $ENV{CHECK_LOGFILES_PP_INGESTION_EP};
  my $sout = $ENV{CHECK_LOGFILES_SERVICEOUTPUT};
  my $result = rindex($sout,'FaultData');
  my $_file_name = substr($sout,$result,length($sout));

  opendir (dir,$_source_dir);

  if( -f "$_source_dir/$_file_name" ) {
      copy ("$_source_dir\\$_file_name","$_target_dir\\$_file_name");
      if ( $? ) {
          printf 'OK - File copy Successful!';
          printf " copied File to ReFeed APM: $_source_dir\\$_file_name";
          return 0;
      } else {
          printf 'CRITICAL - File copy Failed!';
          printf " - Source dir: $_source_dir\\$_file_name";
          return 2;
      }
  } else {
      printf 'CRITICAL - File copy Failed,File CANNOT be located! Resource may not be Mounted!';
      printf " - Source dir: $_source_dir\\$_file_name";
      return 2;
  }
  closedir($dir); 
   }});

custom_mail_alert.pl脚本：

! C:\strawBerry\perl\bin\perl -w
use strict;
use warnings;
use Getopt::Long;

my $Host;
my $To;
my $From;
my $Subject;
my $Body;
my $Attachment;
my $Send_if_rc_gt;
Getoptions(
"Host=s" => \$Host,"To=s" => \$To,"From=s" => \$From,"Subject=s" => \$Subject,"Body=s" => \$Body,"Attachment=s" => \$Attachment,"Send_if_rc_gt=i" => \$Send_if_rc_gt
);

printf "host:$Host\n";
printf "to:$To\n";
printf "from:$From\n";
printf "subject:$Subject\n";
printf "body:$Body\n";
printf "attachment:$Attachment\n";
printf "send_if_rc_gt:$Send_if_rc_gt\n";

my @cmd = ('C:\Program Files (x86)\Nagios\NCPA\contrib\cmail.exe');
push @cmd,"-host:$Host";
push @cmd,"-to:$To";
push @cmd,"-from:$From";
push @cmd,"-subject:$Subject";
push @cmd,"-body:$Body";
push @cmd,"-a:$Attachment";

printf "@cmd\n";

if (!defined $Host||!defined $To||!defined $From||!defined $Subject ||!defined $Body){
print "Usage: $0 -Host <host> -To <to> -From <from> -Subject <subject> -Body <mail body=""> -Attachment [--send-if-rc-gt <1-9> ]\n";
exit (-1);
}
require $Attachment;</mail></subject></from></to></host>

if ((defined $state->{'servicestateid'} && defined $Send_if_rc_gt) && ($state->{'servicestateid'} > $Send_if_rc_gt)){
print "$state->{'servicestateid'} was lower than $send_if_rc_gt\n";
exit 0;
}
if ($state->{'serviceoutput'}){
system(@cmd);
}

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

nagios nagios perl plugins plugins