rc/bin/webpaste

   1 #!/bin/rc
   2 if(~ $#* 0)
   3         file=/fd/0
   4 if not
   5         file=$1
   6 hpost -u http://okturing.com -p / a_body@$file submit:submit fake:fake a_func:add_post url: |
   7 grep -e '\/body\"' |
   8 sed 1q | sed 's/^.*href=\"//g; s/body\".*$/body/g'