egghelp/eggheads community

I wrote my own shoutcast script but need help plz :o

2006-03-04T14:11:02-04:00

'proper indentation' means writing/posting like this:
Code:
```
if {$flag} {   set foo $bar}
```
and not like this:
Code:
```
if {$flag} {set foo $bar}
```
the former is easier to read, the latter is harder
go to http package manpage ('manpage' means manual page) and learn about it
'unbalanced braces' means you have different number of opening { and closing } characters; sometimes Tcl reports that directly, sometimes not; and if not, the error message is misleading
use .set errorInfo to obtain backtrace on the error

Statistics: Posted by demond — Sat Mar 04, 2006 2:11 pm

hehe

2006-03-04T13:09:33-04:00

1. post your script with proper indentation
2. don't use raw socket, use http package
3. your error is likely due to unbalanced braces

Proper Indentation ?
http package ?
unbalanced braces ??

omg sorry i have no idea what any of that means, like i said i just chopped a few other scripts and put them together.
I did do a little rewrite, now i dont get errors it just dont do anything.. heres the script..

Code:

set topictrigger "!topic"set streamip "stream.lynxfm.info"set streamport "9000"set streampass "password"set radiochans "#LynxFM"bind pub - $topictrigger  pub_topicbind msg - $topictrigger  msg_topicproc topic { target } { global streamip streamport streampassif {[catch {set sock [socket $streamip $streamport] } sockerror]} {putlog "error: $sockerror"return 0 } else {puts $sock "GET /admin.cgi?pass=$streampass&mode=viewxml&page=0 HTTP/1.0"puts $sock "User-Agent: Mozilla/5.0 (X11; U; Linux i686; en-US; rv:0.9.9)"puts $sock "Host: $streamip"puts $sock "Connection: close"puts $sock ""flush $sockwhile {[eof $sock] != 1} {set bl [gets $sock]if { [string first "standalone" $bl] != -1 } {set topic [string range $bl [shrink + 13 "" 0 $bl] [shrink - 1 "" 0 $bl]]}}putquick "PRIVMSG $target : $topic "proc msg_topic { nick uhost hand arg } { topic $chan}proc pub_topic { nick uhost hand chan arg } { global radiochans; if {([lsearch -exact [string tolower $radiochans][string tolower $chan]] != -1) || ($radiochans == "")} { topic $chan  }}}}

Thanks for any help you can give

Statistics: Posted by NTHosts — Sat Mar 04, 2006 1:09 pm

I wrote my own shoutcast script but need help plz :o

2006-03-04T13:03:22-04:00

1. post your script with proper indentation
2. don't use raw socket, use http package
3. your error is likely due to unbalanced braces

Statistics: Posted by demond — Sat Mar 04, 2006 1:03 pm

I wrote my own shoutcast script but need help plz :o

2006-03-04T11:35:48-04:00

Ok heres the silly attempt at me writing tcl, well, i just poked around other ppls scripts and took bits out, but it all counts right ?

Code:

set topictrigger "!topic"set streamip "stream.lynxfm.info"set streamport "9000"set streampass "zigzag"set radiochans "#LynxFM"bind pub - $topictrigger  pub_topicbind msg - $topictrigger  msg_topicproc topic { target } { global streamip streamport streampassif {[catch {set sock [socket $streamip $streamport] } sockerror]} {putlog "error: $sockerror"return 0 } else {puts $sock "GET /admin.cgi?pass=$streampass&mode=viewxml&page=0 HTTP/1.0"puts $sock "User-Agent: Mozilla/5.0 (X11; U; Linux i686; en-US; rv:0.9.9)"puts $sock "Host: $streamip"puts $sock "Connection: close"puts $sock ""flush $sockwhile {[eof $sock] != 1} {set bl [gets $sock]if { [string first "standalone" $bl] != -1 } {set topic "topic: [string range $bl [shrink + 13 "" 0 $bl] [shrink - 1 "" 0 $bl]]"}}putquick "PRIVMSG $target :$topic"proc msg_topic { nick uhost hand arg } { topic $chan}proc pub_topic { nick uhost hand chan arg } { global radiochans; if {([lsearch -exact [string tolower $radiochans][string tolower $chan]] != -1) || ($radiochans == "")} { topic $chan  }}}}

When i try the !topic.. i get this error..

[10:28] Tcl error [pub_topic]: invalid command name "pub_topic"

im pulling my hair out with this 1, i also dont really want it to msg then channel, but rather to change its topic.

Any ideas please ?

Statistics: Posted by NTHosts — Sat Mar 04, 2006 11:35 am