# ALWAYS output the user
my $ref = Route::User::get($call);
- $main::me->route_pc16($main::mycall, undef, $main::routeroot, $ref) if $ref;
+ if ($ref) {
+ $main::me->route_pc16($main::mycall, undef, $main::routeroot, $ref);
+ $main::me->route_pc92a($main::mycall, undef, $main::routeroot, $ref);
+ }
return $self;
}
# issue a pc17 to everybody interested
$main::me->route_pc17($main::mycall, undef, $main::routeroot, $uref);
+ $main::me->route_pc92d($main::mycall, undef, $main::routeroot, $uref);
} else {
confess "trying to disconnect a non existant user $call";
}
$line =~ s/\\5E/\^/g;
if ($self->{talk}) {
if ($self->{gtk}) {
- $self->local_send('T', dd(['talk',$to,$from,$via,$line,@_]));
+ $self->local_send('T', dd(['talk',$to,$from,$via,$line]));
} else {
$self->local_send('T', "$to de $from: $line");
}
foreach my $dxchan (DXChannel::get_all) {
next unless $dxchan->{enhanced} && $dxchan->{senddbg};
if ($dxchan->{gtk}) {
- $dxchan->local_send('L', dd(['db', $s]));
+ $dxchan->send_later('L', dd(['db', $s]));
} else {
- $dxchan->local_send('L', $s);
+ $dxchan->send_later('L', $s);
}
}
}