105 |
if ($type eq 'REPLY-ANT-SEARCH') { |
if ($type eq 'REPLY-ANT-SEARCH') { |
106 |
mdap_send("INFO MDAP/$mdap_ver\r\nSEQ-NR:1\r\nTO-ANT:$ant\r\nUSER-ID:$user_id\r\nUSER-PWD:$user_pwd\r\n"); |
mdap_send("INFO MDAP/$mdap_ver\r\nSEQ-NR:1\r\nTO-ANT:$ant\r\nUSER-ID:$user_id\r\nUSER-PWD:$user_pwd\r\n"); |
107 |
} elsif ($type eq 'REPLY-INFO') { |
} elsif ($type eq 'REPLY-INFO') { |
108 |
|
|
109 |
|
if ($h->{'SEQ-NR'} < 0) { |
110 |
|
warn "!! password protected ant $ant, skipping\n"; |
111 |
|
next; |
112 |
|
} |
113 |
|
|
114 |
my $board = $h->{'_BOARD_NAME'} || die "no _BOARD_NAME?"; |
my $board = $h->{'_BOARD_NAME'} || die "no _BOARD_NAME?"; |
115 |
if ( fw_exists( $board ) ) { |
if ( fw_exists( $board ) ) { |
116 |
my $build = $h->{'_BUILD'} || die "no _BUILD?"; |
my $build = $h->{'_BUILD'} || die "no _BUILD?"; |