2 # show the new style cluster routing tables to the user
4 # Copyright (c) 2001 Dirk Koopman G1TLH
9 my ($self, $line) = @_;
10 my @list = map { uc } split /\s+/, $line; # list of callsigns of nodes
14 if (@list && $list[0] =~ /^NOD/) {
20 push @out, $main::mycall;
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;