projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
a few tidy ups
[spider.git]
/
cmd
/
show
/
station.pl
diff --git
a/cmd/show/station.pl
b/cmd/show/station.pl
index 9efa5b1f9176e688ddd5f25321d2f5da1d6fe7fb..0f2140337ec95939b9f64308004da491d127ec84 100644
(file)
--- 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;
my $sort = $ref->sort;
my $qth = $ref->qth;
my $home = $ref->node;
- push @out, "$call $sort $
home $qth
";
+ push @out, "$call $sort $
qth $home
";
}
} else {
foreach $call (@f) {
}
} else {
foreach $call (@f) {
- my $ref = DXUser
::
get_current($call);
+ my $ref = DXUser
->
get_current($call);
if ($ref) {
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";
}
} else {
push @out, "$call not known";
}