projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
1. Reindented various things
[spider.git]
/
cmd
/
disconnect.pl
diff --git
a/cmd/disconnect.pl
b/cmd/disconnect.pl
index 32cb543f43469bfa4692d1e8270681225194c441..e8e83b89c4778f18f5c730e7c5c2d858dd9a1236 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($
dxchan->call, 'Disconnected'
));
+ $dxchan->send_now("D", DXProt::pc39($
main::mycall, $self->msg('disc1', $self->call)
));
} 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)
;
}
}
}
}