mirror of
git://scm.dxcluster.org/scm/spider
synced 2024-09-21 15:57:12 +00:00
6230850db2
1. Fix Alias for sh/mydx (so it isn't the same as sh/myfdx). 2. Fix sh/c/n uninitialised variable message 3. Fix (and improve) sh/newc gb7 problem
22 lines
394 B
Perl
22 lines
394 B
Perl
#
|
|
# show the new style cluster routing tables to the user
|
|
#
|
|
# Copyright (c) 2001 Dirk Koopman G1TLH
|
|
#
|
|
# $Id$
|
|
#
|
|
|
|
my ($self, $line) = @_;
|
|
my @list = map { uc } split /\s+/, $line; # list of callsigns of nodes
|
|
my @out;
|
|
my $nodes_only;
|
|
|
|
if (@list && $list[0] =~ /^NOD/) {
|
|
$nodes_only++;
|
|
shift @list;
|
|
}
|
|
|
|
push @out, $main::routeroot->config($nodes_only, 0, {}, @list);
|
|
return (1, @out);
|
|
|