This should work fine and will cure the dupe/lost talk problem
+10Sep07=======================================================================
+1. Remove warnings for EINPROGRESS etc for Windows perl 5.8.
+2. Try to see if using just one lastid is viable in all situations. If it is
+then this will cure the talk problem.
20Aug07=======================================================================
1. add cty.dat + wpxloc.raw changes for CTY-1706.
31Jul07=======================================================================
20Aug07=======================================================================
1. add cty.dat + wpxloc.raw changes for CTY-1706.
31Jul07=======================================================================
# the id on it is completely unreliable. Besides, only commands
# originating on this box will go through this code...
if ($parent->call ne $main::mycall) {
# the id on it is completely unreliable. Besides, only commands
# originating on this box will go through this code...
if ($parent->call ne $main::mycall) {
- my $lastid = $parent->lastid->{$pc} || 0;
+ my $lastid = $parent->lastid || 0;
if ($t < $lastid) {
if ($t+86400-$lastid > $pc9x_past_age) {
dbg("PCPROT: dup id on $t <= $lastid, ignored") if isdbg('chanerr');
if ($t < $lastid) {
if ($t+86400-$lastid > $pc9x_past_age) {
dbg("PCPROT: dup id on $t <= $lastid, ignored") if isdbg('chanerr');
} elsif ($create) {
$parent = Route::Node->new($call);
}
} elsif ($create) {
$parent = Route::Node->new($call);
}
- $parent->lastid->{$pc} = $t if $parent;
+ $parent->lastid($t) if $parent;
$self->{flags} = shift || Route::here(1);
$self->{users} = [];
$self->{nodes} = [];
$self->{flags} = shift || Route::here(1);
$self->{users} = [];
$self->{nodes} = [];
$self->{PC92C_dxchan} = '';
$self->reset_obs; # by definition
$self->{PC92C_dxchan} = '';
$self->reset_obs; # by definition
$version = '1.54';
$subversion = '0';
$version = '1.54';
$subversion = '0';