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

Recent transactions for user

Browse source
This commit is contained in:
Juerd Waalboer 2015-09-20 00:13:37 +02:00
parent 340bebf0d8
commit 4b433a15aa
1 changed files with 8 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
plugins/users
View file

@ -42,8 +42,16 @@ sub shame {
return ACCEPT;
}
sub recent {
my ($n, $u) = @_;
$n += 0;
print "Last $n transactions for $u:\n";
system "perl -lane'lc(\$F[3]) eq lc('\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 {
my ($self, $u) = @_;
recent(10, $u);
printf "Balance for $u is \e[1m%+.2f\e[0m\n", RevBank::Users::balance($u);
say "NB: Products/amounts/commands FIRST, username LAST.";
return ABORT;