X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=cmd%2Fshow%2Fstation.pl;h=a5ffe2adc01f9e8f651da739982a10134dab5b46;hb=c3505bcfc922cd712bad2c20b3479cf8d1dc54fe;hp=d9f2b9d10d631f8feb433b5aec0f67159546b567;hpb=33c95e70cc90be9f60c4efd73717386b299048f7;p=spider.git diff --git a/cmd/show/station.pl b/cmd/show/station.pl index d9f2b9d1..a5ffe2ad 100644 --- a/cmd/show/station.pl +++ b/cmd/show/station.pl @@ -70,19 +70,19 @@ 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(',', $cref->parents) if $cref; if ($seek) { - push @out, "User : $call (at $seek)"; + push @out, sprintf("%-13s: %s (%s %s)", $self->msg('user'), $call, $self->msg('at'), $seek); } else { - push @out, "User : $call"; + push @out, sprintf("%-13s: %s", $self->msg('user'), $call); } - push @out, "Name : $name" if $name; - push @out, "Last Connect : $last" if $last; - push @out, "QTH : $qth" if $qth; - push @out, "Location : $latlong ($qra)" if $latlong || $qra ; - push @out, sprintf("Heading : %.0f Deg %.0f Mi. %.0f Km.", $bearing, $miles, $dx) if $latlong; - push @out, "Home Node : $homenode" if $homenode; + push @out, sprintf("%-13s: %s", $self->msg('name1'), $name) if $name; + push @out, sprintf("%-13s: %s", $self->msg('lastconn'), $last) if $last; + push @out, sprintf("%-13s: %s", 'QTH', $qth) if $qth; + push @out, sprintf("%-13s: %s", $self->msg('location'), "$latlong ($qra)") if $latlong || $qra ; + push @out, sprintf("%-13s: %.0f Deg. %.0f Mi. %.0f Km.", $self->msg('heading'), $bearing, $miles, $dx) if $latlong; + push @out, sprintf("%-13s: %s", $self->msg('homenode2'), $homenode) if $homenode; } else { push @out, $self->msg('usernf', $call); }