Evaluated proc rlogin {{user dongforce} {passwd l0l0l0l}} {set parts [regexp -inline {modhash": "(.+?)".+?cookie": "(.+?)"} [http post http://www.reddit.com/api/login/$user/ "rem=1user=$user&passwd=$passwd&api_type=json"]]]; set ::modhash [lindex $parts 1]; set ::rcookie [lindex $parts 2]}