156 |
print $m if ($once->{$m} == 1); |
print $m if ($once->{$m} == 1); |
157 |
} |
} |
158 |
|
|
159 |
|
my $status = ''; |
160 |
|
|
161 |
|
sub status { |
162 |
|
my $m = join('', @_); |
163 |
|
if ($m ne $status) { |
164 |
|
print $m; |
165 |
|
$status = $m; |
166 |
|
} |
167 |
|
} |
168 |
|
|
169 |
local $SIG{ALRM} = sub { |
local $SIG{ALRM} = sub { |
170 |
mdap_send("ANT-SEARCH MDAP/1.1\r\n"); |
mdap_send("ANT-SEARCH MDAP/1.1\r\n"); |
171 |
alarm( $resend_search_delay ); |
alarm( $resend_search_delay ); |
239 |
$waiting++ if ($ant_flashing->{$_}); |
$waiting++ if ($ant_flashing->{$_}); |
240 |
$count++; |
$count++; |
241 |
} keys %$ant_flashing; |
} keys %$ant_flashing; |
242 |
if ($ant_flashing && $waiting == 0) { |
if ($waiting == 0) { |
243 |
print "**** ALL $count ANTS FLASHED ****\n"; |
status "ALL $count ANTS FLASHED to $build\n"; |
244 |
$ant_flashing = {}; |
$ant_flashing = undef; |
245 |
|
} else { |
246 |
|
status "$waiting of $count ants still flasing upto $build\n"; |
247 |
} |
} |
248 |
} |
} |
249 |
} else { |
} else { |