Code:

set lines [split $data "\n"]

Code:

# KYoutube.tcl v1.4## Author: Outsider# Evolutions : Krypte (krypte@europnet.org)## Example :# <Krypte> http://www.youtube.com/watch?v=s7L2PVdrb_8# <KBot> [Youtube] Title: Game Of Thrones "Official" Show Open (HBO) | Duration: 1min 42sec | Views: 11021898## You can also search a video using !youtube argument## Change Log v1.4 :# Add activation on chan !yact (on|off) enables or disables script for active channel (flags "mno" only)# Improvement of the duration format (code from JazZ)# Translation in Englishsetudef flag yactpackage require http#bind pub mno|mno !yact YouTube-Activate#bind pubm - *http://*youtu*/watch* pubm:youtubebind ctcp - * action:youtubebind pub - !youtube pub:youtubebind pub - !yt pub:youtube# procedure for activate KYoutube.tcl on a channelproc YouTube-Activate {nick host hand chan text} {if {![channel get $chan yact] && $text == "on"} {catch {channel set $chan +yact}putserv "notice $nick :YouTube: enabled for $chan"putlog "YouTube: script enabled (by $nick for $chan)"} elseif {[channel get $chan yact] && $text == "off"} {catch {channel set $chan -yact}putserv "notice $nick :YouTube: disabled for $chan"putlog "YouTube: script disabled (by $nick for $chan)"} else {putserv "notice $nick :YouTube: !yact (on|off) enables or disables script for active channel"}}# procedure for matching on action, e.g * Krypte is watching http://www.youtube.com/watch?v=s7L2PVdrb_8proc action:youtube {nick host hand dest keyword args} {        if {[channel get $dest yact]} {        set args [lindex $args 0]        if {![validchan $dest]} {return}        if {$keyword == "ACTION" && [string match *http://*youtu*/watch* $args]} {pubm:youtube $nick $host $hand $dest $args}}}# main youtube procedure on textproc pubm:youtube {nick host hand chan args} {        if {[channel get $chan yact]} {        set args [lindex $args 0]        while {[regexp -- {(http:\/\/.*youtub.*/watch.*)} $args -> url args]} {                while {[regexp -- {v=(.*)&?} $url -> vid url]} {                        set vid [lindex [split $vid &] 0]                        set gurl "http://gdata.youtube.com/feeds/api/videos/$vid"                        set search [http::formatQuery v 2 alt jsonc prettyprint true]                        set token [http::config -useragent "Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8.1.11) Gecko/20071127 Firefox/2.0.0.11" -accept "*/*"]                        set token [http::geturl "$gurl?$search"]                        set data [::http::data $token]                        http::cleanup $token                        set lines [split $data "\n"]                        set title ""                        set duration ""                        set viewCount ""                        foreach line $lines {                                if {$title==""} {set title [lindex [regexp -all -nocase -inline {\"title\"\: \"(.*)\"} $line] 1]}                                if {$duration==""} {set duration [lindex [regexp -all -nocase -inline {\"duration\"\: ([0-9]+)} $line] 1]}                                if {$viewCount==""} {set viewCount [lindex [regexp -all -nocase -inline {\"viewCount\"\: ([0-9]+)} $line] 1]}                        }                        set title [yturldehex $title]                        putmsg $chan "\[Youtube\] Title: \002$title\002 | Duration: \002[shortduration $duration]\002 | Views: \002$viewCount\002"                }        }}}# Search procedure, e.g !youtube game of thronesproc pub:youtube {nick host hand chan args} {        if {[channel get $chan yact]} {        set args [lindex $args 0]        if {$args == ""} {                putnotc $nick "Command to search: \002!youtube <argument>\002"                return        }        set search [http::formatQuery v 2 alt jsonc q $args orderby viewCount max-results 3 prettyprint true]        set token [http::config -useragent "Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8.1.11) Gecko/20071127 Firefox/2.0.0.11" -accept "*/*"]        set token [http::geturl "http://gdata.youtube.com/feeds/api/videos?$search"]        set data [::http::data $token]        http::cleanup $token        set totalitems [lindex [regexp -all -nocase -inline {\"totalItems\"\: ([0-9]+)} $data] 1]#        putnotc $nick "\[Youtube Search\] There is $totalitems results for your search on \002$args\002"        set lines [split $data "\n"]        set results ""        foreach line $lines {                if {[regexp -all -nocase -inline {\"id\"\: \"(.*)\"} $line] != ""} {                        set id [lindex [regexp -all -nocase -inline {\"id\"\: \"(.*)\"} $line] 1]                        lappend results $id                }                if {[regexp -all -nocase -inline {\"title\"\: \"(.*)\"} $line] != ""} {                        set result($id,title) [yturldehex [lindex [regexp -all -nocase -inline {\"title\"\: \"(.*)\"} $line] 1]]                }                if {[regexp -all -nocase -inline {\"duration\"\: ([0-9]+)} $line] != ""} {                        set result($id,duration) [lindex [regexp -all -nocase -inline {\"duration\"\: ([0-9]+)} $line] 1]                }                if {[regexp -all -nocase -inline {\"viewCount\"\: ([0-9]+)} $line] != ""} {                        set result($id,viewCount) [lindex [regexp -all -nocase -inline {\"viewCount\"\: ([0-9]+)} $line] 1]                }        }        foreach res $results {                putmsg $chan "\[Youtube\] Title: \002$result($res,title)\002 | Duration: \002[shortduration $result($res,duration)]\002 | Views: \002$result($res,viewCount)\002 | Link: \002http://www.youtube.com/watch?v=$res\002"        }}}proc yturldehex {string} {        regsub -all {[\[\]]} $string "" string        set string [subst [regsub -nocase -all {\&#([0-9]{2,4});} $string {[format %c \1]}]]        return [string map {" \"} $string]}# Format the duration from seconds to x hours y mins z secproc shortduration {seconds} {            set hours [expr {$seconds / 3600}]            set minutes [expr {($seconds / 60) % 60}]            set seconds [expr {$seconds % 60}]            set res ""             if {$hours != 0} {append res "$hours hrs "}                        if {$minutes != 0} {append res "$minutes\min "}            if {$seconds != 0} {append res "$seconds\sec"}            return $res}putlog "KYoutube.tcl v1.4 Loaded."