egghelp/eggheads community

Async socket waits untill ends

2005-02-10T11:57:42-04:00

where exactly cause ive tryed it and i got would wait forever and script breaks

Try this:

Code:

proc open_sock {host port} { if {[catch {socket -async $host $port} sock]} {puts "Connection to $host:$port failed: $sock"return 0} else {fileevent $sock writable [list check_sock $sock $host $port] return 1}} proc check_sock {sock host port} { global pendingif {[fconfigure $sock -error]==""} { puts "Connected to $host:$port" } else { puts "Connection to $host:$port failed: [fconfigure $sock -error]" } close $sockincr pending -1;}proc doit args {global pendingset pending 0foreach {host port} $args {incr pending [open_sock $host $port]}while {$pending} {vwait pending}puts done.}doit localhost 22 localhost 23 localhost 25 localhost 110

Statistics: Posted by user — Thu Feb 10, 2005 11:57 am

Async socket waits untill ends

2005-02-10T01:25:11-04:00

and yes sorry hehe by shell i meanth shell script as in tclsh not as in eggdrop shell..

Statistics: Posted by Ofloo — Thu Feb 10, 2005 1:25 am

Async socket waits untill ends

2005-02-10T01:04:20-04:00

where exactly cause ive tryed it and i got would wait forever and script breaks

Statistics: Posted by Ofloo — Thu Feb 10, 2005 1:04 am

Re: Async socket waits untill ends

2005-02-09T11:56:58-04:00

Move the vwait to after your while loop? (remove it from the proc)

Eggdrop won't exit when your script ends, so you don't need the vwait.

I don't think he's running it in eggdrop's interpreter:

Code:

#!/usr/bin/tclsh

Statistics: Posted by user — Wed Feb 09, 2005 11:56 am

Async socket waits untill ends

2005-02-09T11:43:15-04:00

Eggdrop won't exit when your script ends, so you don't need the vwait.

Statistics: Posted by stdragon — Wed Feb 09, 2005 11:43 am

Async socket waits untill ends

2005-02-08T16:30:32-04:00

well its required in a shell script otherwize the app would close ..

Statistics: Posted by Ofloo — Tue Feb 08, 2005 4:30 pm

Async socket waits untill ends

2005-02-06T14:33:56-04:00

Probably cos of the 'vwait done($sock)'

Statistics: Posted by caesar — Sun Feb 06, 2005 2:33 pm

Async socket waits untill ends

2005-02-06T08:36:18-04:00

Code:

#!/usr/bin/tclshproc open_sock {host port} {   global done   if {[catch {socket -async $host $port} sock]} {      puts "Connection to $host:$port failed: $sock"   } else {      fileevent $sock writable [list check_sock $sock $host $port]      vwait done($sock)   }}proc check_sock {sock host port} {   global done   if {[fconfigure $sock -error]==""} {      puts "Connected to $host:$port"   } else {      puts "Connection to $host:$port failed: [fconfigure $sock -error]"   }   close $sock   set done($sock) 1}

i am using an async socket in a while to connect to multiple targets at once but there appears to be no difference when i use a async socket or a regular one.. it waits untill the proc has ended .. why is this ?

i am using foreach ... to go true the process any suggestions to speed it up?

Statistics: Posted by Ofloo — Sun Feb 06, 2005 8:36 am