rendered paste body#!/usr/local/plan9/bin/rcfiles=()name=''desc=''type='1'pastebin_url='http://pastebin.ca/quiet-paste.php?api=WS%2FgVJ6XqjpyPRLq7ruN%2F%2Bc4%2B2Il9aZj'while(! ~ $#* 0) { #" switch($1) { case -n name=$2; shift case -d description=$2; shift case -t type=$2; shift case * files=($files $opt) } shift}cat $files | curl -L -i \ -H 'Expect:' \ -F 'type='$type \ -F 'name='$name \ -F 'description='$desc \ -F 'submit=Submit Paste' \ -F 'content=<-' \ $pastebin_url >[2]/dev/null \ | awk -F : '/^SUCCESS:/ { print $2 }'