#!/bin/sh
# a twitter client (uses curl with .netrc for auth)

[ "$1" = "-h" ] && {
 echo " use: $(basename $0) -h | [ tweet ]"
 echo "      -h help"
 echo "      no arguments gets latest updates"
 exit
}
 
friends() {
 curl --connect-timeout 5 -s -n $1 | awk '
  { sub(/^[^>]*>/,"",$0) }
  /text/ { sub(/<[^<]*>$/,"",$0); m=$0 }
  /created_at/ { sub(/<[^<]*>$/,"",$0); at="[" $2 " " $3 " " $4 "]" }
  /_name/ { sub(/<[^<]*>$/,"",$0); x[++i] = $0 " : " m " " at }
  END { for(j=i;j>0;j--) print x[j] } 
 '
}

update() {
 curl -s -n -d "status=$msg" $1 >/dev/null || echo "tweet broke"
}

[ -x /usr/bin/curl ] || {
 echo curl not found
 exit
}
if [ -t 0 ];then msg="$*";else msg="$(cat -)";fi
if [ "$msg" ];then
 update http://twitter.com/statuses/update.xml
else
 friends http://twitter.com/statuses/friends_timeline.xml
fi