projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
altered pc21 logic
[spider.git]
/
cmd
/
disconnect.pl
diff --git
a/cmd/disconnect.pl
b/cmd/disconnect.pl
index 9e6b67dff927a521d5cb7db530927cf6aec8ef4d..00a462a70e4955b44f252b77621dcb01956f9c50 100644
(file)
--- a/
cmd/disconnect.pl
+++ b/
cmd/disconnect.pl
@@
-25,6
+25,13
@@
foreach $call (@calls) {
push @out, $self->msg('disc2', $call);
} elsif (my $conn = Msg->conns($call)) {
$conn->disconnect;
push @out, $self->msg('disc2', $call);
} elsif (my $conn = Msg->conns($call)) {
$conn->disconnect;
+ push @out, $self->msg('disc3', $call);
+ } elsif (my $ref = DXCLuster->get_exact($call)) {
+ my $dxchan = $ref->dxchan;
+ if ($dxchan && $dxchan->call eq $main::mycall) {
+ $ref->del;
+ push @out, $self->msg('disc4', $call);
+ }
} else {
push @out, $self->msg('e10', $call);
}
} else {
push @out, $self->msg('e10', $call);
}