X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?p=spider.git;a=blobdiff_plain;f=cmd%2Fshow%2Fstation.pl;h=6c78f45ce16ddde6f19c4fbf4e964530e0856f9b;hp=9efa5b1f9176e688ddd5f25321d2f5da1d6fe7fb;hb=099c6b4a10d9f1e7471b0c94273cd992b5814cdc;hpb=cce345b95c555a0b45218c5b452bc0f5f4f13bab diff --git a/cmd/show/station.pl b/cmd/show/station.pl index 9efa5b1f..6c78f45c 100644 --- a/cmd/show/station.pl +++ b/cmd/show/station.pl @@ -20,19 +20,19 @@ if (@f == 0) { my $sort = $ref->sort; my $qth = $ref->qth; my $home = $ref->node; - push @out, "$call $sort $home $qth"; + push @out, "$call $sort $qth $node"; } } else { foreach $call (@f) { - my $ref = DXUser::get_current($call); + my $ref = DXUser->get_current($call); if ($ref) { - my $name; - my $qth; - my $lat; - my $long; - my $node; - my $homenode; - push @out, "$call $qth"; + my $name = $ref->name; + my $qth = $ref->qth; + my $lat = $ref->lat; + my $long = $ref->long; + my $node = $ref->node; +# my $homenode = $ref->homenode; + push @out, "$call $qth $lat $long $node"; } else { push @out, "$call not known"; }