on @*:text:!song*:#:{
if ($2 != $null) {
demo $2
}
}
alias demo {
%videoid = $1
%sockname = demo. $+ $ticks
hfree -w %sockname | hmake %sockname
hadd %sockname host gdata.youtube.com
hadd %sockname port 80
hadd %sockname request /feeds/api/videos/%videoid
sockopen -e %sockname $hget(%sockname,host) $hget(%sockname,port)
}
on *:sockopen:demo.*: {
var %<< = sockwrite -nt $sockname
%<< GET $hget($sockname,request) HTTP/1.0
%<< Host: $sock($sockname).addr
%<< $crlf
}
on *:sockread:demo.*: {
var %header, %content
if (!$hget($sockname,header.complete)) {
sockread %header
while (%header != $null) {
if (HTTP/* 2?? * iswm %header) { hadd $sockname following $true }
elseif (HTTP/* 4?? * iswm %header) {
}
;echo -ag %header
sockread %header
}
if ($sockbr) hadd $sockname header.complete $true
}
if ($hget($sockname,header.complete)) {
while ($sockbr) {
sockread -f %content
;if (%content != $null) echo -ag %content
}
}
}
on *:sockclose:demo.*:{
if ($hget($sockname,following)) { var %msg = Following }
else { var %msg = Not following }
if ($hget($sockname,chan)) { msg $v1 %msg }
else { echo -ag %msg }
hfree $sockname
}