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 my $dxchan = DXChannel->get($call);
17 if ($dxchan->is_ak1a) {
18 $dxchan->send_now("D", $self->pc39('Disconnected'));
22 push @out, "disconnected $call";
24 push @out, "$call not connected locally";