tclscripts-BlackTools-TCL/BlackTools/Commands/BT.OwnerCmds.tcl

#########################################################################
##          BlackTools - The Ultimate Channel Control Script           ##
##                    One TCL. One smart Eggdrop                       ##
#########################################################################
#########################   OWNER CMDS TCL   ############################
#########################################################################
##						                       ##
##   BlackTools  : http://blacktools.tclscripts.net	               ##
##   Bugs report : http://www.tclscripts.net/	                       ##
##   GitHub page : https://github.com/tclscripts/BlackToolS-TCL        ##
##   Online Help : irc://irc.undernet.org/tcl-help 	               ##
##                 #TCL-HELP / UnderNet                                ##
##                 You can ask in english or romanian                  ##
##					                               ##
#########################################################################


################################ Commands ###################################

################################## update ###################################

proc update:process {nick host hand chan chan1 what type} {
	global black
	set cmd_status [btcmd:status $chan $hand "update" 0]
	set chan1 $chan
	set option [lindex $what 1]
	set what [lindex $what 0]
if {$cmd_status == "1"} { 
	return 
}
switch $what {
	on {
	set out [blacktools:update_on_off 0]
if {$out == 0} {
	blacktools:tell $nick $host $hand $chan $chan1 autoupdate.35 ""
} elseif {$out == 2} {
	blacktools:tell $nick $host $hand $chan $chan1 autoupdate.36 ""
	rehash
}
	}
	off {
	set out [blacktools:update_on_off 1]
if {$out == 1} {
	blacktools:tell $nick $host $hand $chan $chan1 autoupdate.37 ""
} elseif {$out == 3} {
	blacktools:tell $nick $host $hand $chan $chan1 autoupdate.38 ""
	rehash
}
	}
	time {
if {$option == ""} {
	set set_time [blacktools:update_set_time 0 0]
	blacktools:tell $nick $host $hand $chan $chan1 autoupdate.41 $set_time
	return
}
	set num [time_return_minute $option]
if {$num == -1} {set num 60}
	blacktools:update_set_time $num 1
	blacktools:tell $nick $host $hand $chan $chan1 autoupdate.42 "$option $num"
	rehash
	foreach tmr [timers] {
if {[string match "*blacktools:update:timer*" [join [lindex $tmr 1]]]} {
	killtimer [lindex $tmr 2]
	}
}
	timer $num blacktools:update:timer
	}
	start {
if {[info exists black(update_disabled)]} {
	blacktools:tell $nick $host $hand $chan $chan1 autoupdate.34 "$black(update_disabled)"
	return
}
if {[info exists black(backup_update)]} {
	blacktools:tell $nick $host $hand $chan $chan1 autoupdate.39 ""
	return
}
	blacktools:update $nick $host $chan 0
}
	check {
if {[info exists black(update_disabled)]} {
	blacktools:tell $nick $host $hand $chan $chan1 autoupdate.34 "$black(update_disabled)"
	return
}
if {[info exists black(backup_update)]} {
	blacktools:tell $nick $host $hand $chan $chan1 autoupdate.39 ""
	return
}
	blacktools:update_check $nick $hand $host $chan 0
}
	default {
switch $type {
	0 {
	blacktools:tell $nick $host $hand $chan $chan gl.instr "update"
	}
	1 {
	blacktools:tell $nick $host $hand $chan $chan gl.instr_nick "update"
	}
	2 {
	blacktools:tell $nick $host $hand $chan $chan gl.instr_priv "update"
		}
	}
	return		
		}
	}
}

################################## login ####################################

proc login:process {nick host hand chan chan1} {
	global black botnick
	set cmd_status [btcmd:status $chan $hand "login" 0]
if {$cmd_status == "1"} { 
	return 
}
if {[info exists black(logged)]} {
	blacktools:tell $nick $host $hand $chan $chan1 login.2 "$black(chanserv)"
	return
}
	putserv "PRIVMSG $black(hostchanserv) :login $black(username) $black(password)"
   	putserv "MODE $botnick :$black(xmod)"

if {[info exists black(notlogged)] || [info exists black(notlogged:failed)] || [info exists black(notlogged:invalid)]} {
	blacktools:tell $nick $host $hand $chan $chan1 login.3 "$black(chanserv)"
	}
}

################################## cp #######################################

proc cp:process {nick host hand chan chan1 type what from to} {
	global black
	set cmd_status [btcmd:status $chan $hand "cp" 0]
if {$cmd_status == "1"} { 
	return 
}
	set notvalid ""
if {![regexp {^[&#]} $from] || (![regexp {^[&#]} $to] && ![string equal -nocase $to "all"])} {
if {$type == "0"} {
	blacktools:tell $nick $host $hand $chan $chan1 gl.instr "cp"
}
if {$type == "1"} {
	blacktools:tell $nick $host $hand $chan $chan1 gl.instr_nick "cp"
}
if {$type == "2"} {
	blacktools:tell $nick $host $hand $chan $chan1 gl.instr_priv "cp"
}
	return
}

if {![validchan $from]} {
	lappend notvalid $from
}
if {![validchan $to]} {
	lappend notvalid $to
}
if {$notvalid != ""} {
	if {[llength $notvalid] > 1} {
	blacktools:tell $nick $host $hand $chan $chan1 cp.3 $notvalid
	} else {
	blacktools:tell $nick $host $hand $chan $chan1 cp.2 $notvalid
	}
	return
}
	switch $what {
	
banlist {
	set counter 0
if {[llength [blacktools:banlist $from]] < 1} {
	blacktools:tell $nick $host $hand $chan $chan1 cp.1 $from
	return
}
foreach b [blacktools:banlist $from] {
	set file [open $black(bans_file) "a"]
	set num [blacktools:ban:find_id]
	set enc_chan [encoding convertto utf-8 $to]
	set read_type [lindex [split $b] 0]
	set read_host [lindex [split $b] 3]
	set read_hand [lindex [split $b] 4]
	set read_time1 [lindex [split $b] 5]
	set read_time2 [lindex [split $b] 6]
	set read_num1 [lindex [split $b] 7]
	set read_num2 [lindex [split $b] 8]
	set read_reason [join [lrange [split $b] 9 end]]
	
	set return [blacktools:ban:exists $read_host $enc_chan]
if {$return == ""} {
	set counter [expr $counter + 1]
	puts $file "$read_type $num [string tolower $enc_chan] [string tolower $read_host] $read_hand $read_time1 $read_time2 $read_num1 $read_num2 $read_reason"
	}
	close $file
}
	blacktools:tell $nick $host $hand $chan $chan1 cp.4 "$counter"
}

badchans {
	set total_counter 0
	set inc 0
	set file [open $black(add_file) r]
	set size [file size $black(add_file)]
	set data [split [read $file $size] \n]
	close $file
foreach line $data {
	set num 0
	set temp_num 0
	set read_chan [lindex [split $line] 0]
	set enc_chan [encoding convertfrom utf-8 $read_chan]
	set read_type [lindex [split $line] 1]
if {[string match -nocase $enc_chan $from] && [string match -nocase $read_type "BADCHAN"]} {
	set total_counter [expr $total_counter + 1]
	set bdchan [lindex [split $line] 3]
	set reason [join [lrange [split $line] 4 end]]
	set findchan [prot:findbadchan $to $bdchan]
if {$findchan != "1"} {
	while {$temp_num == 0} {
	set get [find:num $num $to "BADCHAN"]
if {$get == "$num"} {
	set num [expr $num + 1]
	} else { set temp_num 1 }
}
	set inc [expr $inc + 1]
	set file [open $black(add_file) a]
	puts $file "$to BADCHAN $num $bdchan $reason"
	close $file
		}
	}
}
	blacktools:tell $nick $host $hand $chan $chan1 cp.7 "$inc $total_counter"
}

userlist {
	set time [unixtime]
	set counter 0
	set total_counter 0
foreach u [userlist] {
if {[matchattr $u $black(exceptflags) $from]} {
	set total_counter [expr $total_counter + 1]
	set cflags [chattr $u | $from]
if {![matchattr $cflags $to]} {
	set counter [expr $counter + 1]
	chattr $u $cflags $to
	setuser $u XTRA CHANMODIF($to) $time:cp_from_$from
			}
		}
	}
	blacktools:tell $nick $host $hand $chan $chan1 cp.5 "$counter $total_counter"
}

settings {
	set getflags [get:flags $from]
	set getstr [get:str $from]
	set counter 0
	set file [open $black(extra_file) a]
foreach flag $getflags {
if {[string equal -nocase $flag "+forward"]} {
	continue
}
	set return [blacktools:flag:exists $to $flag]
if {$return == "0"} {
	set counter [expr $counter + 1]
	puts $file "$to XTRA $flag"
	}
}
foreach str $getstr {
	set split_str [split $str "&&"]
	set s [lindex $split_str 0]
if {[string equal -nocase $s "backchan"]} {
	continue
}
	set why [join [lrange $split_str 1 end]]
	set return [blacktools:flag:exists $to $s]
if {$return == "0"} {
	set counter [expr $counter + 1]
	puts $file "$to XTRA $s [concat $why]"
	}
}
	set gettopic [topic:get $from]
if {$gettopic != ""} {
	set counter [expr $counter + 1]
	msg:add $gettopic $to "TOPIC"
}
	close $file
	blacktools:tell $nick $host $hand $chan $chan1 cp.6 "$counter"
}

	default {
if {$type == "0"} {
	blacktools:tell $nick $host $hand $chan $chan1 gl.instr "cp"	
				}
if {$type == "1"} {
	blacktools:tell $nick $host $hand $chan $chan1 gl.instr_nick "cp"
			}
		}
	}
}

############################## status #################################

proc status:process {nick host hand chan} {
	global black botnick server uptime {server-online} countusers version getowner tcl_patchLevel
	set cmd_status [btcmd:status $chan $hand "status" 0]
if {$cmd_status == "1"} { 
	return 
}
	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
}	
foreach c [channels] {
if {![setting:get $c invisible]} {
	lappend channels $c
	} else {
if {[matchattr $hand n]} {
	lappend channels \002$c\002
		}
	}
}
	set chan1 "$chan"
	blacktools:tell $nick $host $hand $chan $chan1 status.1 "$black(name) $black(vers) $version $tcl_patchLevel"
	blacktools:tell $nick $host $hand $chan $chan1 status.4 [join $channels]
	blacktools:tell $nick $host $hand $chan $chan1 status.5 "[countusers] [userlist n]"
}

############################## broadcast ##############################

proc broadcast:cmd:process {nick host hand chan chan1 text type} {
global botnick black
	set cmd_status [btcmd:status $chan $hand "broadcast" 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
}
if {$text == ""} {
switch $type {
	0 {
	blacktools:tell $nick $host $hand $chan $chan1 gl.instr "broadcast"
	}
	1 {
	blacktools:tell $nick $host $hand $chan $chan1 gl.instr_nick "broadcast"
	}
	2 {
	blacktools:tell $nick $host $hand $chan $chan1 gl.instr_priv "broadcast"
		}
	}
	return 0
}

foreach c [channels] {
if {![setting:get $c silent]} {
	putserv "PRIVMSG $c :\[\002BROADCAST\002\] $text"
		}
	}
}

############################## msg ####################################

proc msg:process {nick host hand chan chan1 who msg type} {
	global black
	set cmd_status [btcmd:status $chan $hand "msg" 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
}

if {$who == ""} {
switch $type {
	0 {
	blacktools:tell $nick $host $hand $chan $chan1 gl.instr "msg"
	}
	1 {
	blacktools:tell $nick $host $hand $chan $chan1 gl.instr_nick "msg"
	}
	2 {
	blacktools:tell $nick $host $hand $chan $chan1 gl.instr_priv "msg"
		}
	}
	return
}


if {[isbotnick $who]} { 
	return
}
	putserv "USERHOST :$who"
	bind RAW - 302 msg:online:check
	set ::msgnick $nick
	set ::hand $hand
	set ::host $host
	set ::chan $chan
	set ::chan1 $chan1
	set ::type $type
	set ::msg $msg
	set ::who $who
}

proc msg:online:check {from keyword arguments } {
	global black
	set msgnick $::msgnick
	set hand $::hand
	set host $::host
	set chan $::chan
	set chan1 $::chan1
	set who $::who
	set msg $::msg
	
	set hostname [lindex [split $arguments] 1]
if {[regexp {\+} $hostname]} {
	set split_host [split $hostname "+"]
} else {
	set split_host [split $hostname "-"]
}
	set mask [lindex $split_host 1]
	set getnick [string map {
			"=" ""
			":" ""
			} [lindex $split_host 0]]
if {$getnick != ""} {
if {[matchattr $hand -|A $chan] && [string equal -nocase $who $black(chanserv)]} {
	check:if:bind "msg:online:check" "302"
	return
}
if {$host != ""} {
if {[matchattr $hand -|AM $chan] && [onchan $who $chan]} {
	putserv "PRIVMSG $who :$msg"
	check:if:bind "msg:online:check" "302"
	return
	}
}
if {[matchattr $hand mno]} {
	putserv "PRIVMSG $who :$msg"
}
	} else {
	blacktools:tell $msgnick $host $hand $chan $chan1 gl.notonline "$who"
}
	check:if:bind "msg:online:check" "302"
}

proc msg:getmessage {nick host hand arg} {
	global black
	
	
	
}

############################### channels ########################

proc channels:process {nick host hand chan chan1} {
global botnick black
	set cmd_status [btcmd:status $chan $hand "channels" 0]
if {$cmd_status == "1"} { 
	return 
}
if {[matchattr $hand q]} { blacktools:tell $nick $host $hand $chan $chan1 gl.glsuspend none
	return
}
	set num [llength [channels]]
	set minusers "5"
	set getlang [string tolower [getuser $hand XTRA OUTPUT_LANG]]
if {$getlang == ""} { set getlang "[string tolower $black(default_lang)]" }

foreach c [channels] {
if {![setting:get $c invisible]} {
	set usersnumber [llength [chanlist $c]]
if {[channel get $c inactive]} {
if {[info exists black(abuse:$c)]} {
	lappend message_aschan "[join $c ", "]"
} else {
	lappend message_schan "[join $c ", "]"
}
} elseif {![onchan $botnick $c]} {
	lappend message_nchan "[join $c ", "]"	
} elseif {[onchan $botnick $c] && (![botisop $c]) && ($usersnumber >= $minusers)} {
	lappend message_ok "[join $c ", "]"
} elseif {[onchan $botnick $c] && ($usersnumber < $minusers)} {
	lappend message_nmin "[join $c ", "]"
}
if {[botisop $c] && ($usersnumber >= $minusers)} {
	lappend message_ok "[join @$c ", "]"
			}
		} else {
if {[matchattr $hand n]} {
	lappend message_inv "[join $c ", "]"
			}		
		}
	}

	blacktools:tell $nick $host $hand $chan $chan1 channels.1 $num
if {[info exists message_ok]} {
foreach word [wordwrap [join "\[$black(say.$getlang.channels.3)\]: $message_ok"] 350 ,] {
	blacktools:tell $nick $host $hand $chan $chan1 channels.2 $word
	}
}
if {[info exists message_nchan]} {
foreach word [wordwrap [join "\[$black(say.$getlang.channels.4)\]: $message_nchan"] 350 ,] {
	blacktools:tell $nick $host $hand $chan $chan1 channels.2 $word
	}
}
if {[info exists message_nmin]} {
foreach word [wordwrap [join "\[$black(say.$getlang.channels.7) < $minusers\]: $message_nmin"] 350 ,] {
	blacktools:tell $nick $host $hand $chan $chan1 channels.2 $word
	}
}
if {[info exists message_schan]} {
foreach word [wordwrap [join "\[$black(say.$getlang.channels.5)\]: $message_schan"] 350 ,] {
	blacktools:tell $nick $host $hand $chan $chan1 channels.2 $word
		}
	}
if {[info exists message_aschan]} {
foreach word [wordwrap [join "\[$black(say.$getlang.channels.6)\]: $message_aschan"] 350 ,] {
	blacktools:tell $nick $host $hand $chan $chan1 channels.2 $word
		}
	}
if {[info exists message_inv]} {
foreach word [wordwrap [join "\[$black(say.$getlang.channels.8)\]: $message_inv"] 350 ,] {
	blacktools:tell $nick $host $hand $chan $chan1 channels.2 $word
		}
	}
}

############################### nick ##################################

proc tempnick:process {thenick tonick host hand chan chan1 type} {
	global nick lastbind black
	set cmd_status [btcmd:status $chan $hand "nick" 0]
if {$cmd_status == "1"} { 
	return 
}
if {$thenick == ""} {
switch $type {
	0 {
	blacktools:tell $tonick $host $hand $chan $chan1 gl.instr "nick"
	}
	1 {
	blacktools:tell $tonick $host $hand $chan $chan1 gl.instr_nick "nick"
	}
	2 {
	blacktools:tell $tonick $host $hand $chan $chan1 gl.instr_priv "nick"
		}
	}
	return
}
if {$black(nickserv:identify) == "1"} {
	putserv "PRIVMSG $black(nickserv:host) :RELEASE $thenick $black(nickserv:pass)"
	}
	set nick $thenick
	blacktools:tell $tonick $host $hand $chan $chan1 nick.4 $thenick	
}

proc nick:process {who newnick host hand chan} {
global black nick config
	set chan1 "$chan"
if {$newnick == ""} {
	blacktools:tell $who $host $hand $chan $chan1 nick.2 $newnick
	return
}
	blacktools:tell $who $host $hand $chan $chan1 nick.1 $newnick
	set ::lastnick [config:getinfo $config "set nick \"*\""]
if {$black(nickserv:identify) == "1"} {
	putserv "PRIVMSG $black(nickserv:host) :RELEASE $newnick $black(nickserv:pass)"
}
	set nick [join $newnick]
	set error [config:save $config "set nick \"*\"" "set nick \"$newnick\""]
if {$error == "0"} {
	blacktools:tell $who $host $hand $chan $chan1 nick.3 ""
	}
	bind RAW - 432 check:validnickname
}

##############
#########################################################################
##   END                                                               ##
#########################################################################