projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
1. Sort out PC41 handling to include type 5 records for QRA locators and also
[spider.git]
/
cmd
/
show
/
station.pl
diff --git
a/cmd/show/station.pl
b/cmd/show/station.pl
index b5b0f6c5a77986897fceea50a997c10dcab9483b..a79e93a8901572369718f984b370f8b6fb8972cf 100644
(file)
--- a/
cmd/show/station.pl
+++ b/
cmd/show/station.pl
@@
-11,9
+11,10
@@
my @f = split /\s+/, uc $line;
my @out;
my $call;
my $seek;
my @out;
my $call;
my $seek;
+push @f, $self->call unless @f;
-if (@f ==
0
) {
- return (1, $self->msg('e6')) if ($self->priv <
5
);
+if (@f ==
1 && uc $f[0] eq 'ALL'
) {
+ return (1, $self->msg('e6')) if ($self->priv <
6
);
my @calls = DXUser::get_all_calls();
foreach $call (@calls) {
my $ref = DXUser->get_current($call);
my @calls = DXUser::get_all_calls();
foreach $call (@calls) {
my $ref = DXUser->get_current($call);