alias insane_check {
sockclose insaneforum
sockopen insaneforum www.insaneboard.comeze.com 80
.timerInsaneForumTimeout 1 12 sockclose insaneforum
}
ON *:SOCKOPEN:insaneforum: {
if ($sockerr > 0) { /echo -ta open error | return }
sockwrite -n $sockname GET /news.php HTTP/1.0
sockwrite -n $sockname Host: www.insaneboard.comeze.com
sockwrite -n $sockname $crlf
}
ON *:SOCKREAD:insaneforum: {
.timerInsaneForumTimeout off
sockread %isnane.result
while ($sockbr) {
if (Members</td> isin %insane.result) sockread %insane_members
if (Guests</td> isin %insane.result) sockread %insane_guests
if (Members Total</td> isin %insane.result) sockread %insane_total
if (Newest Member</td> isin %insane.result) sockread %insane_new_member
sockread %insane.result
}
}
alias parsehtml {
set -l %temp $regsubex($1,/<[^>]+[>$]>?/g,)
while (($regex(%temp,/&#(\d+);/)) && ($regml(1) isnum 32-255)) set -l %temp $replacex(%temp,$+(&#,$regml(1),;),$chr($regml(1)))
while (($regex(%temp,/&#x(.*?);/)) && ($base($regml(1),16,10) isnum 32-255)) set -l %temp $replacex(%temp,$+(&#x,$regml(1),;),$chr($base($regml(1),16,10)))
set -l %finished $replacex(%temp, ,$chr(160),",",·,·,<,<,>,>,&,&,–,–,é,$chr(233))
return %finished
}
ON *:SOCKCLOSE:insaneforum: {
echo -ta GUESTS ONLINE: $iif(%insane_guests,$parsehtml($v1),N/A) - MEMBERS ONLINE: $iif(%insane_members,$parsehtml($v1),N/A) - TOTAL ONLINE USERS: $iif(%insane_total,$parsehtml($v1),N/A) - NEWEST MEMBER: $iif(%insane_new_member,$parsehtml($v1),N/A)
}