/[mdap]/mdap-server.pl
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /mdap-server.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 2 by dpavlin, Sun Apr 22 12:52:15 2007 UTC revision 3 by dpavlin, Sun Apr 22 14:41:18 2007 UTC
# Line 30  sub ant2hash { Line 30  sub ant2hash {
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    
# Line 54  while (1) { Line 53  while (1) {
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' &&
# Line 66  USER-PWD:\r\n22"); Line 61  USER-PWD:\r\n22");
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                  }                  }

Legend:
Removed from v.2  
changed lines
  Added in v.3

  ViewVC Help
Powered by ViewVC 1.1.26