--- lib/MDAP/Commands.pm	2007/11/16 18:06:27	56
+++ lib/MDAP/Commands.pm	2007/11/16 19:12:08	58
@@ -4,10 +4,7 @@
 use warnings;
 
 use Module::Pluggable;
-use Data::Dump qw/dump/;
-
-my $debug = 0;
-my $verbose = 1;
+use MDAP;
 
 my $commands = [
 'service system modify name=MDAP log=enabled',
@@ -20,23 +17,15 @@
 
 sub check {
 	my ( $self, $h ) = @_;
-	warn "## ",__PACKAGE__,"check(",dump($h),")" if $debug;
 
 	my $serial = $h->{'_PROD_SERIAL_NBR'} || die "no serial?";
 
 	foreach my $command ( @$commands ) {
 		next if $ant_command->{$serial}->{$command}++;
-
-		warn "## sending command $command to $serial ",
-			$h->{'_VARIANT_FRIENDLY_NAME'}, " ",
-			$h->{'_BOARD_NAME'}, " ",
-			$h->{'_BUILD'},
-			"\n" if $verbose;
-
 		return $command;
 	}
 
-	warn "OK ",__PACKAGE__," $serial all commands sent\n" if $verbose;
+	once "OK ",__PACKAGE__," $serial all commands sent";
 	return;
 }