default senderverify, fix sh/contest

diff --git a/Changes b/Changes
index 1a5e4775e88996cedae8eee4997541cc1062843d..620f23fe57cdb1dd87f3bc01ee654d0be7ba8a71 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1,3 +1,12 @@
+16Feb25======================================================================
+1. Changed Internet.pm to set $contest = "contest.dxtron.com"; 
+   This means that show/contest will work again. If you have a copy of
+   Internet.pm in /spider/local, please change the $contest variable there. 
+2. Set $DXProt::sendverify to 2 as default.
+
+   This has shown to work well in this weekend's ARRL CW contest. Other
+   challenges have emerged which will be addressed before the next big
+   contest.  
 11Feb25======================================================================
 1. Remove duplicates from $DXProt::senderverify debug messages if this
    variable is set to warn of or dump suspicious spots from spotters that

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 56e891b9f04813592c13718bd282539416c9bd25..ba0e15963833dbd16bc58c8901052c91f353ea9c 100644 (file)
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -84,8 +84,6 @@ $pc92_extnode_update_period = 1*60*60; # the update period for external nodes
 $pc92_keepalive_period = 1*60*60;      # frequency of PC92 K (keepalive) records
 %pc92_find = ();                               # outstanding pc92 find operations
 $pc92_find_timeout = 30;               # maximum time to wait for a reply
-$senderverify = 0;                             # 1 = check spotter is on node it says it is and check ip address if available
-;                                                              # 2 = do 1 and dump if check
 $pc92_ad_enabled = 1;                  # send pc92 A & D records.
 $pc92c_ipaddr_enable = 0;              # add the local ip address info to each callsign in a PC92 C
 

diff --git a/perl/DXProtHandle.pm b/perl/DXProtHandle.pm
index 622aa3554757ef1b7484295f4d6999a1bebaca15..203ee34d300f8c4483b305f4932a9636e8cc9f28 100644 (file)
--- a/perl/DXProtHandle.pm
+++ b/perl/DXProtHandle.pm
@@ -50,7 +50,7 @@ use vars qw($pc11_max_age $pc23_max_age $last_pc50 $eph_restime $eph_info_restim
                        $pc10_dupe_age $pc92_slug_changes $last_pc92_slug
                        $pc92Ain $pc92Cin $pc92Din $pc92Kin $pc9x_time_tolerance
                        $pc92filterdef $senderverify $pc11_dwell_time $pc61_extract_route
-                       $pc92_ad_enabled $pc92c_ipaddr_enabled
+                       $pc92_ad_enabled $pc92c_ipaddr_enable
                        $preserve_node_ssid
                   );
 
@@ -62,7 +62,7 @@ $pc9x_time_tolerance = 15*60; # the time on a pc9x is allowed to be out by this
 $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)
                                 # this is actually the partition between "yesterday" and "today" but old.
-$senderverify = 0;                             # 1 - check for forged PC11 or PC61.
+$senderverify = 2;                             # 1 - check for forged PC11 or PC61.
                                 # 2 - if forged, dump them.
 $pc11_dwell_time = 2;                  # number of seconds to wait for a PC61 to come to substitute the PC11
 $pc61_extract_route = 0;               # generate missing  user route entry and IP address from passing PC61s

diff --git a/perl/DXVars.pm.issue b/perl/DXVars.pm.issue
index 139368617d951c784b3c09daaee95f8338c8867e..cecf98c29fecac9bb9a4a7b56e8cbf2e94f60202 100644 (file)
--- a/perl/DXVars.pm.issue
+++ b/perl/DXVars.pm.issue
@@ -48,6 +48,8 @@ $myemail = "qqq@gmail.com";
 # are we doing xml?
 $do_xml = 0;
 
+$Internet::contest_host = '"contest.dxtron.com";
+
 # the SQL database DBI dsn
 #$dsn = "dbi:SQLite:dbname=$root/data/dxspider.db";
 #$dbuser = "";

diff --git a/perl/Internet.pm b/perl/Internet.pm
index dcd1bf4fb6051d09308cc8a65565d1e0bfa35636..1772c39d6317f8c05c3d02bb3680c2e1d1694295 100644 (file)
--- a/perl/Internet.pm
+++ b/perl/Internet.pm
@@ -70,7 +70,7 @@ $db0sdx_url = 'www.qslinfo.de'; # used by show/db0sdx
 $db0sdx_path = '/qslinfo';
 $db0sdx_suffix = '.asmx';
 $dx425_url = 'https://www.425dxn.org/';                # used by show/425
-#$contest_host = 'www.sk3bg.se';         # used by show/contest
+$contest_host = 'contest.dxtron.com';         # used by show/contest
 #$contest_url = "/contest/text";         # used by show/contest
 
 #SHOW/IK3QAR <callsign> Show the 5 most recent informations found on IK3QAR