cmd/show/newconfiguration.pl

   1 #
   2 # show the new style cluster routing tables to the user
   3 #
   4 # Copyright (c) 2001 Dirk Koopman G1TLH
   5 #
   6 # $Id$
   7 #
   8
   9 my ($self, $line) = @_;
  10 my @list = map { uc } split /\s+/, $line;           # list of callsigns of nodes
  11 my @out;
  12 my $nodes_only;
  13
  14 if (@list && $list[0] =~ /^NOD/) {
  15         $nodes_only++;
  16         shift @list;
  17 }
  18
  19 # root node
  20 push @out, $main::mycall;
  21
  22 # now show the config in terms of each of the root nodes view
  23 foreach my $n ($main::routeroot->links) {
  24         my $r = Route::Node::get($n);
  25         push @out, $r->config($nodes_only, 1, [], @list) if $r;
  26 }
  27 return (1, @out);
  28