- if ($user->{sort} eq 'U') {
- $dxchan->send_now('D', msg('l2', $call, $mycall, $myqth));
- $dxchan->send_file($motd) if (-e $motd);
+ if ($user->{sort} eq 'A') {
+ $dxchan->pc_start($line);
+ } else {
+ $dxchan->user_start($line);
+ }
+ } elsif ($sort eq 'D') {
+ die "\$user not defined for $call" if !defined $user;
+ if ($user->{sort} eq 'A') { # we will have a symbolic ref to a proc here
+ $dxchan->pc_normal($line);
+ } else {
+ $dxchan->user_normal($line);