30 |
sub mdap_send { |
sub mdap_send { |
31 |
my $data = shift; |
my $data = shift; |
32 |
warn ">> $data\n>>----------\n"; |
warn ">> $data\n>>----------\n"; |
|
my $null = chr(0); |
|
33 |
$sock->mcast_send( "${data}", GROUP . ':' . PORT ); |
$sock->mcast_send( "${data}", GROUP . ':' . PORT ); |
34 |
} |
} |
35 |
|
|
53 |
print "# $type $proto ", dump( $h ), $/; |
print "# $type $proto ", dump( $h ), $/; |
54 |
|
|
55 |
if ($type eq 'REPLY-ANT-SEARCH') { |
if ($type eq 'REPLY-ANT-SEARCH') { |
56 |
mdap_send("INFO MDAP/1.2 |
mdap_send("INFO MDAP/1.2\r\nSEQ-NR:1\r\nTO-ANT:0644JTHJ4\r\nUSER-ID:Administrator\r\nUSER-PWD:\r\n22"); |
|
SEQ-NR:1 |
|
|
TO-ANT:0644JTHJ4 |
|
|
USER-ID:Administrator |
|
|
USER-PWD:\r\n22"); |
|
57 |
} elsif ($type eq 'REPLY-INFO') { |
} elsif ($type eq 'REPLY-INFO') { |
58 |
if ( |
if ( |
59 |
$h->{'_BUILD'} eq '6.1.7.2' && |
$h->{'_BUILD'} eq '6.1.7.2' && |
61 |
$h->{'_BUILDVARIANT'} eq 'AA' && |
$h->{'_BUILDVARIANT'} eq 'AA' && |
62 |
1 |
1 |
63 |
) { |
) { |
64 |
mdap_send("EXEC-CLI MDAP/1.2 |
mdap_send("EXEC-CLI MDAP/1.2\r\nCLI-CMD:software upgrade\r\nSEQ-NR:1\r\nTO-ANT:0644JTHJ4\r\nUSER-ID:Administrator\r\nUSER-PWD:\r\n1F"); |
|
CLI-CMD:software upgrade |
|
|
SEQ-NR:1 |
|
|
TO-ANT:0644JTHJ4 |
|
|
USER-ID:Administrator |
|
|
USER-PWD:\r\n1F"); |
|
65 |
} else { |
} else { |
66 |
|
print "skipped updating ", |
67 |
} |
} |
68 |
|
} elsif ( $type eq 'REPLY-EXEC-CLI' && $h->{'SEQ-NR'} == 1 ) { |
69 |
|
mdap_send("EXEC-CLI MDAP/1.2\r\nSEQ-NR:2\r\nTO-ANT:0644JTHJ4\r\nUSER-ID:Administrator\r\nUSER-PWD:\r\n5F"); |
70 |
} else { |
} else { |
71 |
print "!! reply ignored\n"; |
print "!! reply ignored\n"; |
72 |
} |
} |