/[pdpsoft]/trunk/nagios/glexec/check_glexec
ViewVC logotype

Diff of /trunk/nagios/glexec/check_glexec

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 2459 by msalle, Tue Dec 6 10:19:13 2011 UTC revision 2460 by msalle, Tue Dec 6 11:47:52 2011 UTC
# Line 157  package nagstat; Line 157  package nagstat;
157  ########################################################################  ########################################################################
158  package probeipc;  package probeipc;
159  use POSIX ":sys_wait_h";  use POSIX ":sys_wait_h";
160    use Time::HiRes qw(alarm);
161  {  {
162      my $pid;      my $pid;
163      my $wpid;      my $wpid;
# Line 314  use warnings; Line 315  use warnings;
315    
316  use Env qw(@PATH GLEXEC_LOCATION GLITE_LOCATION X509_USER_PROXY GLEXEC_CLIENT_CERT);  use Env qw(@PATH GLEXEC_LOCATION GLITE_LOCATION X509_USER_PROXY GLEXEC_CLIENT_CERT);
317  use Getopt::Long qw(:config no_ignore_case bundling);  use Getopt::Long qw(:config no_ignore_case bundling);
318    use Time::HiRes qw(time alarm);
319    
320  my $timeout;    # Total maximum runtime for probe  my $timeout;    # Total maximum runtime for probe
321  my $critical;   # Time after which to kill gLExec  my $critical;   # Time after which to kill gLExec
# Line 535  sub run_glexec()    { Line 537  sub run_glexec()    {
537    
538      # Probe exited: find exit status      # Probe exited: find exit status
539      $t2=time();      $t2=time();
540      return glexec_to_nagios($exitcode,$signo,$t2-$t1);      my $dt=int(($t2-$t1)*1000+0.5)/1000;
541        return glexec_to_nagios($exitcode,$signo,$dt);
542  }  }
543    
544  # Parse commandline options  # Parse commandline options

Legend:
Removed from v.2459  
changed lines
  Added in v.2460

grid.support@nikhef.nl
ViewVC Help
Powered by ViewVC 1.1.28