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 51ddc696e4a54bf62abf593ffff9a552a1531f15..8bb48ccfd5ab5d975f6a6ffaf88fce153ea82f25 100644
(file)
--- a/
cmd/disconnect.pl
+++ b/
cmd/disconnect.pl
@@
-6,8
+6,8
@@
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) {
}
foreach $call (@calls) {
@@
-16,13
+16,14
@@
foreach $call (@calls) {
my $dxchan = DXChannel->get($call);
if ($dxchan) {
if ($dxchan->is_ak1a) {
my $dxchan = DXChannel->get($call);
if ($dxchan) {
if ($dxchan->is_ak1a) {
- $dxchan->send_now("D", DXProt::pc39($main::mycall,
'Disconnected'
));
+ $dxchan->send_now("D", DXProt::pc39($main::mycall,
$self->msg('disc1')
));
} else {
} else {
-
$dxchan->disconnect
;
+
$dxchan->send_now('D', $self->msg('disc1', $self->call))
;
}
}
- push @out, "disconnected $call";
+ $dxchan->disconnect;
+ push @out, $self->msg('disc2', $call);
} else {
} else {
- push @out,
"$call not connected locally"
;
+ push @out,
$self->msg('e10', $call)
;
}
}
}
}