Parent Directory | Revision Log
r78@brr: dpavlin | 2007-11-16 20:12:03 +0100 cleanup messages and plugins
1 | package MDAP::DHCP; |
2 | |
3 | use strict; |
4 | use warnings; |
5 | |
6 | use Module::Pluggable; |
7 | use MDAP; |
8 | |
9 | sub check { |
10 | my ( $self, $h ) = @_; |
11 | |
12 | my $serial = $h->{'_PROD_SERIAL_NBR'} || die "no serial?"; |
13 | my $dhcp = $h->{'DHCP_CONFIG'} || die "no DHCP_CONFIG?"; |
14 | |
15 | if ( $dhcp =~ m/(\d+) server/ ) { |
16 | return if $1 == 0; |
17 | |
18 | return 'dhcp server config state disabled'; |
19 | } else { |
20 | once "OK ",__PACKAGE__," $serial $dhcp"; |
21 | return; |
22 | } |
23 | } |
24 | |
25 | 1; |
ViewVC Help | |
Powered by ViewVC 1.1.26 |