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

nomoney: add logging

Browse source
This commit is contained in:
Juerd Waalboer 2024-11-18 23:08:26 +01:00
parent bfb2d712e7
commit fab19ba6d0
2 changed files with 16 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

20
plugins/nomoney
View file

@ -22,23 +22,33 @@ sub _inform($unresolved, $username, $skip_print = 0) {
call_hooks("beep");
say "Not possible:";
for my $entry ($unresolved->entries) {
unless ($skip_print) {
my @printable = $entry->as_printable;
print $printable[0], "\n";
my $line = ($entry->as_printable)[0];
say $line;
$line =~ s/^\s+//;
call_hooks("log_info", "nomoney: $line");
}
my $broke_users = $entry->attribute('nomoney_users');
for my $account (sort keys %$broke_users) {
my $balance = RevBank::Users::balance($account);
printf(
"\e[31;1m%s have %s.\e[m (balance: %s)\n",
my $m = sprintf(
"%s have %s",
($account eq $username ? "You don't" : "$account doesn't"),
abs($broke_users->{$account}),
);
my $b = sprintf(
"(balance: %s)",
($balance < 0 ? "\e[31;1m$balance\e[m" : $balance),
);
say "\e[31;1m$m\e[m $b";
call_hooks("log_info", "nomoney: $m $b");
}
}
}

2
revbank
View file

@ -17,7 +17,7 @@ use RevBank::Messages;
use RevBank::Cart;
use RevBank::Prompt;
our $VERSION = "7.1.0";
our $VERSION = "7.2.0";
our %HELP1 = (
"abort" => "Abort the current transaction",