projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
1. Added set/name, set/qra, set/location, set/qth, set/homenode, set/bbs,
[spider.git]
/
cmd
/
disconnect.pl
diff --git
a/cmd/disconnect.pl
b/cmd/disconnect.pl
index bc3570476f78d6f849a3d0318a28ba19f3602a94..8bb48ccfd5ab5d975f6a6ffaf88fce153ea82f25 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')));
+ } 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)
;
}
}
}
}