Eggdrop YouTube by munZe (TCL8.4)

bind pubm - *youtu.be/* YouTube
bind pubm - *youtube.com/watch*v=* YouTube
proc YouTube {nick host hand chan text} {
set ytid [regexp -all -inline -nocase {([A-Za-z0-9_-]{11})} $text]; set ytid [lindex $ytid 0]
set url "http://gdata.youtube.com/feeds/api/videos/$ytid?v=2&alt=jsonc&prettyprint=true"
set token [ ::http::geturl $url ]; set page [ ::http::data $token ]
::http::cleanup $token
set duration [regexp -all -inline {"duration": (.*?),} $page]; set duration [lindex $duration 1]; set duration [clock format $duration -gmt 1 -format %H:%M:%S]
set title [regexp -all -inline {"title": "(.*?)",} $page]; set title [lindex $title 1]
set likes [regexp -all -inline {"likeCount": "(.*?)",} $page]; set likes [lindex $likes 1]
set views [regexp -all -inline {"viewCount": (.*?),} $page]; set views [lindex $views 1]
set uploader [regexp -all -inline {"uploader": "(.*?)",} $page]; set uploader [lindex $uploader 1]
#set uploaded [regexp -all -inline {"uploaded": "(.*?)",} $page]; set uploaded [lindex $uploaded 1]; set uploaded [clock scan $uploaded -format {%Y-%m-%dT%H:%M:%S.000Z}]; set uploaded [clock format $uploaded -format {%d.%m.%Y}]
putserv "PRIVMSG $chan :Youtube - Title: \002$title\002 - Duration: \002$duration\002 - Likes: \002$likes\002 - Views: \002$views\002 - Uploaded by: \002$uploader\002"
#- Uploaded: \002$uploaded\002"
}
putlog "Loaded YouTube TCL by munZe"