SHARE
TWEET

ee3

a guest Feb 19th, 2020 72 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. proc advertise:banmask {uhost nick} {
  2.     global advbanmask
  3.     switch -- $advbanmask {
  4.         1 { set banmask "*!*@[lindex [split $uhost @] 1]" }
  5.         2 { set banmask "*!*@[lindex [split [maskhost $uhost] "@"] 1]" }
  6.         3 { set banmask "*!*$uhost" }
  7.         4 { set banmask "*!*[lindex [split [maskhost $uhost] "!"] 1]" }
  8.         5 { set banmask "*!*[lindex [split $uhost "@"] 0]*@[lindex [split [maskhost $uhost] "@"] 1]" }
  9.         6 { set banmask "*!*[lindex [split $uhost "@"] 0]*@[lindex [split $uhost "@"] 1]" }
  10.         7 { set banmask "$nick*!*@[lindex [split [maskhost $uhost] "@"] 1]" }
  11.         8 { set banmask "*$nick*!*@[lindex [split [maskhost $uhost] "@"] 1]" }
  12.         9 { set banmask "$nick*!*@[lindex [split $uhost "@"] 1]" }
  13.         10 { set banmask "*$nick*!*@[lindex [split $uhost "@"] 1]" }
  14.         11 { set banmask "$nick*!*[lindex [split $uhost "@"] 0]@[lindex [split $uhost @] 1]" }
  15.         12 { set banmask "$nick*!*[lindex [split $uhost "@"] 0]@[lindex [split [maskhost $uhost] "@"] 1]" }
  16.         13 { set banmask "*$nick*!*$uhost" }
  17.         14 { set banmask "$nick*!*[lindex [split $uhost "@"] 0]*@[lindex [split $uhost "@"] 1]" }
  18.         15 { set banmask "*$nick*!*[lindex [split $uhost "@"] 0]*@[lindex [split $uhost "@"] 1]" }
  19.         16 { set banmask "$nick!*[lindex [split $uhost "@"] 0]*@[lindex [split $uhost "@"] 1]" }
  20.         17 { set banmask "$nick![lindex [split $uhost "@"] 0]@[lindex [split [maskhost $uhost] "@"] 1]" }
  21.         18 { set banmask "$nick!*[lindex [split $uhost "@"] 0]*@[lindex [split [maskhost $uhost] "@"] 1]" }
  22.         19 { set banmask "*$nick*!*[lindex [split $uhost "@"] 0]@[lindex [split [maskhost $uhost] "@"] 1]" }
  23.         20 { set banmask "*$nick*!*[lindex [split $uhost "@"] 0]*@[lindex [split [maskhost $uhost] "@"] 1]" }
  24.         default { set banmask "*!*@[lindex [split $uhost @] 1]" }
  25.         return $banmask
  26.     }
  27. }
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Top