bitlair/revbank
6
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix over-escaping in recent transactions

Browse source 
Recently a bug was fixed by escaping input, but that escaping only does the
right thing in double quotes (qq).
This commit is contained in:
Juerd Waalboer 2015-11-04 21:12:04 +01:00
parent 863e4f6e91
commit 5a10c8f8a2
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
plugins/users
View file

@ -46,7 +46,7 @@ sub recent {
my ($n, $u) = @_;
$n += 0;
print "Last $n transactions for $u:\n";
system "perl -lane'lc(\$F[3]) eq lc(q[\Q$u\E]) or next; s/CHECKOUT\\s+\\S+\\s+\\S+\\s+// or next; s/ #// or next; s/_/ /; print' .revbank.log | tail -n$n";
system "perl -lane'lc(\$F[3]) eq lc(qq[\Q$u\E]) or next; s/CHECKOUT\\s+\\S+\\s+\\S+\\s+// or next; s/ #// or next; s/_/ /; print' .revbank.log | tail -n$n";
}
sub balance {