alias FCKnudde {
sockclose FCKnudde
sockopen FCKnudde www.nusport.nl 80
}
on *:SOCKCLOSE:FCKnudde: {
var %x, %. 1
while (%. <= $numtok(%sockreader,160)) {
%x = %x $+(regml,$chr(32),%.,:,$chr(32),$+($,%.))
inc %.
}
tokenize 160 %sockreader
echo -a $left([ [ %x ] ],-1)
unset %sockreader
}
on *:SOCKOPEN:FCKnudde: {
sockwrite -nt $sockname GET /fc-knudde/ HTTP/2.0
sockwrite -nt $sockname Host: www.nusport.nl
sockwrite -nt $sockname Connection: close
sockwrite -nt $sockname
}
on *:SOCKREAD:FCKnudde: {
if ($sockerr) { echo -a SOCKERR: $sockerr | halt }
else {
sockread -fn &sockreader
if ($regex($bvar(&sockreader,1-).text,/<span class="title">(.+?)<\/span>/i)) {
set %sockreader $addtok(%sockreader,$+($regml(1),$chr(44),$chr(32)),160)
}
}
}