egghelp/eggheads community

socket timeout

2005-05-30T19:13:26-04:00

read demonds post again.
All my scripts using real async connection are using IPs for connect and socket.

check as example my google script:

Code:

dnslookup www.google.de getgoogledns:cbdnslookup www.filemirrors.com getfmdns:cbproc getgoogledns:cb {ip host status} { set ::googleip $ip }proc getfmdns:cb {ip host status} { set ::fmip $ip }

This is running when the script is loaded, however, you could use dnslookup everytime, but that would only be necesarry for dynamic IPs, not for static IPs .

Statistics: Posted by De Kus — Mon May 30, 2005 7:13 pm

socket timeout

2005-05-30T15:51:05-04:00

i am pretty sure because changed the program to fileevents

Code:

proc test:rss { url port get offset } {        global noff        set ::sid [socket $url $port]        set noff($::sid) 1        fconfigure $::sid -buffering line -blocking 0        fileevent $::sid readable "gotdata $::sid $offset"        puts $::sid "GET $get HTTP/1.0"        puts $::sid "User-Agent: bot by ex"        puts $::sid "Host: $url"        puts $::sid "Connection: close"        puts $::sid ""        flush $::sid}proc gotdata { sid offset } {        global noff geturl        if {[gets $sid bl] > 0} {                putlog "$bl $noff($sid)"                if {[regexp {^.*(.+?).*} $bl num title]} {                        if {$noff($sid) < $offset} {                                incr noff($sid)                        } else {                                set geturl($sid) $title                        }                } elseif { [regexp ^.*link>(.+?)

and it still crashs while trying to connect to eggheads.orgStatistics: Posted by ex — Mon May 30, 2005 3:51 pm



socket timeout
2005-05-30T14:31:29-04:00

if you are certain that your [socket] call blocks because of DNS resolving problem, use eggdrop's asynchronous resolver (the dns module) via [dnslookup] (check out tcl-commands.doc)Statistics: Posted by demond — Mon May 30, 2005 2:31 pm




socket timeout
2005-05-30T14:04:57-04:00

yes i read it. but the problem is, that the eggdrop doesn't arrive at any following line

even:Code: 
set utimer [utimer 10 [list close:socket [set sock [socket -async $url 80]]]]
does not help

at the moment it crash while trying to connect to eggheads.org
they are obviosly down.
i think it hangs, when trying to resolve the hostname
and no matter what scripting follows. it always hangs on the line with socket.Statistics: Posted by ex — Mon May 30, 2005 2:04 pm




socket timeout
2005-05-30T11:34:42-04:00

did you bother to read through TCL docs, following the links I posted? If not, do so, and pay attention to the examples

from socket manpage:-async
    The -async option will cause the client socket to be connected asynchronously. This means that the socket will be created immediately but may not yet be connected to the server, when the call to socket returns. When a gets or flush is done on the socket before the connection attempt succeeds or fails, if the socket is in blocking mode, the operation will wait until the connection is completed or fails. If the socket is in nonblocking mode and a gets or flush is done on the socket before the connection attempt succeeds or fails, the operation returns immediately and fblocked on the socket returns 1.
Statistics: Posted by demond — Mon May 30, 2005 11:34 am




socket timeout
2005-05-30T10:46:28-04:00

ok tried it 
Code: 
proc get:rss2 { url port get offst news } {        set ::sid [socket $url $port]        fconfigure $::sid -buffering line -blocking 0        fileevent $::sid readable gotdata:rss}proc gotdata:rss { } {...}
thats the way someone aut of #tcl channel showed me.

but it also hangs in the line with 'socket' in it.Statistics: Posted by ex — Mon May 30, 2005 10:46 am




socket timeout
2005-05-30T03:17:52-04:00

no, but the correct way to implement this is either set the socket in non-blocking mode and read from/write to it only when ready (using fconfigure and fileevent) or use eggdrop's built-in socket commands ([connect] and [control])Statistics: Posted by demond — Mon May 30, 2005 3:17 am




socket timeout
2005-05-30T02:36:32-04:00

When my eggdrop tries to acces a webserver and this server is currently offline, the following line causes a ping timeout for my eggdrop often because  he is totally blocked while trying to connect
Code: 
proc get:rss { url port get offset } {        if { [catch {set sock [socket -async $url $port]}] } {                putlog "error: Can't reach $url $port"                return 0        } else {                 ...
is there any possibility to set a timeout for socket ? so that he doesn't try to reach for longer than 5 seconds or something like that?Statistics: Posted by ex — Mon May 30, 2005 2:36 am