X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FFilter.pm;h=a83a5217ec86678014c42b0cffd7020305944052;hb=0fba6dbd0d0d9081ca1311183791cf241e621d3c;hp=c53f9641433f0cf81b6210014019222cb838694c;hpb=fc8ec20708a70b6297d3c8b8c35b1086c6018cbb;p=spider.git diff --git a/perl/Filter.pm b/perl/Filter.pm index c53f9641..a83a5217 100644 --- a/perl/Filter.pm +++ b/perl/Filter.pm @@ -373,6 +373,7 @@ sub parse my $user; # check the line for non legal characters + return ('ill', $dxchan->msg('e19')) if $dxchan->priv < 8 and $line =~ /{.*}/; return ('ill', $dxchan->msg('e19')) if $line !~ /{.*}/ && $line =~ /[^\s\w,_\-\*\/\(\)!]/; # add some spaces for ease of parsing