Mise en forme de code: pensez à utiliser les balises [ tcl ] et [ /tcl ] (sans les espaces bien sûr) autour de vos codes tcl afin d'avoir un meilleur rendu et une coloration syntaxique. x


Plusieurs connections simultanémment sur une socket.
#1
Salut,
alors voilà je suis en train de faire un script qui permet d'afficher les status d'un eggdrop dans un botnet (bon en fait presque fini à part ce problème).
Sauf qu'en fait mon script réponds à une requette à la seconde (pour transmettre le status mon script réponds à une requette HTTP).
Comment je peux faire pour qu'une socket accepte plusieurs connections en même temps ? :D

tcl
	variable sockserv [socket -server "::checker::status" $port];
	proc status {sock addr port} {
		global botnet-nick;
		fconfigure $sock -translation binary -blocking 0;
		set f [open "scripts/checker/bots.txt" "r"]
		set bots [gets $f];
		close $f;
		set bot [lindex [set args [split [lindex [split [gets $sock]] 1] !]] 1];
		if {[lsearch [concat [bots] [set botnet-nick]] $bot]>-1} {
			set f [open "scripts/checker/on.gif" "r"];
		} else {
			#[...] même genre d'instructions que dans le if ci-dessus
		}
		fconfigure $f -translation binary;
		set file [read -nonewline $f];
		close $f;
		puts $sock "HTTP/1.1 200 OK\nContent-Length: [string length $file]\nContent-Type: image/gif\n\n$file";
		close $sock; 
	}

#2
Bravo pour l'innitiative, moi aussi je recherche comment faire alors ;)


Possibly Related Threads…
Thread Author Replies Views Last Post
  Erreur socket limit Amand 4 233 18/06/2022, 15:37
Last Post: Amand
  [Script] "::http::register https 443 ::tls::socket" Kossiwa 12 4,227 07/06/2020, 18:55
Last Post: DaDIsS
  [Bug] script bot socket athor69 0 3,105 31/01/2016, 17:51
Last Post: athor69
  Codage TCL - Socket incorporé KeeViiNou 15 10,105 21/03/2014, 11:46
Last Post: KeeViiNou
  Socket TCL tow 1 4,388 24/11/2012, 08:34
Last Post: Artix
  Bug bizarre : Namespace, array et socket CrazyCat 3 4,451 23/02/2012, 18:12
Last Post: djkenny
  plusieurs question en 1 tedcampa 7 5,381 22/03/2011, 11:45
Last Post: djkenny
  Socket Obu 4 5,112 27/02/2011, 03:37
Last Post: Obu
  Connections DCC fantômes Artix 0 2,744 01/07/2009, 19:25
Last Post: Artix

Forum Jump:


Users browsing this thread: 1 Guest(s)