hamradio/spider
1
0
Fork 0
mirror of git://scm.dxcluster.org/scm/spider synced 2024-09-21 07:47:10 +00:00
Code Issues Packages Projects Releases Wiki Activity

added better anti spot-sucking

Browse Source
This commit is contained in:
minima 2005-02-27 15:19:32 +00:00
parent 331ae9a34d
commit d021961429
2 changed files with 26 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
Changes
View File

@ -1,3 +1,6 @@
27Feb05=======================================================================
1. fix duping on bad spot suckers that copy the prefix that is put at the end
of the comment section by AR-C nodes becoming the whole comment.
26Feb05=======================================================================
1. Added show/grayline command from Steve K9AN. This is also aliased to
show/greyline :-)

27
perl/Spot.pm
View File

@ -333,13 +333,32 @@ sub dup
chomp $text;
$text =~ s/\%([0-9A-F][0-9A-F])/chr(hex($1))/eg;
$text = unpad($text);
$text = uc unpad($text);
$text = substr($text, 0, $duplth) if length $text > $duplth;
$text = pack("C*", map {$_ & 127} unpack("C*", $text));
$text =~ s/[^a-zA-Z0-9]//g;
my $ldupkey = "X$freq|$call|$by" . uc $text;
my $ldupkey = "X$freq|$call|$by|";
my $t = DXDupe::find($ldupkey);
return 1 if $t && $t - $main::systime > 0;
if ($t && $t - $main::systime > 0) {
my ($prefix) = $text = /\b(\w{1,4})$/;
if ($prefix) {
my @ans = Prefix::extract($prefix);
if (@ans) {
# if we find a prefix then chop it off
# the end of the string and then look for
# a spot with that text. If we find it then
# it has be sucked from an AR-C node and is
# a dupe.
my $txt = $text;
$txt =~ s/\b\w{1,4}$//;
$txt =~ s/[^A-Z0-9]//g;
$t = DXDupe::find($ldupkey . $txt);
return 1 if $t && $t - $main::systime > 0;
}
}
}
$text =~ s/[^A-Z0-9]//g;
$ldupkey .= $text;
DXDupe::add($ldupkey, $main::systime+$dupage);
# my $sdupkey = "X$freq|$call|$by";
# $t = DXDupe::find($sdupkey);