bind pub - !connect connects
proc connects { nick uhost handle channel arg } {	
	putquick "NOTICE $nick :\0033..:Liste des connexions:.."
	catch {open "./scripts/connect.db" "r"} connexion
	set num 0
	while {![eof $connexion]} {
	gets $connexion verif
	if {$verif ne ""} {incr num 1;putquick "NOTICE $nick :\0034 $num -->\0033 [lrange $verif 0 end] \r"}
	}
	if {$num eq "0"} {putquick "NOTICE $nick :\0034Aucune connexion dans la base de donnée ! \r; return 0"}
	putquick "NOTICE $nick :\0033Fin de la Liste (\0034 $num \0033connexion(s) enregistré(s))"; return 0
	catch {close $connexion}
}

bind pub - !test v_test
proc v_test { nick uhost handle channel arg } {	
putfast "privmsg #serveur : ok "
}

bind pub - !connect connects
proc connects { nick uhost handle chan arg } {
#putquick "privmsg $chan :\00302connexions/ pseudo /dates"
set connectlog [open "./scripts/connect.db" "r+"]
set cn "\002\00306*\002"
set contenu [ read -nonewline $connectlog]
foreach g_connect [split $contenu "\n"] {
putquick "privmsg $chan :$cn \00312$g_connect"
}
}

bind raw - NOTICE sconnexion
proc sconnexion {from key arg} {
global botnick notc mod ctime
   set text [split $arg] 
   if {[join [lrange $text 2 5]] == "Notice -- Client connecting"} {
     set g_nick [lindex $text 9]
      set g_user [string range [lindex [split [lindex $text 10] "@"] 0] 1 end]
      set g_host [string range [lindex [split [lindex $text 10] "@"] 1] 0 end-1]
   set g_userhost "$g_nick!$g_user@$g_host"
   set connexion "$g_nick $g_host $ctime"
    putfast "PRIVMSG #serveur :\00301Connexion de:\00303 $g_nick \00301sous le host \00301$g_user\00304@\00301$g_host"
	}
   set logfichier [open "./scripts/connect.db" "a+"]
   puts $logfichier "$connexion"
   close $logfichier
   }
   return 0
   }
}