2 # disconnect a local user
4 my ($self, $line) = @_;
5 my @calls = split /\s+/, $line;
10 return (1, "not allowed");
13 foreach $call (@calls) {
15 next if $call eq $main::mycall;
16 my $dxchan = DXChannel->get($call);
18 if ($dxchan->is_ak1a) {
19 $dxchan->send_now("D", DXProt::pc39($main::mycall, 'Disconnected'));
23 push @out, "disconnected $call";
25 push @out, "$call not connected locally";