egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2013-01-22T01:39:33-04:00 https://forum.eggheads.org/app.php/feed/topic/19251 2013-01-22T01:39:33-04:00 2013-01-22T01:39:33-04:00 https://forum.eggheads.org/viewtopic.php?p=100702#p100702 <![CDATA[youtube search tcl error]]>
Tcl error: can't read "yt(infos)": no such element in array
made by:

Code: 

regexp -line -- {<div class="vlshortTitle">\n(.*)\n</div>} $rpage -> yt(infos)

Statistics: Posted by caesar — Tue Jan 22, 2013 1:39 am

]]> 2013-01-21T20:31:02-04:00 2013-01-21T20:31:02-04:00 https://forum.eggheads.org/viewtopic.php?p=100700#p100700 <![CDATA[youtube search tcl error]]> http://forum.egghelp.org/viewtopic.php?t=10215 to get all the informations on hw to enable .tcl command and see if the script is giving any error when you trigger the main command.

So what you need to do is:
1. Activate .tcl command from eggdrop.conf
2. Use /ctcp botnick chat
3. Use .tcl $errorInfo (copy paste here the output here)

Then we will see if there is an actual error

Statistics: Posted by Madalin — Mon Jan 21, 2013 8:31 pm

]]> 2013-01-06T12:57:55-04:00 2013-01-06T12:57:55-04:00 https://forum.eggheads.org/viewtopic.php?p=100551#p100551 <![CDATA[youtube search tcl error]]> this tcl doesent work wen i type

!yt Video_here

Code: 

bind pub -|- !yt yt_search ###### youtube getlink v 0.1###### just a simple script that fetches the first### result from a youtube search, giving you### the link, title and description for the primary### result###### nothing can be set here### if you know tcl please edit to fit your need### grtz hwk### contact me at: lowraider1@gmail.compackage require httpproc yt_search {nick uhost hand chan args} {regsub -nocase -all " " $args "+" yt(squery)set yt(surl) "http://youtube.com/results?search_query=$yt(squery)&search_type="http::config -useragent mozillaset urltok [http::geturl $yt(surl) -timeout 20000]set yt(rpage) [http::data $urltok]http::cleanup $urltokregsub -nocase -all (<b>|</b>|\t|<i>|</i>) $yt(rpage) "" rpageregexp -line -- {<div class="vlshortTitle">\n(.*)\n</div>} $rpage -> yt(infos)regexp {<a href="(.*)"  title} $yt(infos) -> yt(link)regexp {>(.*)</a>} $yt(infos) -> yt(title)regexp -line -- {<div  class="vldesc">\n(.*)\n</div>\n</div>} $rpage -> yt(desc)if {[string match -nocase "*No Videos found*" $rpage] || ![info exists yt(title)]} {puthelp "privmsg $chan :Nothing found"} else {puthelp "privmsg $chan :LINK: http://youtube.com$yt(link)  |  Title: $yt(title)  |  Description: $yt(desc)"}}putlog "youtube getlink v 0.1 by hwk loaded"

Statistics: Posted by duarteper — Sun Jan 06, 2013 12:57 pm

]]>