--- lib/MDAP/DHCP.pm	2007/11/16 18:18:31	57
+++ lib/MDAP/DHCP.pm	2007/11/16 19:12:08	58
@@ -4,14 +4,10 @@
 use warnings;
 
 use Module::Pluggable;
-use Data::Dump qw/dump/;
-
-my $debug = 0;
-my $verbose = 1;
+use MDAP;
 
 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?";
@@ -19,15 +15,9 @@
 	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;
+		once "OK ",__PACKAGE__," $serial $dhcp";
 		return;
 	}
 }