Statistics: Posted by dj-zath — Wed Mar 25, 2009 3:08 am

Statistics: Posted by nml375 — Tue Mar 24, 2009 2:21 pm

proc  RacSkt {} {        global RacIP RacPort RacInfo        if {([catch {set RacInfo [exec fetch -q -A -m -T 1 -o - http://$RacIP:$RacPort/x/playing.cgi];};])} {                putlog {Connection NOT present};                return 0;        } else {                putlog {Connection present!};                return 0;        };}

Statistics: Posted by dj-zath — Tue Mar 24, 2009 1:48 am

fileevent readable NEVER works and fileevent writable ALWAYS works- even if the conneection isn't!

A channel is considered to be readable if there is unread data available on the underlying device. A channel is also considered to be readable if there is unread data in an input buffer, except in the special case where the most recent attempt to read from the channel was a gets call that could not find a complete line in the input buffer. This feature allows a file to be read a line at a time in nonblocking mode using events. A channel is also considered to be readable if an end of file or error condition is present on the underlying file or device. It is important for script to check for these conditions and handle them appropriately; for example, if there is no special check for end of file, an infinite loop may occur where script reads no data, returns, and is immediately invoked again.

A channel is considered to be writable if at least one byte of data can be written to the underlying file or device without blocking, or if an error condition is present on the underlying file or device.

while {(![eof $PlaySock])} {set PlayInfo [gets $PlaySock];}

Statistics: Posted by nml375 — Mon Mar 23, 2009 6:45 pm

Statistics: Posted by dj-zath — Mon Mar 23, 2009 2:10 pm

proc    RacNfo {RacSock CA} {  global RacIP RacPort RacInfo  putlog {Rac Test}  if {    ([catch {      after cancel $CA      flush $RacSock      puts $RacSock "GET /x/playing.cgi HTTP/1.0\r\nUser-Agent: Mozilla\r\nHOST $RacIP:$RacPort\r\n\r\n\r\n\r\n"      flush $RacSock      while {(![eof $RacSock])} {        set RacInfo [gets $RacSock]      }      catch {flush $RacSock}      catch {close $RacSock}    }])  } {    set RacInfo ""    return 0  }}

A channel is considered to be writable if at least one byte of data can be written to the underlying file or device without blocking, or if an error condition is present on the underlying file or device.

proc RacNfo {socket after} { set ::RacInfo "" after cancel $after puts $socket "GET /x/playing.cgi HTTP/1.0\r\nUser-Agent: Mozilla\r\nHost: $::RacIP: $::RacPort\r\n\r\n" if {[catch {flush $socket} status} {  putlog "Error in $socket: $status"  close $socket  return } fileevent $socket writable "" fileevent $socket readable [list RacReadNfo $socket]}proc RacReadNfo {socket} { if {[eof $socket]} {  putlog "Socket $socket is eof, closing..."  close $socket  return } append ::RacInfo [read $socket]}

Statistics: Posted by nml375 — Mon Mar 23, 2009 1:06 pm

proc RunLoop1 {} {RacSkt; utimer 10 [list RunLoop1]; return 1;};proc RunLoop2 {} {HeartBeat; utimer 10 [list RunLoop2]; return 1;};proc    RacSkt {} {        global RacIP RacPort        if {([catch {set RacSock [socket -async $RacIP $RacPort]; fconfigure $RacSock -blocking 0 -buffersize 10;}])||([catch {set PlaySock [socket -async $RacIP $RacPort]; fconfigure $PlaySock -blocking 0 -buffersize 10;}])} {                catch {close $RacSock};                catch {close $PlaySock};                return 0;        } else {                set CA [after 1800 [list close $RacSock];];                set CB [after 1800 [list close $PlaySock];];                fileevent $RacSock writable [list RacNfo $RacSock $CA];                fileevent $PlaySock writable [list PlayNfo $PlaySock $CB];        };}proc    RacNfo {RacSock CA} {        global RacIP RacPort RacInfo        putlog {Rac Test}        if {([catch {after cancel $CA; flush $RacSock; puts $RacSock "GET /x/playing.cgi HTTP/1.0\r\nUser-Agent: Mozilla\r\nHOST $RacIP:$RacPort\r\n\r\n\r\n\r\n"; flush $RacSock; while {(![eof $RacSock])} {set RacInfo [gets $RacSock];}; catch {flush $RacSock}; catch {close $RacSock};}])} {        set RacInfo "";        return 0;        };}proc    PlayNfo {PlaySock CB} {        global RacIP RacPort PlayInfo        putlog {Play Test}        if {([catch {after cancel $CB; flush $PlaySock; puts $PlaySock "GET /x/playlist.cgi HTTP/1.0\r\nUser-Agent: Mozilla\r\nHOST $RacIP:$RacPort\r\n\r\n\r\n\r\n"; flush $PlaySock; while {(![eof $PlaySock])} {set PlayInfo [gets $PlaySock];}; catch {flush $PlaySock}; catch {close $PlaySock};}])} {        set PlayInfo "";        return 0;        };}proc    HeartBeat {} {          putlog {Still alive...};}

• [10:37] Still alive...
  [10:37] Still alive...
  [10:37] Still alive...
  [10:37] Still alive...
  [10:37] Still alive...
  [10:37] Still alive...
  [10:37] Still alive...

• [10:37] Still alive...
  [10:38] Still alive...
  [10:38] Still alive...
  [10:38] Still alive...
  [10:38] Rac Test <-- connection detected
  [10:38] Play Test
  [10:38] Rac Test
  [10:38] Still alive...
  [10:38] Play Test
  [10:38] Still alive...
  [10:38] Rac Test
  [10:38] Play Test
  [10:38] Still alive...

• [10:38] Rac Test <-notice the script is still detecting a DEAD connection!
  [10:38] Play Test
  [10:39] Still alive...
  [10:39] Rac Test
  Heres where the Eggdrop freezes... completely non-responsive!
  [10:45] timer: drift (lastmin=40, now=45)
  [10:45] timer: drift (lastmin=41, now=45)
  [10:45] timer: drift (lastmin=42, now=45)
  [10:45] timer: drift (lastmin=43, now=45)
  [10:45] timer: drift (lastmin=44, now=45)
  [10:45] (!) timer drift -- spun 5 minutes <- you asked where the 5 mins comes from? its RIGHT THERE!
  [10:45] net: eof!(write) socket 4 (Broken pipe,32)
  [10:45] Writing user file...
  [10:45] * EXIT
  > <- Eggdrop exits and drops to prompt

Statistics: Posted by dj-zath — Mon Mar 23, 2009 12:04 pm

Statistics: Posted by dj-zath — Thu Mar 19, 2009 2:59 am

Statistics: Posted by nml375 — Tue Mar 17, 2009 11:29 am

Statistics: Posted by dj-zath — Tue Mar 17, 2009 10:16 am

after 30000 [catch {close $socket}]

of course I can't! because the connection has to be made beforehand and thats were its getting locked up!

fileevents aren't quite working either.. although "writable" reports ALL the time, "readable" doesn't report AT ALL! (or its intermittant at best).

and even in async mode.. its STILL hanging on the initial connection...

Also,

Someone wanted to try accessing the RAC connection for S&Gs, using python.. and he's having the same problems.. either no connection then connection to nowhere and/or connection but no data and a complete lockup/stall/crash of the script.. even in python, connection error-control is totally worthless!

I've been wondering, myself if, in fact, its the onboard NIC on the server's motherboard thats causing the issues.. (the server that the eggie is residing) The RAC is on a windows box on the end of a WiMax (wireless) connection.. the NIC on the server is an Intel PRO/1000 MT DA (onboard) maaybe someone else out there might know of any issues with using this NIC with an eggie/TCL? tests to localhost all work properly and

I have NO PROBLEMS with error-control or connection timeout/stalling issues with the icecast server running on the same box though there are issues if I try to run with "gets" instead of "read" which "gets" will render nothing.. I believe this is caused by icecast sending XSL output (and likely omitting any \r\n's) Which reminds me.. anyone out there know how I can set up a basic http auth to icecast?? I have tried NML's suggestion but that isn't accepting it.. icecast wants login:password@admin.server.com for login.. and TCL thinks theres a "sintax error"

NML:
How would you like the opportunity to plug your code (your code, your way) into the RAC connection and try to reach the RAC? perhaps you'll better understand the problem(s) once you experience them yourself.. thing is, I'll need to know when you're doing it so I can "connect and disconnect" when the tests require it...

just let me know..

-DjZ-

Statistics: Posted by nml375 — Mon Mar 16, 2009 2:36 pm

after 30000 [catch {close $socket}]

Statistics: Posted by dj-zath — Mon Mar 16, 2009 4:24 am

#Straight after we've initated the connect and setup the first fileevent, add this:after 30000 [list safeClose $socket]...#Also make sure our safeClose proc existsproc safeClose {token} { catch {close $token}}

Statistics: Posted by nml375 — Thu Mar 12, 2009 11:54 am

Statistics: Posted by dj-zath — Thu Mar 12, 2009 5:24 am

...
If the varName argument is given, then the variable it names is set to the result of the script evaluation. When the return code from the script is 1
(TCL_ERROR), the value stored in varName is an error message. When the return code from the script is 0 (TCL_OK), the value stored in resultVarName is
the value returned from script.
...

...if {[catch {socket -async $CastIP $CastPort} CastSock]} { putlog "Cast Socket not created: $CastSock" putlog "reason: $::errorInfo"} else { putlog "Cast Socket $CastSock created"}

Now your examples didn't work either- because they work with the ASSUMPTION that the basic connection handlers follow protocol- which theese do -NOT-

Statistics: Posted by nml375 — Fri Mar 06, 2009 3:35 pm