form submit for IBAN Assignments

[confetti] / ledgers / iban_assign.sh

diff --git a/ledgers/iban_assign.sh b/ledgers/iban_assign.sh
new file mode 100755 (executable)
index 0000000..cabeae7
--- /dev/null
+++ b/ledgers/iban_assign.sh
@@ -0,0 +1,28 @@
+#!/bin/sh
+
+printf '%s\r\n' "Content-Type: text/plain" ""
+
+for key in $(POST_KEYS); do case $key in
+  use_*)
+    use_iban="${use_iban} ${key#use_} "
+    ;;
+esac; done
+echo Use IBANS:
+echo "$use_iban"
+echo
+
+[ "$use_iban" ] && for key in $(POST_KEYS); do case $key in
+  check_*_*)
+    iban="${key#check_}" iban="${iban%_*}"
+    [ ! "${use_iban##* "${iban}" *}" ] && check="${check} ${key#check_} "
+    ;;
+esac; done
+echo Checked:
+echo "$check"
+echo
+
+for use in $check; do
+  iban="${use%_*}"
+  fn="$(POST "fn_${use}")"
+  echo Assign $iban to $fn
+done