alias newTweet {
set %tweetmsg tweet= $+ $urlencode($1-) $+ &submit=Generate+New+Link
sockclose newTweet
sockopen -e newTweet clicktotweet.com 443
}
on *:sockopen:newTweet:{
if ($sockerr) { return }
sockwrite -n $sockname POST /link/basicSubmit? $+ %tweetmsg HTTP/1.1
sockwrite -n $sockname Host: clicktotweet.com
sockwrite -n $sockname Content-Length: $len(%tweetmsg)
sockwrite -n $sockname Connection: close
sockwrite -n $sockname $crlf
}
on *:sockread:newTweet:{
var %tweetread
sockread -f %tweetread
write tweetread.txt %tweetread
}
on *:sockclose:newTweet:{
var %tweetID = $remove($read(tweetread.txt,9),location: /basic/)
echo -s Acquired response from server: www.clicktotweet.com/ $+ %tweetID
unset %tweetmsg
remove tweetread.txt
}
alias UrlEncode return $regsubex($1-,/([^\d\w])/g,$+(%,$base($asc(\t),10,16)))