From 0ca37f34d8633095e971049d76f7aaf3d34f76b1 Mon Sep 17 00:00:00 2001
From: Juerd Waalboer <juerd@tnx.nl>
Date: Mon, 24 Apr 2017 21:47:39 +0200
Subject: [PATCH] Plugin for funding cooking supplies

Has been in use at revspace for quite a while now.
---
 plugins/dinnerbonus | 30 ++++++++++++++++++++++++++++++
 1 file changed, 30 insertions(+)
 create mode 100644 plugins/dinnerbonus

diff --git a/plugins/dinnerbonus b/plugins/dinnerbonus
new file mode 100644
index 0000000..7c2981d
--- /dev/null
+++ b/plugins/dinnerbonus
@@ -0,0 +1,30 @@
+#!perl
+
+HELP "dinnerbonus" => "Add fee for cooking supplies";
+
+sub command :Tab(kookbonus,dinnerbonus) {
+    my ($self, $cart, $command) = @_;
+
+    my $bonus = 1.00;
+
+    $command eq 'kookbonus' or $command eq 'dinnerbonus'
+        or return NEXT;
+
+    my @users = grep !/^\$you$/, map $_->{user}, $cart->select_items
+        or return REJECT, "$command requires a pending transaction.";
+
+    for my $user (@users) {
+        $cart->add( $user, -$bonus, "Kookbonus by \$you" );
+    }
+
+    my $users = join '/', @users;
+
+    $cart->add(
+        "kookpotje",
+        scalar @users * $bonus,
+        "Kookbonus from $users by \$you"
+    );
+
+    return ACCEPT;
+}
+