add missing Filter.pm mod
authorDirk Koopman <djk@tobit.co.uk>
Mon, 6 Apr 2020 20:17:25 +0000 (21:17 +0100)
committerDirk Koopman <djk@tobit.co.uk>
Mon, 6 Apr 2020 20:17:25 +0000 (21:17 +0100)
perl/Filter.pm

index c53f9641433f0cf81b6210014019222cb838694c..a83a5217ec86678014c42b0cffd7020305944052 100644 (file)
@@ -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