Evaluated proc rmodhash {{user dongforce} {passwd l0l0l0l}} {set ::modhash [last [regexp -inline {modhash": "(.+?)"} [http post http://www.reddit.com/api/login/dongforce/ "user=$user&passwd=$passwd&api_type=json"]]]}