From: minima <minima>
Date: Mon, 20 Jan 2003 16:48:35 +0000 (+0000)
Subject: changed display for nodes in sh/route and sh/st
X-Git-Tag: PRE-1-52~74
X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?p=spider.git;a=commitdiff_plain;h=9516ccc97c92ca802204b059a9a4baab04ff3b65

changed display for nodes in sh/route and sh/st
---

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)";