wm: infra

ref: 6805d7c1a57627cf0b44196182953c79cb06f6ba
dir: /plan9/pasted/

View raw version 
#!/bin/rc
# wm/pasted path
# a simple pastebin, use with aux/listen
if(! ~ $#* 1) {
	echo 'usage: wm/pasted user' >[1=2]
	exit usage
}

# not to override files
fn genrand {
	dir = $1
	rand = `{dd -quiet 1 -if /dev/random -bs 1 -count 2 | xd -1 | awk '{$1=""; print $0}' | tr -d ' '}
	if(test -e $dir/$rand){
		genrand
	}
}

genrand $1
echo $rand
read -m -c `{echo '1024 * 1024 * 10'| bc} > $dir/$rand