lib/MDAP/DHCP.pm

package MDAP::DHCP;

use strict;
use warnings;

use Module::Pluggable;
use Data::Dump qw/dump/;

my $debug = 0;
my $verbose = 1;

sub check {
        my ( $self, $h ) = @_;
        warn "## ",__PACKAGE__,"check(",dump($h),")" if $debug;

        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 "## remove DHCP $dhcp $serial ",
                        $h->{'_VARIANT_FRIENDLY_NAME'}, " ",
                        $h->{'_BOARD_NAME'}, " ",
                        $h->{'_BUILD'},
                        "\n" if $verbose;

                return 'dhcp server config state disabled';
        } else {
                warn "OK ",__PACKAGE__," $serial $dhcp\n" if $verbose;
                return;
        }
}

1;
1	dpavlin	52	package MDAP::DHCP;
2
3			use strict;
4			use warnings;
5
6			use Module::Pluggable;
7			use Data::Dump qw/dump/;
8
9			my $debug = 0;
10			my $verbose = 1;
11
12			sub check {
13			my ( $self, $h ) = @_;
14			warn "## ",__PACKAGE__,"check(",dump($h),")" if $debug;
15
16			my $serial = $h->{'_PROD_SERIAL_NBR'} \|\| die "no serial?";
17			my $dhcp = $h->{'DHCP_CONFIG'} \|\| die "no DHCP_CONFIG?";
18
19	dpavlin	53	if ( $dhcp =~ m/(\d+) server/ ) {
20	dpavlin	52	return if $1 == 0;
21
22			warn "## remove DHCP $dhcp $serial ",
23			$h->{'_VARIANT_FRIENDLY_NAME'}, " ",
24			$h->{'_BOARD_NAME'}, " ",
25			$h->{'_BUILD'},
26			"\n" if $verbose;
27
28			return 'dhcp server config state disabled';
29			} else {
30			warn "OK ",__PACKAGE__," $serial $dhcp\n" if $verbose;
31			return;
32			}
33			}
34
35			1;