From a76fe13d7a1e7e9003b11d5f5069903b81e2dc15 Mon Sep 17 00:00:00 2001
From: djk <djk>
Date: Fri, 8 Jan 1999 00:36:23 +0000
Subject: [PATCH] strip spotters ssid from WWV

---
 Changes           | 1 +
 html/install.html | 6 +++++-
 perl/DXProt.pm    | 3 ++-
 3 files changed, 8 insertions(+), 2 deletions(-)

diff --git a/Changes b/Changes
index 54c11360..864196b1 100644
--- a/Changes
+++ b/Changes
@@ -3,6 +3,7 @@
 2. Added more range checking in WWV spots (they really are a heap of ...)
 3. Changed create_sysop.pl so that you can update as well as create the user 
 file
+4. Remove spotter's SSID from WWV spots
 06Jan99========================================================================
 1. Do some range checking for spots and WWV in the future (got a WWV for Oct 
 2034 whhich caused a bit of confusion!)
diff --git a/html/install.html b/html/install.html
index 753144b7..72be5511 100644
--- a/html/install.html
+++ b/html/install.html
@@ -17,7 +17,7 @@
 	<address><A HREF="mailto:ip@g8sjp.demon.co.uk">Iain Phillips G0RDI</A></address>
 <!-- Created: Wed Dec  2 16:40:25 GMT 1998 -->
 <!-- hhmts start -->
-Last modified: Mon Dec 21 11:26:05 GMT 1998
+Last modified: Fri Jan  8 00:29:25 GMT 1999
 <!-- hhmts end -->
 	<P>This HOWTO describes the installation for DX Spider v1.11 on a "vanilla" 
 	  <A href="http://www.redhat.com">RedHat</A> 5.1 platform, 
@@ -25,6 +25,10 @@ Last modified: Mon Dec 21 11:26:05 GMT 1998
 	  Red Hat 5.1 distribution. I always select 'everything', and that seems to ensure that 
 	  nothing is missed out :-) [ more normal people may like to try with less <em>Ed</em> ].
 
+	<p><b><i>WARNING</i></b> The perl on the vanilla RedHat 5.2
+	(perl-5.004m4-1.i386.rpm) is <em>BROKEN</em>, please use the one
+	in the <a href="../download/index.html#perl">Download</a> section.
+
 	<p>The crucial ingredient for all of this is <a href="http://www.perl.org">Perl 5.004</a>. Now I know
 	  Perl 5.005 is out and this will almost certainly work with it, but 
 	  <A Href="http://www.redhat.com">RedHat</A> 5.1 comes with 5.004. 
diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 10ce5fa1..0225f2f0 100644
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -389,8 +389,9 @@ sub normal
 				dbg('chan', "WWV Date ($field[1] $field[2]) out of range");
 				return;
 			}
-			
 			$wwvdup{$dupkey} = $d;
+			$field[6] =~ s/-\d+$//o            # remove spotter's ssid
+		
 			my $wwv = Geomag::update($d, $field[2], $sfi, $k, $i, @field[6..$#field]);
 
 			my $r;
-- 
2.43.0