strip spotters ssid from WWV

diff --git a/Changes b/Changes
index 54c113601a0152be03473b50476a8c15d3809f14..864196b1420aefafd91f787bce0252207153021f 100644 (file)
--- 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 753144b760ff754b9300982aab0ed9d37fcbf94f..72be551124103e22916500dcc6c45034501e5856 100644 (file)
--- 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 10ce5fa193043475802ed715c051e8d5c1b1fceb..0225f2f0c314a54b3d298fc9899a8a20e329d256 100644 (file)
--- 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;