From 9516ccc97c92ca802204b059a9a4baab04ff3b65 Mon Sep 17 00:00:00 2001 From: minima Date: Mon, 20 Jan 2003 16:48:35 +0000 Subject: [PATCH] changed display for nodes in sh/route and sh/st --- Changes | 1 + cmd/show/route.pl | 2 +- cmd/show/station.pl | 2 +- 3 files changed, 3 insertions(+), 2 deletions(-) diff --git a/Changes b/Changes index ecd431bf..658b403c 100644 --- a/Changes +++ b/Changes @@ -2,6 +2,7 @@ 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. +2. changed sh/stat and sh/route for 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/show/route.pl b/cmd/show/route.pl index 45214003..dda65bd9 100644 --- a/cmd/show/route.pl +++ b/cmd/show/route.pl @@ -16,7 +16,7 @@ my $l; foreach $l (@list) { my $ref = Route::get($l); if ($ref) { - my $parents = join ',', $ref->parents; + my $parents = $ref->isa('Route::Node') ? $l : join(',', $ref->parents); my $dxchan = $ref->dxchan; push @out, $self->msg('route', $l, $parents, $dxchan->call); } else { diff --git a/cmd/show/station.pl b/cmd/show/station.pl index d9f2b9d1..68a14375 100644 --- a/cmd/show/station.pl +++ b/cmd/show/station.pl @@ -70,7 +70,7 @@ if (@f <= 2 && uc $f[0] eq 'ALL') { } my $cref = Route::get($call); - my $seek = join(',', $cref->parents) if $cref; + my $seek = $cref->isa('Route::Node') ? $call : join(',', $ref->parents) if $cref; if ($seek) { push @out, "User : $call (at $seek)"; -- 2.43.0