From 2f2a82ae96d34591bc70cd6ee49c200695cc92d5 Mon Sep 17 00:00:00 2001
From: Dirk Koopman <djk@tobit.co.uk>
Date: Thu, 23 Jul 2020 13:20:04 +0100
Subject: [PATCH] chnage skimmeranalysis a bit

---
 perl/skimmeranaylsis.pl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/perl/skimmeranaylsis.pl b/perl/skimmeranaylsis.pl
index b0704765..cf4b0c0c 100755
--- a/perl/skimmeranaylsis.pl
+++ b/perl/skimmeranaylsis.pl
@@ -9,7 +9,7 @@ use Text::Morse;
 $morse = new Text::Morse;
 
 while (<>) {
-	next unless /SK0MMR/;
+	next unless /SK1MMR/;
 	($gts,$sk,$f,$c,$md,$str,$zt)=m|^(\d+)\^.*DX de ([-\w\d/]+)-\#:\s+([\.\d]+)\s+([-\w\d/]+)\s+(\w{1,3})\s+(-?\d+).*(\d{4})Z|;
 	next unless $sk && $c;
 	$e = sprintf "%010d", nearest(5, $f*10);
@@ -18,7 +18,7 @@ while (<>) {
 	$key = "$zt|$e";
 
     $r = $spot{$key} ||= {};
-	$s = $r->{"$c|$m"} ||= {};
+	$s = $r->{$c} ||= {};
 	my ($sec,$min,$hour) = gmtime $gts;
 	$s->{$sk} = sprintf "%-.3s %4d %.1f %02d:%02d:%02d", $md, $str, $f, $hour, $min, $sec;
 	
-- 
2.34.1