A hook for beeping.

plugins/beep_terminal

@@ -0,0 +1,14 @@
+#!perl
+
+sub command { NEXT }
+
+# So you want a different beep mechanism...
+#
+# Don't just edit this plugin. Instead, COPY this file and add yours to
+# revbank.plugins
+
+sub hook_beep {
+    my ($class) = @_;
+
+    print "\a";
+}

plugins/idle

@@ -7,7 +7,7 @@ sub command { NEXT }
 sub hook_prompt_idle {
     my ($class, $cart, $plugin, $seconds, $readline) = @_;
     if ($seconds >= $timeout and $cart->size and not $plugin) {
-        $readline->ding;
+        call_hooks("beep");
 
         return if $seconds > $timeout;  # text only once
 

revbank.plugins

@@ -10,10 +10,13 @@ idle
 undo
 give
 take
-nyan      # fun, but not compatible with dumb terminals
-pfand     # makes little sense in a self service environment
+nyan       # fun, but not compatible with dumb terminals
+pfand      # makes little sense in a self service environment
 stock
 
+beep_terminal
+
+
 # Then, plugins that apply heuristics
 
 products   # matches product IDs (barcodes)