--- mdap-server.pl	2007/04/24 17:02:41	32
+++ mdap-server.pl	2007/04/24 18:57:19	33
@@ -230,10 +230,11 @@
 				if ( $build ne $new_build ) {
 					print "+ $ant version $build -> $new_build\n";
 					mdap_send("EXEC-CLI MDAP/$mdap_ver\r\nCLI-CMD:software upgrade\r\nSEQ-NR:1\r\nTO-ANT:$ant\r\nUSER-ID:$user_id\r\nUSER-PWD:$user_pwd\r\n");
+					$ant_flashing->{$ant}++;
 				} else {
 					once "$ant OK version $build",
 						$ant_unknown_password->{$ant} ? ' with unknown password' :
-						$ant_ok_password->{$ant} ? ' password protected' :
+						$ant_passwd->{$ant} ? ' password protected' :
 						'',
 						"\n";
 
@@ -257,13 +258,10 @@
 				once "!! NO FIRMWARE for $board in $tftp_path for ant $ant, skipping update\n";
 			}
 		} elsif ( $type eq 'REPLY-EXEC-CLI' ) {
+			print "+ $type ", dump( $data ), "\n" if ($verbose);
 			if ( $seq_nr == 1 ) {
-				print "+ $ant bootp mode re-flash started\n" if ($verbose);
 				mdap_send("EXEC-CLI MDAP/$mdap_ver\r\nSEQ-NR:2\r\nTO-ANT:$ant\r\nUSER-ID:$user_id\r\nUSER-PWD:$user_pwd\r\n");
-				forget_ant( $ant );
-				$ant_flashing->{$ant}++;
-			} elsif ( $seq_nr == 2 ) {
-				print "+ $ant led\n" if ($verbose);
+				forget_ant( $ant ) if ( $ant_flashing->{$ant} );
 			}
 		} else {
 			print "!! reply $type ignored ", dump( $h ), $/;