|
 |
|
 |
| |
| |
 |
Ro-Tcl
Aici Gasesti Tot Felul De Tcl`uri
|
 |
|
Acum este: 11/10/2026 13:54
|
| Autor |
Mesaj |
kymu
Junior
Data inscrierii: 01/Iul/2008
Mesaje: 7
Localitate: Pamplona
|
 Trimis: 10/07/2008 13:43 Titlul subiectului: youtube |
 |
|
salut as dori tcl`u youtube ... cel bun daca se poate
Multumesc anticipat |
|
| Sus |
|
| Autor |
Mesaj |
TrAsNeT
Junior
Data inscrierii: 30/Iun/2008
Mesaje: 7
Localitate: Sighetul-Marmatiei
|
| Trimis: 10/07/2008 13:44 Titlul subiectului: |
|
|
Uitel kymu
| Citat: | bind pub -|- !youtube 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.com
package require http
proc 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 mozilla
set urltok [http::geturl $yt(surl) -timeout 20000]
set yt(rpage) [http::data $urltok]
http::cleanup $urltok
regsub -nocase -all (<b>|</b>|\t|<i>|</i>) $yt(rpage) "" rpage
regexp -line -- {<div class="v120WrapperInner"><a href="(.*)" ><img src="} $rpage -> yt(link)
regexp -line -- {" class="vimg120" title="(.*)" alt="video">} $rpage -> 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 :\0032LINK : \0034http://youtube.com$yt(link) \0032| Title : \0034$yt(title) \0032| Description : \0034$yt(desc)"}
}
putlog "youtube getlink v 0.1 by hwk loaded" |
Sal folosesti sanatos 
_________________
#mIRCBOT Fondator |
|
| Sus |
|
| Autor |
Mesaj |
animalplanet2
Junior
Data inscrierii: 10/Iul/2012
Mesaje: 6
Localitate: Poland
|
| Trimis: 30/07/2012 15:06 Titlul subiectului: |
|
|
| I like your post, very interesting indeed. |
|
| Sus |
|
| Autor |
Mesaj |
animalplanet2
Junior
Data inscrierii: 10/Iul/2012
Mesaje: 6
Localitate: Poland
|
| Trimis: 01/08/2012 04:12 Titlul subiectului: |
|
|
| This information is unbelievable! I really cannot believe it is true! |
|
| Sus |
|
| Autor |
Mesaj |
animalplanet2
Junior
Data inscrierii: 10/Iul/2012
Mesaje: 6
Localitate: Poland
|
| Trimis: 03/08/2012 05:35 Titlul subiectului: |
|
|
| I want to tell that information real good good and again good))) Thank for it) |
|
| Sus |
|
|
Nu puteti crea un subiect nou in acest forum
Nu puteti raspunde in subiectele acestui forum
Nu puteti modifica mesajele proprii din acest forum
Nu puteti sterge mesajele proprii din acest forum
Nu puteti vota in chestionarele din acest forum
|
| |
 |
|
 |
|
|
