<?php
/**
 * Handles Domain Mapping in WP Multisite WaaS.
 *
 * @package WP_Ultimo
 * @subpackage Domain_Mapping
 * @since 2.0.0
 */

namespace WP_Ultimo;

use WP_Ultimo\Models\Domain;

// Exit if accessed directly
defined('ABSPATH') || exit;

/**
 * Handles Domain Mapping in WP Multisite WaaS.
 *
 * @since 2.0.0
 */
class Domain_Mapping {

	use \WP_Ultimo\Traits\Singleton;

	/**
	 * Keeps a copy of the current mapping.
	 *
	 * @since 2.0.0
	 * @var \WP_Ultimo\Models\Domain
	 */
	public $current_mapping = null;

	/**
	 * Keeps a copy of the original URL.
	 *
	 * @since 2.0.0
	 * @var string
	 */
	public $original_url = null;

	/**
	 * Runs on singleton instantiation.
	 *
	 * @since 2.0.0
	 * @return void
	 */
	public function init() {

		if ($this->should_skip_checks()) {
			$this->startup();
		} else {
			$this->maybe_startup();
		}
	}

	/**
	 * Check if we should skip checks before running mapping functions.
	 *
	 * @since 2.0.0
	 * @return boolean
	 */
	public static function should_skip_checks() {

		return defined('WP_ULTIMO_DOMAIN_MAPPING_SKIP_CHECKS') && WP_ULTIMO_DOMAIN_MAPPING_SKIP_CHECKS;
	}

	/**
	 * Run the checks to make sure the requirements for Domain mapping are in place and execute it.
	 *
	 * @since 2.0.0
	 * @return void
	 */
	public function maybe_startup() {
		/*
		 * Don't run during installation...
		 */
		if (defined('WP_INSTALLING') && $_SERVER['SCRIPT_NAME'] !== '/wp-activate.php') {
			return;
		}

		/*
		 * Make sure we got loaded in the sunrise stage.
		 */
		if (did_action('muplugins_loaded')) {
			return;
		}

		$is_enabled = (bool) wu_get_setting_early('enable_domain_mapping');

		if ($is_enabled === false) {
			return;
		}

		/*
		 * Start the engines!
		 */
		$this->startup();
	}

	/**
	 * Actual handles domain mapping functionality.
	 *
	 * @since 2.0.0
	 * @return void
	 */
	public function startup() {
		/*
		 * Adds the necessary tables to the $wpdb global.
		 */
		if (empty($GLOBALS['wpdb']->wu_dmtable)) {
			$GLOBALS['wpdb']->wu_dmtable = $GLOBALS['wpdb']->base_prefix . 'wu_domain_mappings';

			$GLOBALS['wpdb']->ms_global_tables[] = 'wu_domain_mappings';
		}

		// Ensure cache is shared
		wp_cache_add_global_groups(array('domain_mappings', 'network_mappings'));

		/*
		 * Check if the URL being accessed right now is a mapped domain
		 */
		add_filter('pre_get_site_by_path', array($this, 'check_domain_mapping'), 10, 2);

		/*
		 * When a site gets delete, clean up the mapped domains
		 */
		add_action('wp_delete_site', array($this, 'clear_mappings_on_delete'));

		/*
		 * Adds the filters that will change the URLs when a mapped domains is in use
		 */
		add_action('ms_loaded', array($this, 'register_mapped_filters'), 11);

		// add_action('allowed_http_origin', array($this, 'add_mapped_domains_as_allowed_origins'));

		/**
		 * On WP Multisite WaaS 1.X builds we used Mercator. The Mercator actions and filters are now deprecated.
		 */
		if (has_action('mercator_load')) {
			do_action_deprecated('mercator_load', array(), '2.0.0', 'wu_domain_mapping_load');
		}

		add_action(
			'wu_sso_site_allowed_domains',
			function ($list, $site_id): array {

				$domains = wu_get_domains(
					array(
						'active'        => true,
						'blog_id'       => $site_id,
						'stage__not_in' => \WP_Ultimo\Models\Domain::INACTIVE_STAGES,
						'fields'        => 'domain',
					)
				);

				return array_merge($list, $domains);
			},
			10,
			2
		);

		/**
		 * Fired after our core Domain Mapping has been loaded
		 *
		 * Hook into this to handle any add-on functionality.
		 */
		do_action('wu_domain_mapping_load');
	}

	/**
	 * Checks if an origin is a mapped domain.
	 *
	 * If that's the case, we should always allow that origin.
	 *
	 * @since 2.0.0
	 *
	 * @param string $origin The origin passed.
	 * @return string
	 */
	public function add_mapped_domains_as_allowed_origins($origin) {

		if ( ! function_exists('wu_get_domain_by_domain')) {
			return;
		}

		if (empty($origin) && wp_doing_ajax()) {
			$origin = wu_get_current_url();
		}

		$the_domain = wp_parse_url($origin, PHP_URL_HOST);

		$domain = wu_get_domain_by_domain($the_domain);

		if ($domain) {
			return $domain->get_domain();
		}

		return $origin;
	}

	/**
	 * Fixes the SSO target site in cases of domain mapping.
	 *
	 * @since 2.0.0
	 *
	 * @param \WP_Site $target_site The current target site.
	 * @param string   $domain The domain being searched.
	 * @return \WP_Site
	 */
	public function fix_sso_target_site($target_site, $domain) {

		if ( ! $target_site || ! $target_site->blog_id) {
			$mapping = \WP_Ultimo\Models\Domain::get_by_domain($domain);

			if ($mapping) {
				$target_site = get_site($mapping->get_site_id());
			}
		}

		return $target_site;
	}

	/**
	 * Returns both the naked and www. version of the given domain
	 *
	 * @since 2.0.0
	 *
	 * @param string $domain Domain to get the naked and www. versions to.
	 * @return array
	 */
	public function get_www_and_nowww_versions($domain) {

		if (strncmp($domain, 'www.', strlen('www.')) === 0) {
			$www   = $domain;
			$nowww = substr($domain, 4);
		} else {
			$nowww = $domain;
			$www   = 'www.' . $domain;
		}

		return array($nowww, $www);
	}
	/**
	 * Checks if we have a site associated with the domain being accessed
	 *
	 * This method tries to find a site on the network that has a mapping related to the current
	 * domain being accessed. This uses the default WordPress mapping functionality, added on 4.5.
	 *
	 * @since 2.0.0
	 *
	 * @param null|false|\WP_Site $site Site object being searched by path.
	 * @param string              $domain Domain to search for.
	 * @return null|false|\WP_Site
	 */
	public function check_domain_mapping($site, $domain) {

		// Have we already matched? (Allows other plugins to match first)
		if ( ! empty($site)) {
			return $site;
		}

		$domains = $this->get_www_and_nowww_versions($domain);

		$mapping = Domain::get_by_domain($domains);

		if (empty($mapping) || is_wp_error($mapping)) {
			return $site;
		}

		if (has_filter('mercator.use_mapping')) {
			$deprecated_args = array(
				$mapping->is_active(),
				$mapping,
				$domain,
			);

			$is_active = apply_filters_deprecated('mercator.use_mapping', $deprecated_args, '2.0.0', 'wu_use_domain_mapping');
		}

		/**
		 * Determine whether a mapping should be used
		 *
		 * Typically, you'll want to only allow active mappings to be used. However,
		 * if you want to use more advanced logic, or allow non-active domains to
		 * be mapped too, simply filter here.
		 *
		 * @param boolean $is_active Should the mapping be treated as active?
		 * @param WP_Ultimo\Models\Domain $mapping Mapping that we're inspecting
		 * @param string $domain
		 */
		$is_active = apply_filters('wu_use_domain_mapping', $mapping->is_active(), $mapping, $domain);

		// Ignore non-active mappings
		if ( ! $is_active) {
			return $site;
		}

		// Fetch the actual data for the site
		$mapped_site = $mapping->get_site();

		if (empty($mapped_site)) {
			return $site;
		}

		/*
		 * Note: This is only for backwards compatibility with WPMU Domain Mapping,
		 * do not rely on this constant in new code.
		 */
		defined('DOMAIN_MAPPING') or define('DOMAIN_MAPPING', 1); // phpcs:ignore

		/*
		 * Decide if we use SSL
		 */
		if ($mapping->is_secure()) {
			force_ssl_admin(true);
		}

		$_site = $site;

		if (is_a($mapped_site, '\WP_Site')) {
			$this->original_url = $mapped_site->domain . $mapped_site->path;

			$_site = $mapped_site;
		} elseif (is_a($mapped_site, '\WP_Ultimo\Models\Site')) {
			$this->original_url = $mapped_site->get_domain() . $mapped_site->get_path();

			$_site = $mapped_site->to_wp_site();
		}

		/*
		 * We found a site based on the mapped domain =)
		 */
		return $_site;
	}

	/**
	 * Clear mappings for a site when it's deleted
	 *
	 * @param WP_Site $site Site being deleted.
	 */
	public function clear_mappings_on_delete($site) {

		$mappings = Domain::get_by_site($site->blog_id);

		if (empty($mappings)) {
			return;
		}

		foreach ($mappings as $mapping) {
			$error = $mapping->delete();

			if (is_wp_error($error)) {

				// translators: First placeholder is the mapping ID, second is the site ID.
				$message = sprintf(__('Unable to delete mapping %1$d for site %2$d', 'wp-ultimo'), $mapping->get_id(), $site->blog_id);

				trigger_error($message, E_USER_WARNING);
			}
		}
	}

	/**
	 * Register filters for URLs, if we've mapped
	 *
	 * @since 2.0.0
	 * @return void
	 */
	public function register_mapped_filters() {

		$current_site = $GLOBALS['current_blog'];

		if ( ! $current_site) {
			return;
		}

		$real_domain = $current_site->domain;
		$domain      = $_SERVER['HTTP_HOST'];

		if ($domain === $real_domain) {

			// Domain hasn't been mapped
			return;
		}

		$domains = $this->get_www_and_nowww_versions($domain);

		$mapping = Domain::get_by_domain($domains);

		if (empty($mapping) || is_wp_error($mapping)) {
			return;
		}

		$this->current_mapping = $mapping;

		add_filter('site_url', array($this, 'mangle_url'), -10, 4);
		add_filter('home_url', array($this, 'mangle_url'), -10, 4);

		add_filter('theme_file_uri', array($this, 'mangle_url'));
		add_filter('stylesheet_directory_uri', array($this, 'mangle_url'));
		add_filter('template_directory_uri', array($this, 'mangle_url'));
		add_filter('plugins_url', array($this, 'mangle_url'), -10, 3);

		add_filter('autoptimize_filter_base_replace_cdn', array($this, 'mangle_url'), 8); // @since 1.8.2 - Fix for Autoptimizer

		// Fix srcset
		add_filter('wp_calculate_image_srcset', array($this, 'fix_srcset')); // @since 1.5.5

		// If on network site, also filter network urls
		if (is_main_site()) {
			add_filter('network_site_url', array($this, 'mangle_url'), -10, 3);
			add_filter('network_home_url', array($this, 'mangle_url'), -10, 3);
		}

		add_filter('jetpack_sync_home_url', array($this, 'mangle_url'));
		add_filter('jetpack_sync_site_url', array($this, 'mangle_url'));

		/**
		 * Some plugins will save URL before the mapping was active
		 * or will build URLs in a different manner that is not included on
		 * the above filters.
		 *
		 * In cases like that, we want to add additional filters.
		 * The second parameter passed is the mangle_url callback.
		 *
		 * We recommend against using this filter directly.
		 * Instead, use the Domain_Mapping::apply_mapping_to_url method.
		 *
		 * @since 2.0.0
		 * @param array The mangle callable.
		 * @param self  This object.
		 * @return void
		 */
		do_action('wu_domain_mapping_register_filters', array($this, 'mangle_url'), $this);
	}

	/**
	 * Apply the replace URL to URL filters provided by other plugins.
	 *
	 * @since 2.0.0
	 *
	 * @param string|array $hooks List of hooks to apply the callback to.
	 * @return void
	 */
	public static function apply_mapping_to_url($hooks) {

		add_action(
			'wu_domain_mapping_register_filters',
			function ($callback) use ($hooks) {

				$hooks = (array) $hooks;

				foreach ($hooks as $hook) {
					add_filter($hook, $callback);
				}
			}
		);
	}

	/**
	 * Replaces the URL.
	 *
	 * @since 2.0.0
	 *
	 * @param string                        $url URL to replace.
	 * @param null|\WP_Ultimo\Models\Domain $current_mapping The current mapping.
	 * @return string
	 */
	public function replace_url($url, $current_mapping = null) {

		if ($current_mapping === null) {
			$current_mapping = $this->current_mapping;
		}

		// Replace the domain
		$domain_base = parse_url($url, PHP_URL_HOST);
		$domain      = rtrim($domain_base . '/' . $current_mapping->get_site()->get_path(), '/');
		$regex       = '#^(\w+://)' . preg_quote($domain, '#') . '#i';
		$mangled     = preg_replace($regex, '${1}' . $current_mapping->get_domain(), $url);

		/*
		 * Another try if we don't need to deal with subdirectory.
		 */
		if ($mangled === $url && $this->current_mapping !== $current_mapping) {
			$domain  = rtrim($domain_base, '/');
			$regex   = '#^(\w+://)' . preg_quote($domain, '#') . '#i';
			$mangled = preg_replace($regex, '${1}' . $current_mapping->get_domain(), $url);
		}

		$mangled = wu_replace_scheme($mangled, $current_mapping->is_secure() ? 'https://' : 'http://');

		return $mangled;
	}

	/**
	 * Mangle the home URL to give our primary domain
	 *
	 * @param string      $url The complete home URL including scheme and path.
	 * @param string      $path Path relative to the home URL. Blank string if no path is specified.
	 * @param string|null $orig_scheme Scheme to give the home URL context. Accepts 'http', 'https', 'relative' or null.
	 * @param int|null    $site_id Blog ID, or null for the current blog.
	 * @return string Mangled URL
	 */
	public function mangle_url($url, $path = '/', $orig_scheme = '', $site_id = 0) {

		if (empty($site_id)) {
			$site_id = get_current_blog_id();
		}

		$current_mapping = $this->current_mapping;

		if (empty($current_mapping) || $site_id !== $current_mapping->get_site_id()) {
			return $url;
		}

		return $this->replace_url($url);
	}

	/**
	 * Adds a fix to the srcset URLs when we need that domain mapped
	 *
	 * @since 1.5.5
	 * @param array $sources Image source URLs.
	 * @return array
	 */
	public function fix_srcset($sources) {

		foreach ($sources as &$source) {
			$sources[ $source['value'] ]['url'] = $this->replace_url($sources[ $source['value'] ]['url']);
		}

		return $sources;
	}
}