<?php
  
  $LINKCHECKER\_total\_str\; =\; \text{'}\text{'};$// +----------------------------------------------------------------------+
  // | LinkChecker                                                          |
  // | Gets URL header data using cURL                                      |
  // +----------------------------------------------------------------------+
  // | Copyright (c) 2003 Jaimie Sirovich                                   |
  // +----------------------------------------------------------------------+
  // | Author: Jaimie Sirovich <jsirovic@gmail.com>                         |
  // +----------------------------------------------------------------------+
  
  class LinkChecker
  {
    // helper function for the cURL request
    function CURLOPT_WRITEFUNCTION(ch, $str)\; \{\; global$LINKCHECKER_total_str;
      $LINKCHECKER\_total\_str\; .=$str;
      if (preg_match('/^(.*?)\r\n\r\n/s', $LINKCHECKER\_total\_str,$matches)) 
      {
        echo $matches[1];\; return\; -1;\; \}\; else\; \{\; return\; strlen($str);
      }  
    }  
  
    // return the header data
    function getHeader($url,$userAgent = "Mozilla/4.0")
    {
      global $LINKCHECKER\_total\_str;$LINKCHECKER_total_str = "";
      ob_start();  
      $ch\; =\; curl\_init();\; curl\_setopt\; ($ch, CURLOPT_URL, $url);\; curl\_setopt\; ($ch, CURLOPT_USERAGENT, $userAgent);\; curl\_setopt\; ($ch, CURLOPT_HEADER, 1);
      curl_setopt ($ch,\; CURLOPT\_RETURNTRANSFER,\; 1);\; curl\_setopt\; ($ch, CURLOPT_FOLLOWLOCATION, 1);
      curl_setopt ($ch,\; CURLOPT\_TIMEOUT,\; 60);\; curl\_setopt\; ($ch, CURLOPT_WRITEFUNCTION, 
                   array("LinkChecker", "CURLOPT_WRITEFUNCTION"));
       
      $result\; =\; curl\_exec($ch);
      curl_close($ch);\; return\; ob\_get\_clean();\; \}$// return response code  
    function parseResponseCode(str) 
    {
      preg_match('/^HTTP\/\d\.\d (.{3})/', $str,$matches);
      return (isset($matches[1])\; ?$matches[1] : '(not available)');
    }
  
    // return the MIME type
    function parseMimeType($str)\; \{\; preg\_match(\text{'}/Content-Type:\; (.*)/\text{'},$str, $matches);\; return\; (isset($matches[1]) ? $matches[1]\; :\; \text{'}(not\; available)\text{'});\; \}$// return the Content-Length
    function parseContentLength(str) 
    {
      preg_match('/Content-Length: (.*)/', $str,$matches);
      return (isset($matches[1])\; ?$matches[1] : '(not available)');
    }
    
    // return the Location
    function parseLocation($str)\; \{\; preg\_match(\text{'}/Location:\; ?([^\backslash r\backslash n]*)/i\text{'},$str, $matches);\; return\; (isset($matches[1]) ? $matches[1]\; :\; \text{'}(not\; available)\text{'});\; \}$// return the path to the destination URL
    function getPath(url, &$\_response\_code,$userAgent = 'Mozilla/4.0')
    {
      $\_url\; =$url;
      $path\; =\; array();$path[] = 'Initial destination ' . $\_url;$iterations = 0;
  
      do 
      {
        $\_buffer\; =\; LinkChecker::getHeader($_url);
        if (!$\_buffer)\; \{$path[] = 'ERROR: Maximum number of redirections exceeded; aborting.';
          break;
        }
        $\_url\; =\; LinkChecker::parseLocation($_buffer) ? 
                LinkChecker::parseLocation($\_buffer)\; :$_url;
        $\_response\_code\; =\; LinkChecker::parseResponseCode($_buffer);
        $path[]\; =\; ($_response_code != 200 && $\_response\_code\; !=\; 404)\; ?\; (\text{'}Redirect\; (\text{'}\; .$_response_code . ') to => ' . $\_url)\; :\; (\text{'}Final\; destination\; (\text{'}\; .$_response_code . ') ' . $\_url\; );$iterations++;
        if ($iterations\; >\; 10)\; \{$path[] = 'ERROR: Maximum number of redirections exceeded; aborting.';
          break;
        }
      } 
      while (_response_code != '404'); 
  
      return $path;\; \}\; \}\; ?>$