<?php

require_once NN_LIBS . 'simple_html_dom.php';
/**
 * Class adultdvdempire
 */
class ADE
{
	/**
	 * Define ADE Url here
	 */
	const ADE = "http://www.adultdvdempire.com";
	/**
	 * If a direct link is given parse it rather then search
	 *
	 * @var string
	 */
	public $directLink = "";
	/**
	 * If a string is found do call back.
	 *
	 * @var bool
	 */
	public $found = false;
	/**
	 * Search keyword
	 *
	 * @var string
	 */
	public $searchTerm = "";
	/**
	 * Direct Url returned in getAll method
	 *
	 * @var string
	 */
	protected $_directUrl = "";

	/**
	 * If a url is found that matches the keyword
	 *
	 */
	protected $_urlFound;

	/**
	 * Sets the title in the getAll method
	 *
	 * @var string
	 */
	protected $_title = "";

	/** Trailing urls */
	protected $_dvdQuery = "/dvd/search?q=";
	protected $_scenes = "/scenes";
	protected $_boxCover = "/boxcover";
	protected $_backCover = "/backcover";
	protected $_reviews = "/reviews";
	protected $_trailers = "/trailers";


	protected $_url;
	protected $_response;
	protected $_res = array();
	protected $_tmpResponse;
	protected $_html;
	protected $_edithtml;
	protected $_ch;

	public function __construct()
	{
		$this->_html = new \simple_html_dom();
		$this->_edithtml = new \simple_html_dom();
	}

	/**
	 *
	 * Remove from memory if they were not removed
	 *
	 */
	public function __destruct()
	{
		$this->_html->clear();
		$this->_edithtml->clear();
		unset($this->_response);
		unset($this->_tmpResponse);
	}

	/**
	 * Gets the direct link information and returns it
	 * @return array|bool
	 */
	public function getDirect()
	{
		if (isset($this->directlink)) {
			if ($this->getUrl() === false) {
				return false;
			} else {
				$this->_html->load($this->_response);

				return $this->getAll();
			}
		}

		return false;
	}

	public function getAll()
	{
		$results = array();
		if (isset($this->_directUrl)) {
			$results['directurl'] = $this->_directUrl;
			$results['title'] = $this->_title;
		}
		if (is_array($this->sypnosis(true))) {
			$results = array_merge($results, $this->sypnosis(true));
		}
		if (is_array($this->productInfo(true))) {
			$results = array_merge($results, $this->productInfo(true));
		}
		if (is_array($this->cast(true))) {
			$results = array_merge($results, $this->cast(true));
		}
		if (is_array($this->genres())) {
			$results = array_merge($results, $this->genres());
		}
		if (is_array($this->covers())) {
			$results = array_merge($results, $this->covers());
		}
		if (is_array($this->trailers())) {
			$results = array_merge($results, $this->trailers());
		}
		return $results;
	}

	/**
	 * Gets the sypnosis and tagline
	 *
	 * @param bool $tagline - Include tagline? true/false
	 *
	 * @return array - plot,tagline
	 */
	public function sypnosis($tagline = false)
	{
		if ($tagline === true) {
			if ($ret = $this->_html->find("p.Tagline", 0)){
				if (!empty($ret->plaintext)) {
					$this->_res['tagline'] = trim($ret->plaintext);
				}
			}
		}
		if ($ret = @$this->_html->find("p.Tagline", 0)->next_sibling()->next_sibling()) {
			$this->_res['sypnosis'] = trim($ret->innertext);
		}

		return $this->_res;
	}

	/**
	 * Gets Product Information and/or Features
	 *
	 * @param bool $features Include features? true/false
	 *
	 * @return array - ProductInfo/Extras = features
	 */
	public function productInfo($features = false)
	{
		$dofeature = null;
		$this->_tmpResponse = str_ireplace("Section ProductInfo", "spdinfo", $this->_response);
		$this->_edithtml->load($this->_tmpResponse);
		if ($ret = $this->_edithtml->find("div[class=spdinfo]", 0)) {
			$this->_tmpResponse = trim($ret->outertext);
			$ret = $this->_edithtml->load($this->_tmpResponse);
			foreach ($ret->find("text") as $strong) {
				if (trim($strong->innertext) == "Features") {
					$dofeature = true;
				}
				if ($dofeature != true) {
					if (trim($strong->innertext) != "&nbsp;") {
						$this->_res['productinfo'][] = trim($strong->innertext);
					}
				} else {
					if ($features == true) {
						$this->_res['extras'][] = trim($strong->innertext);
					}
				}
			}

			array_shift($this->_res['productinfo']);
			array_shift($this->_res['productinfo']);
			$this->_res['productinfo'] = array_chunk($this->_res['productinfo'], 2, false);
		}
		$this->_edithtml->clear();
		unset($this->_tmpResponse);
		unset($ret);

		return $this->_res;
	}

	/**
	 * Gets the cast members and/or awards
	 *
	 * @param bool $awards - Include Awards? true/false
	 *
	 * @return array - cast,awards
	 */
	public function cast($awards = false)
	{
		$this->_tmpResponse = str_ireplace("Section Cast", "scast", $this->_response);
		$this->_edithtml->load($this->_tmpResponse);


		if ($ret = $this->_edithtml->find("div[class=scast]", 0)) {
			$this->_tmpResponse = trim($ret->outertext);
			$ret = $this->_edithtml->load($this->_tmpResponse);
			foreach ($ret->find("a.PerformerName") as $a) {
				if ($a->plaintext != "(bio)") {
					if ($a->plaintext != "(interview)") {
						$this->_res['cast'][] = trim($a->plaintext);
					}
				}
			}
			if ($awards == true) {
				if ($ret->find("ul", 1)) {
					foreach ($ret->find("ul", 1)->find("li, strong") as $li) {
						$this->_res['awards'][] = trim($li->plaintext);
					}
				}
			}
			$this->_edithtml->clear();
			unset($ret);
			unset($this->_tmpResponse);
		}

		return $this->_res;
	}

	/**
	 * Gets categories, if exists return array else return false
	 * @return mixed array|bool - Categories, false
	 */
	public function genres()
	{
		$categories = null;
		$this->_tmpResponse = str_ireplace("Section Categories", "scat", $this->_response);
		$this->_edithtml->load($this->_tmpResponse);
		if ($ret = $this->_edithtml->find("div[class=scat]", 0)) {
			$this->_tmpResponse = trim($ret->outertext);
			$ret = $this->_edithtml->load($this->_tmpResponse);

			foreach ($ret->find("p, a") as $categories) {
				$categories = trim($categories->plaintext);
				if (stristr($categories, ",")) {
					$categories = explode(",", $categories);
					break;
				}
			}
			$categories = array_map('trim', $categories);
			$this->_res['genres'] = $categories;
		}
		$this->_edithtml->clear();
		unset($this->_tmpResponse);
		unset($ret);

		return $this->_res;
	}

	/**
	 * Gets cover images for the xxx release
	 * @return array - Boxcover and backcover
	 */
	public function covers()
	{
		$this->getUrl($this->_boxCover . $this->_urlFound);
		$this->_html->load($this->_response);
		foreach ($this->_html->find("div[id=FrontBoxCover], img[itemprop=image]") as $img) {
			if (stristr($img->src, "h.jpg")) {
				$this->_res['boxcover'] = $img->src;
				break;
			}
		}
		$this->getUrl($this->_backCover . $this->_urlFound);
		$this->_html->load($this->_response);
		foreach ($this->_html->find("div[id=BackBoxCover], img[itemprop=image]") as $img) {
			if (stristr($img->src, "bh.jpg")) {
				$this->_res['backcover'] = $img->src;
				break;
			}
		}

		if (empty($this->_res['boxcover'])) {
			if ($ret = $this->_html->find("a[rel=boxcover]", 0)) {
				if (stristr($ret->href, "h.jpg")) {
					$this->_res['boxcover'] = $ret->href;
					$this->_res['backcoer'] = str_ireplace("h.jpg", "bh.jpg", $ret->href);
				}
				if (stristr($ret->href, "m.jpg")) {
					$this->_res['boxcover'] = str_ireplace("m.jpg", "h.jpg", $ret->href);
					$this->_res['backcoer'] = str_ireplace("m.jpg", "bh.jpg", $ret->href);
				}
			}
		}

		return $this->_res;
	}

	/**
	 * Gets Trailer Movies
	 * @return array - url, streamid, basestreamingurl
	 */
	public function trailers()
	{
		$this->getUrl($this->_trailers . $this->_urlFound);
		$this->_html->load($this->_response);
		if (preg_match("/(\"|')(?P<swf>[^\"']+.swf)(\"|')/i", $this->_response, $matches)) {
			$this->_res['trailers']['url'] = self::ADE . trim(trim($matches['swf']), '"');
			if (preg_match('#(?:streamID:\s\")(?P<streamid>[0-9A-Z]+)(?:\")#',
				$this->_response,
				$matches)
			) {
				$this->_res['trailers']['streamid'] = trim($matches['streamid']);
			}
			if (preg_match('#(?:BaseStreamingUrl:\s\")(?P<baseurl>[0-9]+.[0-9]+.[0-9]+.[0-9]+)(?:\")#',
				$this->_response,
				$matches)
			) {
				$this->_res['trailers']['baseurl'] = $matches['baseurl'];
			}
		}
		unset($matches);
		$this->_html->clear();

		return $this->_res;
	}

	/**
	 * Gets raw html content using adeurl and any trailing url.
	 *
	 * @param null $trailing - required
	 *
	 * @return bool - true if page has content
	 */
	private function getUrl($trailing = "")
	{
		if (!empty($trailing)) {
			$this->_ch = curl_init(self::ADE . $trailing);
		}
		if (!empty($this->directLink)) {
			$this->_ch = curl_init($this->directLink);
			$this->directLink = "";
		}
		curl_setopt($this->_ch, CURLOPT_RETURNTRANSFER, 1);
		curl_setopt($this->_ch, CURLOPT_HEADER, 0);
		curl_setopt($this->_ch, CURLOPT_VERBOSE, 0);
		curl_setopt($this->_ch, CURLOPT_USERAGENT, "Firefox/2.0.0.1");
		curl_setopt($this->_ch, CURLOPT_FAILONERROR, 1);
		$this->_response = curl_exec($this->_ch);
		if (!$this->_response) {
			curl_close($this->_ch);

			return false;
		}
		curl_close($this->_ch);
		return true;
	}


	/*
	 * Gets all Information.
	 *
	 * @return array
	 */

	/**
	 * Searches xxx name.
	 * @return bool - True if releases has 90% match, else false
	 */
	public function search()
	{
		if (!isset($this->searchTerm)) {
			return false;
		}
		if ($this->getUrl($this->_dvdQuery . rawurlencode($this->searchTerm)) === false) {
			return false;
		} else {
			$this->_html->load($this->_response);
			if ($ret = $this->_html->find("a.boxcover", 0)){
				$title = $ret->title;
				$title = preg_replace('/XXX/', '', $title);
				$title = preg_replace('/\(.*?\)|[-._]/i', ' ', $title);
				$ret = (string)trim($ret->href);
				similar_text($this->searchTerm, $title, $p);
				if ($p >= 90) {
					$this->found = true;
					$this->_urlFound = $ret;
					$this->_directUrl = self::ADE . $ret;
					$this->_title = trim($title);
					unset($ret);
					$this->_html->clear();
					$this->getUrl($this->_urlFound);
					$this->_html->load($this->_response);
				} else {
					$this->found = false;

					return false;
				}
			} else {
				return false;
			}
		}

		return false;
	}
}