From da043ba2dff002fc5c8c9af013de890492643470 Mon Sep 17 00:00:00 2001
From: Juerd Waalboer <juerd@tnx.nl>
Date: Fri, 8 Nov 2019 03:29:40 +0100
Subject: [PATCH] New plugin: beep on error

If you computer beeps, that is. Most revbank setups run on raspberry pi's,
which don't beep...
---
 plugins/beep    | 17 +++++++++++++++++
 revbank         |  2 +-
 revbank.plugins |  1 +
 3 files changed, 19 insertions(+), 1 deletion(-)
 create mode 100644 plugins/beep

diff --git a/plugins/beep b/plugins/beep
new file mode 100644
index 0000000..ce3da5c
--- /dev/null
+++ b/plugins/beep
@@ -0,0 +1,17 @@
+#!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;
+}
diff --git a/revbank b/revbank
index c47b4f1..2def6d3 100755
--- a/revbank
+++ b/revbank
@@ -139,7 +139,7 @@ OUTER: for (;;) {
         print @_, " " if @_;
         @words = ();
         @retry = ();
-        call_hooks "abort", $cart;
+        call_hooks "abort", $cart, \@_;
         $cart->empty;
         { no warnings; redo OUTER; }
     }
diff --git a/revbank.plugins b/revbank.plugins
index f0a5c1d..84e83d7 100644
--- a/revbank.plugins
+++ b/revbank.plugins
@@ -3,6 +3,7 @@
 # First, plugins with no commands, or very specific commands
 
 log        # first, so that the registrations of other plugins are logged
+beep
 sigint
 restart
 help