Skip to content
Permalink
master
Switch branches/tags

Name already in use

A tag already exists with the provided branch name. Many Git commands accept both tag and branch names, so creating this branch may cause unexpected behavior. Are you sure you want to create this branch?

YoutubeTitle/YoutubeTitle.tcl

Go to file
 
 
Cannot retrieve contributors at this time
408 lines (370 sloc) 16.8 KB
Raw Blame
Open in GitHub Desktop
##########################################################################################
# Youtube Title 1.9
# - fetches and displays video information when a YouTube link is posted in channel.
# - displays title, date and rating of posted video links.
# - supports also HTTPS links.
#
# requires: packages http
#
# UPDATES/CHANGES:
# - (1.9) added stars for like display instead of procentages
# - (1.8) added anti-flood support
# - (1.8) added youtube search (it will get info from the first youtube video)
# - (1.8) added support for music.youtube links
# - (1.8) shows total links/searches processed by the website
# - (1.7) shows info about duration/length
# - (1.6) multiple output methods of showing the infos configurable via channel
# - (1.6) multi-language support configurable via channel
# - (1.6) supports eggdrop version less than 1.8.*
# - (1.6) options/settings are now case sensitive
#
# To activate - .chanset #channel +ytitle | BlackTools : .set +ytitle
# To activate Youtube search - .chanset #channel +ytsearch | BlackTools : .set +ytsearch
#
# To chose a different language .set ytlang <RO> / <EN> / <FR> / <ES> / <IT> / <TR>
#
# To work put the http.tcl, from the archive, in your eggdrop config (if you don't have it instaled)
#
# BLaCkShaDoW ProductionS
# _ _ _ _ _ _ _ _ _ _ _ _ _ _
# / \ / \ / \ / \ / \ / \ / \ / \ / \ / \ / \ / \ / \ / \
# ( t | c | l | s | c | r | i | p | t | s | . | n | e | t )
# \_/ \_/ \_/ \_/ \_/ \_/ \_/ \_/ \_/ \_/ \_/ \_/ \_/ \_/
# #TCL-HELP @ Undernet.org
#
##########################################################################################
###
# Channel flags
# - to activate the script: .set +ytitle or .chanset #channel +ytitle
#
# - to change script language:
# .set ytlang <ro/en/fr/es/it/tr> or .chanset #channel ytlang <ro/en/fr/es/it/tr>
#
# - to set script color
# .set ytcolor <0/1> ; 1 - colors ; 0 - no colors
#
###
###
# YOUTUBE SEARCH COMMAND
#
###
set ytitle(youtube_search_cmd) "yt"
###
# WHAT FLAGS CAN SEARCH VIA COMMAND ? (default -|-)
#
###
set ytitle(youtube_search_flags) "mn|AOM"
###
# FLOOD PROTECTION
#Set the number of minute(s) to ignore flooders, 0 to disable flood protection
###
set ytitle(ignore_prot) "1"
###
# FLOOD PROTECTION
#Set the number of requests within specifide number of seconds to trigger flood protection.
# By default, 3:10, which allows for upto 3 queries in 10 seconds. 3 or more quries in 10 seconds would cuase
# the forth and later queries to be ignored for the amount of time specifide above.
###
set ytitle(flood_prot) "3:10"
###
# Language setting
# - what language you want to receive the youTube data
# ( RO / EN / ES / FR / IT )
#
set ytitle(default_lang) "RO"
###
# Colors setting
# - what format you want to receive the youTube data
# (1) Enable or (0) disable colors
#
set ytitle(colors) "1"
##########################################################################################
package require http
###
# Bindings
# - using commands
###
bind pubm - * check:youtube
bind ctcp - ACTION check:youtube:me
bind pub $ytitle(youtube_search_flags) $ytitle(youtube_search_cmd) search:youtube
setudef flag ytitle
setudef str ytlang
setudef str ytcolor
setudef flag ytsearch
###
# Functions
# Do NOT touch unless you know what you are doing
###
###
proc search:youtube {nick host hand chan arg} {
if {![channel get $chan ytsearch]} {
return
}
set flood_protect [youtube:flood:prot $chan $host]
if {$flood_protect == "1"} {
return
}
set text [lrange [split $arg] 0 end]
if {$text == ""} {
return
}
set text [join $text "+"]
youtube:get:title $text $nick $chan 1
}
###
proc check:youtube {nick host hand chan arg} {
set arg [split $arg]
if {![channel get $chan ytitle]} {
return
}
set flood_protect [youtube:flood:prot $chan $host]
if {$flood_protect == "1"} {
return
}
foreach word $arg {
set youtube_link "$word"
if {[string match -nocase "*youtube.com/watch*" $youtube_link] || [string match -nocase "*youtu.be*" $youtube_link]} {
youtube:get:title $youtube_link $nick $chan 0
}
}
}
###
proc youtube:get:title {link nick chan type} {
set novideo 0
set live 0
set ipq [http::config -useragent "lynx"]
if {$type == "0"} {
set ipq [http::geturl "http://youtubesongname.000webhostapp.com/index2.php?link=$link" -timeout 50000]
} else {
set ipq [http::geturl "http://youtubesongname.000webhostapp.com/index2.php?search=$link" -timeout 50000]
}
set getipq [http::data $ipq]
set output [split $getipq "\n"]
http::cleanup $ipq
set title [string map { "&amp;" "&"
"&#39;" "'"
"&quot;" "\""
} [lindex $output 0]]
set title [concat $title]
if {$title == ""} { set novideo 1}
set views [lindex $output 1]
if {$views == ""} { set views "N/A" }
set split_views [split $views " "]
set views [lindex $split_views 0]
set views [string map {"&nbsp;" "."} $views]
set likes [lindex $output 2]
set dontlike [concat [lindex $output 3]]
set bywho [concat [lindex $output 4]]
set update [lindex $output 5]
set duration [lindex $output 6]
set total_links [lindex $output 8]
set get_link [lindex $output 7]
set duration [string map {"PT" ""} $duration]
set minutes [lindex [split $duration "M"] 0]
set seconds [concat [string map {"S" ""} [lindex [split $duration "M"] 1]]]
if {$novideo == "1"} {
youtube:tell $nick $chan 0 1
return
}
set scan [clock scan $update -format {%Y-%m-%d}]
set update [clock format $scan -format {%d/%m/%Y}]
set like_bar [youtube:like_bar $likes $dontlike $chan]
if {$views == ""} { set views "N/A" }
youtube:tell $nick $chan $type [list $title $bywho $views $like_bar $dontlike $update $minutes $seconds $total_links $get_link]
}
###
proc youtube:tell {nick chan search arg} {
global black ytitle
set inc 0
foreach s $arg {
set inc [expr $inc + 1]
set replace(%msg.$inc%) $s
}
set getlang [youtube:getlang $chan]
if {$arg == "1"} {
if {[info exists black(ytitle.$getlang.3)]} {
set reply [string map [array get replace] $black(ytitle.$getlang.3)]
putserv "PRIVMSG $chan :$reply"
}
return
}
set setcolor [youtube:getcolor $chan]
if {$search == "1"} {
if {$setcolor == "1"} {
set type 5
} else { set type 4 }
if {[info exists black(ytitle.$getlang.$type)]} {
set reply [string map [array get replace] $black(ytitle.$getlang.$type)]
putserv "PRIVMSG $chan :$reply"
}
} else {
if {$setcolor == "1"} {
set type 2
} else { set type 1 }
if {[info exists black(ytitle.$getlang.$type)]} {
set reply [string map [array get replace] $black(ytitle.$getlang.$type)]
putserv "PRIVMSG $chan :$reply"
}
}
}
###
proc youtube:getlang {chan} {
global black ytitle
set getlang [string tolower [channel get $chan ytlang]]
if {$getlang == ""} {
set lang "en"
} else {
if {[info exists black(ytitle.$getlang.1)]} {
set lang $getlang
} else {
set lang $ytitle(default_lang)
}
}
return [string tolower $lang]
}
###
proc youtube:getcolor {chan} {
global ytitle
set getcolor [string tolower [channel get $chan ytcolor]]
if {$getcolor == ""} {
set type $ytitle(colors)
} else {
set type $getcolor
}
return $type
}
###
proc check:youtube:me {nick host hand chan keyword arg} {
check:youtube $nick $host $hand $chan $arg
return
}
###
proc youtube:flood:prot {chan host} {
global ytitle
set number [scan $ytitle(flood_prot) %\[^:\]]
set timer [scan $ytitle(flood_prot) %*\[^:\]:%s]
if {[info exists ytitle(flood:$host:$chan:act)]} {
return 1
}
foreach tmr [utimers] {
if {[string match "*youtube:remove:flood $host $chan*" [join [lindex $tmr 1]]]} {
killutimer [lindex $tmr 2]
}
}
if {![info exists ytitle(flood:$host:$chan)]} {
set ytitle(flood:$host:$chan) 0
}
incr ytitle(flood:$host:$chan)
utimer $timer [list youtube:remove:flood $host $chan]
if {$ytitle(flood:$host:$chan) > $number} {
set ytitle(flood:$host:$chan:act) 1
utimer [expr $ytitle(ignore_prot) * 60] [list youtube:expire:flood $host $chan]
return 1
} else {
return 0
}
}
###
proc youtube:remove:flood {host chan} {
global ytitle
if {[info exists ytitle(flood:$host:$chan)]} {
unset ytitle(flood:$host:$chan)
}
}
###
proc youtube:expire:flood {host chan} {
global ytitle
if {[info exists ytitle(flood:$host:$chan:act)]} {
unset ytitle(flood:$host:$chan:act)
}
}
set ytitle(projectName) "Youtube Title"
set ytitle(author) "BLaCkShaDoW"
set ytitle(website) "wWw.TCLScriptS.NeT"
set ytitle(version) "v1.9"
###
proc youtube:like_bar {like dislike chan} {
global ytitle
set like [string map {"%" ""} $like]
set dislike [string map {"%" ""} $dislike]
set setcolor [youtube:getcolor $chan]
if {$like > $dislike} {
set dif [expr ($like - $dislike)]
} else {
set dif [expr ($dislike - $like)]
}
set like_star "&#9733"
set dislike_star "&#9734"
set dif [expr {double(round(1000*$dif))/1000.0}]
if {[expr {round($dif / 10)}] > 10} {
set red 10
set green [expr {10 - $red}]
} else {
set red [expr {round($dif / 10)}]
set green [expr {10 - $red}]
}
if {$like > $dislike} {
if {$red > $green} {
set temp $green
set green $red
set red $temp
}
}
if {$setcolor == "1"} {
set output \00303[string repeat [youtube:format_star $like_star] $green]\003\00304[string repeat [youtube:format_star $dislike_star] $red]\003
} else {
set output [string repeat [youtube:format_star $like_star] $green][string repeat [youtube:format_star $dislike_star] $red]
}
return $output
}
###
proc youtube:format_star {string} {
set map {}
foreach {entity number} [regexp -all -inline {&#(\d+)} $string] {
lappend map $entity [format \\u%04x [scan $number %d]]
}
set string [string map [subst -nocomm -novar $map] $string]
return $string
}
#Languages
# Romanian
set black(ytitle.ro.1) "\002\[YouTube\]\002 Titlu:\002 %msg.1%\002 | Publicat de:\002 %msg.2%\002 | Durata:\002 %msg.7%m%msg.8%s\002 | Data:\002 %msg.6%\002 | Vizionari:\002 %msg.3%\002 | Apreciere: %msg.4% - \[\002%msg.9%\002\] -"
set black(ytitle.ro.2) "\[\002You\0030,4Tube\003\002\003\] \00310Titlu:\0034 %msg.1% \003| \00310Publicat de:\0034 %msg.2% \003| \00310Durata:\0034 %msg.7%m%msg.8%s\003 | \00310Data:\0034 %msg.6% \003| \00310Vizionari:\0034 %msg.3% \003| \00310Apreciere:\003 %msg.4% - \[\00304%msg.9%\003\] -"
set black(ytitle.ro.3) "\002\[YouTube\]\002 Acest videoclip nu exista."
set black(ytitle.ro.4) "\002\[YouTube\]\002 Titlu:\002 %msg.1%\002 | Publicat de:\002 %msg.2%\002 | Durata:\002 %msg.7%m%msg.8%s\002 | Data:\002 %msg.6%\002 | Vizionari:\002 %msg.3%\002 | Apreciere: %msg.4% | Legatura: \002%msg.10%\002 - \[\002%msg.9%\002\] -"
set black(ytitle.ro.5) "\[\002You\0030,4Tube\003\002\003\] \00310Titlu:\0034 %msg.1% \003| \00310Publicat de:\0034 %msg.2% \003| \00310Durata:\0034 %msg.7%m%msg.8%s\003 | \00310Data:\0034 %msg.6% \003| \00310Vizionari:\0034 %msg.3% \003| \00310Apreciere:\003 %msg.4% | \00310Legatura: \0034%msg.10%\003 - \[\00304%msg.9%\003\] -"
# English
set black(ytitle.en.1) "\002\[YouTube\]\002 Title:\002 %msg.1%\002 | Uploaded by:\002 %msg.2%\002 | Length:\002 %msg.7%m%msg.8%s\002 | Date:\002 %msg.6%\002 | Views:\002 %msg.3%\002 | Like: %msg.4% - \[\002%msg.9%\002\] -"
set black(ytitle.en.2) "\[\002You\0030,4Tube\003\002\003\] \00310Title:\0034 %msg.1% \003| \00310Uploaded by:\0034 %msg.2% \003| \00310Length:\0034 %msg.7%m%msg.8%s\003 | \00310Date:\0034 %msg.6% \003| \00310Views:\0034 %msg.3% \003| \00310Like:\003 %msg.4% - \[\00304%msg.9%\003\] -"
set black(ytitle.en.3) "\002\[YouTube\]\002 This video does not exist."
set black(ytitle.en.4) "\002\[YouTube\]\002 Title:\002 %msg.1%\002 | Uploaded by:\002 %msg.2%\002 | Length:\002 %msg.7%m%msg.8%s\002 | Date:\002 %msg.6%\002 | Views:\002 %msg.3%\002 | Like: %msg.4% | Link:\002 %msg.10%\002- \[\002%msg.9%\002\] -"
set black(ytitle.en.5) "\[\002You\0030,4Tube\003\002\003\] \00310Title:\0034 %msg.1% \003| \00310Uploaded by:\0034 %msg.2% \003| \00310Length:\0034 %msg.7%m%msg.8%s\003 | \00310Date:\0034 %msg.6% \003| \00310Views:\0034 %msg.3% \003| \00310Like:\003 %msg.4% | \00310Link: \0034%msg.10%\003 - \[\00304%msg.9%\003\] -"
# French
set black(ytitle.fr.1) "\002\[YouTube\]\002 Titre:\002 %msg.1%\002 | Telecharge par:\002 %msg.2%\002 | Duree:\002 %msg.7%m%msg.8%s\002 La date:\002 %msg.6%\002 | Vues:\002 %msg.3%\002 | J'aime: %msg.4% - \[\002%msg.9%\002\] -"
set black(ytitle.fr.2) "\[\002You\0030,4Tube\003\002\003\] \00310Titre:\0034 %msg.1% \003| \00310Telecharge par:\0034 %msg.2% \003| \00310Duree:\0034 %msg.7%m%msg.8%s\003 | \00310La date:\0034 %msg.6% \003| \00310Vues:\0034 %msg.3% \003| \00310J'aime:\003 %msg.4% - \[\00304%msg.9%\003\] -"
set black(ytitle.fr.3) "\002\[YouTube\]\002 Cette video n'existe pas."
set black(ytitle.fr.4) "\002\[YouTube\]\002 Titre:\002 %msg.1%\002 | Telecharge par:\002 %msg.2%\002 | Duree:\002 %msg.7%m%msg.8%s\002 La date:\002 %msg.6%\002 | Vues:\002 %msg.3%\002 | J'aime: %msg.4% | Lien:\002 %msg.10%\002- \[\002%msg.9%\002\] -"
set black(ytitle.fr.5) "\[\002You\0030,4Tube\003\002\003\] \00310Titre:\0034 %msg.1% \003| \00310Telecharge par:\0034 %msg.2% \003| \00310Duree:\0034 %msg.7%m%msg.8%s\003 | \00310La date:\0034 %msg.6% \003| \00310Vues:\0034 %msg.3% \003| \00310J'aime:\003 %msg.4% | \00310Lien: \0034%msg.10%\003 - \[\00304%msg.9%\003\] -"
# Spanish
set black(ytitle.es.1) "\002\[YouTube\]\002 Titulo:\002 %msg.1%\002 | Cargado por:\002 %msg.2%\002 | Duracion:\002 %msg.7%m%msg.8%s\002 | Fecha:\002 %msg.6%\002 | Visualizaciones:\002 %msg.3%\002 | Gustos: %msg.4% - \[\002%msg.9%\002\] -"
set black(ytitle.es.2) "\[\002You\0030,4Tube\003\002\003\] \00310Titulo:\0034 %msg.1% \003| \00310Cargado por:\0034 %msg.2% \003| \00310Duracion:\0034 %msg.7%m%msg.8%s\003 | \00310Fecha:\0034 %msg.6% \003| \00310Visualizaciones:\0034 %msg.3% \003| \00310Gustos:\003 %msg.4% - \[\00304%msg.9%\003\] -"
set black(ytitle.es.3) "\002\[YouTube\]\002 Este video no existe."
set black(ytitle.es.4) "\002\[YouTube\]\002 Titulo:\002 %msg.1%\002 | Cargado por:\002 %msg.2%\002 | Duracion:\002 %msg.7%m%msg.8%s\002 | Fecha:\002 %msg.6%\002 | Visualizaciones:\002 %msg.3%\002 | Gustos: %msg.4% | Enlazar:\002 %msg.10%\002- \[\002%msg.9%\002\] -"
set black(ytitle.es.5) "\[\002You\0030,4Tube\003\002\003\] \00310Titulo:\0034 %msg.1% \003| \00310Cargado por:\0034 %msg.2% \003| \00310Duracion:\0034 %msg.7%m%msg.8%s\003 | \00310Fecha:\0034 %msg.6% \003| \00310Visualizaciones:\0034 %msg.3% \003| \00310Gustos:\003 %msg.4% | \00310Enlazar: \0034%msg.10%\003 - \[\00304%msg.9%\003\] -"
# Italian
set black(ytitle.it.1) "\002\[YouTube\]\002 Titolo:\002 %msg.1%\002 | Caricato da:\002 %msg.2%\002 | Durata:\002 %msg.7%m%msg.8%s\002 | Data:\002 %msg.6%\002 | Visualizzazioni:\002 %msg.3%\002 | Piace: %msg.4% - \[\002%msg.9%\002\] -"
set black(ytitle.it.2) "\[\002You\0030,4Tube\003\002\003\] \00310Titolo:\0034 %msg.1% \003| \00310Caricato da:\0034 %msg.2% \003| \00310Durata:\0034 %msg.7%m%msg.8%s\003 | \00310Data:\0034 %msg.6% \003| \00310Visualizzazioni:\0034 %msg.3% \003| \00310Piace:\003 %msg.4% - \[\00304%msg.9%\003\] -"
set black(ytitle.it.3) "\002\[YouTube\]\002 Questo video non esiste."
set black(ytitle.it.4) "\002\[YouTube\]\002 Titolo:\002 %msg.1%\002 | Caricato da:\002 %msg.2%\002 | Durata:\002 %msg.7%m%msg.8%s\002 | Data:\002 %msg.6%\002 | Visualizzazioni:\002 %msg.3%\002 | Piace: %msg.4% | Collegamento:\002 %msg.10%\002 - \[\002%msg.9%\002\] -"
set black(ytitle.it.5) "\[\002You\0030,4Tube\003\002\003\] \00310Titolo:\0034 %msg.1% \003| \00310Caricato da:\0034 %msg.2% \003| \00310Durata:\0034 %msg.7%m%msg.8%s\003 | \00310Data:\0034 %msg.6% \003| \00310Visualizzazioni:\0034 %msg.3% \003| \00310Piace:\003 %msg.4% | \00310Collegamento: \0034%msg.10%\003 - \[\00304%msg.9%\003\] -"
# Turkish
set black(ytitle.tr.1) "\002\[YouTube\]\002 Başlık:\002 %msg.1%\002 | Yükleyen:\002 %msg.2%\002 | Uzunluk:\002 %msg.7%m%msg.8%s\002 | Tarih:\002 %msg.6%\002 | Görüntülemeler:\002 %msg.3%\002 | Beğeni: %msg.4% - \[\002%msg.9%\002\] -"
set black(ytitle.tr.2) "\[\002You\0030,4Tube\003\002\003\] \00310Title:\0034 %msg.1% \003| \00310Yükleyen:\0034 %msg.2% \003| \00310Uzunluk:\0034 %msg.7%m%msg.8%s\003 | \00310Tarih:\0034 %msg.6% \003| \00310Görüntülemeler:\0034 %msg.3% \003| \00310Beğeni:\003 %msg.4% - \[\00304%msg.9%\003\] -"
set black(ytitle.tr.3) "\002\[YouTube\]\002 Bu video mevcut değil."
set black(ytitle.tr.4) "\002\[YouTube\]\002 Başlık:\002 %msg.1%\002 | Yükleyen:\002 %msg.2%\002 | Uzunluk:\002 %msg.7%m%msg.8%s\002 | Tarih:\002 %msg.6%\002 | Görüntülemeler:\002 %msg.3%\002 | Beğeni: %msg.4% | Link:\002 %msg.10%\002- \[\002%msg.9%\002\] -"
set black(ytitle.tr.5) "\[\002You\0030,4Tube\003\002\003\] \00310Title:\0034 %msg.1% \003| \00310Yükleyen:\0034 %msg.2% \003| \00310Uzunluk:\0034 %msg.7%m%msg.8%s\003 | \00310Tarih:\0034 %msg.6% \003| \00310Görüntülemeler:\0034 %msg.3% \003| \00310Beğeni:\003 %msg.4% | \00310Link: \0034%msg.10%\003 - \[\00304%msg.9%\003\] -"
putlog "\002$ytitle(projectName) $ytitle(version)\002 coded by $ytitle(author) ($ytitle(website)): Loaded."
##############
##########################################################
## END #
##########################################################