Code: Select all
namespace eval vhost {
variable vhostlist {
hostnumber.one
hostnumber.two
and.so.on
}
proc change_vhost {t} {
variable vhostlist
foreach {x} $vhostlist {
if {![string equal -nocase $x ${::my-hostname}]} {
set ::my-hostname $x
set ::my-ip $x
break
}
}
}
bind evnt disconnect-server [namespace current]::change_vhost
}
Code: Select all
hostnumber.one
hostnumber.two
and.so.on
Watched StarWars Episode III lately you didThunderdome wrote:inevitable it is.
vhost shared with many, klined probability strong.
changing vhost when klined, good solution is.