proc replacehosts {handle args} {
   setuser $handle HOSTS
   foreach arg $args {
      setuser $handle HOSTS $arg
   }
}
proc ReplaceHosts {hand idx text} {
   replacehosts [lindex $text 0] [lrange $text 1 end]
}
bind dcc n replacehosts ReplaceHosts

set fpath "/home/user/data${botnick}log.tmp"

package require tls

http::register https 443 tls::socket

#######################################
# Mon premier script tcl avec mysqtcl #
#######################################
#Login mySQL
set ahi(sql:login) "ahinu"
#Pass mySQL
set ahi(sql:pass) "beRl1"
#base mySQL			
set ahi(sql:db) "ahinu"
#IP mySQL		
set ahi(sql:host) "127.0.0.1"
#socket mySQL
set ahi(sql:sock) "/tmp/ahi.sock"

#Vérification si le package mysqltcl est prèsent !
catch {package require mysqltcl}

# Connexion à la base SQL #
proc service:connect {} {
	set ::mysqlink [mysqlconnect -host $::ahi(sql:host) -user $::ahi(sql:login) -password $::ahi(sql:pass) -sock $::ahi(sql:sock)]
	mysqluse $::mysqlink $::ahi(sql:db)
}
# Déconnexion de la base SQL # 
proc service:deconnect {} {
	mysqlclose $::mysqlink; unset -nocomplain ::mysqlink	
}
 
bind pub - !admin admin:pub
	proc admin:pub {nick host hand channel arg} {
	set nbadmin "0"
	set nblog "0"
	dccbroadcast "*** \2Admin\2 by $nick"
	putquick "NOTICE $nick :\2\0034Authed IDNick Level Nick" 
	service:connect
	mysqlsel $::mysqlink "SELECT * FROM `acces` ORDER BY pseudo"
	if {[mysqlresult $::mysqlink rows] ne 0} {
		while {[set row [mysqlnext $::mysqlink]] != ""} {
			set suspend [lindex $row 3]
			set status [lindex $row 4]
			if {$suspend!="ON"} {
				incr nbadmin 1
				if {$status=="ON"} {
					incr nblog 1
					set status "\2\0033YES\003\2"
					putquick "NOTICE $nick :$status [lindex $row 0] [lindex $row 2] [lindex $row 5]"
				} else {
					set status "\2\0034NO\003\2"
					putquick "NOTICE $nick :$status [lindex $row 0] [lindex $row 2]"
				}
			}
		}
	}
	service:deconnect
	putquick "NOTICE $nick :Il y a $nbadmin Admin enregistré dont $nblog en ligne"
}