# ALWAYS output the user
my $ref = Route::User::get($call);
- DXProt::route_pc16($main::me, $main::routeroot, $ref) if $ref;
+ $main::me->route_pc16($main::mycall, undef, $main::routeroot, $ref) if $ref;
return $self;
}
dbg("B/C PC17 on $main::mycall for: $call") if isdbg('route');
# issue a pc17 to everybody interested
- DXProt::route_pc17($main::me, $main::routeroot, $uref);
+ $main::me->route_pc17($main::mycall, undef, $main::routeroot, $uref);
} else {
confess "trying to disconnect a non existant user $call";
}
if ($self->{prompt}) {
$self->send($self->{prompt});
} else {
- $self->send($self->msg($self->here ? 'pr' : 'pr2', $self->call, cldate($main::systime), ztime($main::systime)));
+ my $prkey = $self->here ? 'pr' : 'pr2';
+ my $mail = DXMsg::for_me($self->call) ? $self->msg('newmail') : "";
+
+ $self->send($self->msg($prkey, $self->call, cldate($main::systime), ztime($main::systime), $mail));
}
}