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

diff --git a/Changes b/Changes
index ecd431bfca602385bb17c053f808915595e1490f..658b403c6d0c8beaf3cdfd0e78dab2bd2afe14fe 100644 (file)
--- 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 45214003ac22165ebfefc2079935b5e4ba257113..dda65bd9944caf6ab350e587ba30be92f8d42290 100644 (file)
--- 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 d9f2b9d10d631f8feb433b5aec0f67159546b567..68a1437593ad0a6e1fca110a2e501c37c09bb89f 100644 (file)
--- 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)";