set youtube(pattern) (?:\/watch\?v=|youtu\.be\/)([\d\w-]{11})

Statistics: Posted by caesar — Sat Jun 25, 2016 2:34 pm

Code:

# Maximum time to wait for youtube to respondset youtube(timeout)            "30000"# Youtube oembed location to use as source for title queries. It is best to use# nearest youtube location to you.  For example http://uk.youtube.com/oembedset youtube(oembed_location)    "http://www.youtube.com/oembed"# Use tinyurl service to create short version of youtube URL. Values can be# 0 for off and 1 for on.set youtube(tiny_url)           0# Response Format# %botnick%         Nickname of bot# %post_nickname%   Nickname of person who posted youtube link# %title%           Title of youtube link# %youtube_url%     URL of youtube link# %tinyurl%         Tiny URL for youtube link. tiny_url needs to be set above.# Example:#   set youtube(response_format) "\"%title%\" ( %tinyurl% )"set youtube(response_format) "Youtube Title: \"%title%\""# Bind syntax, alter as suits your needsbind pubm - * public_youtube# Pattern used to patch youtube links in channel public textset youtube(pattern) {http://.*youtube.*/watch\?(.*)v=([A-Za-z0-9_\-]+)}# This is just used to avoid recursive loops and can be ignored.set youtube(maximum_redirects)  2# The maximum number of characters from a youtube title to printset youtube(maximum_title_length) 256###############################################################################package require httpset gTheScriptVersion "0.5"proc note {msg} {putlog "% $msg"}###############################################################################proc make_tinyurl {url} {if {[info exists url] && [string length $url]} {if {[regexp {http://tinyurl\.com/\w+} $url]} {set http [::http::geturl $url -timeout 9000]upvar #0 $http state ; array set meta $state(meta)::http::cleanup $http ; return $meta(Location)} else {set http [::http::geturl "http://tinyurl.com/create.php" \-query [::http::formatQuery "url" $url] -timeout 9000]set data [split [::http::data $http] \n] ; ::http::cleanup $httpfor {set index [llength $data]} {$index >= 0} {incr index -1} {if {[regexp {href="http://tinyurl\.com/\w+"} [lindex $data $index] url]} {return [string map { {href=} "" \" "" } $url]}}}}error "failed to get tiny url."}###############################################################################proc flat_json_decoder {info_array_name json_blob} {upvar 1 $info_array_name info_array# 0 looking for key, 1 inside key, 2 looking for value, 3 inside valueset kvmode 0set cl 0set i 1set length [string length $json_blob]while { $i < $length } {set c [string index $json_blob $i]if { [string equal $c "\""] && [string equal $cl "\\"] == 0 } {if { $kvmode == 0 } {set kvmode 1set start [expr $i + 1]} elseif { $kvmode == 1 } {set kvmode 2set name [string range $json_blob $start [expr $i - 1]]} elseif { $kvmode == 2 } {set kvmode 3set start [expr $i + 1]} elseif { $kvmode == 3 } {set kvmode 0set info_array($name) [string range $json_blob $start [expr $i - 1]]}}set cl $cincr i 1}}proc filter_title {blob} {# Try and convert escaped unicodeset blob [subst -nocommands -novariables $blob]set blob [string trim $blob]set blob}proc extract_title {json_blob} {global youtubearray set info_array {}flat_json_decoder info_array $json_blobif { [info exists info_array(title)] } {set title [filter_title $info_array(title)]} else {error "Failed to find title.  JSON decoding failure?"}if { [string length $title] > $youtube(maximum_title_length) - 1 } {set title [string range $title 0 $youtube(maximum_title_length)]"..."} elseif { [string length $title] == 0 } {set title "No usable title."}return $title}###############################################################################proc fetch_title {youtube_uri {recursion_count 0}} {global youtubeif { $recursion_count > $youtube(maximum_redirects) } {error "maximum recursion met."}set query [http::formatQuery url $youtube_uri]set response [http::geturl "$youtube(oembed_location)?$query" -timeout $youtube(timeout)]upvar #0 $response stateforeach {name value} $state(meta) {if {[regexp -nocase ^location$ $name]} {return [fetch_title $value [incr recursion_count]]}}if [expr [http::ncode $response] == 401] {error "Location contained restricted embed data."} else {set response_body [http::data $response]http::cleanup $responsereturn [extract_title $response_body]}}proc public_youtube {nick userhost handle channel args} {global youtube botnickif {[regexp -nocase -- $youtube(pattern) $args match fluff video_id]} {note "Fetching title for $match."if {[catch {set title [fetch_title $match]} error]} {note "Failed to fetch title: $error"} else {set tinyurl $matchif { $youtube(tiny_url) == 1 && \[catch {set tinyurl [make_tinyurl $match]}]} {note "Failed to make tiny url for $match."}set tokens [list %botnick% $botnick %post_nickname% \$nick %title% "$title" %youtube_url% \"$match" %tinyurl% "$tinyurl"]set result [string map $tokens $youtube(response_format)]putserv "PRIVMSG $channel :$result"}}}

Statistics: Posted by XtremeSeb — Tue Jun 21, 2016 5:38 pm