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

Allow additional characters in bean-query queries.

Browse source 
These additional characters often appear in queries.

Allow them.
This commit is contained in:
Bradley M. Kuhn 2020-06-15 21:29:04 -07:00
parent a21a35d656
commit 975cceeaab
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;
sleep 2;
next;
} elsif ($query{question} !~ /^[\-\@\w.\s\"\'\_\(\)]+$/) {
} elsif ($query{question} !~ /^[\,\=\~\-\@\w.\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");