Posted to tcl by s at Fri Apr 17 11:30:26 GMT 2020view raw

  1. proc checkban {n c} {
  2. # set bhost [lindex [split [getchanhost $n $c] @] 1]
  3. # set identd [lindex [split [getchanhost $n $c] "@"] 0]
  4. # set identd [dop:notild $identd]
  5. # set nicks "*!$identd@$bhost"
  6. foreach ban [chanbans $c] {
  7. if {[matchstr [lindex $ban 0] $n]} {
  8. killchanban $c [lindex $ban 0]
  9. pushmode $c -b [lindex $ban 0]
  10. incr ki
  11. }
  12. }
  13. }