eed0db7897
The signatures feature has been "experimental" since Perl 5.20 (May 2014), but expected to stay. After 8 years I'm ready to take the risk :) Have added Perl v5.28 (June 2018) as the minimum requirement, even though the current revbank should work with 5.20, to see if this bothers any users. Perl v5.28 is in Debian "buster", which is now oldstable.
49 lines
1.2 KiB
Perl
49 lines
1.2 KiB
Perl
#!perl
|
|
|
|
my $filename = ".revbank.log";
|
|
|
|
sub _log {
|
|
open my $fh, '>>', $filename or warn "$filename: $!";
|
|
print $fh now(), " ", @_, "\n";
|
|
close $fh or warn "$filename: $!";
|
|
}
|
|
|
|
my %buffer;
|
|
sub hook_abort(@) {
|
|
_log("ABORT");
|
|
}
|
|
sub hook_prompt($class, $cart, $prompt, @) {
|
|
$buffer{prompt} = $prompt;
|
|
}
|
|
|
|
sub hook_input($class, $cart, $input, $split_input, @) {
|
|
$input //= "(UNDEF)";
|
|
_log("PROMPT $buffer{prompt} >> $input");
|
|
}
|
|
|
|
sub hook_reject($class, $plugin, $reason, $abort, @) {
|
|
_log("REJECT [$plugin] $reason");
|
|
}
|
|
|
|
sub hook_retry($class, $plugin, $reason, $abort, @) {
|
|
_log("RETRY [$plugin] $reason");
|
|
}
|
|
|
|
sub hook_user_created($class, $username, @) {
|
|
_log("NEWUSER $username");
|
|
}
|
|
|
|
sub hook_user_balance($class, $user, $old, $delta, $new, $transaction_id, @) {
|
|
my $lost = $delta < 0 ? "lost" : "got";
|
|
$delta = $delta->abs;
|
|
$_ = $_->string("+") for $old, $new;
|
|
_log("BALANCE $transaction_id $user had $old, $lost $delta, now has $new");
|
|
}
|
|
|
|
sub hook_checkout($class, $cart, $username, $transaction_id, @) {
|
|
_log("CHECKOUT $transaction_id $_") for map $_->as_loggable, $cart->entries;
|
|
}
|
|
|
|
sub hook_register($class, $plugin, @) {
|
|
_log("REGISTER $plugin");
|
|
}
|