projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
1. Do some range checking for spots and WWV in the future (got a WWV for Oct
[spider.git]
/
cmd
/
disconnect.pl
diff --git
a/cmd/disconnect.pl
b/cmd/disconnect.pl
index bc3570476f78d6f849a3d0318a28ba19f3602a94..e8e83b89c4778f18f5c730e7c5c2d858dd9a1236 100644
(file)
--- a/
cmd/disconnect.pl
+++ b/
cmd/disconnect.pl
@@
-6,18
+6,24
@@
my @calls = split /\s+/, $line;
my $call;
my @out;
my $call;
my @out;
-if ($self->priv <
9
) {
- return (1,
"not allowed"
);
+if ($self->priv <
8
) {
+ return (1,
$self->msg('e5')
);
}
foreach $call (@calls) {
$call = uc $call;
}
foreach $call (@calls) {
$call = uc $call;
+ next if $call eq $main::mycall;
my $dxchan = DXChannel->get($call);
if ($dxchan) {
my $dxchan = DXChannel->get($call);
if ($dxchan) {
+ if ($dxchan->is_ak1a) {
+ $dxchan->send_now("D", DXProt::pc39($main::mycall, $self->msg('disc1', $self->call)));
+ } else {
+ $dxchan->send_now('D', $self->msg('disc1', $self->call));
+ }
$dxchan->disconnect;
$dxchan->disconnect;
- push @out,
"disconnected $call"
;
+ push @out,
$self->msg('disc2', $call)
;
} else {
} else {
- push @out,
"$call not connected locally"
;
+ push @out,
$self->msg('e10', $call)
;
}
}
}
}