use DXDb;
use Time::HiRes qw(gettimeofday tv_interval);
-use Carp;
-
use strict;
use vars qw($me $pc11_max_age $pc23_max_age $pc11_dup_age $pc23_dup_age
- %spotdup %wwvdup $last_hour %pings %rcmds
+ %spotdup %wwvdup $last_hour %pings %rcmds $pc11duptext
%nodehops @baddx $baddxfn $pc12_dup_age
%anndup $allowzero $pc12_dup_lth $decode_dk0wcy);
$pc23_dup_age = 3*3600; # the maximum time to keep the wwv dup list for
$pc12_dup_age = 24*3600; # the maximum time to keep the ann dup list for
$pc12_dup_lth = 60; # the length of ANN text to save for deduping
+$pc11duptext = 20; # maximum lth of the text field in PC11 to use for duduping
+
%spotdup = (); # the pc11 and 26 dup hash
%wwvdup = (); # the pc23 and 27 dup hash
%anndup = (); # the PC12 dup hash
@today = Julian::sub(@today, 1);
push @spots, Spot::readfile(@today);
for (@spots) {
- my $dupkey = "$_->[0]$_->[1]$_->[2]$_->[3]$_->[4]";
+ my $duptext = length $_->[3] > $pc11duptext ? substr($_->[3], 0, $pc11duptext) : $_->[3] ;
+ my $dupkey = "$_->[0]$_->[1]$_->[2]$duptext$_->[4]";
$spotdup{$dupkey} = $_->[2];
}
}
# strip off the leading & trailing spaces from the comment
+ my $duptext = length $field[5] > $pc11duptext ? substr($field[5], 0, $pc11duptext) : $field[5];
my $text = unpad($field[5]);
# store it away
}
if ($pcno == 39) { # incoming disconnect
- $self->disconnect();
+ $self->disconnect(1);
return;
}
if ($pcno == 43) {
last SWITCH;
}
- if ($pcno == 37 || $pcno == 44 || $pcno == 45 || $pcno == 46 || $pcno == 47) {
+ if ($pcno == 37 || $pcno == 44 || $pcno == 45 || $pcno == 46 || $pcno == 47 || $pcno == 48) {
DXDb::process($self, $line);
return;
}
# send a pc50 out on this channel
if ($t >= $dxchan->pc50_t + $DXProt::pc50_interval) {
- $dxchan->send(pc50());
+ $dxchan->send(pc50(scalar DXChannel::get_all_users));
$dxchan->pc50_t($t);
}
# now broadcast to all other ak1a nodes that I have gone
broadcast_ak1a(pc21($call, 'Gone.'), $self) unless $self->{isolate};
+ # I was the last node visited
+ $self->user->node($main::mycall);
+
# send info to all logged in thingies
$self->tell_login('logoutn');