2 # show the station details
4 # Copyright (c) 1998 - Dirk Koopman G1TLH
9 my ($self, $line) = @_;
10 my @f = split /\s+/, uc $line;
15 return (1, "*** no station specified ***") if ($self->priv < 5);
16 my @calls = DXUser::get_all_calls();
17 foreach $call (@calls) {
18 my $ref = DXUser->get_current($call);
20 my $sort = $ref->sort;
22 my $home = $ref->node;
23 push @out, "$call $sort $qth $node";
27 my $ref = DXUser->get_current($call);
29 my $name = $ref->name;
32 my $long = $ref->long;
33 my $node = $ref->node;
34 # my $homenode = $ref->homenode;
35 push @out, "$call $qth $lat $long $node";
37 push @out, "$call not known";