Twitter

set rjrj "RJ Ayu live@Jakarta"
set nick "hun"
set argv "met malam jeeee @indonesia"
set chan "#Radio"
    regsub -nocase -all " " $argv "+" argv
#putserv "PRIVMSG $chan :$nick say: $argv+($rjnow)+$chan+#Pesan+#Greet"
    set args_msg "$nick+say:+$argv+($rjrj)+#IndoGaul+#Pesan+#Greet"
#putserv "PRIVMSG $chan :$args_msg"
    regsub -nocase -all "#" $args_msg "%23" twitsquery
    regsub -nocase -all "@" $twitsquery "\[@\]" twitsquery
    set twit(surl) "https://anginku.com/twitter/?isinya=$twitsquery"
    puts "$twit(surl)"
#putserv "PRIVMSG hun :$twit(surl)"
#http::config -useragent mozilla
#set urltok [http::geturl $twit(surl) -timeout 20000]
#set twit(rpage) [http::data $urltok]
#http::cleanup $urltok
#regexp -line -- {created_at(.*)+0000} $twit(rpage) -> twit(zip)
#puts "uploaded $twit(zip)"