#!/bin/rc

# "echo your message here | tweet" or "tweet your message here"
# Set twitterapi to eg http://identi.ca/api to use another service.

# Josh Wood has a much elaborated version, and a reading script, at
# 	http://labs.utopian.net/who/josh/plan9/microbe/
#	/n/sources/contrib/josh/rc/mb
# Use that one instead.

rfork e

if (~ $twitterapi '')
	twitterapi=http://twitter.com

if (~ $#* 0)
	msg=`{read}
if not
	msg=$"*

hget -p 'source=hget&status='^$"msg $twitterapi^/statuses/update.json >/dev/null