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]}}