From 72a13d681ce2472bd4e036676ed89c0c91342eaf Mon Sep 17 00:00:00 2001 From: minima Date: Sun, 22 Jan 2006 21:15:07 +0000 Subject: [PATCH] fix LoTW spot prefixes in comment text --- Changes | 2 ++ perl/Spot.pm | 1 + 2 files changed, 3 insertions(+) diff --git a/Changes b/Changes index e2c01571..37e64c16 100644 --- a/Changes +++ b/Changes @@ -1,3 +1,5 @@ +22Jan06======================================================================= +1. Remove + from the fronts of comments to fix LoTW dupes. 18Jan06======================================================================= 1. Fix spurious announce from previous year appearing in sh/ann. 15Jan06======================================================================= diff --git a/perl/Spot.pm b/perl/Spot.pm index 5ea169f2..4d87be37 100644 --- a/perl/Spot.pm +++ b/perl/Spot.pm @@ -407,6 +407,7 @@ sub dup } } my $otext = $text; + $text =~ s/^\+\w+\s*//; # remove leading LoTW callsign $text = pack("C*", map {$_ & 127} unpack("C*", $text)); $text =~ s/\s{2,}[\dA-Z]?[A-Z]\d?$// if length $text > 24; $text =~ s/[^\w]//g; -- 2.43.0