YoutubeTitle.tcl

###########################################################
#
#	Youtube Title 1.5
#
#La postarea unui link youtube eggdropul va afisa
#titlul videoclipului
#
#.chanset #canal +ytitle | .set +ytitle
#
#Este nevoie de tcl-ul http.tcl sa fie incarcat inainte
#de YoutubeTitle.tcl
#			BLaCkShaDoW ProductionS
#
#  Sponsored by ForceSP - The Next Generation Hosting -
#########################################################



bind pubm - * check:youtube
bind ctcp - ACTION check:youtube:me

setudef flag ytitle
package require http


proc check:youtube {nick host hand chan arg} {
	
	set arg [split $arg]


if {![channel get $chan ytitle]} {

	return 0
}

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

		}
	}
}


proc youtube:get:title {link nick chan} {

	set ipq [http::config -useragent "lynx"]
	set ipq [http::geturl "http://youtubesongname.000webhostapp.com/index.php?link=$link" -timeout 10000]
	set getipq [http::data $ipq]
	set output [split $getipq "\n"]
	http::cleanup $ipq

	set title [string map { "&" "&"
			"'" "'"
			""" "\""
	
} [lindex $output 0]]
	set views [lindex $output 1]
	set likes [lindex $output 2]
	set dontlike [lindex $output 3]
	set views [string map {" " ""
				"," "."
	} $views]


	puthelp "PRIVMSG $chan :\002\0031,0You\0030,4Tube\003\002 :\0032 $title\003 | Views:\0034 $views\003 | Like:\0034 $likes %\003 | DisLIKE:\0034 $dontlike %\003"
}

proc check:youtube:me {nick host hand chan keyword arg} {
check:youtube $nick $host $hand $chan $arg
}

putlog "Youtube Title 1.5 by BLaCkShaDoW Loaded"