--- mdap-server.pl	2007/11/18 10:36:30	71
+++ mdap-server.pl	2007/12/04 22:05:21	83
@@ -199,14 +199,14 @@
 		my $client_version = $h->{'MDAP-VERSION'};
 		$mdap_ver = $client_version if ($client_version);
 
-		print "<< $type $proto/$mdap_ver << ", length($data), " bytes: ",_dump_data($data),$/ unless $quiet;
-
-		warn dump( $data, $h ),$/ if ($debug);
-
 		# we are getting our own messages (since our source port
 		# is same as destination)
 		next if ( $type =~ m#^(INFO|ANT-SEARCH|EXEC-CLI)# );
 
+		print "<< $type $proto/$mdap_ver << ", length($data), " bytes: ",_dump_data($data),$/ unless $quiet;
+
+		warn dump( $data, $h ),$/ if ($debug);
+
 		my $ant = $h->{'ANT-ID'} || die "no ANT-ID in ", dump( $h );
 		my $seq_nr = $1 if (defined $h->{'SEQ-NR'} && $h->{'SEQ-NR'} =~ m/^(-*\d)+/);
 		#warn "SEQ-NR: $seq_nr ok: ",$ant_ok_password->{$ant},"\n" if ($seq_nr);
@@ -234,6 +234,7 @@
 			my $board = $h->{'_BOARD_NAME'} || die "no _BOARD_NAME?";
 			if ( fw_exists( $board ) ) {
 				my $build = $h->{'_BUILD'} || die "no _BUILD?";
+				$build =~ s/^(\d+)\.(\d+)\.(\d+)\.(\d+).*$/$1.$2.$3.$4/;
 				my $new_build = fw_build( $board );
 				if ( $build ne $new_build ) {
 					print "+ $ant $board version $build -> $new_build\n";