2 # disconnect a local user
4 my ($self, $line) = @_;
5 my @calls = split /\s+/, $line;
10 return (1, $self->msg('e5'));
13 foreach $call (@calls) {
15 next if $call eq $main::mycall;
16 my $dxchan = DXChannel->get($call);
18 if ($dxchan->is_node) {
19 # $dxchan->send_pc39($self->msg('disc1', $self->call));
21 return (1, $self->msg('e5')) if $self->priv < 8;
22 $dxchan->send_now('D', $self->msg('disc1', $self->call));
25 push @out, $self->msg('disc2', $call);
26 } elsif (my $conn = Msg->conns($call)) {
28 push @out, $self->msg('disc3', $call);
29 # } elsif (my $ref = DXCluster->get_exact($call)) {
30 # my $dxchancall = $ref->dxchancall;
31 # if ($dxchancall eq $main::mycall || !DXChannel->get($dxchancall)) {
33 # push @out, $self->msg('disc4', $call);
36 push @out, $self->msg('e10', $call);