IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

- Eggdrop, NeoStats, BNC (https://www.ircforumlari.net/eggdrop-neostats-bnc/)

- - youtube tcl (https://www.ircforumlari.net/eggdrop-neostats-bnc/535856-youtube-tcl.html)

selam arkadaşlar kolay gelsin. elimde bir youtube tcl var fakat hiç çalıştıramadım.

!youtube sarkiadi yazdığımda

<deneme> Error: Nothing found for 'sarki adi'
yazıyor ve ardından özelime
<deneme> Please use: !youtube KEYWORD

Bu mesajı gönderiyor. fakat hiç link falan göndermiyor.
Elinde çalışan bir youtube tcl olan varmı veyahut bu kodu çalışır duruma getirebilecek bir arkadaşımız ?
Kod :

Kod:

### YouTube Searching script. v0.1

### Made by Mookie        

### Contact me at Efnet for more information or suggestions

### V0.3 Fixed + added spam protection
 

package require http
 

### Settings ###
 

set youtube(timeout) "600000"        ;# Youtube geturl timeout. (better leave this default)

set youtube(results) "5"        ;# Results to display

set youtube(trigger) "!youtube"        ;# Search trigger

set youtube(spam) "10"            ;# Spam protection in seconds
 

#########################################################

## Don't edit below unless you know what you're doing. ##

#########################################################
 
 

bind pub - $::youtube(trigger) youtube
 

proc youtube {nick uhost hand chan arg} {

    if {[info exists ::checks($nick)] && ([clock seconds] - $::checks($nick)) < $::youtube(spam)} { sendmsg $chan "Fk off spammer.."; return }

    set ::checks($nick) [clock seconds]

    if {$arg == ""} { putmsg $nick "Please use: $::youtube(trigger) KEYWORD"; return }

    set form [http::formatQuery search_query $arg search search]

    set tok [http::geturl 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
set data [http::data $tok]

    http::cleanup $tok

    set a "0"

    while {[regexp -- {<a id="video-short-title.*?" href="(.*?)"  title="(.*?)" rel="nofollow">(.*)$} $data -> number title data]} {

        if {$a == $::youtube(results)} { break }

        sendmsg $chan "\[Title: $title Link:http://youtube.com$number\]"

        incr a

    }

    if {![info exists title]} { sendmsg $chan "\002Error:\002 Nothing found for '$arg'" }

}

proc "sendmsg" { target message } {

    sputraw "PRIVMSG [string tolower $target] :$message"

}

proc "sputraw" { text } {

    set text [string trim $text]

    putdccraw 0 [string length $text\n] $text\n

}

Cevap: youtube tcl

piyasada "abartısız" onlarca yutup kodu var... hemen hemen hepsi işlemez halde...atıl durumda...

diyeceksin niye ?
yutup gibi "büyük abiler" , kodlarıyla oynamayı çok sever...
para desen çuvalla, sürekli olarak güncelleme-düzenleme vs kodları değişip duruyor.
niye bir feysbuk'a script yapılmıyor ? zırt-pırt değişip duruyorlarda o yüzden.
bugün yaparsın yarına gümler...

bu sizin kodun yazarı Mookie'yi efnet'ten tanıyorum.ancak eskisi gibi aktif değil ..bu sizdeki koduda yıllar öncesinden kalma olmalı...
yutup için yapılan scriptler her birkaç ayda bir bozulur çalışmaz olur. kodun yazarı dahi en nihayetinde bıkar bırakır peşini..habire güncelle-yeniden yap..nereye kadar...

Cevap: youtube tcl

kodu burdan alabilirsiniz.. şu an çalışıyor -
edit : arama sonuçlarında verdiği linklerde sorun vardı şimdi onuda onardım -> [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] artık sorunu yok kodun...

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Cevap: youtube tcl

bu arada eklemem gerekir koddaki entityToChar proc'u Perplexa'dan alıntıdır.siteden alınan veriyi temizlemek/ayrıştırmak için kullanılan bir kod parçası-UTF-8 karakterlerini'de onarıp kanala postalandığında deforme olmamasını sağlıyor.
kendisini bu vesileyle hörmetle anıyoruz.... + ve tabi kodun asıl sahibi Mookie'ide ....

Cevap: youtube tcl

Emeğine sağlık teşekkürler.

Cevap: youtube tcl

[00:31:07] <ArchangeL> !youtube matrix
[00:31:30] <ArchangeL> !youtube test

00:31:12] <BT> [23:29:16] longtitle : ved=CAUQvxs&ei=oKPQUeSOC8GF-Ab2kIGIAQ ---- number : o3odej6GD6U ----- title : Geek Wars - 05 - Matrix 3 vs Spiderman 3
[00:31:12] <BT> [23:29:16] Tcl error [youtube]: wrong # args: should be "sendmsg target command message"
[00:31:31] <BT> [23:29:35] longtitle : ei=s6PQUaDYIcWP-waIkIGYBg&ved=CBUQvxs ---- number : yDEahsoa_N4 ----- title : Nokia Lumia 920 Hammer & Knife Scratch Test
[00:31:32] <BT> [23:29:35] Tcl error [youtube]: wrong # args: should be "sendmsg target command message"

Şeklinde hata vermekte son yaptığın kod sevgili saywhat.

Cevap: youtube tcl

bu koda birde Şarkının indirme linkini verse youtube-mp3.org dan boyle birşey yapabilirmiyiz acaba ?
Radyo ve DjLer için Çok iyi birşey olacagını düşünüyorum

Cevap: youtube tcl

Kod:

putcmdlog "longtitle : $longtitle ---- number : $number ----- title : $title"

longtitle kanala postalanmıyor log dosyasında görülmesi için putcmdlog komutu veriliyor.partyline'da görünmesi bu nedenle...

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

benim botlarımda hata vermeyen kod/ların sizinkilerde hata vermesinin birkaç türlü açıklaması olabilir.:
1- kodlarla oynuyor/değiştiriyor olabilirsiniz.
2- kullandığınız eggdrop + makinanızdaki kurulu tcl paketi sürümleri bu kod/lardaki eggdrop+tcl komutlarını destekleyemiyecek/tanımlayamıyacak kadar eski/demode. (bende kodun işlediği bot versionu 1.6.21 makinadaki tcl paketi tcl8.5.9)
3- kullandığınız txt. editörü bu tür kodları desteklemiyor.
4- kopyala-yapıştır yaparken kod bozuluyor/kayıyor/yamrılıyor..vs ....

kodlarda yapılacak değişiklikler yapan kişinin sorumluluğudur...

tcl kodları için txt. editörü olarak windows not defteri kullanmamalısınız.kodun bozulmasına yol açabiliyor.

tavsiyem : ya notepad++ ->
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

ya sublime 2 -> [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
yada programmer's notepad ->
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
kullanmanızdır.. yada yukarda verdiğim kodun linkinden açılacak sayfanın sol üstünden "raw code" tıklayarak indirmeniz ve hiç açmadan direk bot içine atmanız..çünkü görülüyorki bu tür kodları desteklemeyen bir editör kullanarak açarsanız kod bozuluyor./hata alınmasına neden oluyor.

+ log dosyasına yazılması/yada partyline'da link bilgisi postalanması görülmek istenmiyorsa :

Kod:

putcmdlog "longtitle : $longtitle ---- number : $number ----- title : $title"

satırı silinebilir.olmazsa olmaz bişey değil.kodun orjinal yazarı Mookie böyle tercih etmiş.bende dokunmadım.amaç /istenen kodun yeniden çalışır hale gelmesiydi.gerekmeyen/zorunlu olmayan bir değişiklik o nedenle yapmadım.yaptığım değişiklikler kodun yeniden arzu edilen şekilde çalışması için idi ...

diğer konuysa :söz ettiğiniz site bambaşka bir site mp3 indirme linkleri orjinal yutup'da yer alamaz hatta bırakın indirme linkini pek çok ülkede patent/telif hakları nedeniyle yutup linkleri bloke ediliyor. çoğunluklada müzik videoları. örnek Almanya'da geçenlerde konusu geçmişti bi alman arkadaşla konuşurken..

yani sizin isteğiniz aslında bambaşka bir adres için bambaşka bir kodun yazılması.siteye bakmadım henüz ama bazı siteler için kod yazmak o kadarda kolay olmuyor özellikle java script ile kodlanmış siteler için tcl kodlaması hiç kolay iş değil.söz ettiğiniz sitenin kodlarına bi bakarım oluru varsa kısadan kolaydan bitirelebilecek gibiyse yaparım...
ama uğraştıracak bişeyse,o kadar sabırlı bir adam değilim maalesef ..baktım uzun sürecek sıkılır hemen cayarım ,atarım bi kenara bekler durur. bunuda söylemeliyim...

not:
söz ettiğiniz sitede "arama" yapılmıyormuş ...direk yutup linkini yapıştırıp dönüştürmesini bekliyor sonra dönüştürülmüş halinin indirme linki alınıyor ...
(yukardaki kodun her defasında birden fazla link verdiği göz önüne alınırsa her biri için dönüştürmeyi beklemek gerekicektir.)
yani yukardaki kodun çektiği link/lerin yakalanıp bu siteye gönderilmesi sonra orda dönüştürülmüş hal/lerinin link/lerinin alınıp orjinal yutup linklerinin yanında postalanması ...
+ site javascript çalıştırıyor..... zor dostum zor...

Cevap: youtube tcl

Merhaba ,

Kod:

sendmsg $chan "\Başlık: $title Link: http://youtu.be/$number"

Bu satırı alttaki gibi değiştirebilirsin.

Kod:

sendmsg $chan "Video Izleme Linki: $title Link: http://youtu.be/$number"

sendmsg $chan "Download Linkiniz : 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
sendmsg $chan "Download Linkiniz2 : 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
arama esnasında izleme linki ile birlikte download linki de verir.
 

Saywhat incelemediği için detaylı birşey sanmış. 

Bu tarz convert siteleri linkin Youtubenin = den sonra ki vermiş olduğu randomize uzantıyı kullanarak çevirmekte. Çünkü convert mantığı da videonun kaynagına inip flvi sunucuya çekip mp3 e çevirmektir. Yani onlarada Youtubenin video linki lazım ;) 

Kolay gelsin..

Cevap: youtube tcl

(file "scripts/you.tcl" line 1)
invoked from within
"source scripts/you.tcl"
(file "youtube.conf" line 92)
@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] boyle bir hata aldım Rica etsem tcL yi tam olarak paylaşabilirmisiniz???