From 7c41fe2814a16ad0f7ced2ec5e50f6e8647010f9 Mon Sep 17 00:00:00 2001
From: djk <djk>
Date: Sun, 29 Aug 1999 22:13:09 +0000
Subject: [PATCH] remove -@ from spots ssids

---
 Changes         | 2 ++
 perl/DXProt.pm  | 2 +-
 perl/cluster.pl | 2 +-
 3 files changed, 4 insertions(+), 2 deletions(-)

diff --git a/Changes b/Changes
index c574a340..74265c58 100644
--- a/Changes
+++ b/Changes
@@ -1,3 +1,5 @@
+30Aug99=======================================================================
+1. remove -@ as well as \d from SSIDs for spots
 29Aug99=======================================================================
 1. Added msg command to allow the changing of To, From, Subject and so on the
 messages. This seems particularly important just now as a whole raft of G3's
diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index b8ac3ead..c1e83d79 100644
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -210,7 +210,7 @@ sub normal
 			
 			# store it away
 			my $spotter = $field[6];
-			$spotter =~ s/-\d+$//o;	# strip off the ssid from the spotter
+			$spotter =~ s/-[\@\d]+$//o;	# strip off the ssid from the spotter
 			
 			# do some de-duping
 			my $freq = $field[1] - 0;
diff --git a/perl/cluster.pl b/perl/cluster.pl
index 5ce5203d..d49c7966 100755
--- a/perl/cluster.pl
+++ b/perl/cluster.pl
@@ -67,7 +67,7 @@ package main;
 
 @inqueue = ();					# the main input queue, an array of hashes
 $systime = 0;					# the time now (in seconds)
-$version = "1.31";				# the version no of the software
+$version = "1.32";				# the version no of the software
 $starttime = 0;                 # the starting time of the cluster   
 $lockfn = "cluster.lock";       # lock file name
       
-- 
2.34.1