234 |
print "+ $ant version $build -> $new_build\n"; |
print "+ $ant version $build -> $new_build\n"; |
235 |
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"); |
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"); |
236 |
$ant_flashing->{$ant}++; |
$ant_flashing->{$ant}++; |
237 |
|
next; |
238 |
} else { |
} else { |
239 |
once "$ant OK version $build", |
once "$ant OK version $build", |
240 |
$ant_unknown_password->{$ant} ? ' with unknown password' : |
$ant_unknown_password->{$ant} ? ' with unknown password' : |