Help with timer script - chan var [RESOLVED]

2010-01-16T12:08:07-04:00

thank you for pointing that out to me

Statistics: Posted by cache — Sat Jan 16, 2010 12:08 pm

Help with timer script - chan var [RESOLVED]

2010-01-16T08:28:04-04:00

From where should we get the value for $chan?

If you're thinking of the "streamch" variable you set in the beginning of the script, why not just use that one?

Statistics: Posted by nml375 — Sat Jan 16, 2010 8:28 am

Help with timer script - chan var [RESOLVED]

2010-01-16T12:08:35-04:00

I am trying to make this run by a timer

Code:

# Public/User Channelset streamch "#public"# Private/DJ Channelset djch "#private"set radiotime 5package require httpset a "$botnick"set a [string tolower "$nick"]if {![info exists ald]} {set ald 1timer $radiotime get_shoutcast_song}proc get_shoutcast_song {} {   global url streamch a radiotime   set streamch [string tolower $streamch]   ::http::config -useragent "Mozilla/5.0; Shoutinfo"   if {[string tolower $chan] == "$streamch"} {    set http_req [::http::geturl $url -timeout 2000]if {[::http::status $http_req] != "ok"} {puthelp "PRIVMSG $chan :Stream is unavailable";}set data [::http::data $http_req]::http::cleanup $http_reqif {[regexp {Current Song: ([^<]+)} $data x title]} {puthelp "PRIVMSG $chan :\002Current Song\002: $title"timer $radiotime get_shoutcast_song} else {puthelp "PRIVMSG $chan :Couldn't receive any information, checking server status..."get_shoutcast_server $nick $uhost $hand $chan $arg}   }}

Error I get is:
[21:44] Tcl error in script for 'timer7716':
[21:44] can't read "chan": no such variable

Can someone please help me get the $chan variable added? I tried global chan with no luck.

Statistics: Posted by cache — Fri Jan 15, 2010 10:54 pm

egghelp/eggheads community

Help with timer script - chan var [RESOLVED]

Help with timer script - chan var [RESOLVED]

Help with timer script - chan var [RESOLVED]