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 push @out, $main::routeroot->config($nodes_only, 0, {}, @list);
  20 return (1, @out);
  21