/[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 83 by dpavlin, Tue Dec 4 22:05:21 2007 UTC revision 86 by dpavlin, Wed Dec 5 23:13:56 2007 UTC
# Line 264  while (1) { Line 264  while (1) {
264                                          }                                          }
265                                  }                                  }
266    
267                                  if ( $plugins ) {                          } else {
268                                          foreach my $plugin ( MDAP->plugins ) {                                  once "!! NO FIRMWARE for $board in $tftp_path for ant $ant, skipping update";
269                                                  warn "## calling $plugin\n" if $debug;                          }
270                                                  if ( my $command = $plugin->check( $h ) ) {  
271                            if ( $plugins ) {
272                                    foreach my $plugin ( MDAP->plugins ) {
273                                            warn "## calling $plugin\n" if $debug;
274                                            if ( my $command = $plugin->check( $h ) ) {
275    
276                                                          warn ">> $plugin $ant $board ",                                                  warn ">> $plugin $ant $board ",
277                                                                  $h->{'ANT-NAME'}, " ",                                                          $h->{'ANT-NAME'}, " ",
278                                                                  $h->{'_BUILD'}, " ",                                                          $h->{'_BUILD'}, " ",
279                                                                  "\t:$command\n";                                                          "\t:$command\n";
280                            
281                                                          mdap_send("EXEC-CLI MDAP/$mdap_ver\r\nCLI-CMD:$command\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:$command\r\nSEQ-NR:1\r\nTO-ANT:$ant\r\nUSER-ID:$user_id\r\nUSER-PWD:$user_pwd\r\n");
282                                                          last;                                                  last;
                                                 }  
283                                          }                                          }
284                                  }                                  }
   
                         } else {  
                                 once "!! NO FIRMWARE for $board in $tftp_path for ant $ant, skipping update";  
285                          }                          }
286    
287                  } elsif ( $type eq 'REPLY-EXEC-CLI' ) {                  } elsif ( $type eq 'REPLY-EXEC-CLI' ) {

Legend:
Removed from v.83  
changed lines
  Added in v.86

  ViewVC Help
Powered by ViewVC 1.1.26