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

Bitlair changes

Browse source
This commit is contained in:
polyfloyd 2022-06-12 21:36:56 +02:00
parent 3600e2b6db
commit fc410035ca
13 changed files with 133 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lib/RevBank/Messages.pm
View file

@ -72,7 +72,7 @@ sub hook_account_balance($class, $account, $old, $delta, $new, @) {
my $sign = $delta->cents >= 0 ? '+' : '-';
my $rood = $new->cents < 0 ? '31;' : '';
my $abs = $delta->abs;
my $warn = $new->cents < -2300 ? " \e[5;1m(!!)\e[0m" : "";
my $warn = $new->cents < -1337 ? " \e[5;1m(!!)\e[0m" : "";
$_ = $_->string("+") for $old, $new;
printf "New balance for $account: $old $sign $abs = \e[${rood}1m$new\e[0m$warn\n",