From: Dirk Koopman <djk@tobit.co.uk>
Date: Thu, 23 Jul 2020 12:20:04 +0000 (+0100)
Subject: chnage skimmeranalysis a bit
X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=2f2a82ae96d34591bc70cd6ee49c200695cc92d5;p=spider.git

chnage skimmeranalysis a bit
---

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;