Ejemplo de socket como servidor

Con esto puedes comprobar cómo funcionaría una interfaz en telnet

 

set serverPort 12345
socket -server serverConnection $serverPort
proc serverConnection {sock ip port} {
	putlog "Conexión desde $ip ($port)"
	fconfigure $sock -buffering line
	fileevent $sock readdata [list readConnection $sock]
}

proc readConnection {sock} {
	if {[eof $sock]} {
		putlog "Conexión cerrada."
		close $sock
		return
	}
	gets $sock line
	putlog "Recibido: $line"
}
if {[info commands putlog] eq ""} {
	proc putlog {line} {
		puts $line
	}
}

Leave a Reply