# esta tcl esta configurada para DALnet pero tambien puede usarce para otras redes
# solo cambia el dominio o busca esta seccion "*.dal.net" y quieres usar la tcl en hispano solo cambia asi
# ejemplo si estas en hispano dejalo asi "*-hispano.org"
# y asi sucesivamente para otras redes donde quieras que funciona la tcl solo reemplaza esa corta linea

bind raw - QUIT detect:netsplit

proc detect:netsplit {from key arg} {
global netsplit_detected

if {[info exists netsplit_detected]} { return 0 }

set arg [string trimleft [stripcodes bcruag $arg] :]
if {[string equal "Quit:" [string range $arg 0 4]]} {return 0}

if {![regexp -- {^([[:alnum:][:punct:]]+)[[:space:]]([[:alnum:][:punct:]]+)$} $arg _arg server1 server2]} {return 0}

if {[string match "*.chathispano.com" $server1] && [string match "*.chathispano.com" $server2]} {
foreach chan [channels] {
putquick "NOTICE $chan :Se Ha Detectado NetSplit Desconectado Servicios: $server1 just split from $server2" -next
}
set netsplit_detected 1
utimer 20 [list do:netsplit:unlock]
}
}