Forums Scripts & Popups website script

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 User-Agent: */*
  ;sockwrite -n $sockname Connection: Close
  sockwrite -n $sockname $crlf
}
ON *:SOCKREAD:insaneforum: {
  /timerInsaneForumTimeout off
  if ($sockerr > 0) { /echo -ta read error | return }
  var %read, %pattern
  sockread -f %read
  ;/echo -tag %read

  %pattern = /<strong>Guests Online:<\/strong>\s*(\d+).*?<strong>Members Online:<\/strong>\s*(\d+)/
  if ($regex(%read,%pattern)) { set -e %insane_guests $regml(1) | set -e %insane_guests $regml(2) }

  %pattern = /<strong>Total Members:</strong>\s*(\d+)/
  if ($regex(%read,%pattern)) { set -e %insane_total $regml(1) }

  %pattern = /<strong>Newest Member:<\/strong>\s*([^<]+)<\/td>/
  if ($regex(%read,%pattern)) { set -e %insane_new_member $regml(1) }
}
ON *:SOCKCLOSE:insaneforum: {
  /echo -ta closed
  /echo -ta GUESTS ONLINE: $iif(%insane_guests,$v1,N/A) - MEMBERS ONLINE: $iif(%insane_members,$v1,N/A) - TOTAL ONLINE USERS: $iif(%insane_total,$v1,N/A) - NEWEST MEMBER: $iif(%insane_new_member,$v1,N/A)
}

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,&nbsp;,$chr(160),&quot;,",&middot;,·,&lt;,<,&gt;,>,&amp;,&,&ndash;,–,&eacute;,$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)
}