--- mdap-server.pl 2007/04/24 10:11:24 29 +++ mdap-server.pl 2007/04/24 14:53:04 30 @@ -156,6 +156,16 @@ print $m if ($once->{$m} == 1); } +my $status = ''; + +sub status { + my $m = join('', @_); + if ($m ne $status) { + print $m; + $status = $m; + } +} + local $SIG{ALRM} = sub { mdap_send("ANT-SEARCH MDAP/1.1\r\n"); alarm( $resend_search_delay ); @@ -229,9 +239,11 @@ $waiting++ if ($ant_flashing->{$_}); $count++; } keys %$ant_flashing; - if ($ant_flashing && $waiting == 0) { - print "**** ALL $count ANTS FLASHED ****\n"; - $ant_flashing = {}; + if ($waiting == 0) { + status "ALL $count ANTS FLASHED to $build\n"; + $ant_flashing = undef; + } else { + status "$waiting of $count ants still flasing upto $build\n"; } } } else {