hamradio/spider
1
0
Fork 0
mirror of git://scm.dxcluster.org/scm/spider synced 2024-09-21 07:47:10 +00:00
Code Issues Packages Projects Releases Wiki Activity

Now (apparent) apparently working

Browse Source
This commit is contained in:
Dirk Koopman 2021-12-11 23:32:13 +00:00
parent 4d1c2206f8
commit 5f18e6a465
3 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
cmd/dx.pl
View File

@ -83,7 +83,7 @@ if ($DXProt::badspotter->in($spotternoid)) {
$localonly++;
}
dbg "spotter $spotternoid/$callnoid\n";
#dbg "spotter $spotternoid/$callnoid\n";
if (($spotted =~ /$spotternoid/ || $spotted =~ /$callnoid/) && $freq < $Spot::minselfspotqrg) {
LogDbg('DXCommand', "$spotternoid/$callnoid trying to self spot below ${Spot::minselfspotqrg}KHz ($oline) from $addr, not passed on to cluster");
@ -168,6 +168,7 @@ if ($freq =~ /^69/ || $localonly) {
#}
$self->dx_spot(undef, undef, @spot);
dbg "$self->{call} islugged until " . atime($self->{isslugged}) if $self->{isslugged} && isdbg('sh/dx');
if ($self->isslugged) {
push @{$self->{sluggedpcs}}, [61, $spot, \@spot];
} else {

8
perl/DXCommandmode.pm
View File

@ -92,6 +92,7 @@ sub start
my $host = $self->{conn}->peerhost;
$host ||= "AGW Port #$self->{conn}->{agwport}" if exists $self->{conn}->{agwport};
$host ||= "unknown";
$self->{hostname} = $host;
LogDbg('DXCommand', "$call connected from $host");
$self->{name} = $name ? $name : $call;
@ -118,6 +119,7 @@ sub start
$self->{ann_talk} = $user->wantann_talk;
$self->{here} = 1;
$self->{prompt} = $user->prompt if $user->prompt;
$self->{lastmsgpoll} = 0;
# sort out new dx spot stuff
$user->wantdxcq(0) unless defined $user->{wantdxcq};
@ -212,7 +214,7 @@ sub start
}
}
$self->lastmsgpoll($main::systime);
$self->{lastmsgpoll} = $main::systime;
$self->prompt;
}
@ -563,12 +565,12 @@ sub process
my $dxchan;
foreach $dxchan (@dxchan) {
next if $dxchan->is_user;
next unless $dxchan->is_user;
# send a outstanding message prompt if required
if ($t >= $dxchan->lastmsgpoll + $msgpolltime) {
$dxchan->send($dxchan->msg('m9')) if DXMsg::for_me($dxchan->call);
$dxchan->lastmsgpoll($t);
$dxchan->{lastmsgpoll} = $t;
}
# send a prompt if no activity out on this channel

4
perl/DXProtHandle.pm
View File

@ -49,8 +49,8 @@ use vars qw($pc11_max_age $pc23_max_age $last_pc50 $eph_restime $eph_info_restim
$pc9x_dupe_age = 60; # catch loops of circular (usually) D records
$pc10_dupe_age = 45; # just something to catch duplicate PC10->PC93 conversions
$pc92_slug_changes = 60*1; # slug any changes going outward for this long
$last_pc92_slug = 0; # the last time we sent out any delayed add or del PC92s
$pc92_slug_changes = 60*2; # slug any changes going outward for this long
$last_pc92_slug = time; # the last time we sent out any delayed add or del PC92s
$pc9x_time_tolerance = 15*60; # the time on a pc9x is allowed to be out by this amount
$pc9x_past_age = (122*60)+ # maximum age in the past of a px9x (a config record might be the only
$pc9x_time_tolerance; # thing a node might send - once an hour and we allow an extra hour for luck)