bind dcc m|m wipehosts dcc:wipehosts

proc dcc:wipehosts {hand idx arg} {
    set handle [lindex $arg 0]
    set newhost [lindex $arg 1]
    if {$handle == ""} {
        putdcc $idx "Usage: .wipehosts <handle> \[new hostmask\]"
        return 0
    }

    putcmdlog "\#$hand\# wipehosts $handle $newhost"
    setuser $handle HOSTS

    if {$newhost != ""} {
        setuser $handle HOSTS $newhost
    }
}