224 |
"\n"; |
"\n"; |
225 |
$ant_flashing->{$ant} = 0; |
$ant_flashing->{$ant} = 0; |
226 |
my $waiting = 0; |
my $waiting = 0; |
227 |
|
my $count = 0; |
228 |
map { |
map { |
229 |
$waiting++ if ($ant_flashing->{$_}); |
$waiting++ if ($ant_flashing->{$_}); |
230 |
|
$count++; |
231 |
} keys %$ant_flashing; |
} keys %$ant_flashing; |
232 |
print "**** ALL ANTS FLASHED ****\n" if ($ant_flashing && $waiting == 0); |
if ($ant_flashing && $waiting == 0) { |
233 |
|
print "**** ALL $count ANTS FLASHED ****\n"; |
234 |
|
$ant_flashing = {}; |
235 |
|
} |
236 |
} |
} |
237 |
} else { |
} else { |
238 |
once "!! NO FIRMWARE for $board in $tftp_path for ant $ant, skipping update\n"; |
once "!! NO FIRMWARE for $board in $tftp_path for ant $ant, skipping update\n"; |
239 |
} |
} |
240 |
} elsif ( $type eq 'REPLY-EXEC-CLI' && $h->{'SEQ-NR'} == 1 ) { |
} elsif ( $type eq 'REPLY-EXEC-CLI' && $h->{'SEQ-NR'} == 1 ) { |
241 |
print "+ $ant bootp mode re-flash started\n"; |
print "+ $ant bootp mode re-flash started\n" if ($verbose); |
242 |
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"); |
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"); |
243 |
forget_ant( $ant ); |
forget_ant( $ant ); |
244 |
$ant_flashing->{$ant}++; |
$ant_flashing->{$ant}++; |