From f651e64ef06bd79eb2342e85d5dd7c86fee407d1 Mon Sep 17 00:00:00 2001 From: minima Date: Mon, 20 Jan 2003 13:35:28 +0000 Subject: [PATCH] fixed sh/c so it only show this country's nodes --- Changes | 4 ++++ cmd/Aliases | 1 + cmd/Commands_en.hlp | 15 +++++++++++++++ cmd/show/configuration.pl | 12 +++++++++++- 4 files changed, 31 insertions(+), 1 deletion(-) diff --git a/Changes b/Changes index 56326cca..ecd431bf 100644 --- a/Changes +++ b/Changes @@ -1,3 +1,7 @@ +20Jan03======================================================================= +1. changed sh/c so that, by default, it only shows the caller's country nodes +sh/c all will show the old style full list. "sh/c sk gb" will show the config +of all the GB and SK nodes. 19Jan03======================================================================= 1. I have made a fundemental change to the way PC19s are dealt with as a result of the discussions on the mailing list. From now on, only nodes that diff --git a/cmd/Aliases b/cmd/Aliases index 390864ff..1f7218f3 100644 --- a/cmd/Aliases +++ b/cmd/Aliases @@ -115,6 +115,7 @@ package CmdAlias; '^set$', 'apropos set', 'apropos', '^sho?w?/u$', 'show/user', 'show/user', '^sho?w?/bu', 'show/files bulletins', 'show/files', + '^sho?w?/c/a', 'show/configuration all', 'show/configuration', '^sho?w?/c/n', 'show/configuration nodes', 'show/configuration', '^sho?w?/c$', 'show/configuration', 'show/configuration', '^sho?w?/com', 'dbavail', 'dbavail', diff --git a/cmd/Commands_en.hlp b/cmd/Commands_en.hlp index 5548afee..1ed57e97 100644 --- a/cmd/Commands_en.hlp +++ b/cmd/Commands_en.hlp @@ -1699,8 +1699,23 @@ and the nodes to which they are connected. This command is normally abbreviated to: sh/c +Normally, the list returned will be just for the nodes from your +country (because the list otherwise will be very long). + + SH/C ALL + +will produce a complete list of all nodes. + BE WARNED: the list that is returned can be VERY long +It is possible to supply a node or part of a prefix and you will get +a list of the users for that node or list of nodes starting with +that prefix. + + SH/C GB7DJK + + SH/C SK + === 0^SHOW/CONFIGURATION/NODE^Show all the nodes connected locally Show all the nodes connected to this node. diff --git a/cmd/show/configuration.pl b/cmd/show/configuration.pl index cb9f1946..51c39dd0 100644 --- a/cmd/show/configuration.pl +++ b/cmd/show/configuration.pl @@ -45,9 +45,19 @@ if ($list[0] && $list[0] =~ /^NOD/) { push @out, sprintf "%-12s %-12s %-12s %-12s %-12s %-12s", @l; } } else { + my $printall; + + $printall = 1 if @list && $list[0] =~ /^ALL/i; + # build up the screen from the Node table foreach $node (@nodes) { - next if scalar @list && !grep $node->call =~ /^$_/, @list; + unless ($printall) { + if (@list) { + next unless grep $node->call =~ /^$_/, @list; + } else { + next unless $node->dxcc == $self->dxcc; + } + } my $call = $node->call; @l = (); $call ||= '???'; -- 2.43.0