projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
fix some typos
[spider.git]
/
cmd
/
stat
/
channel.pl
diff --git
a/cmd/stat/channel.pl
b/cmd/stat/channel.pl
index 147c150af6bd307e71261e4ef547aae2df306f98..d963eb45eee91b62b56404952b067530cbe30d8f 100644
(file)
--- a/
cmd/stat/channel.pl
+++ b/
cmd/stat/channel.pl
@@
-7,7
+7,7
@@
use strict;
my ($self, $line) = @_;
my @list = split /\s+/, $line; # generate a list of callsigns
use strict;
my ($self, $line) = @_;
my @list = split /\s+/, $line; # generate a list of callsigns
-@list = ($self->call) if !@list || $self->priv <
9
; # my channel if no callsigns
+@list = ($self->call) if !@list || $self->priv <
1
; # my channel if no callsigns
my $call;
my @out;
my $call;
my @out;
@@
-15,7
+15,7
@@
foreach $call (@list) {
$call = uc $call;
my $ref = DXChannel->get($call);
if ($ref) {
$call = uc $call;
my $ref = DXChannel->get($call);
if ($ref) {
- @out = print_all_fields($self, $ref, "Channe Information $call");
+ @out = print_all_fields($self, $ref, "Channe
l
Information $call");
} else {
return (0, "Channel: $call not found") if !$ref;
}
} else {
return (0, "Channel: $call not found") if !$ref;
}