X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=cmd%2Fdx.pl;h=3f366dffb20f82ef5bb508c370b55f836066ce9e;hb=1566a1eefdf276e28698fc0e94b1cf3113fc25d5;hp=2ea40672ad044dbb8b3e7a468b0d4090f9516a5e;hpb=f8e8ba13693b1a7685601f1847cb8e6493604ed9;p=spider.git diff --git a/cmd/dx.pl b/cmd/dx.pl index 2ea40672..3f366dff 100644 --- a/cmd/dx.pl +++ b/cmd/dx.pl @@ -15,6 +15,7 @@ my $spotted; my $freq; my @out; my $valid = 0; +return (1, $self->msg('e5')) if $self->remotecmd; # do we have at least two args? return (1, $self->msg('dx2')) unless @f >= 2; @@ -92,8 +93,10 @@ if ($spotted le ' ') { return (1, @out) unless $valid; -# change ^ into : for transmission -$line =~ s/\^/:/og; +my @bad; +if (@bad = BadWords::check($line)) { + return (1, $self->msg('e17', @bad)); +} # Store it here (but only if it isn't baddx) if (grep $_ eq $spotted, @DXProt::baddx) {