Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 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
- }
- }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement