From 946f03bb0e69f9de042aedab5362278227b88b93 Mon Sep 17 00:00:00 2001
From: Johannes Löthberg <johannes@kyriasis.com>
Date: Sat, 16 May 2015 01:10:03 +0200
Subject: add sprunc, netcat sprunge client

Written in POSIX sh
---
 sprunc | 15 +++++++++++++++
 1 file changed, 15 insertions(+)
 create mode 100755 sprunc

diff --git a/sprunc b/sprunc
new file mode 100755
index 0000000..5e59bcf
--- /dev/null
+++ b/sprunc
@@ -0,0 +1,15 @@
+#!/usr/bin/busybox sh
+
+stdin=$(cat /dev/stdin)
+uuenc=$(perl -MURI::Escape -e 'print uri_escape($ARGV[0]);' "$stdin")
+
+content_length=$(( ${#uuenc} + $(expr length "sprunge=") ))
+
+/usr/bin/nc sprunge.us 80 <<EOF | awk '/17/{getline; print}'
+POST / HTTP/1.1
+Host:sprunge.us
+Content-Type:application/x-www-form-urlencoded
+Content-Length:$content_length
+
+sprunge=$uuenc
+EOF
-- 
cgit v1.2.3-70-g09d2