API tools faq
paste
Algabe

blacklist

Algabe
Aug 12th, 2014
253
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
TCL 17.16 KB | None | 0 0
raw download clone embed print report
  1. #############################################################################
  2. #                                                                           #
  3. # Coded by: Opposing ([email protected])                                     #
  4. # Version : 1.4                                                             #
  5. # Released: November 29, 2010                                               #
  6. # Source  : http://Sir-Fz.blogspot.com/                                     #
  7. ##                                                                          #
  8. # Description: A blacklist script that stores the banned masks in a db file #
  9. #              and bans everyone who matches the blacklisted masks on join  #
  10. #              or when the bot gets op.                                     #
  11. #                                                                           #
  12. # Available Commands:                                                       #
  13. # - DCC: .addbl <nick>!<user>@<host> [reason] [bantime] : Adds ban.         #
  14. #        .rembl <nick>!<user>@<host>                    : Deletes ban.      #
  15. #        .listbl                                        : Lists bans.       #
  16. # - PUB: addbl <nick>!<user>@<host> [reason] [bantime]  : Adds ban          #
  17. #        rembl <nick>!<user>@<host>                     : Deletes ban.      #
  18. #        listbl                                         : Lists bans.       #
  19. #                                                                           #
  20. # USE (DCC) .chanset #channel +blacklist to enable blacklist on a channel.  #
  21. #                                                                           #
  22. # Credits:                                                                  #
  23. #         Thanks to strikelite and user (if I recall correctly) from the    #
  24. #         egghelp.org forum for helping me with this script (back in 2003). #
  25. #         Also used user's (egghelp.org forum) maskhost proc.               #
  26. #                                                                           #
  27. # History:                                                                  #
  28. #         - 1.4: Fixed a bug when using the bansame option where nicknames  #
  29. #           with special characters (\, [, ]) were not properly banned.     #
  30. #         - 1.3: Added Flooding out protection, where the bot will start    #
  31. #           using the slowest queue in case a number of blacklisted users   #
  32. #           join in a certain period of seconds which can be defined by the #
  33. #           user. + fixed a bug with brackets.                              #
  34. #         - 1.2: Fixed a few bugs and made the script create the blacklist  #
  35. #           file if it doesn't exist.                                       #
  36. #         - 1.1: added the black list chan flag, and other features into    #
  37. #           patterns of handling the blacklist.                             #
  38. #         - 1.0: First release.                                             #
  39. #                                                                           #
  40. # Report bugs/suggestions to [email protected]                               #
  41. #                                                                           #
  42. # Copyright © 2005 Opposing (aka Sir_Fz)                                    #
  43. #                                                                           #
  44. # This program is free software; you can redistribute it and/or modify      #
  45. # it under the terms of the GNU General Public License as published by      #
  46. # the Free Software Foundation; either version 2 of the License, or         #
  47. # (at your option) any later version.                                       #
  48. #                                                                           #
  49. # This program is distributed in the hope that it will be useful,           #
  50. # but WITHOUT ANY WARRANTY; without even the implied warranty of            #
  51. # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the             #
  52. # GNU General Public License for more details.                              #
  53. #                                                                           #
  54. # You should have received a copy of the GNU General Public License         #
  55. # along with this program; if not, write to the Free Software               #
  56. # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA #
  57. #                                                                           #
  58. #############################################################################
  59. #
  60. ##############################
  61. # Configurations start here: #
  62. # __________________________ #
  63.  
  64. ## Blacklist File:
  65. set blackl(file) "scripts/blacklist.txt"
  66.  
  67. ## Blacklist "Excess Flood" protection. Set here how many blacklisted users are allowed
  68. ## to join in how many seconds before using the slow queue in order for the bot not to
  69. ## flood out with reason "Excess Flood."
  70. set blackl(punish) 4:2
  71.  
  72. ## Do you want the bot to also check for blacklisted users on op ? (0: no / 1: yes)
  73. set blackl(checkop) 1
  74.  
  75. ## Do you want to ban the same ban from the blacklist file
  76. ## or do you want it to be spcific ? (0: specific / 1: same ban as the file)
  77. ### example:
  78. ## Suppose that *!lamest@* is banned.
  79. # .. joins [email protected]
  80. # .. bot sets mode +b *!lamest@*
  81. # .. lamer kicked by bot "Blacklisted user."
  82. ## This happens if this option is set to 1.
  83. ## but if you set it to 0, then you can choose what bantype you want to ban.
  84. set blackl(bansame) 0
  85.  
  86. ## if blackl(bansame) is set to 0:
  87. ## What ban type do you want to ban ?
  88. # 0: *[email protected]
  89. # 1: *!*[email protected]
  90. # 2: *!*@full.host.tld
  91. # 3: *!*user@*.host.tld
  92. # 4: *!*@*.host.tld
  93. # 5: [email protected]
  94. # 6: nick!*[email protected]
  95. # 7: nick!*@full.host.tld
  96. # 8: nick!*user@*.host.tld
  97. # 9: nick!*@*.host.tld
  98. set blackl(btype) 2
  99.  
  100. ## Set default ban reason if not specified.
  101. ## NOTE: use %requester to use the nick of the one who set the ban.
  102. set blackl(kmsg) "Banned: Requested by %requester"
  103.  
  104. ## set default ban time (in minutes) if no bantime specified. (0 means no ban time)
  105. set blackl(btime) 0
  106.  
  107. ## Do you want the ban to be removed from the file after ban time expires ? (0: no / 1: yes)
  108. ## if set to 0, the bot will only remove the ban from the channel but not from the file.
  109. set blackl(rbabt) 0
  110.  
  111. ## Set here the trigger for public commands.
  112. ## example: set blackl(trig) "!"
  113. ## now using !listbl on main will show the blacklist.
  114. set blackl(trig) "!"
  115.  
  116. ## Set flags that are allowed to use these commands.
  117. ## <global flags>|<channel flags>
  118. set blackl(flags) n|-
  119.  
  120. # Configurations end here. #
  121. ############################
  122. #
  123. ######################################################################
  124. # Code starts here, please do not edit anything unless you know TCL: #
  125. # __________________________________________________________________ #
  126.  
  127. bind join - * bl:ban
  128. bind dcc $blackl(flags) addbl bl:add
  129. bind dcc $blackl(flags) rembl bl:rem
  130. bind dcc $blackl(flags) listbl bl:list
  131. bind pubm $blackl(flags) * bl:pub
  132. bind mode - "* +o" bl:cop
  133. setudef flag blacklist
  134.  
  135. if {[file exists $blackl(file)]} {
  136.  set BLNicks [split [string tolower [read [set inf [open $blackl(file)]]]] "\n"][close $inf]
  137. } {
  138.  set BLNicks [list]
  139. }
  140.  
  141. foreach {blackl(lim) blackl(secs)} [split $blackl(punish) :] {break}
  142.  
  143. proc bl:ban {nick uhost hand chan} {
  144.  global BLNicks blackl blflood
  145.  if {![botisop $chan] || ![channel get $chan blacklist]} {return 0}
  146.  if {![info exists blflood([set chan [string tolower $chan]])]} { set blflood($chan) 0 }
  147.  foreach blnick $BLNicks {
  148.   if {[string match -nocase [set ban [lindex [split $blnick] 0]] $nick!$uhost]} {
  149.    set ban [string map {\\\\ \\ \\\[ \[ \\\] \]} $ban]
  150.    if {[blfollow $blackl(secs) blflood($chan)] < $blackl(lim)} {
  151.     putquick "KICK $chan $nick :[string map [list %requester [lindex [split $blnick] 1]] [join [lrange [split $blnick] 2 end-1]]]"
  152.     if {$blackl(bansame)} {
  153.      putquick "MODE $chan -o+b $nick $ban"
  154.      if {!([set btime [lindex [split $blnick] end]] <= 0)} {
  155.       timer $btime [list rem:blban $chan $ban]
  156.      }
  157.     } {
  158.      putquick "MODE $chan -o+b $nick [set aban [blbtype $nick!$uhost $blackl(btype)]]"
  159.      if {!([set btime [lindex [split $blnick] end]] <= 0)} {
  160.       timer $btime [list rem:blban $chan $aban]
  161.      }
  162.     }
  163.    } {
  164.     puthelp "KICK $chan $nick :[string map [list %requester [lindex [split $blnick] 1]] [join [lrange [split $blnick] 2 end-1]]]"
  165.     if {$blackl(bansame)} {
  166.      pushmode $chan -o $nick
  167.      pushmode $chan +b $ban
  168.      if {!([set btime [lindex [split $blnick] end]] <= 0)} {
  169.       timer $btime [list rem:blban $chan $ban]
  170.      }
  171.     } {
  172.      pushmode $chan -o $nick
  173.      pushmode $chan +b [set aban [blbtype $nick!$uhost $blackl(btype)]]
  174.      if {!([set btime [lindex [split $blnick] end]] <= 0)} {
  175.       timer $btime [list rem:blban $chan $aban]
  176.      }
  177.     }
  178.    }
  179.    putlog "\[\002BlackList\002\]: Banned \002$nick\002!\002$uhost\002 matching [string map {! \002!\002 @ \002@\002} \002$ban\002] on \002$chan\002"
  180.    break
  181.   }
  182.  }
  183. }
  184.  
  185. proc bl:add {hand idx arg} {
  186.  if {$arg == ""} { putlog "SYNTAX: \003.addbl <nick!user@host> \[reason\] \[btime\]\003"; return 0 }
  187.  if {![string match -nocase *!*@* [set blnick [lindex [split $arg] 0]]]} {
  188.   putlog "SYNTAX: \003.addbl \002<nick>\002!\002<user>\002@\002<host>\002 \[reason\] \[bantime\]\003"
  189.   return 0
  190.  }
  191.  if {[bl:do:add $hand $arg]} {
  192.   foreach chan [channels] {
  193.    if {![channel get $chan blacklist]} { continue }
  194.    foreach ubchecked [chanlist $chan] {
  195.     bl:ban $ubchecked [getchanhost $ubchecked $chan] [nick2hand $ubchecked] $chan
  196.    }
  197.   }
  198.   putlog "[string map {! \002!\002 @ \002@\002} \002$blnick\002] has been \002added\002 to the blacklist."
  199.  } {
  200.   putlog "[string map {! \002!\002 @ \002@\002} \002$blnick\002] already \002exists\002 in the blacklist."
  201.  }
  202. }
  203.  
  204. proc bl:do:add {hand arg} {
  205.  global blackl BLNicks
  206.  set added 0
  207.  if {[llength [lrange [split $arg] 1 end]] == 1} {
  208.   if {[string is integer [lindex [split $arg] end]]} {
  209.    set kreason "$blackl(kmsg)"
  210.    set btime "[lindex [split $arg] end]"
  211.   } else {
  212.    set kreason "[lrange [split $arg] 1 end]"
  213.    set btime "$blackl(btime)"
  214.   }
  215.  } elseif {[llength [lrange [split $arg] 1 end]] > 1} {
  216.   if {[string is integer [lindex [split $arg] end]]} {
  217.    set kreason "[join [lrange [split $arg] 1 end-1]]"
  218.    set btime "[lindex [split $arg] end]"
  219.   } else {
  220.    set kreason "[join [lrange [split $arg] 1 end]]"
  221.    set btime "$blackl(btime)"
  222.   }
  223.  } else {
  224.   set kreason "$blackl(kmsg)"
  225.   set btime "$blackl(btime)"
  226.  }
  227.  if {![file exists $blackl(file)]} {
  228.   set temp [open $blackl(file) w]
  229.   close $temp
  230.  }
  231.  set blnick "[string map {\\ \\\\ \[ \\\[ \] \\\]} [lindex [split $arg] 0]]"
  232.  if {![we:can:find:ban $blnick add]} {
  233.   puts [set fs [open $blackl(file) a]] "$blnick $hand $kreason $btime"
  234.   close $fs
  235.   set BLNicks [split [string tolower [read [set inf [open $blackl(file)]]]] "\n"][close $inf]
  236.   set added 1
  237.  }
  238.  set added
  239. }
  240.  
  241. proc bl:rem {hand idx arg} {
  242.  if {$arg == ""} { putlog "SYNTAX: \003.rembl <nick!user@host>\003"; return 0 }
  243.  if {![string match -nocase *!*@* [set blnick [lindex [split $arg] 0]]]} {
  244.   putlog "SYNTAX: \003.rembl \002<nick>\002!\002<user>\002@\002<host>\002\003"
  245.   return 0
  246.  }
  247.  if {[bl:do:rem $arg]} {
  248.   foreach chan [channels] {
  249.    if {![channel get $chan blacklist]} { continue }
  250.    foreach ban [chanbans $chan] {
  251.     if {[string match -nocase $blnick [set sban [lindex $ban 0]]]} {
  252.      pushmode $chan -b $sban
  253.     }
  254.    }
  255.   }
  256.   putlog "[string map {! \002!\002 @ \002@\002} \002$blnick\002] was \002deleted\002 from the blacklist."
  257.  } {
  258.   putlog "[string map {! \002!\002 @ \002@\002} \002$blnick\002] was \002not\002 found in the blacklist."
  259.  }
  260. }
  261.  
  262. proc bl:do:rem arg {
  263.  global blackl BLNicks
  264.  set remmed 0
  265.  set blnick [lindex [split $arg] 0]
  266.  if {![file exists $blackl(file)]} {
  267.   set temp [open $blackl(file) w]
  268.   close $temp
  269.  }
  270.  if {[we:can:find:ban $blnick rem]} {
  271.   set z ""
  272.   set a [open $blackl(file) r]
  273.   while {![eof $a]} {
  274.    set b [gets $a]
  275.    if {![string equal -nocase [lindex $b 0] $blnick]} { lappend z ${b} }
  276.   }
  277.   close $a
  278.   set n [open $blackl(file) w]
  279.   foreach k $z {
  280.    if {$k != ""} { puts $n $k }
  281.   }
  282.   close $n
  283.   set BLNicks [split [string tolower [read [set inf [open $blackl(file)]]]] "\n"][close $inf]
  284.   set remmed 1
  285.  }
  286.  set remmed
  287. }
  288.  
  289. proc bl:list {hand idx arg} {
  290.  global BLNicks
  291.  if {[string equal "{} {}" $BLNicks] || [string equal "" $BLNicks]} {
  292.   putlog "There are \002no\002 bans in the blacklist."
  293.  } {
  294.   set c 1
  295.   foreach blnick $BLNicks {
  296.    if {$blnick != ""} {
  297.     putlog "\[\002$c\002\] - \002Mask\002: [lindex [split $blnick] 0] - \002Requester\002: [lindex [split $blnick] 1] - \002Bantime\002: [lindex [split $blnick] end]"
  298.     incr c
  299.    } {
  300.     putlog "\[\002*\002\] - End of list."
  301.    }
  302.   }
  303.  }
  304. }
  305.  
  306. proc bl:pub {nick uhost hand chan arg} {
  307.  global blackl BLNicks
  308.  if {![string equal $blackl(trig) [string index $arg 0]]} {return 0}
  309.  switch -- [lindex [lindex [split $arg $blackl(trig)] 1] 0] {
  310.   "addbl" {
  311.    if {[join [lrange [split $arg] 1 end]] == ""} { puthelp "NOTICE $nick :SYNTAX: \003$blackl(trig)addbl <nick!user@host> \[reason\] \[btime\]\003"; return 0 }
  312.    if {![string match -nocase *!*@* [set blnick [lindex [split $arg] 1]]]} {
  313.     puthelp "NOTICE $nick :SYNTAX: \003$blackl(trig)addbl \002<nick>\002!\002<user>\002@\002<host>\002 \[reason\] \[bantime\]\003"
  314.     return 0
  315.    }
  316.    if {[bl:do:add $hand [join [lrange [split $arg] 1 end]]]} {
  317.     if {[channel get $chan blacklist]} {
  318.      foreach ubchecked [chanlist $chan] {
  319.       bl:ban $ubchecked [getchanhost $ubchecked $chan] [nick2hand $ubchecked] $chan
  320.      }
  321.     }
  322.     puthelp "NOTICE $nick :[string map {! \002!\002 @ \002@\002} \002$blnick\002] has been \002added\002 to the blacklist."
  323.    } {
  324.     puthelp "NOTICE $nick :[string map {! \002!\002 @ \002@\002} \002$blnick\002] already \002exists\002 in the blacklist."
  325.    }
  326.   }
  327.   "rembl" {
  328.    if {[join [lrange [split $arg] 1 end]] == ""} { puthelp "NOTICE $nick :SYNTAX: \003$blackl(trig)rembl <nick!user@host>\003"; return 0 }
  329.    if {![string match -nocase *!*@* [set blnick [lindex [split $arg] 1]]]} {
  330.     puthelp "NOTICE $nick :SYNTAX: \003$blackl(trig)rembl \002<nick>\002!\002<user>\002@\002<host>\002\003"
  331.     return 0
  332.    }
  333.    if {[bl:do:rem [join [lrange [split $arg] 1 end]]]} {
  334.     if {[channel get $chan blacklist]} {
  335.      foreach ban [chanbans $chan] {
  336.       if {[string match -nocase $blnick [set sban [lindex $ban 0]]]} {
  337.        pushmode $chan -b $sban
  338.       }
  339.      }
  340.     }
  341.     puthelp "NOTICE $nick :[string map {! \002!\002 @ \002@\002} \002$blnick\002] was \002deleted\002 from the blacklist."
  342.    } {
  343.     puthelp "NOTICE $nick :[string map {! \002!\002 @ \002@\002} \002$blnick\002] was \002not\002 found in the blacklist."
  344.    }
  345.   }
  346.   "listbl" {
  347.    if {[string equal "{} {}" $BLNicks] || [string equal "" $BLNicks]} {
  348.     puthelp "NOTICE $nick :There are \002no\002 bans in the blacklist."
  349.    } {
  350.     set c 1
  351.     foreach blnick $BLNicks {
  352.      if {$blnick != ""} {
  353.       puthelp "NOTICE $nick :\[\002$c\002\] - \002Mask\002: [lindex [split $blnick] 0] - \002Requester\002: [lindex [split $blnick] 1] - \002Bantime\002: [lindex [split $blnick] end]"
  354.       incr c
  355.      } {
  356.       puthelp "NOTICE $nick :\[\002*\002\] - End of list."
  357.      }
  358.     }
  359.    }
  360.   }
  361.  }
  362. }
  363.  
  364. proc bl:cop {nick uhost hand chan mc targ} {
  365.  global blackl
  366.  if {[isbotnick $targ] && $blackl(checkop) && [channel get $chan blacklist]} {
  367.   foreach blnick [chanlist $chan] {
  368.    bl:ban $blnick [getchanhost $blnick $chan] [nick2hand $blnick] $chan
  369.   }
  370.  }
  371. }
  372.  
  373. proc rem:blban {chan ban} {
  374.  global blackl
  375.  if {$blackl(rbabt)} {
  376.   pushmode $chan -b $ban
  377.   bl:do:rem $ban
  378.  } {
  379.   pushmode $chan -b $ban
  380.  }
  381. }
  382.  
  383. proc we:can:find:ban {blnick type} {
  384.  global blackl
  385.  set spfound 0
  386.  switch -- $type {
  387.   "add" {
  388.    foreach temp [split [string tolower [read [set inf [open $blackl(file)]]]] "\n"][close $inf] {
  389.     if {[string equal -nocase [lindex [split $temp] 0] $blnick]} { set spfound 1 ; break }
  390.    }
  391.   }
  392.   "rem" {
  393.    foreach temp [split [string tolower [read [set inf [open $blackl(file)]]]] "\n"][close $inf] {
  394.     if {[string equal -nocase [lindex [split $temp] 0] [string map {\\ \\\\ \[ \\\[ \] \\\]} $blnick]]} { set spfound 1 ; break }
  395.    }
  396.   }
  397.  }
  398.  set spfound
  399. }
  400.  
  401. proc blfollow {secs blvar} {
  402.  upvar $blvar fvar
  403.  utimer $secs [list bldicr $blvar]
  404.  incr fvar
  405. }
  406.  
  407. proc bldicr blvar {
  408.  upvar $blvar fvar
  409.  if {$fvar > 0} {
  410.   incr fvar -1
  411.  }
  412. }
  413.  
  414. set blbtypeDefaultType 3
  415.  
  416. proc blbtype [list name [list type $blbtypeDefaultType]] {
  417.  if {[scan $name {%[^!]!%[^@]@%s} nick user host]!=3} {
  418.   error "Usage: maskbhost <nick!user@host> \[type\]"
  419.  }
  420.  if [string match {[3489]} $type] {
  421.   if [string match {*[0-9]} $host] {
  422.    set host [join [lrange [split $host .] 0 2] .].*
  423.   } elseif {[string match *.*.* $host]} {
  424.    set host *.[join [lrange [split $host .] end-1 end] .]
  425.   }
  426.  }
  427.  if [string match {[1368]} $type] {
  428.   set user *[string trimleft $user ~]
  429.  } elseif {[string match {[2479]} $type]} {
  430.   set user *
  431.  }
  432.  if [string match {[01234]} $type] {
  433.   set nick *
  434.  }
  435.  set name $nick!$user@$host
  436. }
  437.  
  438. putlog "BlackList v1.4 By Opposing (a.k.a Sir_Fz) Loaded..."
Advertisement
Add Comment
Please, Sign In to add comment
Public Pastes
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
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!