Plan 9 from Bell Labs’s /usr/web/sources/contrib/fgb/rc/sprunge

Copyright © 2009 Alcatel-Lucent.
Distributed under the Lucent Public License version 1.02.
Download the Plan 9 distribution.


#!/bin/rc

fn encode {
	tr '
' 
 |
	sed 's/%/%25/g
		s/ /%20/g
		s/	/%09/g
		s/
/%0a/g
		s/!/%21/g
		s/"/%22/g
		s/#/%23/g
		s/\$/%24/g
		s/\&/%26/g
		s/''/%27/g
		s/\(/%28/g
		s/\)/%29/g
		s/\*/%2a/g
		s/\+/%2b/g
		s/,/%2c/g
		s/-/%2d/g
		s/\./%2e/g
		s/\//%2f/g
		s/:/%3a/g
		s/;/%3b/g
		s//%3e/g
		s/\?/%3f/g
		s/@/%40/g
		s/\[/%5b/g
		s/\\/%5c/g
		s/\]/%5d/g
		s/\^/%5e/g
		s/_/%5f/g
		s/`/%60/g
		s/{/%7b/g
		s/\|/%7c/g
		s/}/%7d/g
		s/~/%7e/g
		s/ //g'
}

post=`{cat $1|encode} &&
exec hget -p 'sprunge='^$"post http://sprunge.us

Bell Labs OSI certified Powered by Plan 9

(Return to Plan 9 Home Page)

Copyright © 2009 Alcatel-Lucent. All Rights Reserved.
Comments to webmaster@plan9.bell-labs.com.