Restart LuCI-based OpenWRT router from internal host

openwrt-restart.tcl

#!/usr/bin/env tclsh

package require http

array set options {
    -root      "http://192.168.1.1/"
    -user      "user"
    -password  ""
}

array set options $argv

set tok [::http::geturl [string trimright $options(-root) /]/cgi-bin/luci \
                -query [::http::formatQuery username $options(-user) password $options(-password)]]
if { [::http::ncode $tok] == 200 } {
    array set meta [::http::meta $tok]
    foreach itm [split [string map [list "; " \0] $meta(Set-Cookie)] "\0"] {
        set equal [string first "=" $itm]
        set k [string trim [string range $itm 0 [expr {$equal-1}]]]
        set v [string trim [string range $itm [expr {$equal+1}] end]]
        set auth($k) $v
    }

    puts "Logged in at $auth(path)"
    set rebootURL [string trimright $options(-root) /]/[string trim $auth(path) /]/user/system/reboot?reboot=1
    set tok [::http::geturl $rebootURL -headers [list "Cookie" "sysauth=$auth(sysauth); "]]
}