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);
18 push @out, "disconnected $call";
20 push @out, "$call not connected locally";