``
`` Checking the status of a web page - Scriptol.com
``

text server = "www.scriptol.com"

int sockAccess(text page)
  text errno
  text errstr
  dyn fp
  
  fp = fsockopen(server, 80, errno, errstr, 30);
  if fp = 0 
     die("Error $errstr ($errno)")
  /if  
  
  text out = "GET /$page HTTP/1.1\r\n"
  out  + "Host: $server\r\n"
  out  + "Connection: Close\r\n\r\n"

  fwrite(fp, out)
  text content = fgets(fp)
  text code = trim(substr(content, 9, 4))
  fclose(fp)

return intval(code)  


print "code=", sockAccess("index.php");
print "code=", sockAccess("ae.php");
print "code=", sockAccess("brokenlink.php");