Delete BT.BanCmds.tcl

BlackTools2.5.2/Commands/BT.BanCmds.tcl

@@ -1,1239 +0,0 @@
-#########################################################################
-##          BlackTools - The Ultimate Channel Control Script           ##
-##                    One TCL. One smart Eggdrop                       ##
-#########################################################################
-############################   BANCMDS TCL   ############################
-#########################################################################
-##						                       ##
-##   BlackTools  : http://blacktools.tclscripts.net	               ##
-##   Bugs report : http://www.tclscripts.net/	                       ##
-##   GitHub page : https://github.com/tclscripts/BlackToolS-TCL-script ##
-##   Online Help : irc://irc.undernet.org/tcl-help 	               ##
-##                 #TCL-HELP / UnderNet                                ##
-##                 You can ask in english or romanian                  ##
-##					                               ##
-#########################################################################
-
-
-################################ Commands #############################
-
-################################ ub ###################################
-
-proc ub:link {mask} {
-	global black
-	set chanban 0
-	set chanlink 0
-foreach chan [link:get] {
-	set chanlink [expr $chanlink + 1]
-foreach b [blacktools:banlist $chan] {
-	set cidr 0
-	set bhost [lindex [split $b] 3]
-	set real_bhost [string map [list \[ {\[} \] {\]} \? {\?} \\ {\\}] $bhost]
-if {[regexp {[/]} $real_bhost]} {
-	set read_ip [lindex [split $real_bhost @] 1]
-	set theip [lindex [split $mask @] 1]
-	set cidr_ip [ipcidr $read_ip $theip]
-if {$cidr_ip == "1"} {
-	set read_rest_ip [lindex [split $mask @] 0]
-	set read_theip [lindex [split $real_bhost @] 0]
-if {[string match -nocase $read_rest_ip $read_theip] || [string match -nocase $read_theip $read_rest_ip]} {
-	set cidr 1
-		}
-	}
-}
-if {[string match -nocase $mask $real_bhost] || [string match -nocase $real_bhost $mask] || $cidr == "1"} {
-	set chanban [expr $chanban + 1]
-if {([setting:get $chan xtools] || [setting:get $chan xonly]) && [onchan $black(chanserv) $chan]} {
-	putserv "PRIVMSG $black(chanserv) :unban $chan $bhost"
-} else {
-	pushmode $chan -b $bhost
-}
-	blacktools:delban $real_bhost $chan "0" "0"
-			}
-		}
-	}
-	return "$chanlink $chanban"
-}
-
-proc ub:process {user mask nick hand host chan chan1 type gl cmd whois link prv} {
-	global black
-	set split_cmd [split $cmd ":"]
-	set id [lindex $split_cmd 1]
-	set cmd [lindex $split_cmd 0]
-	set cmd_status [btcmd:status $chan $hand "$cmd" 0]
-if {$cmd_status == "1"} { 
-	return 
-}
-if {[matchattr $hand q]} { blacktools:tell $nick $host $hand $chan $chan1 gl.glsuspend none
-	return
-}
-if {[matchattr $hand -|q $chan]} { blacktools:tell $nick $host $hand $chan $chan1 gl.suspend none
-	return
-}
-	set vhost [lindex [split $mask @] 1]
-	blacktools:dns:ub $user $mask $nick $hand $host $vhost $chan $chan1 $type $gl $cmd $whois $link $id $prv
-}
-
-proc ub:act {user mask nick hand host vhost chan chan1 type gl cmd whois link id prv} {
-	global black
-	set split_cmd [split $cmd ":"]
-	set cmd [lindex $split_cmd 0]
-if {$host == "" && $mask == "" && $whois == "1"} { return }
-	set rest_host [lindex [split $mask @] 0]
-	set fulldns "$rest_host@$host"
-if {$host == ""} { set fulldns $mask}
-	set host $prv
-	set nounban 0
-if {$user == ""} {
-switch $type {
-	0 {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr $cmd
-	}
-	1 {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr_nick $cmd
-	}
-	2 {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr_priv $cmd
-		}
-	}
-	return
-}
-	
-if {![validchan $chan] && $link != "1" && $gl != "1"} {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.novalidchan none
-	return
-}
-
-if {$link != "1" && $gl != "1"} {
-if {![botisop $chan] && ![setting:get $chan xonly]} {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.noop none
-	return
-	}
-}
-	set show_mask $mask
-	set total_b 0
-	set rem_b 0
-	set xban 0
-
-if {![regexp {\*} $mask] && $whois != "1" && $id != "id"} {
-	putserv "USERHOST :$user"
-	bind RAW - 302 ub:get:host
-	set ::uuser $user
-	set ::unick $nick
-	set ::uhand $hand
-	set ::uhost $host
-	set ::uchan $chan
-	set ::uchan1 $chan1
-	set ::utype $type
-	set ::ugl $gl
-	set ::ucmd $cmd
-	set ::ulink $link
-	set ::prv $prv
-return
-}
-
-if {$link == "1"} {
-	set return [ub:link $mask]
-	set chanlink [lindex $return 0]
-	set chanban [lindex $return 1]
-	blacktools:tell $nick $host $hand $chan $chan1 ub.7 "$chanban $chanlink"
-	return
-} 
-
-if {$gl != "1"} {
-if {(($mask == "*") || ($mask == "*!*@*")) && [matchattr $hand -|OA $chan]} {
-	blacktools:tell $nick $host $hand $chan $chan1 ub.5 none
-	return
-} 
-foreach b [blacktools:banlist $chan] {
-	set bhost [lindex [split $b] 3]
-	set btime [lindex [split $b] 5]
-	set num [lindex [split $b] 1]
-if {[string match -nocase $mask $bhost] || [string match -nocase $fulldns $bhost] || [matchaddr $fulldns $bhost] || [matchaddr $mask $bhost] || ([matchaddr $bhost $fulldns] && $whois == "1") || ([matchaddr $bhost $mask] && $whois == "1") || [string equal -nocase $num $mask]} {
-	set bywho [lindex [split $b] 4]
-	set match_time [lindex [split $b] 5]
-	set read_tr [lindex [split $b] 7]
-	set total_b [expr $total_b + 1]
-	set split_bywho [split $bywho ":"]
-	set level [lindex $split_bywho 1]
-	set check [blacktools:check:levelub $hand $chan $level]
-if {$check == "-1"} {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.nounban $bhost
-	set nounban 1
-	continue
-}
-if {$btime == "0" && [matchattr $hand -|O $chan]} {
-	continue
-}
-if {([blacktools:sticky $mask $chan] == "1") && [matchattr $hand -|OA $chan]} {
-	continue
-}
-	set rem_b [expr $rem_b + 1]
-
-if {([setting:get $chan xtools] || [setting:get $chan xonly]) && [onchan $black(chanserv) $chan]} {
-	putserv "PRIVMSG $black(chanserv) :unban $chan $bhost"
-} else {
-	putserv "MODE $chan -b $bhost"
-}
-	blacktools:delban $bhost $chan "0" "0"
-if {$read_tr == "2"} {
-	troll:del $bhost $chan
-			}
-			continue
-		}
-	}
-foreach b [banlist $chan] {
-	set bhost [lindex $b 0]
-	set btime [lindex $b 2]
-if {[string match -nocase $mask $bhost] || [string match -nocase $bhost $mask]} {
-	set total_b [expr $total_b + 1]
-if {$btime == "0" && [matchattr $hand -|O $chan]} {
-	continue
-}
-if {[isbansticky $bhost] && [matchattr $hand -|OA $chan]} {
-	continue
-}
-	set rem_b [expr $rem_b + 1]
-if {([setting:get $chan xtools] || [setting:get $chan xonly]) && [onchan $black(chanserv) $chan]} {
-	putserv "PRIVMSG $black(chanserv) :unban $chan $bhost"
-} else {
-	putserv "MODE $chan -b $bhost"
-}
-	killchanban $chan $bhost
-	}
-}
-
-if {$total_b == "0"} {
-if {$id == "id"} {
-	blacktools:tell $nick $host $hand $chan $chan1 ub.8 $show_mask
-	return
-}
-	set return [checkischanban_ub "" $show_mask $chan $whois]
-	set return_dns [checkischanban_ub "" $fulldns $chan $whois]
-
-if {$nounban == "1"} {
-	set return 0
-	set return_dns 0
-}
-if {$return == "1"} {
-	set bans [returnchanbans_ub $show_mask $chan $whois]
-foreach b $bans {
-if {([setting:get $chan xtools] || [setting:get $chan xonly]) && [onchan $black(chanserv) $chan]} {
-	putserv "PRIVMSG $black(chanserv) :unban $chan $b"
-} else {
-	pushmode $chan -b $b
-	}
-}
-	blacktools:tell $nick $host $hand $chan $chan1 ub.2 "[llength $bans] [llength $bans] $show_mask"
-	return
-} elseif {$return_dns == "1"} {
-	set bans [returnchanbans_ub $fulldns $chan $whois]
-foreach b $bans {
-if {([setting:get $chan xtools] || [setting:get $chan xonly]) && [onchan $black(chanserv) $chan]} {
-	putserv "PRIVMSG $black(chanserv) :unban $chan $b"
-} else {
-	pushmode $chan -b $b
-	}
-}
-	blacktools:tell $nick $host $hand $chan $chan1 ub.2 "[llength $bans] [llength $bans] $fulldns"
-	return
-} else {
-	blacktools:tell $nick $host $hand $chan $chan1 ub.1 $show_mask
-}
-if {[ischanban $mask $chan]} {
-if {([setting:get $chan xtools] || [setting:get $chan xonly]) && [onchan $black(chanserv) $chan]} {
-	putserv "PRIVMSG $black(chanserv) :unban $chan $mask"
-} else {
-	putserv "MODE $chan -b $mask"
-}
-	blacktools:tell $nick $host $hand $chan $chan1 ub.6 none
-	return
-}
-	blacktools:tell $nick $host $hand $chan $chan1 ub.1 $show_mask
-	} else {
-	set return [checkischanban_ub "" $show_mask $chan $whois]
-	set return_dns [checkischanban_ub "" $fulldns $chan $whois]
-if {$nounban == "1"} {
-	set return 0
-	set return_dns 0
-}
-if {$return == "1"} {
-	set bans [returnchanbans_ub $show_mask $chan $whois]
-foreach b $bans {
-if {([setting:get $chan xtools] || [setting:get $chan xonly]) && [onchan $black(chanserv) $chan]} {
-	putserv "PRIVMSG $black(chanserv) :unban $chan $b"
-} else {
-	pushmode $chan -b $b
-		}
-	}
-} elseif {$return_dns == "1"} {
-	set bans [returnchanbans_ub $fulldns $chan $whois]
-foreach b $bans {
-if {([setting:get $chan xtools] || [setting:get $chan xonly]) && [onchan $black(chanserv) $chan]} {
-	putserv "PRIVMSG $black(chanserv) :unban $chan $b"
-} else {
-	pushmode $chan -b $b
-			}
-		}
-	}
-if {$id == "id"} {
-	blacktools:tell $nick $host $hand $chan $chan1 ub.9 "$rem_b $total_b $show_mask"
-} else {
-if {$nounban == "0"} {
-	blacktools:tell $nick $host $hand $chan $chan1 ub.2 "$rem_b $total_b $show_mask"
-	blacktools:ub:getlast
-				}
-			}
-		}
-if {$total_b != "0" && $rem_b != "0"} {
-	set getlang [string tolower [setting:get $chan lang]]
-if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
-	set backchan [join [setting:get $chan backchan]]
-if {$backchan != ""} {
-	set replace(%nick%) $hand
-	set replace(%msg.1%) $rem_b
-	set replace(%msg.2%) $total_b
-	set replace(%chan%) $chan
-	set replace(%msg.3%) $bhost
-	set text [black:color:set "" $black(say.$getlang.reportchan.3)]
-	set reply [join $text]
-	set reply [string map [array get replace] $reply]
-	puthelp "PRIVMSG $backchan :$reply"
-	}
-}
-	} else {
-foreach b [blacktools:banlist:gl] {
-	set bhost [lindex [split $b] 3]
-	set num [lindex [split $b] 1]
-	set btime [lindex [split $b] 4]
-if {[string match -nocase $mask $bhost] || [string match -nocase $fulldns $bhost] || [matchaddr $fulldns $bhost] || [matchaddr $mask $bhost] || ([matchaddr $bhost $fulldns] && $whois == "1") || ([matchaddr $bhost $mask] && $whois == "1") || [string equal -nocase $num $mask]} {
-	set total_b [expr $total_b + 1]
-	set rem_b [expr $rem_b + 1]
-	set match_time [lindex [split $b] 5]
-	blacktools:delban $bhost $chan "1" "0"
-if {$gl == "1"} {
-	blacktools:ub:global $bhost [channels] 0
-}
-	continue
-		}
-	}
-foreach b [banlist] {
-	set bhost [lindex $b 0]
-	set btime [lindex $b 2]
-if {[string match -nocase $mask $bhost] || [string match -nocase $bhost $mask]} {
-	set total_b [expr $total_b + 1]
-if {[setting:get $chan xtools] || [setting:get $chan xonly] && [onchan $black(chanserv) $chan]} {
-	putserv "PRIVMSG $black(chanserv) :unban $chan $bhost"
-} else {
-	putserv "MODE $chan -b $bhost"
-}
-	killban $bhost
-		}
-	}
-if {$total_b == "0"} {
-if {$id == "id"} {
-	blacktools:tell $nick $host $hand $chan $chan1 ub.11 $show_mask
-} else {
-	blacktools:tell $nick $host $hand $chan $chan1 ub.3 $show_mask
-}
-	} else {
-if {$id == "id"} {
-	blacktools:tell $nick $host $hand $chan $chan1 ub.10 "$total_b $show_mask"
-} else {
-	blacktools:tell $nick $host $hand $chan $chan1 ub.4 "$total_b $show_mask"
-	blacktools:ub:getlast
-			}
-		}
-	}
-}
-
-proc blacktools:ub:getlast {} {
-	global black
-	set lastban [blacktools:getlastban]
-if {$lastban == "-1"} {
-	foreach tmr [utimers] {
-if {[string match "*blacktools:autounban*" [join [lindex $tmr 1]]]} {
-	killutimer [lindex $tmr 2]
-	}
-}
-if {[info exists black(lastban)]} {
-	unset black(lastban)
-}
-	return
-}
-if {[info exists black(lastban)]} {
-if {$lastban == $black(lastban)} {
-	return
-	}
-}
-	set black(lastban) $lastban
-foreach tmr [utimers] {
-if {[string match "*blacktools:autounban*" [join [lindex $tmr 1]]]} {
-	killutimer [lindex $tmr 2]
-	}
-}
-	utimer $black(lastban) [list blacktools:autounban]	
-}
-
-proc blacktools:ub:global {bhost channels num} {
-	global black
-	set chan [lindex $channels $num]
-	set incnum [expr $num + 1]
-if {([setting:get $chan xtools] || [setting:get $chan xonly]) && [onchan $black(chanserv) $chan]} {
-	putserv "PRIVMSG $black(chanserv) :unban $chan $bhost"
-} else {
-	putserv "MODE $chan -b $bhost"
-}
-	if {[lindex $channels $incnum] != ""} {
-	blacktools:ub:global $bhost $channels $incnum
-	}
-}
-
-################################ sb ###################################
-
-proc sb:act {bhost what nick hand host vhost chan chan1 type cmd entry} {
-	global black
-
-if {$bhost == "-"} {
-	blacktools:tell $nick $what $hand $chan $chan1 gl.hostnotexist "none"
-	return
-}
-
-if {($bhost != "") && ($entry == "")} {
-	putserv "USERHOST :$bhost"
-	bind RAW - 302 sb:get:host
-	set ::suser $bhost
-	set ::snick $nick
-	set ::shand $hand
-	set ::shost $host
-	set ::schan $chan
-	set ::schan1 $chan1
-	set ::stype $type
-	set ::scmd $cmd
-	set ::swhat $what
-	return
-}
-
-if {[matchattr $hand mn]} {
-	sb:search $nick $what $hand $chan $chan1 $bhost $vhost "1" $entry $type
-	return
-}
-	sb:search $nick $what $hand $chan $chan1 $bhost $vhost "0" $entry $type
-}
-
-proc sb:process {bhost what nick hand host chan chan1 type cmd entry} {
-global botnick black tcldir
-	set cmd_status [btcmd:status $chan $hand "sb" 0]
-if {$cmd_status == "1"} {
-	return
-}
-	set vhost [lindex [split $bhost @] 1]
-	blacktools:dns:sb $bhost $what $nick $hand $host $vhost $chan $chan1 $type $cmd $entry
-}
-
-proc sb:search {nick host hand chan chan1 bhost vhost gl entry type1} {
-	global black
-	set show_bhost $bhost
-	set gl_bans 0
-	set cidr 0
-	set local_bans 0
-	set rest_host [lindex [split $bhost @] 0]
-	set fulldns "$rest_host@$vhost"
-if {$vhost == ""} { set fulldns $bhost }
-	set getlang [string tolower [getuser $hand XTRA OUTPUT_LANG]]
-if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
-if {[matchattr $hand q]} { blacktools:tell $nick $host $hand $chan $chan1 gl.glsuspend none
-	return
-}
-if {[matchattr $hand -|q $chan]} { blacktools:tell $nick $host $hand $chan $chan1 gl.suspend none
-	return
-}
-if {$bhost == ""} {
-switch $type1 {
-	0 {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr "sb"
-	}
-	1 {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr_nick "sb"
-	}
-	2 {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr_priv "sb"
-		}
-	}
-	return 0
-}
-if {$gl == "1"} {
-foreach b [blacktools:banlist:gl] {
-	set cidr 0
-	set mask [lindex [split $b] 3]
-	set id [lindex [split $b] 1]
-	set real_mask [string map [list \[ {\[} \] {\]} \\ {\\}] $mask]
-if {[regexp {[/]} $real_mask]} {
-	set read_ip [lindex [split $real_mask @] 1]
-	set theip [lindex [split $bhost @] 1]
-	set theip_dns [lindex [split $fulldns @] 1]
-	set cidr_ip [ipcidr $read_ip $theip]
-	set cidr_ip_dns [ipcidr $read_ip $theip_dns] 
-if {$cidr_ip == "1" || $cidr_ip_dns == "1"} {
-	set read_rest_ip [lindex [split $bhost @] 0]
-	set read_theip [lindex [split $real_mask @] 0]
-if {[string match -nocase $read_rest_ip $read_theip] || [string match -nocase $read_theip $read_rest_ip]} {
-	set cidr 1
-		}
-	}
-}
-if {([string match -nocase $fulldns $real_mask] || [string match -nocase $real_mask $fulldns]) || ([string match -nocase $bhost $real_mask] || [string match -nocase $real_mask $bhost]) || $bhost == $id || $cidr == "1"} {
-	set gl_bans [expr $gl_bans + 1]
-	set mask [lindex [split $b] 3]
-	set id [lindex [split $b] 1]
-	set expire [lindex [split $b] 5]
-	set created [lindex [split $b] 6]
-	set created [clock format $created -format %D-%H:%M:%S]
-	set breason [lrange [split $b] 9 end]
-	set comment [join [blacktools:get_comment $breason]]
-	set breason [blacktools:rem_comment $breason]
-	set breason [join [encoding convertfrom utf-8 $breason]]
-	set bywho [lindex [split $b] 4]
-if {$expire != "0"} {
-	set expire [return_time_2 $getlang [expr $expire - [unixtime]]]
-	blacktools:tell $nick $host $hand $chan $chan1 sb.3 "$id $mask $bywho $created $expire $breason"
-if {$comment != "-1"} {
-	blacktools:tell $nick $host $hand $chan $chan1 sb.12 $comment
-	}
-} else { 
-	set expire $black(say.$getlang.banlist.13)
-	blacktools:tell $nick $host $hand $chan $chan1 sb.10 "$id $mask $bywho $created $expire $breason"
-if {$comment != "-1"} {
-	blacktools:tell $nick $host $hand $chan $chan1 sb.12 $comment
-				}
-			}
-		}
-	}
-}
-foreach b [blacktools:banlist $chan] {
-	set cidr 0
-	set mask [lindex [split $b] 3]
-	set id [lindex [split $b] 1]
-	set real_mask [string map [list \[ {\[} \] {\]} \\ {\\}] $mask]
-if {[regexp {[/]} $real_mask]} {
-	set read_ip [lindex [split $real_mask @] 1]
-	set theip [lindex [split $bhost @] 1]
-	set theip_dns [lindex [split $fulldns @] 1]
-	set cidr_ip [ipcidr $read_ip $theip]
-	set cidr_ip_dns [ipcidr $read_ip $theip_dns]
-if {$cidr_ip == "1" || $cidr_ip_dns == "1"} {
-	set read_rest_ip [lindex [split $bhost @] 0]
-	set read_theip [lindex [split $real_mask @] 0]
-if {[string match -nocase $read_rest_ip $read_theip] || [string match -nocase $read_theip $read_rest_ip]} {
-	set cidr 1
-		}
-	}
-}
-if {([string match -nocase $fulldns $real_mask] || [string match -nocase $real_mask $fulldns]) || ([string match -nocase $bhost $real_mask] || [string match -nocase $real_mask $bhost]) || $bhost == $id || $cidr == "1"} {
-	set local_bans [expr $local_bans + 1]
-	set mask [lindex [split $b] 3]
-	set id [lindex [split $b] 1]
-	set expire [lindex [split $b] 5]
-	set created [lindex [split $b] 6]
-	set sticky [lindex [split $b] 7]
-	set created [clock format $created -format %D-%H:%M:%S]
-	set breason [lrange [split $b] 9 end]
-	set comment [join [blacktools:get_comment $breason]]
-	set breason [blacktools:rem_comment $breason]
-	set breason [join [encoding convertfrom utf-8 $breason]]
-	set bywho [lindex [split $b] 4]
-	set split_bywho [split $bywho ":"]
-	set handle [lindex $split_bywho 0]
-	set type [lindex $split_bywho 1]
-if {$type != "" && $type != "bot"} {
-	set bywho "$handle\([encoding convertfrom utf-8 $type]\)"
-} elseif {$sticky == "1"} { 
-	set bywho "$handle\(STICKY\)"
-} else {
-	set bywho $handle
-}
-if {$expire != "0"} {
-	set expire [return_time_2 $getlang [expr $expire - [unixtime]]]
-	blacktools:tell $nick $host $hand $chan $chan1 sb.4 "$id $mask $bywho $created $expire $breason"
-if {$comment != "-1"} {
-	blacktools:tell $nick $host $hand $chan $chan1 sb.12 $comment
-	}
-} else { 
-	set expire $black(say.$getlang.banlist.13)
-	blacktools:tell $nick $host $hand $chan $chan1 sb.9 "$id $mask $bywho $created $expire $breason"
-if {$comment != "-1"} {
-	blacktools:tell $nick $host $hand $chan $chan1 sb.12 $comment
-				}
-			}
-		}
-	}
-if {[expr $local_bans + $gl_bans] > 0} {
-	return
-} else {
-	set gl_bans 0
-	set local_bans 0
-}
-
-foreach b [banlist $chan] {
-	set mask [lindex $b 0]
-if {[string match -nocase $mask $bhost] || [string match -nocase $bhost $mask]} {
-	set local_bans [expr $local_bans + 1]
-	}
-}
-if {$gl == "1"} {
-	foreach b [banlist] {
-	set mask [lindex $b 0]
-if {[string match -nocase $mask $bhost] || [string match -nocase $bhost $mask]} {
-	set gl_bans [expr $gl_bans + 1]
-	}
-}
-if {[expr $local_bans + $gl_bans] == "0"} {
-if {$entry == "2"} {
-	blacktools:tell $nick $host $hand $chan $chan1 sb.11 $show_bhost
-} else {
-	blacktools:tell $nick $host $hand $chan $chan1 sb.2 $show_bhost
-}
-	return
-}
-if {[expr $local_bans + $gl_bans] > 10} {
-	blacktools:tell $nick $host $hand $chan $chan1 sb.5 "none"
-	return
-	}
-} else {
-
-if {$local_bans == "0"} {
-if {$entry == "2"} {
-	blacktools:tell $nick $host $hand $chan $chan1 sb.11 $show_bhost
-} else {
-	blacktools:tell $nick $host $hand $chan $chan1 sb.2 $show_bhost
-}
-	return
-}
-if {$local_bans > 10} {
-	blacktools:tell $nick $host $hand $chan $chan1 sb.5 "none"
-	return
-	}
-}
-if {$gl_bans > "0"} {
-foreach b [banlist] {
-	set mask [lindex $b 0]
-if {[string match -nocase $mask $bhost] || [string match -nocase $bhost $mask]} {
-	set mask [lindex $b 0]
-	set expire [lindex $b 2]
-	set created [lindex $b 3]
-	set breason [split [lindex $b 1]]
-	set bywho [split [lindex $b 5]]
-	set created [clock format $created -format %D-%H:%M:%S]
-if {$expire != "0"} {
-	set expire [return_time_2 $getlang [expr $expire - [unixtime]]]
-	blacktools:tell $nick $host $hand $chan $chan1 sb.3 "- $mask $bywho $created $expire $breason"
-} else { 
-	set expire "NEVER" 
-	blacktools:tell $nick $host $hand $chan $chan1 sb.10 "- $mask $bywho $created $expire $breason"
-				}
-			}
-		}
-	}
-
-if {$local_bans > "0"} {
-foreach b [banlist $chan] {
-	set mask [lindex $b 0]
-if {[string match -nocase $mask $bhost] || [string match -nocase $bhost $mask]} {
-	set mask [lindex $b 0]
-	set expire [lindex $b 2]
-	set created [lindex $b 3]
-	set breason [split [lindex $b 1]]
-	set bywho [split [lindex $b 5]]
-	set created [clock format $created -format %D-%H:%M:%S]
-if {$expire != "0"} {
-	set expire [return_time_2 $getlang [expr $expire - [unixtime]]]
-	blacktools:tell $nick $host $hand $chan $chan1 sb.4 "- $mask $bywho $created $expire $breason"
-} else { 
-	set expire "NEVER" 
-	blacktools:tell $nick $host $hand $chan $chan1 sb.9 "- $mask $bywho $created $expire $breason"
-				}
-			}
-		}
-	}	
-}
-
-################################### banlist ###################################
-
-proc banlist:process {nick host hand chan chan1 user type cmd next} {
-global botnick black
-	set cmd_status [btcmd:status $chan $hand "banlist" 0]
-if {$cmd_status == "1"} { 
-	return 
-}
-	set i 0
-	set getlang [string tolower [getuser $hand XTRA OUTPUT_LANG]]
-if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
-
-if {[matchattr $hand q]} { blacktools:tell $nick $host $hand $chan $chan1 gl.glsuspend none
-	return
-}
-if {[matchattr $hand -|q $chan]} { blacktools:tell $nick $host $hand $chan $chan1 gl.suspend none
-	return
-}
-
-if {$user == ""} {
-switch $type {
-	0 {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr $cmd
-	}
-	1 {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr_nick $cmd
-	}
-	2 {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr_priv $cmd
-		}
-	}
-	return 0
-}
-
-if {[matchattr $hand nm] && [string equal -nocase "global" $user]} {
-	set gl "1"
-	banlist:getbans $nick $host $hand $chan $chan1 $user "" $type $next $gl [blacktools:banlist:gl] ""
-	return
-}
-
-if {[string match -nocase "all" $user]} {
-	set gl ""
-	set user ""
-	banlist:getbans $nick $host $hand $chan $chan1 $user "" $type $next $gl [blacktools:banlist $chan] ""
-	return
-}
-
-if {[string match -nocase "other" $user]} {
-	set gl ""
-	set user ""
-	banlist:getbans $nick $host $hand $chan $chan1 $user "" $type $next $gl [banlist $chan] "2"
-	return
-}
-
-if {[onchan $user $chan] && ![validuser $user]} {
-	set handle $user
-	set user [nick2hand $user]
-} else {
-	set handle ""
-}
-
-if {![validuser $user] && (![string equal -nocase "all" $user])} {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.nomem none
-	return
-}
-
-
-if {![matchattr $user nmo|OASMN $chan] && (![string equal -nocase "all" $user])} { blacktools:tell $nick $host $hand $chan $chan1 gl.noaccess none 
-	return
-}	
-	set gl ""
-	set timestamp [clock format [clock seconds] -format {%Y%m%d%H%M%S}]
-	set file_temp "temp.$timestamp"
-if {![file exists $file_temp]} {
-	set file [open $file_temp w]
-	close $file
-}
-	set file [open $file_temp a]
-foreach b [blacktools:banlist $chan] {
-	set bywho [lindex [split $b] 4]
-	set split_bywho [split $bywho ":"]
-	set handz [join [lindex [split $split_bywho] 0]]
-	set type [lindex [split $split_bywho] 1]
-if {[string equal -nocase $handz $user]} {
-	set id [lindex [split $b] 1]
-	set mask [lindex [split $b] 3]
-	set expire [lindex [split $b] 5]
-	set created [lindex [split $b] 6]
-	set sticky [lindex [split $b] 7]
-	set breason [lrange [split $b] 9 end]
-	set breason [blacktools:rem_comment $breason]
-if {$type != ""} {
-	puts $file "$id $mask $expire $created $bywho $sticky [join $breason]"
-			} else {
-	puts $file "$id $mask $expire $created $bywho $sticky [join $breason]"		
-			}
-		}
-	}
-	close $file
-
-	set file [open $file_temp r]
-	set w [read -nonewline $file]
-	close $file
-	set data [split $w "\n"]
-	banlist:getbans $nick $host $hand $chan $chan1 $user $handle $type $next $gl $data "1"
-	file delete $file_temp
-}
-
-proc banlist:remain {nick host hand count chan chan1 type gl user userb prv} {
-	global black lastbind botnick
-if {$count == "0"} { return }
-	set getlang [string tolower [getuser $hand XTRA OUTPUT_LANG]]
-if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
-	set split_lastbind [split $lastbind ""]
-	set charbind [lindex $split_lastbind 0]
-if {[lsearch -exact $black(cmdchar) $charbind] < 0} {
-	set charbind ""
-}
-	set firstchar [lindex $black(cmdchar) 0]
-if {[string equal $lastbind "*"]} { set charbind "prv" }
-if {[string equal -nocase "**" $lastbind]} { set charbind "$botnick " }
-if {[string equal -nocase "***" $lastbind]} { set charbind "$host" }
-if {$charbind == ""} {
-	set charbind $firstchar
-if {[validuser $hand]} {
-	set getchar [getuser $hand XTRA MYCHAR]
-if {$getchar != ""} {
-	set charbind $getchar
-		}
-	}
-}
-if {$charbind == "prv"} { set charbind "" }
-	set replace(%char%) $charbind
-	set replace(%counter%) $count
-	set replace(%user%) $user
-	set replace(%chan%) $chan
-if {$gl == "1"} {
-	set msg [black:color:set $hand $black(say.$getlang.banlist.3)]
-} 
-if {$userb == "1"} {
-	set msg [black:color:set $hand $black(say.$getlang.banlist.8)]	
-} 
-if {$user == ""} {
-	set msg [black:color:set $hand $black(say.$getlang.banlist.10)]
-}
-if {$userb == "2"} {
-	set msg [black:color:set $hand $black(say.$getlang.banlist.15)]
-} 
-if {$prv == "prv"} {
-	set msg [black:color:set $hand $black(say.$getlang.banlist.14)]
-if {$userb == "2"} {
-	set msg [black:color:set $hand $black(say.$getlang.banlist.15)]
-}
-if {$gl == "1"} {
-	set msg [black:color:set $hand $black(say.$getlang.banlist.3)]
-} 
-	puthelp "PRIVMSG $nick :[string map [array get replace] $msg]"
-	return
-}
-	switch $type {
-	0 {
-	puthelp "NOTICE $nick :[string map [array get replace] $msg]"
-}
-	1 {
-	puthelp "PRIVMSG $chan1 :[string map [array get replace] $msg]"	
-}
-	2 {
-	puthelp "PRIVMSG $nick :[string map [array get replace] $msg]"
-	}
-}
-
-}
-
-proc banlist:getbans {nick host hand chan chan1 user handle type next gl banlist userb} {
-	global black
-	set show_user $user
-	set show_handle $handle
-	set getlang [string tolower [getuser $hand XTRA OUTPUT_LANG]]
-if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
-	set getmethod [getuser $hand XTRA OUTPUT_TYPE]
-if {$getmethod == ""} { set getmethod "0" }
-	if {[string equal -nocase $next "-next"]} {
-if {[info exists black(morebans:$chan:$hand)]} {
-if {$black(morebans:$chan:$hand) >= $black(modul:nr:entries)} {
-for {set i $black(showbans:$chan:$hand)} { $i < [expr $black(showbans:$chan:$hand) + $black(modul:nr:entries)] } { incr i } {
-	set current_ban [lindex $banlist $i]
-	show:bans $nick $host $hand $chan $chan1 $gl $current_ban $userb
-		}
-	set black(morebans:$chan:$hand) [expr $black(morebans:$chan:$hand) - $black(modul:nr:entries)]
-	banlist:remain $nick $host $hand $black(morebans:$chan:$hand) $chan $chan1 $getmethod $gl $user $userb $host
-	set black(showbans:$chan:$hand) [expr $black(showbans:$chan:$hand) + $black(modul:nr:entries)]
-	} else {
-if {$black(morebans:$chan:$hand) < 1} {
-	return
-}
-for {set i $black(showbans:$chan:$hand)} { $i <= [expr $black(showbans:$chan:$hand) +  $black(morebans:$chan:$hand)]} { incr i } {
-	set current_ban [lindex $banlist $i]
-	show:bans $nick $host $hand $chan $chan1 $gl $current_ban $userb
-		}
-	set black(morebans:$chan:$hand) [expr $black(morebans:$chan:$hand) - $black(showbans:$chan:$hand)]
-	}
-	foreach tmr [utimers] {
-if {[string match -nocase "*banlist:unset:more $chan $hand*" [join [lindex $tmr 1]]]} {
-	killutimer [lindex $tmr 2]
-		}
-	}
-	utimer 30 [list banlist:unset:more $chan $hand]
-if {$black(morebans:$chan:$hand) < 1} {
-	blacktools:tell $nick $host $hand $chan $chan1 banlist.4 none
-	}
-}	
-	return
-}
-	set black(cbanlist:$chan:$hand) [llength $banlist]
-	set black(showbans:$chan:$hand) 0
-if {$black(cbanlist:$chan:$hand) > $black(modul:nr:entries)} {
-if {$gl == "1"} {
-	blacktools:tell $nick $host $hand $chan $chan1 banlist.2 "$black(cbanlist:$chan:$hand)"
-}
-if {$user == ""} {
-	blacktools:tell $nick $host $hand $chan $chan1 banlist.6 "$black(cbanlist:$chan:$hand)"
-}
-if {$userb == "1" && $handle != ""} {
-	blacktools:tell $nick $host $hand $chan $chan1 banlist.7 "$black(cbanlist:$chan:$hand) $show_user\($show_handle\)"
-}
-if {$userb == "1" && $handle == ""} {
-	blacktools:tell $nick $host $hand $chan $chan1 banlist.7 "$black(cbanlist:$chan:$hand) $show_user"
-}
-
-	set black(morebans:$chan:$hand) [expr $black(cbanlist:$chan:$hand) - $black(modul:nr:entries)]
-	for {set i 0} { $i < $black(modul:nr:entries) } { incr i } {
-	set current_ban [lindex $banlist $i]
-	show:bans $nick $host $hand $chan $chan1 $gl $current_ban $userb
-	}
-	set black(showbans:$chan:$hand) [expr $black(showbans:$chan:$hand) + $black(modul:nr:entries)]
-if {$black(morebans:$chan:$hand) > 0} {
-	banlist:remain $nick $host $hand $black(morebans:$chan:$hand) $chan $chan1 $getmethod $gl $user $userb $host
-}
-	foreach tmr [utimers] {
-if {[string match -nocase "*banlist:unset:more $chan $hand*" [join [lindex $tmr 1]]]} {
-	killutimer [lindex $tmr 2]
-		}
-	}
-	utimer 60 [list banlist:unset:more $chan $hand]
-} else {
-if {$gl == "1"} {
-	blacktools:tell $nick $host $hand $chan $chan1 banlist.2 "$black(cbanlist:$chan:$hand)"
-}
-if {$user == ""} {
-	blacktools:tell $nick $host $hand $chan $chan1 banlist.6 "$black(cbanlist:$chan:$hand)"
-}
-if {$userb == "1" && $handle != ""} {
-	blacktools:tell $nick $host $hand $chan $chan1 banlist.7 "$black(cbanlist:$chan:$hand) $show_user\($show_handle\)"
-}
-if {$userb == "1" && $handle == ""} {
-	blacktools:tell $nick $host $hand $chan $chan1 banlist.7 "$black(cbanlist:$chan:$hand) $show_user"
-}
-for {set i 0} { $i < $black(modul:nr:entries) } { incr i } {
-	set current_ban [lindex $banlist $i]
-	show:bans $nick $host $hand $chan $chan1 $gl $current_ban $userb
-		}
-	blacktools:tell $nick $host $hand $chan $chan1 banlist.4 none
-	}
-}
-
-proc banlist:unset:more {chan hand} {
-	global black
-if {[info exists black(morebans:$chan:$hand)]} {
-	unset black(morebans:$chan:$hand)
-}
-if {[info exists black(cbanlist:$chan:$hand)]} {
-	unset black(cbanlist:$chan:$hand)
-	}
-if {[info exists black(showbans:$chan:$hand)]} {
-	unset black(showbans:$chan:$hand)
-	}
-}
-
-proc show:bans {nick host hand chan chan1 gl b userb} {
-	global black
-if {$b == ""} { return }
-	set never_expire 0
-	set getlang [string tolower [getuser $hand XTRA OUTPUT_LANG]]
-if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
-if {$userb == "1"} {
-	set id [lindex [split $b] 0]
-	set mask [lindex [split $b] 1]
-	set expire [lindex [split $b] 2]
-	set created [lindex [split $b] 3]
-	set bywho [lindex [split $b] 4]
-	set sticky [lindex [split $b] 5]
-	set breason [lrange [split $b] 6 end]
-	set breason [blacktools:rem_comment $breason]
-	set breason [join [encoding convertfrom utf-8 $breason]]
-} elseif {$userb == "2"} {
-	set id "-"
-	set mask [lindex $b 0]
-	set expire [lindex $b 2]
-	set created [lindex $b 3]
-	set breason [split [lindex $b 1]]
-	set breason [join [encoding convertfrom utf-8 $breason]]
-	set bywho [split [lindex $b 5]]
-if {[isbansticky [lindex $b 0] $chan]} {
-	set sticky 1
-} else {
-	set sticky 0
-}
-} else {
-	set id [lindex [split $b] 1]
-	set mask [lindex [split $b] 3]
-	set expire [lindex [split $b] 5]
-	set bywho [lindex [split $b] 4]
-	set created [lindex [split $b] 6]
-	set sticky [lindex [split $b] 7]
-	set breason [lrange [split $b] 9 end]
-	set breason [blacktools:rem_comment $breason]
-	set breason [join [encoding convertfrom utf-8 $breason]]
-}
-	set split_bywho [split $bywho ":"]
-	set handle [lindex $split_bywho 0]
-	set type [lindex $split_bywho 1]
-if {$type != ""} {
-	set type "BAN([join [encoding convertfrom utf-8 $type]])"
-	set bywho "$handle"
-} elseif {$sticky == "1"} {
-	set type "BAN(STICK)"
-	set bywho "$handle"
-} else {
-	set bywho $handle
-	set type "BAN"
-}
-if {$expire != "0"} {
-	set expire [return_time_2 $getlang [expr $expire - [unixtime]]]
-} else {
-	set expire $black(say.$getlang.banlist.13)
-	set never_expire 1
-}
-	set created [clock format $created -format %D-%H:%M:%S]
-
-if {$never_expire == "0"} {
-if {$userb == "1"} {
-	blacktools:tell $nick $host $hand $chan $chan1 banlist.9 "$id $type $mask $created $expire $breason"
-	return
-}
-	blacktools:tell $nick $host $hand $chan $chan1 banlist.5 "$id $type $mask $bywho $created $expire $breason"
-	} else {
-if {$userb == "1"} {
-	blacktools:tell $nick $host $hand $chan $chan1 banlist.12 "$id $type $mask $created $expire $breason"
-	return
-}
-	blacktools:tell $nick $host $hand $chan $chan1 banlist.11 "$id $type $mask $bywho $created $expire $breason"
-	}        
-}
-
-################################ w ####################################
-
-proc w:process {wnick nick hand host chan chan1 type} {
-global botnick black
-	set cmd_status [btcmd:status $chan $hand "w" 0]
-if {$cmd_status == "1"} { 
-	return 
-}
-	set handle [nick2hand $wnick]
-	set show_wnick $wnick
-	set getlang [string tolower [setting:get $chan lang]]
-if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
-
-if {[matchattr $hand q]} { blacktools:tell $nick $host $hand $chan $chan1 gl.glsuspend none
-	return
-}
-if {[matchattr $hand -|q $chan]} { blacktools:tell $nick $host $hand $chan $chan1 gl.suspend none
-	return
-}
-
-if {$wnick == ""} {
-switch $type {
-	0 {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr "w"
-	}
-	1 {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr_nick "w"
-	}
-	2 {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr_priv "w"
-		}
-	}
-	return 0
-}
-if {![validchan $chan]} {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.novalidchan none
-	return
-}
-
-if {![botisop $chan] && ![setting:get $chan xonly]} {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.noop none
-	return
-}
-
-if {![onchan $wnick $chan]} {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.usernotonchan $show_wnick
-	return
-}
-if {![onchan $botnick $chan]} {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.notonchan none
-	return
-}
-
-if {[isbotnick $wnick]} {
-	return
-}
-if {[matchattr $handle $black(exceptflags) $chan]} {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.noban none
-	return
-}
-	set getreason [setting:get $chan w-reason]
-if {$getreason == ""} { 
-	set getlang [string tolower [setting:get $chan lang]]
-if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
-	set getreason $black(say.$getlang.w.5)
-	set len [llength $getreason] 
-    set random [expr int(rand()*$len)] 
-    set getreason [lindex $getreason $random]
-}
-
-if {[setting:get $chan showhandle]} {
-	set reason "($hand) $getreason"
-	} else { set reason "$getreason"
-}
-	set getcount [setting:get $chan kickcount]
-	set kcount [expr $getcount +1]
-	setting:set $chan kickcount $kcount
-	blacktools:banner3_stats "w" $chan $hand ""
-if {[setting:get $chan showcount]} {
-	set reason "$reason - $kcount -" 
-} else {
-	set reason "$reason" 
-}
-if {[setting:get $chan xtools] || [setting:get $chan xonly] && [onchan $black(chanserv) $chan]} {
-	putserv "PRIVMSG $black(chanserv) :kick $chan $wnick $reason"
-} else {
-	putserv "KICK $chan $wnick :$reason"
-}
-	puthelp "PRIVMSG $wnick :[black:color:set $hand $black(say.$getlang.w.6)]"
-}
-
-################################### k #################################
-
-proc k:process {knick nick hand host reason chan chan1 type} {
-global botnick black
-	set cmd_status [btcmd:status $chan $hand "k" 0]
-if {$cmd_status == "1"} { 
-	return 
-}
-	set handle [nick2hand $knick]
-	set found_host ""
-	set kick_host 0
-	set found_access ""
-if {[matchattr $hand q]} { blacktools:tell $nick $host $hand $chan $chan1 gl.glsuspend none
-	return
-}
-if {[matchattr $hand -|q $chan]} { blacktools:tell $nick $host $hand $chan $chan1 gl.suspend none
-	return
-}
-if {$knick == ""} {
-switch $type {
-	0 {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr "k"
-	}
-	1 {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr_nick "k"
-	}
-	2 {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.instr_priv "k"
-		}
-	}
-	return
-}
-if {![validchan $chan]} {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.novalidchan none
-	return
-}
-if {![botisop $chan] && ![setting:get $chan xonly]} {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.noop none
-	return
-}
-if {![onchan $botnick $chan]} {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.notonchan none
-	return
-}
-if {[string match -nocase "*!*" $knick]} {
-	set kick_host 1
-	set finduser [finduser $knick]
-foreach user [chanlist $chan] {
-	set gethand [nick2hand $user]
-	set gethost "$user![getchanhost $user $chan]"
-if {[string match -nocase $knick $gethost]} {
-if {[matchattr $gethand $black(exceptflags) $chan]} {
-	lappend found_access $user
-	continue
-		}	
-	lappend found_host $user
-		}
-	}
-}
-
-if {[matchattr $handle $black(exceptflags) $chan]} {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.noban none
-	return
-}
-
-if {$found_access != ""} {
-	blacktools:tell $nick $host $hand $chan $chan1 k.2 $found_access
-	return
-}
-
-if {![onchan $knick $chan] && $kick_host == "0"} {
-	blacktools:tell $nick $host $hand $chan $chan1 gl.usernotonchan $knick
-	return
-}
-
-if {$kick_host == "1"} {
-if {$found_host == ""} {
-	blacktools:tell $nick $host $hand $chan $chan1 k.1 none
-	return
-	}
-}
-
-if {[isbotnick $knick]} {
-	return
-}
-
-if {$reason == ""} {
-if {[setting:get $chan k-reason] != ""} {
-	set reason [join [setting:get $chan k-reason]]
-	}
-}
-if {$reason == ""} {
-	set getlang [string tolower [setting:get $chan lang]]
-if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }
-	set reason1 "$black(say.$getlang.k.5)"
-	set len [llength $reason1] 
-    set random [expr int(rand()*$len)] 
-    set reason1 [lindex $reason1 $random]
- } else { set reason1 "$reason" }
-if {[setting:get $chan showhandle]} {
-	set reason "($hand) $reason1"
-	} else { set reason "$reason1" 
-}
-	set getcount [setting:get $chan kickcount]
-	set kcount [expr $getcount +1]
-	setting:set $chan kickcount $kcount
-	blacktools:banner3_stats "k" $chan $hand ""
-if {[setting:get $chan showcount]} {
-	set reason "$reason - $kcount -" 
-} else {
-	set reason "$reason" 
-}
-if {[setting:get $chan xonly] && [onchan $black(chanserv) $chan]} {
-if {$found_host != ""} {
-foreach f $found_host {
-	putserv "PRIVMSG $black(chanserv) :kick $chan $f $reason"
-	}
-} else {
-	putserv "PRIVMSG $black(chanserv) :kick $chan $knick $reason"
-	}
-} else {
-if {$found_host != ""} {
-	foreach f $found_host {
-	putserv "KICK $chan $f :$reason"
-	}
-} else {
-	putserv "KICK $chan $knick :$reason"
-		}
-	}
-}
-
-##############
-#########################################################################
-##   END                                                               ##
-#########################################################################