<?php

// If this file is called directly, abort.
if ( ! defined( 'WPINC' ) ) {
	die;
}


/**
 * Get the original slug from a translation (without "/")
 *
 * @param string      $slug
 * @param string      $language_id
 * @param array|false $slugs_translations
 * @return array Original slug
 */
function wplng_slug_original( $slug, $language_id, $slugs_translations = false ) {

	if ( ! wplng_text_is_translatable( $slug )
		|| wplng_str_contains( $slug, '.' )
	) {
		return $slug;
	}

	if ( false === $slugs_translations ) {
		$slugs_translations = wplng_get_slugs();
	}

	foreach ( $slugs_translations as $slug_translations ) {

		if ( ! isset( $slug_translations['translations'][ $language_id ] )
			|| $slug !== $slug_translations['translations'][ $language_id ]
		) {
			continue;
		}

		$slug = $slug_translations['source'];

		break;
	}

	return $slug;
}


/**
 * Get the original path from a translation
 *
 * @param string $path
 * @param string $language_id
 * @return string Original path
 */
function wplng_slug_original_path( $path, $language_id ) {

	/**
	 * Remove language ID
	 */

	if ( wplng_str_starts_with( $path, '/' . $language_id . '/' ) ) {
		$path = str_replace( '/' . $language_id . '/', '/', $path );
	} elseif ( wplng_str_starts_with( $path, $language_id . '/' ) ) {
		$path = str_replace( $language_id . '/', '/', $path );
	}

	/**
	 * Return parth if no contains slug
	 */

	if ( '/' === $path || '' === $path ) {
		return $path;
	}

	/**
	 * Transform the multi part slug to an slug array
	 */

	$slugs = explode( '/', $path );
	$slugs = array_filter( $slugs );

	/**
	 * Get the slug translation list and translate $path
	 */

	$slugs_translations = wplng_get_slugs();

	$path_original = '/';

	foreach ( $slugs as $slug ) {
		$path_original .= wplng_slug_original(
			$slug,
			$language_id,
			$slugs_translations
		) . '/';

	}

	/**
	 * Set the first and last '/' to $path_original like $path
	 */

	if ( ! wplng_str_starts_with( $path, '/' ) ) {
		$path_original = substr( $path_original, 1 );
	}

	if ( ! wplng_str_ends_with( $path, '/' ) ) {
		$path_original = substr( $path_original, 0, -1 );
	}

	return $path_original;
}


/**
 * Get a translated slug
 *
 * @param string      $slug
 * @param string      $language_id
 * @param array|false $slugs_translations
 * @return string Translated slug
 */
function wplng_slug_translate( $slug, $language_id, $slugs_translations = false ) {

	if ( ! wplng_text_is_translatable( $slug )
		|| wplng_str_contains( $slug, '.' )
	) {
		return $slug;
	}

	if ( false === $slugs_translations ) {
		$slugs_translations = wplng_get_slugs();
	}

	$slug_translation_exist = false;

	foreach ( $slugs_translations as $slug_translations ) {

		if ( $slug !== $slug_translations['source']
			|| ! isset( $slug_translations['translations'][ $language_id ] )
		) {
			continue;
		}

		$slug = $slug_translations['translations'][ $language_id ];

		$slug_translation_exist = true;
		break;
	}

	/**
	 * Slug translation is not in slug cache
	 * Check if exist in DB
	 *
	 * If not exist, create it
	 */

	if ( false === $slug_translation_exist
		&& false === wplng_get_slug_saved_from_original( $slug )
	) {
		wplng_create_slug( $slug );
	}

	return $slug;
}


/**
 * Get a translated path
 *
 * @param string $path
 * @param string $language_id
 * @return string Translated path
 */
function wplng_slug_translate_path( $path, $language_id ) {

	/**
	 * Remove language ID
	 */

	$target = wplng_get_languages_target_ids();

	foreach ( $target as $target_id ) {
		if ( wplng_str_starts_with( $path, '/' . $target_id . '/' ) ) {
			$path = str_replace( '/' . $target_id . '/', '/', $path );
		} elseif ( wplng_str_starts_with( $path, $target_id . '/' ) ) {
			$path = str_replace( $target_id . '/', '/', $path );
		}
	}

	/**
	 * Manage anchor ang $_GET parameters
	 */

	$path = str_replace(
		array( '#', '?' ),
		array( '/#', '/?' ),
		$path
	);

	/**
	 * Return parth if no contains slug
	 */

	if ( '/' === $path || '' === $path ) {
		return $path;
	}

	/**
	 * Transform the multi part slug to an slug array
	 */

	$slugs = explode( '/', $path );
	$slugs = array_filter( $slugs );

	/**
	 * Get the slug translation list and translate $path
	 */

	$slugs_translations = wplng_get_slugs();

	$path_translated = '/';

	foreach ( $slugs as $slug ) {
		if ( wplng_text_is_translatable( $slug )
			&& ! wplng_str_starts_with( $slug, '#' )
			&& ! wplng_str_starts_with( $slug, '?' )
			&& ! wplng_str_contains( $slug, '.' )
		) {
			$path_translated .= wplng_slug_translate(
				$slug,
				$language_id,
				$slugs_translations
			) . '/';
		} else {
			$path_translated .= $slug . '/';
		}
	}

	/**
	 * Set the first and last '/' to $path_translated like $path
	 */

	if ( ! wplng_str_starts_with( $path, '/' ) ) {
		$path_translated = substr( $path_translated, 1 );
	}

	if ( ! wplng_str_ends_with( $path, '/' ) ) {
		$path_translated = substr( $path_translated, 0, -1 );
	}

	return $path_translated;
}


/**
 * Create a wplng_slug
 *
 * @param string $slug
 * @return int|false The post ID or false
 */
function wplng_create_slug( $slug ) {

	if ( is_404()
		|| ! current_user_can( 'edit_posts' )
		|| wplng_str_contains( $slug, '.' )
	) {
		return false;
	}

	$slug = sanitize_title( $slug );

	if ( '' === $slug
		|| ! wplng_text_is_translatable( $slug )
		|| wplng_is_valid_language_id( $slug )
		|| 'go' === $slug
		|| 'refer' === $slug
		|| 'recommend' === $slug
		|| 'recommends' === $slug
		|| 'wp-includes' === $slug
		|| 'wp-json' === $slug
	) {
		return false;
	}

	/**
	 * Make the title
	 */

	$tite_max_length = 100;
	$title           = mb_substr( $slug, 0, $tite_max_length );
	$title           = sanitize_title( $slug );
	$title           = urldecode( $slug );

	if ( strlen( $slug ) > $tite_max_length ) {
		$title = '/' . $title . __( '...', 'wplingua' );
	} else {
		$title = '/' . $title . '/';
	}

	/**
	 * Create the post and get this ID
	 */

	$new_post_id = wp_insert_post(
		array(
			'post_title'  => esc_html( $title ),
			'post_type'   => 'wplng_slug',
			'post_status' => 'publish',
			'post_name'   => sanitize_title(
				'wplingua-slug-' . md5( $title ) . '-' . $title
			),
		)
	);

	if ( is_wp_error( $new_post_id ) || empty( $new_post_id ) ) {
		return false;
	}

	/**
	 * Make $translation_meta
	 */

	$languages_target = wplng_get_languages_target_ids();
	$slug_meta        = array();

	foreach ( $languages_target as $target_language ) {
		$slug_meta[] = array(
			'language_id' => $target_language,
			'translation' => $slug,
			'status'      => 'ungenerated',
		);
	}

	add_post_meta(
		$new_post_id,
		'wplng_slug_original',
		$slug
	);

	add_post_meta(
		$new_post_id,
		'wplng_slug_md5',
		md5( $slug )
	);

	add_post_meta(
		$new_post_id,
		'wplng_slug_original_language_id',
		wplng_get_language_website_id()
	);

	add_post_meta(
		$new_post_id,
		'wplng_slug_translations',
		wp_json_encode(
			$slug_meta,
			JSON_UNESCAPED_UNICODE | JSON_UNESCAPED_SLASHES
		)
	);

	wplng_clear_slugs_cache();

	return $new_post_id;
}


/**
 * Get the count of published 'wplng_slug' posts.
 *
 * This function retrieves the number of posts of type 'wplng_slug'
 * that are currently published on the site.
 *
 * @return int The number of published 'wplng_slug' posts.
 */
function wplng_get_slug_count() {

	global $wplng_slug_count;

	if ( null !== $wplng_slug_count ) {
		return $wplng_slug_count;
	}

	$count_posts      = wp_count_posts( 'wplng_slug' );
	$wplng_slug_count = (int) ( $count_posts->publish ?? 0 );

	return $wplng_slug_count;
}


/**
 * Get all saved slugs from a wp_query
 *
 * @return array
 */
function wplng_get_slugs_from_query() {

	$slug_to_delete = array();
	$slugs          = array();
	$args           = array(
		'post_type'              => 'wplng_slug',
		'posts_per_page'         => -1,
		'no_found_rows'          => true,
		'update_post_term_cache' => false,
		'update_post_meta_cache' => false,
		'cache_results'          => false,
		'fields'                 => 'ids', // Only retrieve post IDs
		'meta_query'             => array(
			array(
				'key'     => 'wplng_slug_original_language_id',
				'value'   => wplng_get_language_website_id(),
				'compare' => '=',
			),
		),
	);

	// Get all slug IDs
	$post_ids = get_posts( $args );

	if ( empty( $post_ids ) ) {
		return $slugs;
	}

	foreach ( $post_ids as $slug_id ) {
		$meta = get_post_meta( $slug_id );

		// Check for valid source slug
		if ( ! isset( $meta['wplng_slug_original'][0] )
			|| ! is_string( $meta['wplng_slug_original'][0] )
		) {
			continue;
		}

		$source = sanitize_title( $meta['wplng_slug_original'][0] );

		// Skip unwanted slugs and mark them for deletion
		if ( in_array(
			$source,
			array(
				'index-php',
				'wp-includes',
				'wp-json',
				'go',
				'refer',
				'recommend',
				'recommends',
			),
			true
		)
		) {
			$slug_to_delete[] = $slug_id;
			continue;
		}

		// Check for translations and build translation array
		if ( empty( $meta['wplng_slug_translations'][0] ) ) {
			continue;
		}

		$translations      = array();
		$translations_meta = json_decode( $meta['wplng_slug_translations'][0], true );

		if ( ! is_array( $translations_meta ) ) {
			continue;
		}

		foreach ( $translations_meta as $translation_meta ) {

			// Validate language ID
			if ( empty( $translation_meta['language_id'] )
				|| ! wplng_is_valid_language_id( $translation_meta['language_id'] )
			) {
				continue;
			}

			$language_id = sanitize_key( $translation_meta['language_id'] );

			// Check and validate slug translation
			if ( empty( $translation_meta['translation'] )
				|| ! is_string( $translation_meta['translation'] )
				|| $translation_meta['translation'] === '[WPLNG_EMPTY]'
				|| $translation_meta['translation'] === $source
			) {
				continue;
			}

			// Sanitize and add valid translation
			$translations[ $language_id ] = sanitize_title( $translation_meta['translation'] );
		}

		// Add source and translations to slugs array
		$slugs[] = array(
			'source'       => $source,
			'id'           => $slug_id,
			'translations' => $translations,
		);
	}

	// Delete invalid slugs, limit to 32 deletions
	if ( ! empty( $slug_to_delete ) ) {

		foreach ( array_slice( $slug_to_delete, 0, 32 ) as $id ) {
			wp_delete_post( $id, true );
		}

		// Cache slugs for 30 seconds after deletion
		set_transient( 'wplng_cached_slugs', $slugs, 30 );

	} else {
		// Cache slugs for a month if no deletions occurred
		set_transient( 'wplng_cached_slugs', $slugs, MONTH_IN_SECONDS );
	}

	return $slugs;
}


/**
 * Get the slug translations
 *
 * @return array Slug translations
 */
function wplng_get_slugs() {

	$slugs_from_cache = get_transient( 'wplng_cached_slugs' );

	if ( ! is_array( $slugs_from_cache ) ) {
		return wplng_get_slugs_from_query();
	}

	$slugs = array();

	foreach ( $slugs_from_cache as $slug ) {

		if ( empty( $slug['source'] )
			|| ! is_string( $slug['source'] )
			|| ! is_array( $slug['translations'] )
		) {
			continue;
		}

		$translations        = array();
		$language_target_ids = wplng_get_languages_target_ids();

		foreach ( $slug['translations'] as $language_id => $translation ) {
			if ( ! in_array( $language_id, $language_target_ids )
				|| ! is_string( $translation )
			) {
				continue;
			}

			$translations[ $language_id ] = $translation;
		}

		$slugs[] = array(
			'source'       => $slug['source'],
			'translations' => $translations,
		);

	}

	return $slugs;
}


/**
 * Get slug data from original slug
 *
 * @param string $original
 * @return array|false Translation data
 */
function wplng_get_slug_saved_from_original( $original ) {

	$original = trim( strtolower( $original ) );

	if ( empty( $original ) ) {
		return false;
	}

	$args = array(
		'post_type'      => 'wplng_slug',
		'posts_per_page' => -1,
		'meta_query'     => array(
			array(
				'key'     => 'wplng_slug_md5',
				'value'   => md5( $original ),
				'compare' => '=',
			),
		),
		'fields'         => 'ids',
		'meta_query'     => array(
			array(
				'key'     => 'wplng_slug_original_language_id',
				'value'   => wplng_get_language_website_id(),
				'compare' => '=',
			),
		),
	);

	$posts = get_posts( $args );

	if ( empty( $posts ) ) {
		return false;
	}

	foreach ( $posts as $post_id ) {

		$meta = get_post_meta( $post_id );

		if ( isset( $meta['wplng_slug_original'][0] )
			&& is_string( $meta['wplng_slug_original'][0] )
			&& $meta['wplng_slug_original'][0] === $original
		) {
			return get_post( $post_id );
		}
	}

	return false;
}