Code:

set Channels(Allow)"#mychannel"

Code:

#################################################################################################Name:#TCL-Youtube-Link.tcl##Description:#This script retrieves information about Youtube titles using Youtube API V3.#Allows you to search for titles with keywords#It listens to youtube links on trade shows and displays title information##Ce script récupère des informations sur les titres Youtube à l'aide de l'API Youtube V3.#Permet de rechercher des titres avec des mots clefs#Il écoute les liens youtube sur les salons et affiche les informations des titres##Version:#2.6##Donation:#https://ko-fi.com/malagam##Auteur:#MalaGaM <MalaGaM.ARTiSPRETiS@GMail.Com> @ https://github.com/MalaGaM##Website:#https://github.com/MalaGaM/TCL-Youtube-Link##Support:#https://github.com/MalaGaM/TCL-Youtube-Link/issues##Docs:#https://github.com/MalaGaM/TCL-Youtube-Link/wiki##Thanks to:#m00nie-base code:www.m00nie.com#Imhotep-ask and details:from www.eggdrop.fr#CrazyCat-community french and help of eggdrop:https://www.eggdrop.fr#MenzAgitat-tips/toolbox:https://www.boulets.oqp.me/################################################################################################# Décharger si déjà charger : Reset du scriptif { [::tcl::info::commands ::YouTubeLink::Script:Unload] eq "::YouTubeLink::Script:Unload" } { ::YouTubeLink::Script:Unload }namespace eval ::YouTubeLink {variable APIvariable YTDBvariable CMDIRCvariable Annoncevariable Throttledvariable Scriptvariable Bindvariable Channels######################################################################################### Configuration Utilisateur     *** (Modifier les variables dans cette sections) ***####################################################################################### Cette clé est la vôtre et devrait rester secrète. # Pour obtenir une clef visitez :#https://developers.google.com/youtube/v3/#set API(Key)"AIzaSyBqxx9ReJnALAoj6fZR8X5IiM0BUmzgp_4"# Après combien de secondes décide-t-on que le site web utilisé par le script# pour afficher les définitions est offline (ou trop lent) en l'absence de# réponse de sa part ?set API(Timeout)10# Nombre de resultats maximunset API(Max_Resultats)5# Liste des commandes aux quelles le script doit répondre :set CMDIRC(Public)"!yt !youtube"# Autorisations pour la commande publique#Plus d'information sur https://wiki.eggdrop.fr/Flagsset CMDIRC(Public_Flags)"-"# Configurer dans la variable Annonce(Prefix) ce que vous desire voir devant les message :set Annonce(Prefix)"\002\00301,00You\00300,04Tube\003\002"# Configurer dans la variable Annonce(Message) l'annonce de sortie voulu lors d'un lien url youtube## Les variables disponibles :##\${MUSIC_TITLE}: Affiche le titre de la musique#\${MUSIC_CHANNEL}: Affiche le nom de la chaine youtube#\${MUSIC_DURATION}: Affiche la durée du titre#\${MUSIC_PUBLISH}: Affiche quand le titre a été publié#\${MUSIC_VIEWED}: Affiche le nombre de fois que le titre a été vue/lue#set Annonce(Message)"\00306\${MUSIC_TITLE} (Duration: \${MUSIC_DURATION})-(Number of views: \${MUSIC_VIEWED})-(Author: \${MUSIC_CHANNEL})-(Published: \$MUSIC_PUBLISH)\003"# Configurer dans la variable Annonce(Message_Search) l'annonce de sortie voulu lors d'une recherche youtube## Les variables disponibles :##\${ITEM_NUM}: Affiche la numerotation du titre trouvé#\${ITEM_TITLE}: Affiche le nom/descriptions du titre trouvé#\${ITEM_LINK}: Affiche l'adresse url du titre trouvé#set Annonce(Message_Search)"\00306\${ITEM_NUM})\003 \00302\${ITEM_TITLE}\003 - \00392\${ITEM_LINK}\003"# Message en cas de aucun resultat lors d'une rechercheset Annonce(Null_Resultat)"\002\00305\Aucun Resultat trouvé.\003"# Chaine de caractere de séparation entre deux titres :set Annonce(Split_Char)" \00301|\003 "# Nombre de lien par annonceset Annonce(Max_Links)2# Format d'affichage de la date de publication du titre#Plus information sur https://www.tcl.tk/man/tcl/TclCmd/clock.htm#M26#Exemple:"%a %d %b %Y à %H:%M"set Format(Date)"%d/%m/%Y"# La region de la date de publication. en france utilisez "fr"#Plus d'information sur https://www.tcl.tk/man/tcl/TclCmd/clock.htm#M20set Format(Date_locale)"en"# Liste des salons où le script sera active#mettre "*" pour tout les salons# Exemple pour autoriser #channel1 et #channel2#set Channels(Allow)" #channel1  #channel2"set Channels(Allow)"#mychannel"#########################################################################################  Fin de la Configuration Utilisateur############################################################################################################################################################################### Configuration avancées####################################################################################### URL (n'y touchez pas à moins d'avoir une bonne raison de le faire)set API(URL)"https://www.googleapis.com/youtube/v3"# User client du navigateur APIset API(UserAgent)"Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/90.0.4430.212 Safari/537.36"# The two variables below control throttling in seconds. First is per user, second is per channel third is per linkset Throttled(User)5set Throttled(Channel)5set Throttled(Link)5# Valeur du scripts :set Script(Name)"TCL-YouTube-Link"set Script(Auteur)"MalaGaM <MalaGaM.ARTiSPRETiS@GMail.Com>"set Script(Version)"2.6"set Script(Debug)1#http(?:s?):\/\/(?:www\.)?youtu(?:be\.com\/watch\?v=|\.be\/)([\w\-\_]*)(&(amp;)?‌​[\w\?‌​=]*)?set Bind(RegExp_URLMatching){(?:http(?:s|).{3}|)(?:www.|)(?:youtube.com\/watch\?.*v=|youtu.be\/)([\w-]{11})}set Bind(Matching){*youtu*be*/*}set Annonce(URL_YT)"https://youtu.be/"################################################################################## Fin de la Configuration avancées###############################################################################}################################################################################## Procédure principale###############################################################################proc ::YouTubeLink::add_thousand_separators {value} {#https://www.boulets.oqp.me/tcl/routines/tcl-toolbox-0001.htmlreturn [::tcl::string::trimleft [::tcl::string::reverse [regsub -all {...} [::tcl::string::reverse $value] {&.}]] "."]}proc ::YouTubeLink::DEBUG { text } {variable Scriptif { $Script(Debug) } { putlog "\[$Script(Name)\] $text" }}proc ::YouTubeLink::INIT { } {variable Scriptvariable APIvariable CMDIRCvariable Bind################################################################################ Initialisation#############################################################################if { [package vcompare [regexp -inline {^[[:digit:]\.]+} $::version] 1.6.20] == -1 } { putloglev o * "\00304\[$Script(Name) - erreur\]\003 La version de votre Eggdrop est\00304 ${::version}\003; $Script(Name) ne fonctionnera correctement que sur les Eggdrops version 1.6.20 ou supérieure." ; return }if { [::tcl::info::tclversion] < 8.5 } { putloglev o * "\00304\[$Script(Name) - erreur\]\003 $Script(Name) nécessite que Tcl 8.5 (ou plus) soit installé pour fonctionner. Votre version actuelle de Tcl est\00304 ${::tcl_version}\003." ; return }if { [catch { package require tls 1.7.11 }] } { putloglev o * "\00304\[$Script(Name) - erreur\]\003 $Script(Name) nécessite le package tls 1.7 (ou plus) pour fonctionner. Le chargement du script a été annulé." ; return }if { [catch { package require http 2.8.9 }] } { putloglev o * "\00304\[$Script(Name) - erreur\]\003 $Script(Name) nécessite le package http 2.9 (ou plus) pour fonctionner. Le chargement du script a été annulé." ; return }if { [catch { package require json 1.3 }] } { putloglev o * "\00304\[$Script(Name) - erreur\]\003 $Script(Name) nécessite le package json 1.3 (ou plus) pour fonctionner. Le chargement du script a été annulé." ; return }if { [catch { package require clock::iso8601 0.1 }] } { putloglev o * "\00304\[$Script(Name) - erreur\]\003 $Script(Name) nécessite le package clock::iso8601 0.1 (ou plus) pour fonctionner. Le chargement du script a été annulé." ; return }::http::config -useragent $API(UserAgent)################################################################################## Binds###############################################################################foreach b $CMDIRC(Public) { bind pub $CMDIRC(Public_Flags) $b ::YouTubeLink::IRC:Search }bind pubm $CMDIRC(Public_Flags) "% $Bind(Matching)" ::YouTubeLink::IRC:Listen:Linksbind evnt - prerehash ::YouTubeLink::Script:Unloadputlog "$Script(Name) $Script(Version) by $Script(Auteur) loaded."}proc ::YouTubeLink::Script:Unload {args} {variable Scriptputlog "Désallocation des ressources de ${Script(Name)} ..."foreach binding [lsearch -inline -all -regexp [binds *[set ns [::tcl::string::range [namespace current] 2 end]]*] " \{?(::)?$ns"] {putlog "unbind [lindex $binding 0] [lindex $binding 1] [lindex $binding 2] [lindex $binding 4]"}foreach running_utimer [utimers] {if { [::tcl::string::match "*[namespace current]::*" [lindex $running_utimer 1]] } { killutimer [lindex $running_utimer 2] }}namespace delete [namespace current] ::[namespace current]}proc ::YouTubeLink::ThrottleCheck { nick chan link } {variable Throttledif { [info exists ::YouTubeLink::Throttled($link)]} {::YouTubeLink::DEBUG "::YouTubeLink::ThrottleCheck search term or video id: $link, is Throttled at the moment"return 1} elseif {[info exists ::YouTubeLink::Throttled($chan)]} {::YouTubeLink::DEBUG  "::YouTubeLink::ThrottleCheck Channel $chan is Throttled at the moment"return 1} elseif {[info exists ::YouTubeLink::Throttled($nick)]} {::YouTubeLink::DEBUG  "::YouTubeLink::ThrottleCheck User $nick is Throttled at the moment"return 1} else {set ::YouTubeLink::Throttled($nick) [utimer $Throttled(User) [list unset ::YouTubeLink::Throttled($nick)]]set ::YouTubeLink::Throttled($chan) [utimer $Throttled(Channel) [list unset ::YouTubeLink::Throttled($chan)]]set ::YouTubeLink::Throttled($link) [utimer $Throttled(Link) [list unset ::YouTubeLink::Throttled($link)]]return 0}}proc ::YouTubeLink::API:GetInfo { URL_Link } {variable API::http::register https 443 [list ::tls::socket -tls1 1]array set httpconfig[::http::config]::http::config -urlencoding utf-8 -useragent $API(UserAgent)# On remplace les caractères spéciaux par leur équivalent hexadécimal pour# pouvoir être utilisés dans l'url.# set arg [::http::mapReply $arg]# on restaure l'urlencoding comme il était avant qu'on y touche::http::config -urlencoding $httpconfig(-urlencoding)if { [catch { set token [::http::geturl ${URL_Link} -timeout [expr $API(Timeout) * 1000]] }] } {::YouTubeLink::DEBUG  "::YouTubeLink::API:GetInfo \00314La connexion à \00312\037[set URL_Link]\037\003\00314 n'a pas pu être établie. Il est possible que le site rencontre un problème technique.\003"} elseif {[::http::status ${token}] eq "ok"} {# on extrait la partie qui nous intéresse et sur laquelle on va travaillerset received_data [::http::data ${token}]::http::cleanup ${token}::http::unregister httpsreturn [dict get [json::json2dict ${received_data}] items]}}proc ::YouTubeLink::IRC:Search { nick uhost hand chan text } {variable YTDBvariable APIvariable Channelsvariable Annoncevariable CMDIRCif { $Channels(Allow) != "*" && [lsearch -nocase $Channels(Allow) $chan] == "-1" } { return }# !yt info 1if {[string match -nocase "info" [lindex $text 0]]\&& [string is digit -strict [lindex $text 1]]\&& [lindex $text 2] == ""\&& [info exists YTDB([lindex $text 1])]} {set NUM[lindex $text 1]::YouTubeLink::IRC:Listen:Links $nick $uhost $hand $chan "${Annonce(URL_YT)}$YTDB($NUM)"return }if { [::YouTubeLink::ThrottleCheck $nick $chan $text] } {::YouTubeLink::DEBUG  "::YouTubeLink::IRC:Search INFO: ThrottleCheck protection: $nick $chan $text"return}::YouTubeLink::DEBUG "::YouTubeLink::IRC:Search is running with $text from $chan/$nick"set URL_Link"${API(URL)}/search?part=snippet&fields=items(id(videoId),snippet(title))&[::http::formatQuery key $API(Key) maxResults [expr $API(Max_Resultats) + 1] q [lrange [split $text] 0 end]]"set URL_DATA[::YouTubeLink::API:GetInfo ${URL_Link}]set URL_DATA_LENGTH[llength $URL_DATA]set ITEM_NUM0set LOOP_NUM0if { $URL_DATA_LENGTH == 0 } {puthelp "PRIVMSG $chan :${Annonce(Prefix)} ${Annonce(Null_Resultat)}"return}for { set i 0 } { $i < $URL_DATA_LENGTH } { incr i } {set ITEM_ID[lindex $URL_DATA $i 1 1];if { $ITEM_ID == "" } { continue }incr ITEM_NUMincr LOOP_NUMset YTDB($ITEM_NUM)${ITEM_ID}set TMP_TITLE[encoding convertfrom [lindex $URL_DATA $i 3 1]];set ITEM_TITLE[string map -nocase [list "&" "&" "'" "'" """ "\""] $TMP_TITLE];set ITEM_LINK"${Annonce(URL_YT)}${ITEM_ID}";append output [subst $Annonce(Message_Search)] ${Annonce(Split_Char)}if { $LOOP_NUM == ${Annonce(Max_Links)} } {set LOOP_NUM0puthelp "PRIVMSG $chan :${Annonce(Prefix)} [string trimright $output ${Annonce(Split_Char)}]"set output""}}if { $output != "" } {puthelp "PRIVMSG $chan :${Annonce(Prefix)} [string trimright $output ${Annonce(Split_Char)}]"}set CMD [lindex $CMDIRC(Public) 0]puthelp "PRIVMSG $chan :${Annonce(Prefix)} Info: $CMD info <num>"}proc ::YouTubeLink::IRC:Listen:Links {nick uhost hand chan text} {variable Bindvariable APIvariable Annoncevariable Format::YouTubeLink::DEBUG "::YouTubeLink::IRC:Listen:Links is running with $text from $chan/$nick"if { ![regexp -nocase -- $Bind(RegExp_URLMatching) $text URL_Link id] } {::YouTubeLink::DEBUG "::YouTubeLink::IRC:Listen:Links ERREUR: regexp $Bind(RegExp_URLMatching) not match $text sur $chan"return}if { [::YouTubeLink::ThrottleCheck $nick $chan $id] } {::YouTubeLink::DEBUG  "::YouTubeLink::IRC:Listen:Links INFO: ThrottleCheck protection: $nick $chan $text"return}::YouTubeLink::DEBUG "::YouTubeLink::IRC:Listen:Links info: url is: ${URL_Link} and id is: $id"set URL_Link"${API(URL)}/videos?id=$id&part=snippet,statistics,contentDetails&fields=items(snippet(title,channelTitle,publishedAt),statistics(viewCount),contentDetails(duration))&[::http::formatQuery key $API(Key)]"putlog "$URL_Link"set URL_DATA{*}[::YouTubeLink::API:GetInfo ${URL_Link}]set MUSIC_TITLE[encoding convertfrom [dict get $URL_DATA snippet title]]set MUSIC_PUBLISH_iso8601[dict get $URL_DATA snippet publishedAt]set MUSIC_PUBLISH[clock format [::clock::iso8601 parse_time $MUSIC_PUBLISH_iso8601] -format $Format(Date) -locale $Format(Date_locale)]set MUSIC_CHANNEL[encoding convertfrom [dict get $URL_DATA snippet channelTitle]]set MUSIC_DURATION[::YouTubeLink::FCT:ISO8601:TO:DURATION [dict get $URL_DATA contentDetails duration]]set MUSIC_VIEWED[::YouTubeLink::add_thousand_separators [dict get $URL_DATA statistics viewCount]]set isotime[lindex $URL_DATA 0 3 1]set views[lindex $URL_DATA 0 5 1]puthelp "PRIVMSG $chan :${Annonce(Prefix)} [subst $Annonce(Message)]"}proc ::YouTubeLink::FCT:ISO8601:TO:DURATION { isotime } {regsub -all {PT|S} $isotime "" isotimeregsub -all {H|M} $isotime ":" isotimeif { [string index $isotime end-1] == ":" } {set sec[string index $isotime end]set trim[string range $isotime 0 end-1]set isotime${trim}0$sec} elseif { [string index $isotime 0] == "0" } {set isotime"stream"} elseif { [string index $isotime end-2] != ":" } {set isotime"${isotime}s"}return $isotime}# Chargement du script::YouTubeLink::INIT

Code: