X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=cmd%2Fdx.pl;h=9454fd702d1f4b2843ef9aa4f931620f068e7142;hb=cbf3c0cd90df4c4df05dae6a00d03f7f9482d631;hp=02fc3ca448604706d3ecd06996027faf155bfe24;hpb=dab8b370e48c980fa354dedd17d5a0c75b481862;p=spider.git diff --git a/cmd/dx.pl b/cmd/dx.pl index 02fc3ca4..9454fd70 100644 --- a/cmd/dx.pl +++ b/cmd/dx.pl @@ -22,8 +22,8 @@ return (1, $self->msg('e28')) unless $self->registered; my @bad; if (@bad = BadWords::check($line)) { $self->badcount(($self->badcount||0) + @bad); - Log('DXCommand', "$self->{call} swore: $line"); - $localonly++; + LogDbg('DXCommand', "$self->{call} swore: $line (with words:" . join(',', @bad) . ")"); + $localonly++; } # do we have at least two args? @@ -53,6 +53,24 @@ if (is_freq($f[1]) && $f[0] =~ m{^[\w\d]+(?:/[\w\d]+){0,2}$}) { return (1, $self->msg('dx3')); } +# check some other things +# remove ssid from calls +my $callnoid = $self->call; +$callnoid =~ s/-\d+$//; +my $spotternoid = $spotter; +$spotternoid =~ s/-\d+$//; +if ($DXProt::baddx->in($spotted)) { + $localonly++; +} +if ($DXProt::badspotter->in($callnoid)) { + LogDbg('DXCommand', "$self->{call} badspotter with $callnoid ($line)"); + $localonly++; +} +if ($callnoid ne $spotternoid && $DXProt::badspotter->in($spotternoid)) { + LogDbg('DXCommand', "$self->{call} badspotter with $spotternoid ($line)"); + $localonly++; +} + # make line the rest of the line $line = $f[2] || " "; @f = split /\s+/, $line; @@ -107,7 +125,7 @@ my $t = (int ($main::systime/60)) * 60; return (1, $self->msg('dup')) if Spot::dup($freq, $spotted, $t, $line, $spotter); my @spot = Spot::prepare($freq, $spotted, $t, $line, $spotter, $main::mycall); -if ($DXProt::baddx->in($spotted) || $freq =~ /^69/ || $localonly) { +if ($freq =~ /^69/ || $localonly) { # heaven forfend that we get a 69Mhz band :-) if ($freq =~ /^69/) {