my $pkg = shift;
my $call = shift;
$main::routeroot->add($call, '5000', Route::here(1)) if $call ne $main::mycall;
- if ($self->{call} ne $main::mycall) {
- my $thing = Thingy::Hello->new(user=>$call);
- $thing->broadcast($self);
- }
-
return $self;
}
$self->state('init');
$self->{pc50_t} = $main::systime;
- my $thing = Thingy::Hello->new(origin=>$main::mycall, user=>$call);
+ # ALWAYS output the hello
+ my $thing = Thingy::Hello->new(user => $call, h => $self->{here});
$thing->broadcast($self);
+ $self->lasthello($main::systime);
# send info to all logged in thingies
$self->tell_login('loginn');
my $flags = Route::here($here)|Route::conf($conf);
# is he under the control of the new protocol?
- if ($r->np) {
+ if ($r && $r->np) {
dbg("PCPROT: $call aranea node, ignored") if isdbg('chanerr');
next;
}
$self->{lastping} = 0;
my $thing = Thingy::Rt->new(user=>$self->{call});
my $nref = Route::Node::get($self->{call});
- $thing->broadcast if $thing->copy_pc16_data($nref);
+ $thing->copy_pc16_data($nref);
+ $thing->broadcast;
+
$self->lastcf($main::systime);
}
$self->{lastping} = 0;
my $thing = Thingy::Rt->new(user=>$self->{call});
my $nref = Route::Node::get($self->{call});
- $thing->broadcast if $thing->copy_pc16_data($nref);
+ $thing->copy_pc16_data($nref);
+ $thing->broadcast;
$self->lastcf($main::systime);
}