on *:TEXT:!req &:#:{
noop $regex($2,/(youtube\.com)\/.*v=([^&]+)|(youtu\.be)\/(.+)/Si)
if $read(songrequest.txt,nw,$+(*,$2)) {
msg # The Song $gettok($v1,2-,32) is already on my list :)
}
elseif !$regml(2) {
msg # $nick --> You typed invalid youtube url.
}
else {
youtube $2 $chan $nick
}
}
alias -l sockopenmark { sockopen $1-3 | sockmark $1 $4- }
alias -l youtube {
noop $regex($1,/(youtube\.com)\/.*v=([^&]+)|(youtu\.be)\/(.+)/Si)
sockopenmark $+(yt.,$ticks,$rand(1,99)) www.youtube.com 443 $regml(2) msg $iif($chan,$v1,$nick))
}
on *:sockopen:yt.*:{
tokenize 32 $sock($sockname).mark
sockwrite -n $sockname GET /watch?v= $+ $1 HTTP/1.0
sockwrite -n $sockname HOST: www.youtube.com $+ $str($crlf,2)
}
on *:sockread:yt.*:{
var %v | sockread %v
if (%v) echo -ag %v
if ($regex(%v,/"name" content="(.+)"/)) {
tokenize 32 $sock($sockname).mark
$2-4 $replace($regml(1),&,$chr(38),',$chr(39),',$chr(39),",$chr(34),",$chr(34),&,$chr(38)) $5-
sockclose $sockname
}
}