/[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 32 by dpavlin, Tue Apr 24 17:02:41 2007 UTC revision 33 by dpavlin, Tue Apr 24 18:57:19 2007 UTC
# Line 230  while (1) { Line 230  while (1) {
230                                  if ( $build ne $new_build ) {                                  if ( $build ne $new_build ) {
231                                          print "+ $ant version $build -> $new_build\n";                                          print "+ $ant version $build -> $new_build\n";
232                                          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");
233                                            $ant_flashing->{$ant}++;
234                                  } else {                                  } else {
235                                          once "$ant OK version $build",                                          once "$ant OK version $build",
236                                                  $ant_unknown_password->{$ant} ? ' with unknown password' :                                                  $ant_unknown_password->{$ant} ? ' with unknown password' :
237                                                  $ant_ok_password->{$ant} ? ' password protected' :                                                  $ant_passwd->{$ant} ? ' password protected' :
238                                                  '',                                                  '',
239                                                  "\n";                                                  "\n";
240    
# Line 257  while (1) { Line 258  while (1) {
258                                  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";
259                          }                          }
260                  } elsif ( $type eq 'REPLY-EXEC-CLI' ) {                  } elsif ( $type eq 'REPLY-EXEC-CLI' ) {
261                            print "+ $type ", dump( $data ), "\n" if ($verbose);
262                          if ( $seq_nr == 1 ) {                          if ( $seq_nr == 1 ) {
                                 print "+ $ant bootp mode re-flash started\n" if ($verbose);  
263                                  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");
264                                  forget_ant( $ant );                                  forget_ant( $ant ) if ( $ant_flashing->{$ant} );
                                 $ant_flashing->{$ant}++;  
                         } elsif ( $seq_nr == 2 ) {  
                                 print "+ $ant led\n" if ($verbose);  
265                          }                          }
266                  } else {                  } else {
267                          print "!! reply $type ignored ", dump( $h ), $/;                          print "!! reply $type ignored ", dump( $h ), $/;

Legend:
Removed from v.32  
changed lines
  Added in v.33

  ViewVC Help
Powered by ViewVC 1.1.26