<?php
if ( ! defined( 'ABSPATH' ) ) exit();
/**
 * Modifies Polylang filters
 * Manages automatic upload
 * Manages delete / trash sync
 *
 * @since 0.1
 */
class Lingotek_Filters_Post extends PLL_CRUD_Posts {

	/**
	 * Lingotek model.
	 *
	 * @var $lgtm
	 */
	public $lgtm;

	/**
	 * Polylang model.
	 *
	 * @var $pllm
	 */
	public $pllm;

	/**
	 * Lingotek preferences.
	 *
	 * @var $lingotek_prefs
	 */
	public $lingotek_prefs;

	/**
	 * Constructor
	 *
	 * @since 0.1
	 */
	public function __construct( &$polylang ) {
		parent::__construct( $polylang );

		$this->lgtm           = &$GLOBALS['wp_lingotek']->model;
		$this->pllm           = &$GLOBALS['polylang']->model;
		$this->lingotek_prefs = Lingotek_Model::get_prefs();
		$pll_filter           = new PLL_Admin_Filters_Post( $polylang );

		// automatic upload
		add_action( 'post_updated', array( &$this, 'post_updated' ), 10, 3 );

		// trash sync
		add_action( 'trashed_post', array( &$this, 'trash_post' ) );
		add_action( 'untrashed_post', array( &$this, 'untrash_post' ) );

		add_filter( 'manage_posts_columns', array( &$this, 'add_profile_column' ) );
		add_action( 'manage_posts_custom_column', array( &$this, 'add_profile_column_data' ), 10, 3 );

		add_filter( 'manage_pages_columns', array( &$this, 'add_profile_column' ) );
		add_action( 'manage_pages_custom_column', array( &$this, 'add_profile_column_data' ), 10, 3 );

		//apply language filter to preserve Polylang behavior of only showing documents of the current language
		add_action( 'parse_query', array( $pll_filter, 'parse_query' ) );
	}

	/**
	 * controls whether to display the language metabox or not
	 *
	 * @since 0.1
	 */
	public function add_meta_boxes( $post_type, $post = null ) {
		global $post_ID;
		if ( $this->model->is_translated_post_type( $post_type ) ) {
			$document = $this->lgtm->get_group( 'post', $post_ID );
			if ( empty( $document->source ) ) {
				parent::add_meta_boxes( $post_type, $document );
			} else {
				add_action( 'edit_form_top', array( &$this, 'edit_form_top' ) );
			}
		}
	}

	/**
	 * adds a column to display the post or page translation profile
	 *
	 * @since 1.1
	 */
	public function add_profile_column( $columns ) {
		$n = array_search( 'date', array_keys( $columns ), true );
		if ( $n ) {
			$end     = array_slice( $columns, $n );
			$columns = array_slice( $columns, 0, $n );
		}

		$columns['profile'] = 'Profile';
		return isset( $end ) ? array_merge( $columns, $end ) : $columns;
	}

	/**
	 * finds the translation profile for a post or page and if not set then displays the content type default profile
	 *
	 * @since 1.1
	 */
	public function add_profile_column_data( $column_name, $post_id ) {
		if ( 'profile' === $column_name ) {
			$document = $this->lgtm->get_group( 'post', $post_id );
			if ( isset( $document->source ) ) {
				$post_id = $document->source;
			}
			$profiles         = Lingotek::get_profiles();
			$content_profiles = get_option( 'lingotek_content_type' );
			$post_profile     = Lingotek_Post_Actions::get_post_profile( $post_id );
			$post_language    = PLL()->model->post->get_language( $post_id );
			$post_type        = 'post';
			if ( isset( $_REQUEST['post_type'] ) ) {
				$post_type = sanitize_text_field( wp_unslash( $_REQUEST['post_type'] ) );
			}

			if ( $post_profile ) {
				echo esc_html( $profiles[ $post_profile->description ]['name'] ) . sprintf( '<a title="%s">%s</a>', esc_attr__( 'Not set to the content default profile', 'lingotek-translation' ), '*' );
			} elseif ( $post_language && isset( $content_profiles[ $post_type ]['sources'][ $post_language->slug ] ) ) {
				$profile = $content_profiles[ $post_type ]['sources'][ $post_language->slug ];
				echo esc_html( $profiles[ $profile ]['name'] );
			} elseif ( ! empty( $content_profiles ) && ( ! isset( $content_profiles[ $post_type ] ) || ! isset( $profiles[ $content_profiles[ $post_type ]['profile'] ]['name'] ) ) ) {
				echo esc_html__( 'Disabled', 'lingotek-translation' );
			} elseif ( ! empty( $content_profiles ) ) {
				echo esc_html( $profiles[ $content_profiles[ $post_type ]['profile'] ]['name'] );
			} else {
				esc_html_e( 'Manual', 'lingotek-translation' );
			}
		}//end if
	}

	/**
	 * Outputs hidden fields so that Polylang get correct information when its metabox is removed.
	 *
	 * @since 1.10
	 */
	public function edit_form_top() {
		global $post_ID;
		printf( '<input type="hidden" id="post_lang_choice" name="post_lang_choice" value="%s" />', esc_attr( pll_get_post_language( $post_ID ) ) );
		wp_nonce_field( 'pll_language', '_pll_nonce' );
	}

	/**
	 * marks the elementor post as edited when the content is updated.
	 *
	 * @since 1.5.3
	 *
	 * @param int  $post_ID
	 */
	public function change_elementor_status( $post_ID ) {
		$lgtm                = new Lingotek_model();
		$elementor_edit_mode = '_elementor_edit_mode';
		$elementor_active    = get_post_meta( $post_ID, $elementor_edit_mode, true );
		$post = get_post( $post_ID );
		if ( $elementor_active && $post) {
			$document = $lgtm->get_group( 'post', $post_ID );
			if ( $document ) {
				$language = PLL()->model->post->get_language( $post_ID );
				$document->pre_save_post( $post_ID, 'post', $language );
			}
			if ( $this->can_save_post_data( $post_id, $post, true ) ) {
				if ( $document &&
					// phpcs:ignore WordPress.PHP.StrictComparisons.LooseComparison
					$post_ID == $document->source &&
					$this->post_hash_has_changed( $post ) &&
					$this->is_post_valid_for_upload_by_custom_terms( $post_ID, false ) ) {
					$document->source_edited();
					if ( $document->is_automatic_upload() && Lingotek_Group_Post::is_valid_auto_upload_post_status( $post->post_status ) ) {
						$this->lgtm->upload_post( $post_ID );
					}
					return;
				}
			}
		}
	}

	/**
	 * Uploads a post when saved for the first time
	 *
	 * @since 0.2

	 * @param int    $post_id
	 * @param object $post
	 */
	public function save_post( $post_id, $post ) {
		$document = $this->lgtm->get_group( 'post', $post_id );
		if ( $document ) {
			$language = PLL()->model->post->get_language( $post_id );
			$document->pre_save_post( $post_id, 'post', $language );
		}
		if ( $this->can_save_post_data( $post_id, $post, true ) ) {
			// updated post
			if ( $document &&
			     // phpcs:ignore WordPress.PHP.StrictComparisons.LooseComparison
				$post_id == $document->source &&
				$this->post_hash_has_changed( $post ) &&
				$this->is_post_valid_for_upload_by_custom_terms( $post_id, false ) ) {
				$document->source_edited();
				if ( $document->is_automatic_upload() && Lingotek_Group_Post::is_valid_auto_upload_post_status( $post->post_status ) ) {
					$this->lgtm->upload_post( $post_id );
				}
			}
			// Ensures languages are updated, even when no other element on the page has been changed.
			if ( isset( $_POST['post_tr_lang'] ) ) {
				PLL()->model->post->save_translations( $post_id, array_map( 'absint', $_POST['post_tr_lang'] ) );
			}
		}

		if ( ! $this->model->is_translated_post_type( $post->post_type ) ) {
			return;
		}
		// new post
		if ( ! isset( $_REQUEST['import'] ) ) {
			parent::save_post( $post_id, $post );
			if ( ! $document &&
				! wp_is_post_revision( $post_id ) &&
				'auto-draft' !== $post->post_status &&
				'automatic' === Lingotek_Model::get_profile_option( 'upload', $post->post_type, PLL()->model->post->get_language( $post_id ), false, $post_id ) &&
				Lingotek_Group_Post::is_valid_auto_upload_post_status( $post->post_status ) &&
				! ( isset( $_POST['action'] ) && 'heartbeat' === sanitize_text_field( $_POST['action'] ) ) &&
				$this->lgtm->can_upload( 'post', $post_id ) &&
				$this->is_post_valid_for_upload_by_custom_terms( $post_id, true ) ) {
				$this->lgtm->upload_post( $post_id );
			}
		}
	}

	/**
	 * Allows the customer to interrupt the post upload by applying filter.
	 * By using This filter we are allowing users to implement custom logic on the post upload and check if it is valid
	 * for upload
	 *
	 * @since 1.3.1
	 *
	 * @author Soluto
	 *
	 * @param int  $post_id
	 * @param bool $is_new_post
	 * @return bool
	 */
	protected function is_post_valid_for_upload_by_custom_terms( $post_id, $is_new_post ) {
		$defaults = array();
		$results  = apply_filters( 'lingotek_is_post_valid_for_upload', $defaults, $post_id, $is_new_post );
		return ! ( in_array( false, $results, true ) );
	}

	/**
	 * checks if we can act when saving a post
	 *
	 * @since 0.1
	 *
	 * @param int    $post_id
	 * @param object $post
	 * @param bool   $update Whether it is an update or not.
	 * @return bool
	 */
	protected function can_save_post_data( $post_id, $post, $update ) {
		// does nothing except on post types which are filterable
		// also don't act on revisions
		if ( ! $this->model->is_translated_post_type( $post->post_type ) || wp_is_post_revision( $post_id ) ) {
			return false;
		}

		// capability check
		// as 'wp_insert_post' can be called from outside WP admin
		$post_type_object = get_post_type_object( $post->post_type );
		if ( ( $update && ! current_user_can( $post_type_object->cap->edit_post, $post_id ) ) || ( ! $update && ! current_user_can( $post_type_object->cap->create_posts ) ) ) {
			return false;
		}

		return true;
	}

	/**
	 * marks the post as edited if needed
	 *
	 * @since 0.1
	 *
	 * @param int    $post_id
	 * @param object $post_after
	 * @param object $post_before
	 */
	public function post_updated( $post_id, $post_after, $post_before ) {
	}

	/**
	 * get translations ids to sync for delete / trash / untrash
	 * since we can't sync all translations as we get conflicts when attempting to act two times on the same
	 *
	 * @since 0.2
	 *
	 * @param int $post_id
	 * @return array
	 */
	protected function get_translations_to_sync( $post_id ) {
		// don't synchronize disassociated posts
		$group = $this->lgtm->get_group( 'post', $post_id );
		if ( empty( $group->source ) ) {
			return array( $post_id );
		}

		if ( isset( $_REQUEST['media'] ) && is_array( $_REQUEST['media'] ) ) {
			$post_ids = array_map( 'intval', $_REQUEST['media'] );
		} elseif ( ! empty( $_REQUEST['post'] ) && is_array( $_REQUEST['post'] ) ) {
			$post_ids = array_map( 'intval', $_REQUEST['post'] );
		}

		$post_ids[] = $post_id;
		return array_diff( PLL()->model->post->get_translations( $post_id ), $post_ids );
	}

	/**
	 * sync trash
	 *
	 * @since 0.1
	 *
	 * @param int $post_id
	 */
	public function trash_post( $post_id ) {
		if ( get_option( 'ignore_delete_pref', false ) ) {
			return;
		}
		$group = $this->lgtm->get_group( 'post', $post_id );

		if ( isset( $this->lingotek_prefs['trash_linked_content']['enabled'] ) ) {
			foreach ( $this->get_translations_to_sync( $post_id ) as $tr_id ) {
				wp_trash_post( $tr_id );
			}
			if ( isset( $group->source ) ) {
				$group->cancel();
			}
		} else {
			wp_trash_post( $post_id );
			if ( isset( $group->source ) ) {
				$this->lgtm->cancel_post( $post_id );
			}
		}
	}

	/**
	 * sync untrash
	 *
	 * @since 0.1
	 *
	 * @param int $post_id
	 */
	public function untrash_post( $post_id ) {
		foreach ( $this->get_translations_to_sync( $post_id ) as $tr_id ) {
			wp_untrash_post( $tr_id );
		}
	}

	/**
	 * checks stored hash against current hash to report change
	 *
	 * @since 1.0
	 *
	 * @param wp_post $post_after
	 */
	protected function post_hash_has_changed( $post_after ) {
		if ( 'trash' === $post_after->post_status ) {
			return false;
		}
		$document_id = 'lingotek_hash_' . $post_after->ID;
		$new_hash    = md5( Lingotek_Group_Post::get_content( $post_after ) );
		$old_term    = $this->get_post_hash( $post_after->ID );
		$old_hash    = $old_term->description;

		// new or updated page
		if ( null === $old_hash || strcmp( $new_hash, $old_hash ) ) {
			if ( empty( $old_term ) ) {
				wp_insert_term( $document_id, 'lingotek_hash', array( 'description' => $new_hash ) );
			}
			wp_set_object_terms( $post_after->ID, $document_id, 'lingotek_hash' );
			return true;
		} else {
			return false;
		}
	}

	/**
	 * Returns a lingotek post hash if it exists.
	 *
	 * @since 1.0
	 *
	 * @param int $post_id
	 */
	protected function get_post_hash( $post_id ) {
		if ( taxonomy_exists( 'lingotek_hash' ) ) {
			$terms = wp_get_object_terms( $post_id, 'lingotek_hash' );
			$term  = array_pop( $terms );
			return $term;
		} else {
			return null;
		}
	}
}
