Codage TCL - Socket incorporé

[BaGrift]

Non c'est un example pour que tu comprene le fonctionnement du proc

---

Tien voici un code d'exemple a toi de le modifier a ta guise

tclcopier

######################
# Configuration Link #
######################
 
set laura(link)     "Adresse-du-link"
set laura(info)     "Info-du-link"
set laura(host)     "Host-du-link"
set laura(ip)       "Ip-du-link"
set laura(port)     "Port-du-link"
set laura(pass)     "Mot-de-passe-du-link"
set laura(pseudo)   "Pseudo-du-robot"
set laura(real)     "Realname-du-robot"
set laura(ident)    "Ident-du-robot"
set laura(salon)    "Salon-du-robot"
set laura(mode)     "+oOSqsw"
 
 
#############
# Connexion #
#############
 
proc connexion {} {
	global laura
	if {![catch "connect $laura(ip) $laura(port)" laura(idx)]} {
		putdcc $laura(idx) "PASS $laura(pass)"
		putdcc $laura(idx) "SERVER $laura(link) 1 :$laura(info)"
		putdcc $laura(idx) ":$laura(link) NICK $laura(pseudo) 1 [unixtime] $laura(ident) $laura(host) $laura(link) :$laura(real)"
		putdcc $laura(idx) ":$laura(pseudo) MODE $laura(pseudo) $laura(mode)"
		putdcc $laura(idx) ":$laura(pseudo) JOIN $laura(salon)"
		control $laura(idx) event; utimer 30 verification
	}
}
 
################
# Verification #
################
 
if {![info exists laura(idx)]} { connexion }
 
proc verification {} {
	global laura
	if {[valididx $laura(idx)]} { utimer 30 verification } else { connexion }
}
 
#############
# Evenement #
#############
 
proc event {idx arg} {
	global laura
	set arg [split $arg]
	if {[lindex $arg 0]=="PING"} { putdcc $idx "PONG [lindex $arg 1]" }
}