Server response takes long - 03/03/15 11:10 PM
Hi, i was doodling around with an alias that creates a click to tweet link, and although it does work, it takes up to 15 seconds for me to receive a response from the server. So i was wondering if anyone notices anything wrong/missing from my script that causes that
If you see anything off (apart from my easymode sockread event) please let me know!
Code:
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)))
If you see anything off (apart from my easymode sockread event) please let me know!