From 51c83c8532cbc2ef5164fc61f7be00eadf7ac6d4 Mon Sep 17 00:00:00 2001
From: tv <tv@also>
Date: Tue, 13 Apr 2010 21:00:33 +0200
Subject: Initial commit: anonbox, kvutils

---
 anonbox/anonbox.sh | 45 +++++++++++++++++++++++++++++++++++++++++++++
 kvutils/kv2csv     |  5 +++++
 kvutils/kv2sh      |  3 +++
 3 files changed, 53 insertions(+)
 create mode 100755 anonbox/anonbox.sh
 create mode 100755 kvutils/kv2csv
 create mode 100755 kvutils/kv2sh

diff --git a/anonbox/anonbox.sh b/anonbox/anonbox.sh
new file mode 100755
index 00000000..db35a5b4
--- /dev/null
+++ b/anonbox/anonbox.sh
@@ -0,0 +1,45 @@
+#! /bin/bash
+#### anonbox.net - anonbox account creator
+set -euf
+
+## 
+script_begin_date="`date --rfc-3339=ns`"
+
+##
+GET() {
+  wget --quiet --no-check-certificate -O- https://anonbox.net/en/
+}
+
+## retrieve data
+eval "$(${GET-GET} |
+  sed -rn '
+s^<dd><p>([[:alnum:]@.]+)</p></dd>$\
+      email="\1" ; p
+s^<dd><p><a href="([^"\\]+)">.*</a></p></dd>$\
+      uri="\1" ; p
+s^<dd><p>([0-9]+)/([0-9]+)/([0-9]+) ([0-9]+):([0-9]+) ([ap]).m.</p></dd>$\
+      Y=20\3 ; \
+      m=\1 ; \
+      d=\2 ; \
+      H=\4 ; \
+      M=\5 ; \
+      p=\6 ; p')"
+
+## make best-before-date RFC-3339-(seconds)-conform
+case "$p" in
+  p) H="`echo $H+12 | bc`" ;;
+esac
+s=00
+z=+02:00
+best_before="$Y-$m-$d $H:$M$z"
+
+##
+script_end_date="`date --rfc-3339=ns`"
+
+##
+for key in email uri best_before script_begin_date script_end_date ; do
+  eval "val=\"\$$key\""
+  echo "$key	$val"
+done
+
+#### end of file.
diff --git a/kvutils/kv2csv b/kvutils/kv2csv
new file mode 100755
index 00000000..f075229c
--- /dev/null
+++ b/kvutils/kv2csv
@@ -0,0 +1,5 @@
+#! /bin/sh
+set -euf
+kv="`cat`"
+echo "$kv" | cut -f 1 | tr '\n' , | sed 's/,$//' ; echo
+echo "$kv" | cut -f 2 | tr '\n' , | sed 's/,$//' ; echo
diff --git a/kvutils/kv2sh b/kvutils/kv2sh
new file mode 100755
index 00000000..be6fc85a
--- /dev/null
+++ b/kvutils/kv2sh
@@ -0,0 +1,3 @@
+#! /bin/sh
+# TODO escape and ensure correct sh syntax
+sed -r 's/\t/="/;s/$/"/'
-- 
cgit v1.2.3