status/alive-monitor.pl

   1 # alive-monitor.pl
   2 # Always returns OK - useful for remote monitoring
   3
   4 sub get_alive_status
   5 {
   6 local $out = `uptime 2>/dev/null`;
   7 return { 'up' => 1,
   8          'desc' => $out =~ /\s+up\s+([^,]+),/ ? &text('alive_up', "$1")
   9                                               : undef };
  10 }
  11
  12
  13