status/dhcpd-monitor.pl

   1 # dhcpd-monitor.pl
   2 # Monitor the DHCP server on this host
   3
   4 # Check the PID file to see if DHCPd is running
   5 sub get_dhcpd_status
   6 {
   7 return { 'up' => -1 } if (!&foreign_check($_[1]));
   8 &foreign_require($_[1], "dhcpd-lib.pl");
   9 local %dconfig = &foreign_config($_[1]);
  10 return { 'up' => -1 } if (!-r $dconfig{'dhcpd_conf'});
  11 if (&foreign_call($_[1], "is_dhcpd_running")) {
  12         local @st = stat($dconfig{'pid_file'});
  13         return { 'up' => 1,
  14                  'desc' => @st ? &text('up_since', scalar(localtime($st[9])))
  15                                : undef };
  16         }
  17 else {
  18         return { 'up' => 0 };
  19         }
  20 }
  21
  22 sub parse_dhcpd_dialog
  23 {
  24 &depends_check($_[0], "dhcpd");
  25 }
  26
  27 1;
  28