Evaluated proc rpost {tid text} {set re [http post http://www.reddit.com/api/comment "api_type=json&text=$text&thing_id=$tid&uh=[modhash]&reddit_session=[rcookie]" "Cookie reddit_session=[urlencode [rcookie]];Domain=www.reddit.com;Path=/;"]; if {regexp "doing that too much" $re} {. try again in a while} {. [regexp -inline {fullname.+?"(.+?)"} $re]}}