<?php
/**
 * @package        Joomla
 * @subpackage     Membership Pro
 * @author         Tuan Pham Ngoc
 * @copyright      Copyright (C) 2012 - 2025 Ossolution Team
 * @license        GNU/GPL, see LICENSE.php
 */

use Joomla\CMS\Factory;
use Joomla\CMS\Http\HttpFactory;

class OSMembershipHelperEuvat
{
	public static $europeanUnionVATInformation = [
		// Core member states
		'BE' => ['Belgium', 'BE', 21],
		'BG' => ['Bulgaria', 'BG', 20],
		'CZ' => ['Czech Republic', 'CZ', 21],
		'DK' => ['Denmark', 'DK', 25],
		'DE' => ['Germany', 'DE', 19],
		'EE' => ['Estonia', 'EE', 22],
		'GR' => ['Greece', 'EL', 24],
		'ES' => ['Spain', 'ES', 21],
		'FR' => ['France', 'FR', 20],
		'HR' => ['Croatia', 'HR', 25],
		'IE' => ['Ireland', 'IE', 23],
		'IT' => ['Italy', 'IT', 22],
		'CY' => ['Cyprus', 'CY', 19],
		'LV' => ['Latvia', 'LV', 21],
		'LT' => ['Lithuania', 'LT', 21],
		'LU' => ['Luxembourg', 'LU', 17],
		'HU' => ['Hungary', 'HU', 27],
		'MT' => ['Malta', 'MT', 18],
		'NL' => ['Netherlands', 'NL', 21],
		'AT' => ['Austria', 'AT', 20],
		'PL' => ['Poland', 'PL', 23],
		'PT' => ['Portugal', 'PT', 23],
		'RO' => ['Romania', 'RO', 19],
		'SI' => ['Slovenia', 'SI', 22],
		'SK' => ['Slovakia (Slovak Republic)', 'SK', 20],
		'FI' => ['Finland', 'FI', 24],
		'SE' => ['Sweden', 'SE', 25],
		// Special cases of countries which belong to a core member state for VAT calculation
		'MC' => ['Monaco', 'FR', 20], // Monaco -> France
		'IM' => ['Isle of Man', 'GB', 20],  // Isle of Man -> Great Britain
	];

	/**
	 * Method to check to see whether the given country belongs to EU
	 *
	 * @param $countryCode
	 *
	 * @return bool
	 */
	public static function isEUCountry($countryCode)
	{
		$countryCode = strtoupper($countryCode);

		// Special case for Greece
		if ($countryCode == 'EL')
		{
			return true;
		}

		return array_key_exists($countryCode, self::$europeanUnionVATInformation);
	}

	/**
	 * Get the tax rate of the given EU Country
	 *
	 * @param $countryCode
	 *
	 * @return float
	 */
	public static function getEUCountryTaxRate($countryCode)
	{
		$countryCode = strtoupper($countryCode);

		if (isset(self::$europeanUnionVATInformation[$countryCode]))
		{
			return self::$europeanUnionVATInformation[$countryCode][2];
		}

		return 0;
	}

	/**
	 * Check if the given VAT Number is in valid format or not
	 *
	 * @param $id
	 *
	 * @return bool
	 */
	public static function preCheckVatNumber($id)
	{
		$id = strtoupper($id);
		$id = preg_replace('/[ -,.]/', '', $id);

		if (strlen($id) < 8)
		{
			return false;
		}

		$country = substr($id, 0, 2);

		switch ($country)
		{
			case 'AT': // AUSTRIA
				$isValid = (bool) preg_match('/^(AT)U(\d{8})$/', $id);
				break;
			case 'BE': // BELGIUM
				$isValid = (bool) preg_match('/(BE)(0?\d{9})$/', $id);
				break;
			case 'BG': // BULGARIA
				$isValid = (bool) preg_match('/(BG)(\d{9,10})$/', $id);
				break;
			case 'CHE': // Switzerland
				$isValid = (bool) preg_match('/(CHE)(\d{9})(MWST)?$/', $id);
				break;
			case 'CY': // CYPRUS
				$isValid = (bool) preg_match('/^(CY)(\d{8}[A-Z])$/', $id);
				break;
			case 'CZ': // CZECH REPUBLIC
				$isValid = (bool) preg_match('/^(CZ)(\d{8,10})(\d{3})?$/', $id);
				break;
			case 'DE': // GERMANY
				$isValid = (bool) preg_match('/^(DE)([1-9]\d{8})/', $id);
				break;
			case 'DK': // DENMARK
				$isValid = (bool) preg_match('/^(DK)(\d{8})$/', $id);
				break;
			case 'EE': // ESTONIA
				$isValid = (bool) preg_match('/^(EE)(10\d{7})$/', $id);
				break;
			case 'EL': // GREECE
				$isValid = (bool) preg_match('/^(EL)(\d{9})$/', $id);
				break;
			case 'ES': // SPAIN
				$isValid = (bool) preg_match('/^(ES)([A-Z]\d{8})$/', $id)
					|| preg_match('/^(ES)([A-H|N-S|W]\d{7}[A-J])$/', $id)
					|| preg_match('/^(ES)([0-9|Y|Z]\d{7}[A-Z])$/', $id)
					|| preg_match('/^(ES)([K|L|M|X]\d{7}[A-Z])$/', $id);
				break;
			case 'EU': // EU type
				$isValid = (bool) preg_match('/^(EU)(\d{9})$/', $id);
				break;
			case 'FI': // FINLAND
				$isValid = (bool) preg_match('/^(FI)(\d{8})$/', $id);
				break;
			case 'FR': // FRANCE
				$isValid = (bool) preg_match('/^(FR)(\d{11})$/', $id)
					|| preg_match('/^(FR)([(A-H)|(J-N)|(P-Z)]\d{10})$/', $id)
					|| preg_match('/^(FR)(\d[(A-H)|(J-N)|(P-Z)]\d{9})$/', $id)
					|| preg_match('/^(FR)([(A-H)|(J-N)|(P-Z)]{2}\d{9})$/', $id);
				break;
			case 'GR': // GREECE
				$isValid = (bool) preg_match('/^(GR)(\d{8,9})$/', $id);
				break;
			case 'HR': // CROATIA
				$isValid = (bool) preg_match('/^(HR)(\d{11})$/', $id);
				break;
			case 'HU': // HUNGARY
				$isValid = (bool) preg_match('/^(HU)(\d{8})$/', $id);
				break;
			case 'IE': // IRELAND
				$isValid = (bool) preg_match('/^(IE)(\d{7}[A-W])$/', $id)
					|| preg_match('/^(IE)([7-9][A-Z\*\+)]\d{5}[A-W])$/', $id)
					|| preg_match('/^(IE)(\d{7}[A-W][AH])$/', $id);
				break;
			case 'IT': // ITALY
				$isValid = (bool) preg_match('/^(IT)(\d{11})$/', $id);
				break;
			case 'LV': // LATVIA
				$isValid = (bool) preg_match('/^(LV)(\d{11})$/', $id);
				break;
			case 'LT': // LITHUNIA
				$isValid = (bool) preg_match('/^(LT)(\d{9}|\d{12})$/', $id);
				break;
			case 'LU': // LUXEMBOURG
				$isValid = (bool) preg_match('/^(LU)(\d{8})$/', $id);
				break;
			case 'MT': // MALTA
				$isValid = (bool) preg_match('/^(MT)([1-9]\d{7})$/', $id);
				break;
			case 'NL': // NETHERLAND
				$isValid = (bool) preg_match('/^(NL)(\d{9})B\d{2}$/', $id);
				break;
			case 'NO': // NORWAY
				$isValid = (bool) preg_match('/^(NO)(\d{9})$/', $id);
				break;
			case 'PL': // POLAND
				$isValid = (bool) preg_match('/^(PL)(\d{10})$/', $id);
				break;
			case 'PT': // PORTUGAL
				$isValid = (bool) preg_match('/^(PT)(\d{9})$/', $id);
				break;
			case 'RO': // ROMANIA
				$isValid = (bool) preg_match('/^(RO)([1-9]\d{1,9})$/', $id);
				break;
			case 'RS': // SERBIA
				$isValid = (bool) preg_match('/^(RS)(\d{9})$/', $id);
				break;
			case 'SI': // SLOVENIA
				$isValid = (bool) preg_match('/^(SI)([1-9]\d{7})$/', $id);
				break;
			case 'SK': // SLOVAK REPUBLIC
				$isValid = (bool) preg_match('/^(SK)([1-9]\d[(2-4)|(6-9)]\d{7})$/', $id);
				break;
			case 'SE': // SWEDEN
				$isValid = (bool) preg_match('/^(SE)(\d{10}01)$/', $id);
				break;
			default:
				$isValid = false;
		}

		return $isValid;
	}

	/**
	 * Validate EU VAT Number
	 *
	 * @param $vatNumber
	 *
	 * @return bool
	 */
	public static function validateEUVATNumber($vatNumber)
	{
		// Remove spaces
		$vatNumber = preg_replace('/\s+/', '', $vatNumber);

		// Check to see if the VAT Number passed is in valid format before calling webservices
		if (!self::preCheckVatNumber($vatNumber))
		{
			return false;
		}

		// Use web service to validate the VAT number
		$countryCode = substr($vatNumber, 0, 2);
		$number      = substr($vatNumber, 2);
		$key         = $countryCode . $number;

		$session = Factory::getApplication()->getSession();

		$validatedVatNumbers = $session->get('osm_validated_eu_vat_numbers');

		if ($validatedVatNumbers)
		{
			$validatedVatNumbers = json_decode($validatedVatNumbers, true);
		}
		else
		{
			$validatedVatNumbers = [];
		}

		if (array_key_exists($key, $validatedVatNumbers))
		{
			return $validatedVatNumbers[$key];
		}

		$config = OSMembershipHelper::getConfig();

		$ret = null;

		if (class_exists('SoapClient') &&
			$config->get('vat_number_validation_provider', 'europa') == 'europa')
		{
			$ret = static::validateUsingEUWebservice($countryCode, $number);
		}

		if ($ret === null)
		{
			$ret = static::validateUsingVatComplyAPI($vatNumber);
		}

		if ($ret === null)
		{
			$ret = false;
		}

		// Cache the data
		$validatedVatNumbers[$key] = $ret;

		$session->set('osm_validated_eu_vat_numbers', json_encode($validatedVatNumbers));

		return $ret;
	}

	/**
	 * Validate vat number using EU Webservice
	 *
	 * @param   string  $countryCode
	 * @param   string  $number
	 *
	 * @return bool|null
	 */
	protected static function validateUsingEUWebservice($countryCode, $number)
	{
		try
		{
			$sOptions = [
				'user_agent'         => 'Membership Pro',
				'connection_timeout' => 5,
			];
			$sClient  = new SoapClient('https://ec.europa.eu/taxation_customs/vies/checkVatService.wsdl', $sOptions);
			$params   = ['countryCode' => $countryCode, 'vatNumber' => $number];

			for ($i = 0; $i < 2; $i++)
			{
				$response = $sClient->checkVat($params);

				if (is_object($response))
				{
					return (bool) $response->valid;
				}
				sleep(1);
			}
		}
		catch (SoapFault $e)
		{
		}

		return null;
	}

	/**
	 * Validate Vat Number using vatcomply.com api
	 *
	 * @param $vatNumber
	 *
	 * @return bool|void
	 */
	protected static function validateUsingVatComplyAPI($vatNumber)
	{
		try
		{
			$http = HttpFactory::getHttp();
			$url  = 'https://api.vatcomply.com/vat?vat_number=' . $vatNumber;

			for ($i = 0; $i < 2; $i++)
			{
				$response = $http->get($url, ['User-Agent' => 'Membership Pro'], 5);

				if ($response->code >= 200 && $response->code < 400)
				{
					$jsonResponse = json_decode($response->body);

					return (bool) $jsonResponse->valid;
				}
				sleep(1);
			}
		}
		catch (RuntimeException $e)
		{
		}

		return null;
	}
}