projects
/
spider.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
e1c6972
)
slightly modified specially for ARC
author
minima
<minima>
Mon, 7 Nov 2005 23:28:17 +0000
(23:28 +0000)
committer
minima
<minima>
Mon, 7 Nov 2005 23:28:17 +0000
(23:28 +0000)
perl/Spot.pm
patch
|
blob
|
history
diff --git
a/perl/Spot.pm
b/perl/Spot.pm
index 95b7e902d8db2cf6f8f3aa9d5f455eed803674ea..727ab07a3969e50a882c8fbbaac042778c1f5988 100644
(file)
--- a/
perl/Spot.pm
+++ b/
perl/Spot.pm
@@
-346,15
+346,17
@@
sub dup
$text = "" if $cty == $try[0];
}
}
$text = "" if $cty == $try[0];
}
}
- $text = substr($text, 0, $duplth) if length $text > $duplth;
- $text =~ s/\s+$//;
my $otext = $text;
$text = pack("C*", map {$_ & 127} unpack("C*", $text));
my $otext = $text;
$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 =~ s/[^\w]//g;
+ $text = substr($text, 0, $duplth) if length $text > $duplth;
my $ldupkey = "X$freq|$call|$by|$text";
my $t = DXDupe::find($ldupkey);
return 1 if $t && $t - $main::systime > 0;
DXDupe::add($ldupkey, $main::systime+$dupage);
my $ldupkey = "X$freq|$call|$by|$text";
my $t = DXDupe::find($ldupkey);
return 1 if $t && $t - $main::systime > 0;
DXDupe::add($ldupkey, $main::systime+$dupage);
+ $otext = substr($otext, 0, $duplth) if length $otext > $duplth;
+ $otext =~ s/\s+$//;
if (length $otext && $otext ne $text) {
$ldupkey = "X$freq|$call|$by|$otext";
$t = DXDupe::find($ldupkey);
if (length $otext && $otext ne $text) {
$ldupkey = "X$freq|$call|$by|$otext";
$t = DXDupe::find($ldupkey);