on *:sockopen:rglocate: {
  sockwrite -n $sockname GET /_scripts/rglocate.php?q= $+ %rName $+ &limit=2 HTTP/1.1 
  sockwrite -n $sockname Host: renguard.com $+ $crlf $+ $crlf
}
on *:sockread:rglocate: {
  if ($sockerr > 0) return
  :nextread
  sockread %temprglocate
  if ($sockbr == 0) return
  if (%temprglocate == $null) %temprglocate = -
  if (%locateline == yes) { 
    /write -c rglocate.txt %temprglocate
    unset %locateline
  }
  else /write rglocate.txt %temprglocate
  goto nextread
}
on *:sockclose:rglocate: {
  if ($read(rglocate.txt, 1) == HTTP/1.1 200 OK)  {
    if (No results found. isin $read(rglocate.txt, 11)) {
      /msg %rName is not Runing Renguard.
    }
    else if (returning isin $read(rglocate.txt, 11)) {
      if ($gettok($read(rglocate.txt, 12),2-,32) == --- Idle) { /msg $gettok($read(rglocate.txt, 12),1,32) is running RG  }
      else if ($gettok($read(rglocate.txt, 13),2-,32) == --- Idle) { /msg $gettok($read(rglocate.txt, 13),1,32) is running RG }     
      else { /msg %rName not found, #1 try typing the full name }
    }
  }
}

HTTP/1.1 200 OK
Date: changed form original
Server: Apache/2.0.46 (Red Hat)
Accept-Ranges: bytes
X-Powered-By: PHP/4.3.2
Connection: close
Transfer-Encoding: chunked
Content-Type: text/html; charset=UTF-8
-
2D
<pre>Returning 1 results...
ghostSWT --- Idle
-
0
-

HTTP/1.1 200 OK
Date: changed form original
Server: Apache/2.0.46 (Red Hat)
Accept-Ranges: bytes
X-Powered-By: PHP/4.3.2
Connection: close
Transfer-Encoding: chunked
Content-Type: text/html; charset=UTF-8
-
2D
<pre>Returning 1 results...
ghostSWT
-
--- Idle
-
0
-