my $user = DXUser->get($main::mycall);
die "User $main::mycall not setup or disappeared RTFM" unless $user;
- $myprot_version += $main::version*100;
$main::me = DXProt->new($main::mycall, 0, $user);
$main::me->{here} = 1;
$main::me->{state} = "indifferent";
$main::me->{metric} = 0;
$main::me->{pingave} = 0;
$main::me->{registered} = 1;
- $main::me->{version} = 5252 + $main::version;
+ $main::me->{version} = $myprot_version + int ($main::version * 100);
$main::me->{build} = $main::build;
$main::me->{lastcf} = $main::me->{lasthello} = time;
}
my $thing = Thingy::Rt->new(user=>$self->{call});
my $nref = Route::Node::get($self->{call});
$thing->copy_pc16_data($nref);
- $thing->broadcast;
-
+ $thing->broadcast($self);
$self->lastcf($main::systime);
}
my $thing = Thingy::Rt->new(user=>$self->{call});
my $nref = Route::Node::get($self->{call});
$thing->copy_pc16_data($nref);
- $thing->broadcast;
+ $thing->broadcast($self);
$self->lastcf($main::systime);
}
my $line = shift;
my $origin = shift;
- if (eph_dup($line)) {
+ if (eph_dup($line, 60)) {
dbg("PCPROT: dup PC51 detected") if isdbg('chanerr');
return;
}
my $thing = Thingy::Ping->new(origin=>$main::mycall);
- $thing->from_DXProt(user=>$_[2], group=>$_[1], out=>$_[3], DXProt=>$line);
- $thing->process($self);
-
+ $thing->from_DXProt($self, $line, @_);
+ $thing->handle($self);
}
# dunno but route it