- my $user = DXUser::get_current($call);
- my $r;
- my $newuser = !$user;
- $user = DXUser->new($call) unless $user;
- $user->homenode($parent->call) unless $user->homenode;
- $user->node($parent->call);
- $user->lastin($main::systime) unless DXChannel::get($ncall);