- my $call = uc shift;
- my $dxchan = DXChannel->get($call);
- if ($dxchan) {
- if ($dxchan->is_ak1a) {
- $dxchan->send_now("D", DXProt::pc39($main::mycall, "$main::mycall DXCron"));
- } else {
- $dxchan->send_now('D', "");
- }
- $dxchan->disconnect;
- }
- my $out = grep {$_->{call} eq $call} @main::outstanding_connects;
- if ($out) {
- unless ($^O =~ /^MS/i) {
- kill 'TERM', $out->{pid};
- }
- @main::outstanding_connects = grep {$_->{call} ne $call} @main::outstanding_connects;
- }