NPO-Accounting/beancount-tools-in-Perl
6
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Allow additional characters that often appear in queries.

Browse source
This commit is contained in:
Bradley M. Kuhn 2020-08-09 21:02:46 -07:00
parent 02a2fcbbc9
commit 744ad08644
No known key found for this signature in database
GPG key ID: F15E8BD6D05E26B3
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
bean-query-goofy-daemon.plx
View file

@ -84,7 +84,7 @@ while (1) {
print STDERR "sleep for 2 seconds\n" if $VERBOSE > 2; print STDERR "sleep for 2 seconds\n" if $VERBOSE > 2;
sleep 2; sleep 2;
next; next;
} elsif ($query{question} !~ /^[\,\=\~\-\@\w.\s\"\'\_\(\)]+$/) { } elsif ($query{question} !~ /^[\,\=\~\-\@\w.\s\"\'\_\(\)\<\>\*\.\!]+$/) {
print STDERR "Query string $query{question} looks suspicious, not running beancount query!\n"; print STDERR "Query string $query{question} looks suspicious, not running beancount query!\n";
(tied %query)->shlock; (tied %query)->shlock;
$query{fifoName} = mktemp("REJECTED_beancount-query-fifo-this-file-does-not-exist_${$}_XXXXXXXXX"); $query{fifoName} = mktemp("REJECTED_beancount-query-fifo-this-file-does-not-exist_${$}_XXXXXXXXX");