ee3

proc advertise:banmask {uhost nick} {
	global advbanmask
	switch -- $advbanmask {
		1 { set banmask "*!*@[lindex [split $uhost @] 1]" }
		2 { set banmask "*!*@[lindex [split [maskhost $uhost] "@"] 1]" }
		3 { set banmask "*!*$uhost" }
		4 { set banmask "*!*[lindex [split [maskhost $uhost] "!"] 1]" }
		5 { set banmask "*!*[lindex [split $uhost "@"] 0]*@[lindex [split [maskhost $uhost] "@"] 1]" }
		6 { set banmask "*!*[lindex [split $uhost "@"] 0]*@[lindex [split $uhost "@"] 1]" }
		7 { set banmask "$nick*!*@[lindex [split [maskhost $uhost] "@"] 1]" }
		8 { set banmask "*$nick*!*@[lindex [split [maskhost $uhost] "@"] 1]" }
		9 { set banmask "$nick*!*@[lindex [split $uhost "@"] 1]" }
		10 { set banmask "*$nick*!*@[lindex [split $uhost "@"] 1]" }
		11 { set banmask "$nick*!*[lindex [split $uhost "@"] 0]@[lindex [split $uhost @] 1]" }
		12 { set banmask "$nick*!*[lindex [split $uhost "@"] 0]@[lindex [split [maskhost $uhost] "@"] 1]" }
		13 { set banmask "*$nick*!*$uhost" }
		14 { set banmask "$nick*!*[lindex [split $uhost "@"] 0]*@[lindex [split $uhost "@"] 1]" }
		15 { set banmask "*$nick*!*[lindex [split $uhost "@"] 0]*@[lindex [split $uhost "@"] 1]" }
		16 { set banmask "$nick!*[lindex [split $uhost "@"] 0]*@[lindex [split $uhost "@"] 1]" }
		17 { set banmask "$nick![lindex [split $uhost "@"] 0]@[lindex [split [maskhost $uhost] "@"] 1]" }
		18 { set banmask "$nick!*[lindex [split $uhost "@"] 0]*@[lindex [split [maskhost $uhost] "@"] 1]" }
		19 { set banmask "*$nick*!*[lindex [split $uhost "@"] 0]@[lindex [split [maskhost $uhost] "@"] 1]" }
		20 { set banmask "*$nick*!*[lindex [split $uhost "@"] 0]*@[lindex [split [maskhost $uhost] "@"] 1]" }
		default { set banmask "*!*@[lindex [split $uhost @] 1]" }
		return $banmask
	}
}