From 43501201c3c3d2b84046e70f05d15b5c804cc3df Mon Sep 17 00:00:00 2001
From: Wouter <wouter@xesxen.nl>
Date: Sun, 12 May 2019 14:47:45 +0200
Subject: [PATCH] Add EPC QR deposit method

---
 plugins/deposit_epc_qr | 37 +++++++++++++++++++++++++++++++++++++
 1 file changed, 37 insertions(+)
 create mode 100644 plugins/deposit_epc_qr

diff --git a/plugins/deposit_epc_qr b/plugins/deposit_epc_qr
new file mode 100644
index 0000000..8fc1766
--- /dev/null
+++ b/plugins/deposit_epc_qr
@@ -0,0 +1,37 @@
+#!perl
+
+use Term::QRCode;
+use List::Util qw(sum);
+
+sub command { NEXT }
+
+sub hook_deposit_methods {
+    my ($class, $message, $hash) = @_;
+
+    $$message=~s/('iban'.*)$/$1\n'mobile':    IBAN transfer via an EPC QR code\n             Note: Only ING and Bunq support this method in the NL currently./gm;
+
+    $hash->{mobile} = { description => "Deposit (IBAN transfer using QR)"};
+}
+
+sub hook_checkout {
+    my ($class, $cart, $user, $transaction_id) = @_;
+
+    my @items = $cart->select_items("is_deposit");
+
+    my $amount = sum map $_->{amount}, grep $_->{method} eq "mobile", @items;
+
+    if (defined $amount && $amount > 0) {
+        print "Here's your EPC QR code:\n";
+        print Term::QRCode->new->plot(join(
+            "\n",
+            "BCD", "001", 1, "SCT",
+            "BANKCC01",           # Change this to your bank's BIC number
+            "Your Hackerspace",   # Account name
+            "NL12ABCD1234567890", # IBAN Number
+            "EUR" . $amount,      # Amount
+            "CHAR", "",
+            "deposit $user (T: $transaction_id)", # Description
+            "",
+        )) . "\n";
+    }
+}