From 4d9ce0fb3cb85fe5d41826d29c2fdebbacfe56db Mon Sep 17 00:00:00 2001
From: stanley lieber <stanley.lieber@gmail.com>
Date: Wed, 18 Sep 2013 15:03:50 -0400
Subject: [PATCH] add /rc/bin/ok, tool for okturing.com pastebin

---
 rc/bin/ok      |  8 ++++++++
 sys/man/1/hget | 28 +++++++++++++++++++++++++---
 2 files changed, 33 insertions(+), 3 deletions(-)
 create mode 100755 rc/bin/ok

diff --git a/rc/bin/ok b/rc/bin/ok
new file mode 100755
index 000000000..c12835cc6
--- /dev/null
+++ b/rc/bin/ok
@@ -0,0 +1,8 @@
+#!/bin/rc
+if(~ $#* 0)
+	file=/fd/0
+if not
+	file=$1
+hpost -u http://okturing.com -p / a_body@$file submit:submit fake:fake a_func:add_post url: |
+grep -e '\/body\"' |
+sed 1q | sed 's/^.*href=\"//g; s/body\".*$/body/g; s/^/http:\/\/okturing.com/g'
diff --git a/sys/man/1/hget b/sys/man/1/hget
index 115cfd1e1..f88c57e93 100644
--- a/sys/man/1/hget
+++ b/sys/man/1/hget
@@ -1,6 +1,6 @@
 .TH HGET 1
 .SH NAME
-hget, hpost, urlencode \- retrieve, post to a web page corresponding to a url
+hget, hpost, ok, urlencode \- retrieve, post to a web page corresponding to a url
 .SH SYNOPSIS
 .B hget
 [
@@ -48,6 +48,9 @@ hget, hpost, urlencode \- retrieve, post to a web page corresponding to a url
 ]
 .I ...
 .PP
+.B ok
+.I file
+.PP
 .B urlencode
 [
 .B -d
@@ -175,6 +178,13 @@ flag), the file has to be seekable as
 .IR file (1)
 is invoked to determine its mime type.
 .PP
+.I Ok
+uploads the contents either of its standard input or
+.I file
+to the pastebin website
+.B http://okturing.com
+and then prints a URL where the contents may be retrieved.
+.PP
 .I Urlencode
 is a helper program to URL encode and decode files. The
 .B -d
@@ -209,20 +219,32 @@ Upload a file, print the resulting URL
 .EX
 % hpost -l http://i.intma.in file@/tmp/screen.png | rc
 .EE
+.PP
+Upload the output of
+.IR ns (1)
+to
+.B http://okturing.com
+.IP
+.EX
+% ns | ok
+.EE
 .SH SOURCE
 .B /rc/bin/hget
 .br
 .B /rc/bin/hpost
 .br
+.B /rc/bin/ok
+.br
 .B /sys/src/cmd/urlencode.c
 .SH "SEE ALSO"
 .IR webfs (4),
 .IR ftpfs (4),
 .IR file (1)
 .SH DIAGNOSTICS
-.I Hget
-and
+.I Hget ,
 .I hpost
+and
+.I ok
 require
 .IR webfs (4)
 service mounted on