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

changed date checking code

Browse Source 
put sh/debug back to priv 9
This commit is contained in:
djk 1999-08-25 22:47:20 +00:00
parent 129b453952
commit 1edb247cb8
3 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
Changes
View File

@ -1,3 +1,8 @@
25Aug99=======================================================================
1. check the date of a WWV much more carefully.
24Aug99=======================================================================
1. Prevented spots with lowercase callsigns being forwarded. This opens a
much bigger can of worms which I shall have to address later.
17Aug99=======================================================================
1. all protocol except PC29 containing %XX characters will be dumped.
2. Changed console.pl so that if you start typing it moves the top window

2
cmd/show/debug.pl
View File

@ -7,7 +7,7 @@
use DXDebug;
my $self = shift;
#return (0) if ($self->priv < 9); # only console users allowed
return (0) if ($self->priv < 9); # only console users allowed
my $set = join ' ', dbglist(); # generate space delimited list

7
perl/DXProt.pm
View File

@ -28,13 +28,14 @@ use Local;
use Carp;
use strict;
use vars qw($me $pc11_max_age $pc11_dup_age $pc23_dup_age
%spotdup %wwvdup $last_hour %pings %rcmds
use vars qw($me $pc11_max_age $pc23_max_age $pc11_dup_age $pc23_dup_age
%spotdup %wwvdup $last_hour %pings %rcmds
%nodehops @baddx $baddxfn $pc12_dup_age
%anndup $allowzero);
$me = undef; # the channel id for this cluster
$pc11_max_age = 1*3600; # the maximum age for an incoming 'real-time' pc11
$pc23_max_age = 1*3600; # the maximum age for an incoming 'real-time' pc23
$pc11_dup_age = 24*3600; # the maximum time to keep the spot dup list for
$pc23_dup_age = 24*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
@ -512,7 +513,7 @@ sub normal
dbg('chan', "Dup WWV Spot ignored\n");
return;
}
if ($d > $main::systime + 900 || $field[2] < 0 || $field[2] > 23) {
if ($d < $main::systime - $pc23_max_age || $d > $main::systime + 900 || $field[2] < 0 || $field[2] > 23) {
dbg('chan', "WWV Date ($field[1] $field[2]) out of range");
return;
}