/**
* Parser pre vyhladavanie a vypis z obchodneho registra ČR
* Lookup service for Czech commercial register (www.justice.cz)
*
* Version 1.0.0 (released 05.12.2019)
* (c) 2019 lubosdz@gmail.com
*
* ------------------------------------------------------------------
* Disclaimer / Prehlásenie:
* Kód poskytnutý je bez záruky a môže kedykoľvek prestať fungovať.
* Jeho funkčnosť je striktne naviazaná na generovanú štruktúru HTML elementov.
* Autor nie je povinný udržiavať kód aktuálny a funkčný, ani neposkytuje ku nemu žiadnu podporu.
* Autor nezodpovedá za nesprávne použitie kódu.
* ------------------------------------------------------------------
*
* Usage example:
* --------------
* $connector = new ConnectorJusticeCz;
* $out = $connector->findByNazev('auto');
* $out = $connector->findByIco('44315945');
* echo '
'.print_r($out, 1).'
';
*/

namespace app\lib;

class ConnectorJusticeCz
{
	/**
	* @var string Target server URL base
	*/
	const URL_SERVER = 'https://or.justice.cz/ias/ui/rejstrik-$firma';

	/**
	* @var int Max. dlzka nazvu pre autocomplete options
	*/
	public $labelMaxChars = 30;

	/**
	* Vyhlada zoznam subjektov podla presneho ICO, ciastkove ICO nie je povolene
	* @param string $ico 8-miestne cislo, e.g. 29243831 or 64612023
	*/
	public function findByIco($ico)
	{
		$response = [];
		$ico = preg_replace('/[^\d]/', '', $ico);

		if(preg_match('/^\d{8}$/', $ico)){
			$url = self::URL_SERVER.'?ico='.$ico;
			$response = file_get_contents($url);
			$response = self::extractSubjects($response);
		}

		return $response;
	}

	/**
	* Vyhlada zoznam subjektov podla ciastkoveho nazvu
	* @param string $nazev, e.g. "pojisteni"
	*/
	public function findByNazev($nazev)
	{
		$response = [];

		if($nazev){
			$nazev = trim($nazev);
			$url = self::URL_SERVER.'?nazev='.urlencode($nazev);
			$response = file_get_contents($url);
			$response = self::extractSubjects($response);
		}

		return $response;
	}

	/**
	* Vyhlada zoznam subjektov podla presneho ICO, ciastkove ICO nie je povolene
	* @param string $ico 8-miestne cislo, e.g. 12345678
	*/
	public function getDetailByICO($ico)
	{
		$response = [];
		$ico = preg_replace('/[^\d]/', '', $ico);

		if(preg_match('/^\d{8}$/', $ico)){
			$url = self::URL_SERVER.'?ico='.$ico;
			$response = file_get_contents($url);
			if($response){
				$response = self::extractSubjects($response);
				if(!empty($response[0])){
					$response = $response[0];
				}
			}
		}

		return $response;
	}


	/**
	* Return matched formatted for autocomplete dropdown list
	* @param string $term Searched matching string
	* @param int how many items to return, 1 - 50 (justice vrati max. 50 zaznamov)
	*/
	public function findForAutocomplete($term, $size = 15)
	{
		$out = [];
		$size = intval($size);

		if($term && $size > 0 && mb_strlen($term, 'utf-8') >= 3){
			// Justice vrati vysledok pre min. 3 znaky
			if(preg_match('/^\d{8}$/', $term)){
				$subjects = $this->findByIco($term);
			}else{
				$subjects = $this->findByNazev($term);
			}
		}

		if(!empty($subjects) && is_array($subjects)){

			$subjects = array_slice($subjects, 0, $size); // return first $size matches

			foreach($subjects as &$subject){
				$subject['shortname'] = $subject['name'];
				// cut off too long names
				if(mb_strlen($subject['shortname'], 'utf-8') > $this->labelMaxChars){
					$subject['shortname'] = mb_substr($subject['shortname'], 0, $this->labelMaxChars - 3, 'utf-8').' ..';
				}
			}

			foreach($subjects as $subject){
				if(!empty($subject['ico'])){
					$out[] = [
						'value' => $subject['ico'],
						'label' => "{$subject['shortname']} (IČO: {$subject['ico']})",
					];
				}
			}
		}

		return $out;
	}

	/**
	* Vrati zoznam najdenych subjektov s udajmi
	* @param string $html HTML response zo servera justice.cz
	* @return [name, ico, city, addr_streetnr, addr_city, addr_zip, ..]
	*/
	protected static function extractSubjects($html)
	{
		// ensure valid XHTML markup
		if(!extension_loaded('tidy')){
			throw new \Exception('Missing extension [tidy].');
		}

		$tidy = new \tidy();
		$html = $tidy->repairString($html, array(
			'output-xhtml' => true,
			'show-body-only' => true,
		), 'utf8');

		// purify whitespaces - vkladaju \n alebo  
		$html = strtr($html, [
			' ' => ' ',
		]);
		$html = preg_replace('/\s+/', ' ', $html);

		// load XHTML into DOM document
		$xml = new \DOMDocument('1.0', 'utf-8');
		$xml->loadXML($html);
		$xpath = new \DOMXPath($xml);
		$rows = $xpath->query('//table[@class="result-details"]/tbody');

		$out = [];

		if ($rows->length) {

			foreach ($rows as $row) {

				// Nazev
				$nodeList = $xpath->query("./tr[1]/td[1]", $row);
				if(!$nodeList->length){
					continue; // nazev je povinny
				}
				$name = $nodeList->item(0)->nodeValue;
				$name = preg_replace('/\s+/', ' ', $name); // viacnasobne inside spaces

				// ICO
				$nodeList = $xpath->query("./tr[1]/td[2]", $row);
				$ico = $nodeList->length ? $nodeList->item(0)->nodeValue : '';

				// adresa - neda sa spolahnut na poradie prvkov :-(
				$city = '';
				$nodeList = $xpath->query("./tr[3]/td[1]", $row);
				if($nodeList->length){

					$addr = trim($nodeList->item(0)->nodeValue);

					if(preg_match('/,\s*(\d{3} ?\d{2})\s+(.+)$/', $addr, $match)){
						// Příborská 597, Místek, 738 01 Frýdek-Místek - nazov obce za PSC, prva je ulice a cislo
						$city = $addr_city = $match[2];
						list($addr_streetnr) = explode(',', $addr);
						$addr_zip = $match[1];
					}elseif(preg_match('/,\s*PSČ\s+(\d{3} ?\d{2})$/', $addr, $match)){
						// Řevnice, ČSLA 118, okres Praha-západ, PSČ 25230 - PSC na konci, obec je prva, ulice a cislo druha
						list($city, $addr_streetnr) = explode(',', $addr);
						$addr_city = $city;
						$addr_zip = $match[1];
					}elseif(!preg_match('/\d{3} ?\d{2}/', $addr, $match)){
						// Ústí nad Labem, Masarykova 74 - bez PSC - obec, ulice a cislo
						$addr_streetnr = $addr_zip = '';
						if(false !== strpos($addr, ',')){
							list($city, $addr_streetnr) = explode(',', $addr);
						}else{
							list($city) = explode(',', $addr);
						}
						$addr_city = $city;
					}

					// "Praha 10 - Dolní Měcholupy" -> Praha 10, pozn: Frydek-Mistek nema medzeru okolo pomlcky
					// whoops, avsak ani Ostrana-Hontice a dalsie .. :-( Pre city potrebujeme kratky nazov do 10-15 pismen
					list($city) = explode('-', $city);
					// Praha 5 -> Praha
					$city = preg_replace('/\d/', '', $city);
					// viacnasobne spaces
					$city = preg_replace('/\s+/', ' ', $city);
				}

				$out[] = [
					'name' => self::trimQuotes($name),
					'ico' => preg_replace('/[^\d]/', '', $ico),
					'city' => self::trimQuotes($city),
					// pre polia s adresou konzistentne so smartform naseptavacem
					'addr_city' => self::trimQuotes($addr_city),
					'addr_zip' => preg_replace('/[^\d]/', '', $addr_zip),
					'addr_streetnr' => self::trimQuotes($addr_streetnr),
					// len pre kontrolu - plna povodna adresa
					'addr_full' => self::trimQuotes($addr),
				];
			}
		}

		return $out;
	}

	/**
	* Vyhodi quotes z textu, aby neposkodilo HTML atributy
	* @param string $s
	*/
	protected static function trimQuotes($s)
	{
		return trim(strtr($s, ['"' => '', "'" => '']));
	}

}