X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=cmd%2Fdisconnect.pl;h=60078704f375994a29a8c5c8b87aeef3b0e9cb6b;hb=refs%2Fheads%2Fnewpc92timings;hp=9acf0ce336fa5f37d5621b80139803097187c67b;hpb=a6e52cc1680c2c30ef874e2e6c16d00c956624ee;p=spider.git diff --git a/cmd/disconnect.pl b/cmd/disconnect.pl index 9acf0ce3..60078704 100644 --- a/cmd/disconnect.pl +++ b/cmd/disconnect.pl @@ -13,10 +13,10 @@ if ($self->priv < 5) { foreach $call (@calls) { $call = uc $call; next if $call eq $main::mycall; - my $dxchan = DXChannel->get($call); + my $dxchan = DXChannel::get($call); if ($dxchan) { if ($dxchan->is_node) { -# $dxchan->send_now("D", DXProt::pc39($main::mycall, $self->msg('disc1', $self->call))); +# $dxchan->send_pc39($self->msg('disc1', $self->call)); } else { return (1, $self->msg('e5')) if $self->priv < 8; $dxchan->send_now('D', $self->msg('disc1', $self->call)); @@ -26,12 +26,12 @@ foreach $call (@calls) { } elsif (my $conn = Msg->conns($call)) { $conn->disconnect; push @out, $self->msg('disc3', $call); - } elsif (my $ref = DXCluster->get_exact($call)) { - my $dxchancall = $ref->dxchancall; - if ($dxchancall eq $main::mycall || !DXChannel->get($dxchancall)) { - $ref->del; - push @out, $self->msg('disc4', $call); - } +# } elsif (my $ref = DXCluster->get_exact($call)) { +# my $dxchancall = $ref->dxchancall; +# if ($dxchancall eq $main::mycall || !DXChannel::get($dxchancall)) { +# $ref->del; +# push @out, $self->msg('disc4', $call); +# } } else { push @out, $self->msg('e10', $call); }