egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2005-09-21T00:22:54-04:00 https://forum.eggheads.org/app.php/feed/topic/10546 2005-09-21T00:22:54-04:00 2005-09-21T00:22:54-04:00 https://forum.eggheads.org/viewtopic.php?p=55945#p55945 <![CDATA[What song playing]]> No luck with that script... :x

Statistics: Posted by mrdr — Wed Sep 21, 2005 12:22 am

]]> 2005-09-20T14:14:59-04:00 2005-09-20T14:14:59-04:00 https://forum.eggheads.org/viewtopic.php?p=55937#p55937 <![CDATA[What song playing]]>

Code: 

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

Statistics: Posted by incith — Tue Sep 20, 2005 2:14 pm

]]> 2005-09-20T13:48:54-04:00 2005-09-20T13:48:54-04:00 https://forum.eggheads.org/viewtopic.php?p=55936#p55936 <![CDATA[What song playing]]> Statistics: Posted by demond — Tue Sep 20, 2005 1:48 pm

]]> 2005-09-20T13:19:44-04:00 2005-09-20T13:19:44-04:00 https://forum.eggheads.org/viewtopic.php?p=55935#p55935 <![CDATA[What song playing]]>
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? :oops:

Statistics: Posted by mrdr — Tue Sep 20, 2005 1:19 pm

]]> 2005-09-20T13:06:41-04:00 2005-09-20T13:06:41-04:00 https://forum.eggheads.org/viewtopic.php?p=55934#p55934 <![CDATA[What song playing]]>
DO NOT use raw sockets for quering webservers, use Tcl's built-in http package

Statistics: Posted by demond — Tue Sep 20, 2005 1:06 pm

]]> 2005-09-20T11:17:33-04:00 2005-09-20T11:17:33-04:00 https://forum.eggheads.org/viewtopic.php?p=55930#p55930 <![CDATA[What song playing]]>

Code: 

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: 

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

:|

Statistics: Posted by mrdr — Tue Sep 20, 2005 11:17 am

]]> 2005-09-20T11:12:34-04:00 2005-09-20T11:12:34-04:00 https://forum.eggheads.org/viewtopic.php?p=55929#p55929 <![CDATA[Re: What song playing]]>
puts $sock_zipfm "User-Agent: eggdrop egghelp.nasa-team.net (c)" \
I think the trailing slash is screwing it up. :-)

Statistics: Posted by incith — Tue Sep 20, 2005 11:12 am

]]> 2005-09-20T11:06:55-04:00 2005-09-20T11:06:55-04:00 https://forum.eggheads.org/viewtopic.php?p=55928#p55928 <![CDATA[What song playing]]>

I made this script:

Code: 

bind pub - !zip zip_proceduraset irc_kanalai ""proc zip_procedura {nick host handle chan arg} {global irc_kanalaiif {[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_1regsub -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: 

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

Statistics: Posted by mrdr — Tue Sep 20, 2005 11:06 am

]]>