projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Now add files that the previous commit refered to
[spider.git]
/
cmd
/
stat
/
channel.pl
diff --git
a/cmd/stat/channel.pl
b/cmd/stat/channel.pl
index 147c150af6bd307e71261e4ef547aae2df306f98..472e7cf483f5a909e8a11be4119e9117fbd46e9d 100644
(file)
--- a/
cmd/stat/channel.pl
+++ b/
cmd/stat/channel.pl
@@
-1,21
+1,21
@@
#
# show the channel status
#
#
# show the channel status
#
-#
$Id$
+#
#
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;
foreach $call (@list) {
$call = uc $call;
my $call;
my @out;
foreach $call (@list) {
$call = uc $call;
- my $ref = DXChannel
->
get($call);
+ my $ref = DXChannel
::
get($call);
if ($ref) {
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;
}