Parent Directory | Revision Log
r78@brr: dpavlin | 2007-11-16 20:12:03 +0100 cleanup messages and plugins
1 | dpavlin | 52 | package MDAP::DHCP; |
2 | |||
3 | use strict; | ||
4 | use warnings; | ||
5 | |||
6 | use Module::Pluggable; | ||
7 | dpavlin | 58 | use MDAP; |
8 | dpavlin | 52 | |
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 | dpavlin | 53 | if ( $dhcp =~ m/(\d+) server/ ) { |
16 | dpavlin | 52 | return if $1 == 0; |
17 | |||
18 | return 'dhcp server config state disabled'; | ||
19 | } else { | ||
20 | dpavlin | 58 | once "OK ",__PACKAGE__," $serial $dhcp"; |
21 | dpavlin | 52 | return; |
22 | } | ||
23 | } | ||
24 | |||
25 | 1; |
ViewVC Help | |
Powered by ViewVC 1.1.26 |