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

epicemic · 28 Haziran 2013, 22:42

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: Kodu kopyalamak için üzerine çift tıklayın!

### 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
}

saywhat · 28 Haziran 2013, 23:16

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...

saywhat · 29 Haziran 2013, 10:56

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...]

saywhat · 29 Haziran 2013, 15:26

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 ....

epicemic · 29 Haziran 2013, 22:50

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

kheldor · 01 Temmuz 2013, 00:32

[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.

fLayer · 01 Temmuz 2013, 01:48

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

saywhat · 01 Temmuz 2013, 07:57

Kod: Kodu kopyalamak için üzerine çift tıklayın!

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: Kodu kopyalamak için üzerine çift tıklayın!

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...

Sessiz · 06 Temmuz 2013, 00:53

Merhaba ,

Kod: Kodu kopyalamak için üzerine çift tıklayın!

			sendmsg $chan "\Başlık: $title Link:   Bu satırı alttaki gibi değiştirebilirsin.
 
   Kod:   Kodu kopyalamak için üzerine çift tıklayın!
 sendmsg $chan "Video Izleme Linki: $title Link: 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.
type="text/javascript" src="https://code.jquery.com/jquery-1.12.0.min.js">  
Bu şekilde 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 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
 

Kolay gelsin..

fLayer · 06 Temmuz 2013, 01:27

(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???

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)

Etiketlenen Kullanıcılar
Etiketlemek istediğiniz kullanıcılar arasına virgül koyunuz. Örnek: nokta,sukunet,NucLear

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.