What song playing

[mrdr]

Hi,

I made this script:

Code: Select all

bind pub - !zip zip_procedura
set irc_kanalai ""


proc zip_procedura {nick host handle chan arg} {
global irc_kanalai
if {[catch {set sock_zipfm [socket www.zipfm.lt 80] } sockerror]} { 
putlog "news parsing error: $sockerror" 
return 0 } else { 
puts $sock_zipfm "GET /grojam.php HTTP/1.1" 
puts $sock_zipfm "User-Agent: eggdrop egghelp.nasa-team.net (c)" \
puts $sock_zipfm "Host: www.zipfm.lt" 
puts $sock_zipfm "Connection: close" 
puts $sock_zipfm "" 
flush $sock_zipfm 
set empt ""
set he "0"
while {[eof $sock_zipfm ] != 1} { 
set bl_rc [gets $sock_zipfm ]
if {$bl_rc == $empt} {
set he "1"
}
if {$he == "1"} {
set laikas [clock format [expr [clock seconds] + 60*60*24] -format " %H:%M:%S "]
while {[string match "<img src=img/icon_dabargrojame.gif width=12 height=11 border=0 align=absmiddle hspace=5>*" $bl_rc]} { 
regsub -all "<img src=img/icon_dabargrojame.gif width=12 height=11 border=0 align=absmiddle hspace=5>" $bl_rc "" served_rc_1
regsub -all "<img src=img/icon_dabargrojame.gif width=12 height=11 border=0 align=absmiddle hspace=5>" $bl_rc "" bl_rc
}
}
} 
close $sock_zipfm 
if {$irc_kanalai == "" } {
puthelp "NOTICE $nick :Zip FM dabar groja:\002 $served_rc_1 \002"
} else {
if {[string match -nocase *$chan* $irc_kanalai] != 0 } {
puthelp "PRIVMSG $chan :($laikas) Zip FM groja: $served_rc_1"
}
}
after 2000
}
putlog "Zip FM informacija gauta: $laikas"
}

But when I write in IRC command !zip bot in partyline says:

Code: Select all

TCL error [zip_procedura]: wrong # args: should be "puts ?-nonewline? ?channelId? string"

Help.

[incith]

puts $sock_zipfm "User-Agent: eggdrop egghelp.nasa-team.net (c)" \

I think the trailing slash is screwing it up.

[mrdr]

OK. Deleted that "\" and new error:

Code: Select all

TCL error [zip_procedura]: can't read "served_rc_1": no such variable

I know what it means. But server_rc_1 is here:

Code: Select all

regsub -all "<img src=img/icon_dabargrojame.gif width=12 height=11 border=0 align=absmiddle hspace=5>" $bl_rc "" served_rc_1

[demond]

it's there but it's not being set (because that [regsub] doesn't match), hence the error

DO NOT use raw sockets for quering webservers, use Tcl's built-in http package

[mrdr]

it's there but it's not being set (because that [regsub] doesn't match), hence the error

DO NOT use raw sockets for quering webservers, use Tcl's built-in http package

So... How can I fix that code?

[demond]

obviously, by making sure [regsub] matches

[incith]

Checking for variable existence is good, too.

Code: Select all

if {[info exists server_rc1]} { puts "$server_rc1" }

[mrdr]

Hrrr...
No luck with that script...