i need help with youtube.tcl i was try to edit but didnt work. i want change this tcl to work or can use with public msg on chan / not with private (search and result)
### YouTube Searching script. v0.1
### Made by Mookie
### Contact me at Efnet for more information or suggestions
### V0.2 because of youtube source code changement.
package require http
### Settings ###
set youtube(timeout) "600000";# Youtube geturl timeout. (better leave this default)
set youtube(results) "1";# Results to display
set youtube(trigger) "!youtube";# Search trigger
#########################################################
## Don't edit below unless you know what you're doing. ##
#########################################################
bind msg - $::youtube(trigger) youtube
proc youtube {nick uhost hand arg} {
global youtube
if {$arg == ""} { putmsg $nick "Please use: $::youtube(trigger) KEYWORD"; return }
set form [http::formatQuery search_query $arg search search]
set tok [http::geturl http://youtube.com/results?$form -timeout $::youtube(timeout)]
set data [http::data $tok]
regsub -all {<b>|</b>} $data {} data
http::cleanup $tok
set a "0"
while {[regexp -- {<a href=\"/watch\?v=(.*?)\">(.*)$} $data -> number data]} {
if {$a == $::youtube(results)} { break }
regexp -- {<img src=".*?" class=".*?" title="(.+?)" alt="video">} $data -> title
putmsg $nick "\[Title: $title Link:http://youtube.com/watch?v=$number Description:$title\]"
incr a
}
if {![info exists title]} { putmsg $nick "tidak ditemukan untuk pencarian $arg silahkan langsung ke www.youtube.com saja hehe" }
}
Thanks for your help if any..Statistics: Posted by dmartani — Sun Jul 20, 2008 10:18 pm
]]>