diff --git a/bean-query-goofy-daemon.plx b/bean-query-goofy-daemon.plx index f2fa73f..b1e8593 100755 --- a/bean-query-goofy-daemon.plx +++ b/bean-query-goofy-daemon.plx @@ -184,7 +184,8 @@ while (1) { print STDERR "sleep for 2 seconds\n" if $VERBOSE > 5; sleep 2; next; - } elsif ($query{question} !~ /^[\,\=\~\-\@\w.\s\"\'\_\(\)\<\>\*\.\!]+$/) { +# } elsif ($query{question} !~ /^[\,\=\~\-\@\w.\s\"\'\_\(\)\<\>\*\.\!\^\:\$\|]+$/) { + } elsif ($query{question} !~ /^[\s\S]+$/) { print STDERR "Query string $query{question} looks suspicious, not running beancount query!\n"; (tied %query)->shlock; $query{fifoName} = mktemp("REJECTED_beancount-query-fifo-this-file-does-not-exist_${$}_XXXXXXXXX");