on $*:text:/(youtube\.com)\/.*v=([^&|^\s]+)|(youtu\.be)\/([^\s]+)/Si:#: {
if (!$sock(youtube)) { sockopen -e youtube youtube.com 443 | sockmark youtube $+(#,>,$regml(2)) }
}
on *:sockopen:youtube: {
if ($sockerr) { echo -a $sockname read $1- | return }
sockwrite -nt $sockname GET https://www.youtube.com/watch?v= $+ $gettok($sock(youtube).mark,2,62) HTTP/1.1
sockwrite -nt $sockname Host: youtube.com
sockwrite -nt $sockname $crlf
}
on *:sockread:youtube: {
var %ytd | sockread -f %ytd
if ($regex($remove(%ytd,$chr(44)),"title":"(.+?)")) {
sockmark youtube $+($sock(youtube).mark, >,$regml(1))
yt.name $sock(youtube).mark
sockclose $sockname
}
}
alias yt.name {
tokenize 62 $1- | msg $1 [1,0You0,4Tube] $iif($3,$v1,The video doesn't exist or it contained a malformed video ID.)
}
Torna al NoPaste