X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2Fskimmeranaylsis.pl;h=cf4b0c0cfd9f3ada8d2ca0b856a36d75b9c362e2;hb=f7488b0c0a9871ba59af2fbacaf34cd520d88802;hp=b070476594f7c070fa199a0b676433a0420fd865;hpb=4eb47d73bc2221bde7a1dd761cef99e84b0bb388;p=spider.git

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;