egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2007-12-14T23:47:43-04:00 https://forum.eggheads.org/app.php/feed/topic/11519 2007-12-14T23:47:43-04:00 2007-12-14T23:47:43-04:00 https://forum.eggheads.org/viewtopic.php?p=79344#p79344 <![CDATA[TCL HTTP: can't read "state(after)"]]>
It uses:

Code: 

::http::Finish $page

Statistics: Posted by Alchera — Fri Dec 14, 2007 11:47 pm

]]> 2007-12-14T20:46:00-04:00 2007-12-14T20:46:00-04:00 https://forum.eggheads.org/viewtopic.php?p=79342#p79342 <![CDATA[TCL HTTP: can't read "state(after)"]]>
no nice way imho, they could first check if exists state(after) to prevent occurance of unneccessary TCL errors.
Testing this theory it seems to work...

lines 165,166 change to:

Code: 

    if {[info exists state(sock)]} { catch {close $state(sock)} }    if {[info exists state(after)]} { catch {after cancel $state(after)} }
lines 197,198 change to:

Code: 

    if {[info exists state(sock)]} { catch {fileevent $state(sock) readable {}} }    if {[info exists state(sock)]} { catch {fileevent $state(sock) writable {}} }
Using HTTP 2.4.2 and changing the lines above it seems to solve the problem. Running various http queries and a quick .set errrorInfo afterwards yields the following...
<speechles> !g google
<sp33chy> 1,460,000,000 Results | Google @ http://www.google.com/ | Google Maps @ http://maps.google.com/ | Google Video @ http://video.google.com/ | Google Groups @ http://groups.google.com/
*meanwhile on the partyline directly after*
<speechles> .set errorInfo
<sp33chy> Currently: couldn't create error file for command: no such file or directory
<sp33chy> Currently: while executing
<sp33chy> Currently: "exec chmod 700 $nb_dir"

<speechles> !w .jasd asd
<sp33chy> Socket Error accessing 'jasd.wikipedia.org' .. Does it exist?
*meanwhile on the partyline directly after*
<speechles> .set errorInfo
<sp33chy> Currently: couldn't open socket: host is unreachable
<sp33chy> Currently: while executing
<sp33chy> Currently: "::http::geturl $query -timeout [expr 1000 * 5]"
Notice the top error message which is usually a state(after) error is instead an error message reporting no error found to report, so this does work as a fix. If someone can shed some light if this is indeed an http package bug it would be wonderful. ;)

Statistics: Posted by speechles — Fri Dec 14, 2007 8:46 pm

]]> 2007-12-13T04:12:47-04:00 2007-12-13T04:12:47-04:00 https://forum.eggheads.org/viewtopic.php?p=79297#p79297 <![CDATA[TCL HTTP: can't read "state(after)"]]>

Code: 

<Anti-Flood> [03:06] #Owner# set errorInfo<Anti-Flood> Currently: can't read "state(after)": no such element in array<Anti-Flood> Currently:     while executing<Anti-Flood> Currently: "after cancel $state(after)"
i always was trying to identify the script causing this error. So finally i understand it s related to the HTTP. Indeed, i use many scripts that deals with HTTP.

Statistics: Posted by Zircon — Thu Dec 13, 2007 4:12 am

]]> 2007-12-13T02:34:53-04:00 2007-12-13T02:34:53-04:00 https://forum.eggheads.org/viewtopic.php?p=79294#p79294 <![CDATA[TCL HTTP: can't read "state(after)"]]>

Code: 

catch {set page [::http::geturl $movieurl -timeout $::movietimeout]} errorif {[string match -nocase "*couldn't open socket*" $error]} {puthelp "PRIVMSG $chan :Error: couldn't connect to filmspot.com..Try again later."      ::http::cleanup $pagereturn}if { [::http::status $page] == "timeout" } {puthelp "PRIVMSG $chan :Error: Connection to filmspot.com timed out..Try again later."      ::http::cleanup $pagereturn}set html [::http::data $page]
That's how I used to do my web procs. Now I just leave off the http::cleanup call.

I posted about the same error messages before, and was informed that http::cleanup is on a timer anyway, so calling it directly was unneeded. Haven't seen that error in the scripts I fixed that don't call http::cleanup (except at the end, after getting data.)

IOW, my newer scripts take the form:

Code: 

catch {set page [::http::geturl $movieurl -timeout $::movietimeout]} errorif {[string match -nocase "*couldn't open socket*" $error]} {puthelp "PRIVMSG $chan :Error: couldn't connect to filmspot.com..Try again later."return}if { [::http::status $page] == "timeout" } {puthelp "PRIVMSG $chan :Error: Connection to filmspot.com timed out..Try again later."return}set html [::http::data $page]::http::cleanup $page

Statistics: Posted by rosc2112 — Thu Dec 13, 2007 2:34 am

]]> 2007-12-12T18:39:34-04:00 2007-12-12T18:39:34-04:00 https://forum.eggheads.org/viewtopic.php?p=79288#p79288 <![CDATA[TCL HTTP: can't read "state(after)"]]>
De Kus: Did you lodge a bug report?

Statistics: Posted by Alchera — Wed Dec 12, 2007 6:39 pm

]]> 2006-03-15T09:10:35-04:00 2006-03-15T09:10:35-04:00 https://forum.eggheads.org/viewtopic.php?p=61079#p61079 <![CDATA[TCL HTTP: can't read "state(after)"]]>

Code: 

[-RO^Bot-] [12:58:59] #De_Kus# set errorInfo[-RO^Bot-] Currently: can't read "state(after)": no such element in array[-RO^Bot-] Currently:     while executing[-RO^Bot-] Currently: "after cancel $state(after)"
This occurs with most (all?) asyncron HTTP requests I use in eggdrop. The general problem is obvious: after using ::http::cleanup $token, $state(after) has already been removed before its called by HTTP. But what else should I do? Do you believe using utimer 1 with that command would be a solution or rather a workaround? Is that an error of the HTTP package and should be reported to tcl.tk?

If greped this part of the script:

Code: 

[-RO^Bot-] [14:02:58] tcl: evaluate (.tcl): exec grep after /usr/local/lib/tcl8.4/http2.5/http.tcl[-RO^Bot-] Tcl:     catch {after cancel $state(after)}
no nice way imho, they could first check if exists state(after) to prevent occurance of unneccessary TCL errors.
This occurs at least till HTTP 2.5.2 from TCL 8.4.12.

Edit: not even after 60000 for http::cleanup or a set state(after) "" after the cleanup helps...

Statistics: Posted by De Kus — Wed Mar 15, 2006 9:10 am

]]>