#
# show the new style cluster routing tables to the user
#
# Copyright (c) 2001 Dirk Koopman G1TLH
#
#
#

my ($self, $line) = @_;
my @list = map { uc } split /\s+/, $line;           # list of callsigns of nodes
my @out;
my $nodes_only = 1;

if (@list && $list[0] =~ /^USE/) {
	$nodes_only = 0;
	shift @list;
}

push @out, $main::routeroot->config($nodes_only, $self->width, 0, {}, @list);
return (1, @out);