projects
/
spider.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
5a3a431
)
fix LoTW spot prefixes in comment text
author
minima
<minima>
Sun, 22 Jan 2006 21:15:07 +0000
(21:15 +0000)
committer
minima
<minima>
Sun, 22 Jan 2006 21:15:07 +0000
(21:15 +0000)
Changes
patch
|
blob
|
history
perl/Spot.pm
patch
|
blob
|
history
diff --git
a/Changes
b/Changes
index e2c01571d9b393a14eb3e9978174725b63b8fc8b..37e64c1638183ad1bf7b7eb41a2bb0738ce8f9cf 100644
(file)
--- a/
Changes
+++ b/
Changes
@@
-1,3
+1,5
@@
+22Jan06=======================================================================
+1. Remove +<prefix> from the fronts of comments to fix LoTW dupes.
18Jan06=======================================================================
1. Fix spurious announce from previous year appearing in sh/ann.
15Jan06=======================================================================
18Jan06=======================================================================
1. Fix spurious announce from previous year appearing in sh/ann.
15Jan06=======================================================================
diff --git
a/perl/Spot.pm
b/perl/Spot.pm
index 5ea169f2f48021be9b6d37224feb32dc7737e63e..4d87be3723e2317d8b7d6718da37dd9bfb66ed55 100644
(file)
--- a/
perl/Spot.pm
+++ b/
perl/Spot.pm
@@
-407,6
+407,7
@@
sub dup
}
}
my $otext = $text;
}
}
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;
$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;