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] =~ /^USE/) {
19 push @out, $main::routeroot->config($nodes_only, $self->width, 0, {}, @list);