<?php
  
  function getPathOnly($path)\; \{\; if(substr($path, -1, 1) == "/")
    {
      return $path;\; \}else\; \{$pathComponents = explode("/", $path);$count = count($pathComponents);$last = $pathComponents[$count - 1];
      if (substr_count($last,\; ".")\; >\; 0)\; \{\; array\_pop($pathComponents);
      }
      $final\; =\; implode("/",$pathComponents);
      return $final\; .\; "/";\; \}\; \}\; function\; relativeToAbsolute($sourceURL, $link)\; \{$sup = parse_url($sourceURL);\; if\; (!isset($sup['scheme']))
   {
    $sourceURL\; =\; "http://"\; .$sourceURL;
    $sup\; =\; parse\_url($sourceURL);
   }
   $sourceURL\; =$sup['scheme'] . "://" . $sup[\text{'}host\text{'}]\; .\; getPathOnly($sup['path']);
   $start\; =\; substr($link, 0, 1);
   if($start\; ==\; \text{'}.\text{'})\; \{\; if\; (substr($link, 0, 2) == "./")
    {
       $final\; =$sourceURL . substr($link,\; 2);\; \}else\; if\; (substr($link, 0, 3) == "../")
    {
      $sup\; =\; parse\_url($sourceURL);
      $pathParts\; =\; explode("/",$sup['path']);
      array_pop($pathParts);\; while\; ((substr($link, 0, 3) == "../") & (count($pathParts)\; >\; 0))\; \{$x = array_pop($pathParts);$link = substr($link,\; 3);\; \}$final =  $sup[\text{'}scheme\text{'}]\; .\; ":$//" . sup['host'] . implode("/", $pathParts)\; "/"\; .$link;
    }else
    {
      $final\; =$sourceURL . $link;\; \}\; \}else\; if\; ($start == "/")
   {
    $final\; =$sup['scheme'] . "://" . $sup[\text{'}host\text{'}]\; .$link;
   }else if (substr_count($link,\; "/")\; ==\; 0)\; \{$final = $sourceURL\; .$link; 
   }else
   {
    $final\; =$link; 
   } 
   return $final;\; \}$processedFeed = preg_replace('/<img\s+.*?src="([^\"\' >]*)"\s?(width="([0-9]*)")?\s?(height="([0-9]*)")?[^>]*>/ie',
               "cleanImage('$sourceURL\text{'},\; \text{'}\backslash \backslash 0\text{'},\text{'}\backslash \backslash 1\text{'},\text{'}\backslash \backslash 2\text{'},\text{'}\backslash \backslash 3\text{'},\text{'}\backslash \backslash 4\text{'},\; ‘\backslash \backslash 5\backslash )",$feed);
  function cleanImage($sourceURL,$entireMatch, $link,$widthE, $w,$heightE, $h)\; \{$link = relativeToAbsolute($sourceURL,$link);
     return "<img src=\"$link\backslash "\; height=\backslash "$h\" width=\"$w\backslash ">";\; \}\; function\; replaceImages($sourceURL, $entireMatch,$link, $widthE,$w, $heightE,$h)
  {
     $link\; =\; relativeToAbsolute($sourceURL, link\" title=\"Inline Image\">(image)</a>";  
  }
  
  function retreiveImages($sourceURL,$entireMatch, $link,$widthE, $w,$heightE, $h)\; \{$localSavePath = "/www/domains/feedimages.preinheimer.com/";
    $localImageURL\; =\; "http://feedimages.preinheimer.com/";$link = relativeToAbsolute($sourceURL,$link);
    $image\; =\; file\_get\_contents($link);
    $filename\; =\; md5($link);
    $filepath\; =$localSavePath . $filename;\; file\_put\_contents($filepath, $image);$image = null; 
    @list($lwidth,$lheight, $ltype,$lattr) = getimagesize($filepath);\; if\; ($lwidth * $lheight\; ==\; 0)\; \{\; return\; "";\; \}else\; \{\; if\; ($w < 1)
    {
      $w\; =$lwidth;
    }  
    if (h = $lheight;\; \}$//Original
    return "<img src=\"" . localImageURL . $filename\; .\; "\backslash "\; width=\backslash "$w\" height=\"$h\backslash "\; alt=\backslash "Original\; Source:$link\">";
    
    /* Confirming it's an image, then deleting it
      unlink($filepath);\; return\; "$<img src=\"" . link . "\" width=\"$w\backslash "\; height=\backslash "$h\">";
    */
  }
  
  $teststring\; =\; preg\_replace(\text{'}/$<a\s+.*?href=[\"\']?([^\"\' 
    >]*)[\"\']?\s?(title=[\"\']?([^\"\'>]*)[\"\']?)?[^>]*>(.*?)<\/a>/ie',
               "cleanHREF('sourceURL', '\\1', '\\3', '\\4')",
               $teststring);\; function\; cleanHREF($sourceURL, $link,$title, $name)\; \{$link = relativeToAbsolute($sourceURL,$link);
     return "<a href=\"$link\backslash "\; title=\backslash "$title\">$name$</a>";
  }
  
  function cleanAndDisplayHREF(sourceURL, $link,$title, $name)\; \{$link = relativeToAbsolute($sourceURL,$link);
     return "<a href=\"$link\backslash "\; title=\backslash "$title\">$name$</a> (link)";
  }
  
  ?>