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 [last [regexp -inline {elimit": (.+?),} $re]] seconds"} {. http://reddit.com/api/info?id=[last [regexp -inline {fullname.+?"(.+?)\\} $re]]}}