lib/MDAP/DHCP.pm

package MDAP::DHCP;

use strict;
use warnings;

use Module::Pluggable;
use MDAP;

sub check {
        my ( $self, $h ) = @_;

        my $serial = $h->{'_PROD_SERIAL_NBR'} || die "no serial?";
        my $dhcp = $h->{'DHCP_CONFIG'} || die "no DHCP_CONFIG?";

        if ( $dhcp =~ m/(\d+) server/ ) {
                return if $1 == 0;
                warn "## $serial $dhcp" if $debug;
                return 'dhcp server config state disabled';
        } else {
                once "OK ",__PACKAGE__," $serial $dhcp";
                return;
        }
}

1;
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	dpavlin	64	warn "## $serial $dhcp" if $debug;
18	dpavlin	52	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;