da043ba2df
If you computer beeps, that is. Most revbank setups run on raspberry pi's, which don't beep...
17 lines
315 B
Perl
17 lines
315 B
Perl
#!perl
|
|
|
|
sub command { NEXT }
|
|
|
|
*hook_plugin_fail = *hook_retry = *hook_reject = *hook_invalid_input = sub {
|
|
call_hooks('beep');
|
|
undef;
|
|
};
|
|
|
|
sub hook_abort {
|
|
my ($self, $cart, $reason) = @_;
|
|
return if not $reason or not @$reason;
|
|
return if "@$reason" eq '^C';
|
|
|
|
call_hooks('beep');
|
|
undef;
|
|
}
|