<?php
/**
 * @package smart-custom-fields
 * @author inc2734
 * @license GPL-2.0+
 */

/**
 * Smart_Custom_Fields_Meta class.
 */
class Smart_Custom_Fields_Meta {

	/**
	 * @var WP_Post|WP_User|WP_Term|stdClass
	 */
	protected $object;

	/**
	 * What meta data.
	 *
	 * @var string post or user or term or option.
	 */
	protected $meta_type = 'post';

	/**
	 * Post ID or User ID or Term ID or Menu slug.
	 *
	 * @var int
	 */
	protected $id;

	/**
	 * Post Type or Role or Taxonomy or Menu slug.
	 *
	 * @var string
	 * @deprecated
	 */
	protected $type;

	/**
	 * Post Type or Roles or Taxonomy or Menu slug.
	 *
	 * @var array
	 */
	protected $types = array();

	/**
	 * Constructor.
	 *
	 * @param WP_Post|WP_User|WP_Term|stdClass $wp_object Meta object type object.
	 *
	 * @throws \Exception If object type not found.
	 */
	public function __construct( $wp_object ) {
		$this->object = $wp_object;
		if ( is_a( $wp_object, 'WP_Post' ) ) {
			$this->id        = $wp_object->ID;
			$this->type      = $wp_object->post_type;
			$this->types     = array( $wp_object->post_type );
			$this->meta_type = 'post';
		} elseif ( is_a( $wp_object, 'WP_User' ) ) {
			$this->id        = $wp_object->ID;
			$this->type      = $wp_object->roles[0];
			$this->types     = array_unique( array_merge( $wp_object->roles, array_keys( $wp_object->caps ) ) );
			$this->meta_type = 'user';
		} elseif ( isset( $wp_object->term_id ) ) {
			$this->id        = $wp_object->term_id;
			$this->type      = $wp_object->taxonomy;
			$this->types     = array( $wp_object->taxonomy );
			$this->meta_type = 'term';
		} elseif ( isset( $wp_object->menu_slug ) ) {
			$this->id        = $wp_object->menu_slug;
			$this->type      = $wp_object->menu_slug;
			$this->types     = array( $wp_object->menu_slug );
			$this->meta_type = 'option';
		} elseif ( empty( $wp_object ) || is_wp_error( $wp_object ) ) {
			$this->id        = null;
			$this->type      = null;
			$this->types     = null;
			$this->meta_type = null;
		} else {
			throw new Exception( sprintf( 'Invalid $wp_object type error. $wp_object is "%s".', esc_html( get_class( $wp_object ) ) ) );
		}
	}

	/**
	 * Getting the meta type
	 *
	 * @return string post or user or term or option
	 */
	public function get_meta_type() {
		return $this->meta_type;
	}

	/**
	 * Getting object ID. When option, this is menu slug.
	 *
	 * @return int|string
	 */
	public function get_id() {
		return $this->id;
	}

	/**
	 * Getting type ( Post type or Role or Taxonomy or Menu slug ).
	 *
	 * @deprecated
	 *
	 * @param bool $accept_revision If post type, whether allow revision post type.
	 * @return string
	 */
	public function get_type( $accept_revision = true ) {
		if ( 'post' === $this->meta_type && ! $accept_revision ) {
			$public_post_type = $this->get_public_post_type( $this->id );
			return $public_post_type[0];
		}
		return $this->type;
	}

	/**
	 * Getting type ( Post type or Role or Taxonomy or Menu slug ).
	 *
	 * @param bool $accept_revision If post type, whether allow revision post type.
	 * @return array
	 */
	public function get_types( $accept_revision = true ) {
		if ( 'post' === $this->meta_type && ! $accept_revision ) {
			return $this->get_public_post_type( $this->id );
		}
		return $this->types;
	}

	/**
	 * Getting post type.
	 * To feel good also Post ID of the revision.
	 *
	 * @param int $post_id Post id.
	 * @return array
	 */
	protected function get_public_post_type( $post_id ) {
		$public_post_id = wp_is_post_revision( $post_id );
		if ( $public_post_id ) {
			$post = get_post( $public_post_id );
		} else {
			$post = get_post( $post_id );
		}
		if ( ! empty( $post->post_type ) ) {
			return array( $post->post_type );
		}
		return $this->types;
	}

	/**
	 * Object with this meta data is whether saved.
	 * Post ... If auto-draft, not saved (new posts in)
	 * Profile or Taxonomy or option ... Since not display only after saving.
	 *                                   So if all of meta data is empty,
	 *                                   It is determined that not saved
	 *
	 * @return bool
	 */
	public function is_saved() {
		if ( 'post' === $this->meta_type && 'auto-draft' === get_post_status( $this->get_id() ) ) {
			return false;
		}
		if ( ! $this->get() ) {
			return false;
		}
		return true;
	}

	/**
	 * The metadata is wheter saved.
	 *
	 * @param string $key Meta key.
	 * @return bool
	 */
	public function is_saved_the_key( $key ) {
		if ( 'post' === $this->meta_type && 'auto-draft' === get_post_status( $this->get_id() ) ) {
			return false;
		}

		if ( _get_meta_table( $this->meta_type ) && ! $this->maybe_4_3_term_meta() ) {
			return metadata_exists( $this->meta_type, $this->id, $key );
		}

		$option = get_option( $this->get_option_name() );
		if ( is_array( $option ) ) {
			return array_key_exists( $key, $option );
		}
		return false;
	}

	/**
	 * Less than WordPress 4.4 compatibility for term meta.
	 * More than 4.4 are saved in meta. So if that use the meta data.
	 *
	 * @return bool
	 */
	public function maybe_4_3_term_meta() {
		if ( 'term' === $this->meta_type ) {
			if ( ! get_metadata( $this->meta_type, $this->id ) && get_option( $this->get_option_name() ) ) {
				return true;
			}
		}
		return false;
	}

	/**
	 * Getting the meta data.
	 *
	 * @param string|null $key Field key.
	 * @param bool        $single false ... return array, true ... return string.
	 * @return string|array
	 */
	public function get( $key = '', $single = false ) {
		if ( _get_meta_table( $this->meta_type ) && ! $this->maybe_4_3_term_meta() ) {
			$meta = get_metadata( $this->meta_type, $this->id, $key, $single );
		} else {
			$meta = $this->get_option_metadata( $key, $single );
		}

		if ( SCF_Config::PREFIX . 'repeat-multiple-data' === $key ) {
			return $meta;
		}

		$settings = SCF::get_settings( $this->object );
		if ( $key ) {
			foreach ( $settings as $setting ) {
				$fields = $setting->get_fields();
				if ( ! empty( $fields[ $key ] ) ) {
					return $meta;
				}
			}
		} elseif ( is_array( $meta ) ) {
				$metas = array();
			foreach ( $settings as $setting ) {
				$fields = $setting->get_fields();
				foreach ( $meta as $meta_key => $meta_value ) {
					if ( isset( $fields[ $meta_key ] ) ) {
						$metas[ $meta_key ] = $meta[ $meta_key ];
					}
				}
			}
		}
		if ( ! empty( $metas ) ) {
			return $metas;
		}
		if ( $single ) {
			return '';
		}
		return array();
	}

	/**
	 * Getting option like meta data.
	 *
	 * @param string|null $key    Option key.
	 * @param bool        $single false ... return array, true ... return string.
	 * @return string|array
	 */
	protected function get_option_metadata( $key, $single ) {
		$option = get_option( $this->get_option_name() );

		if ( ! $key ) {
			return $option;
		}

		if ( isset( $option[ $key ] ) ) {
			if ( $single && is_array( $option[ $key ] ) ) {
				if ( isset( $option[ $key ][0] ) ) {
					return $option[ $key ][0];
				}
			} else {
				return $option[ $key ];
			}
		}

		if ( $single ) {
			return '';
		}
		return array();
	}

	/**
	 * Updating meta data. If the meta data not exist, adding it.
	 *
	 * @param string $key        Option key.
	 * @param mixed  $value      Option value.
	 * @param mixed  $prev_value If specified, it overwrites the only ones of this value.
	 * @return int|false
	 */
	public function update( $key, $value, $prev_value = '' ) {
		$return = false;
		do_action( SCF_Config::PREFIX . '-before-save-' . $this->meta_type, $this->id, $key, $value );
		$is_valid = apply_filters( SCF_Config::PREFIX . '-validate-save-' . $this->meta_type, $this->id, $key, $value );
		if ( $is_valid ) {
			if ( _get_meta_table( $this->meta_type ) ) {
				$return = update_metadata( $this->meta_type, $this->id, $key, $value, $prev_value );
			} else {
				$return = $this->update_option_metadata( $key, $value, $prev_value );
			}
		}
		do_action( SCF_Config::PREFIX . '-after-save-' . $this->meta_type, $this->id, $key, $value );
		return $return;
	}

	/**
	 * Updating the option like meta data. If the meta data not exist, adding it.
	 *
	 * @param string $key        Option key.
	 * @param mixed  $value      Option value.
	 * @param mixed  $prev_value If specified, it overwrites the only ones of this value.
	 * @return bool
	 */
	protected function update_option_metadata( $key, $value, $prev_value ) {
		$option_name = $this->get_option_name();
		$option      = get_option( $option_name );
		if ( isset( $option[ $key ] ) ) {
			if ( '' !== $prev_value ) {
				foreach ( $option[ $key ] as $option_key => $option_value ) {
					if ( $prev_value === $option_value ) {
						$option[ $key ][ $option_key ] = $value;
						break;
					}
				}
			} else {
				foreach ( $option[ $key ] as $option_key => $option_value ) {
					$option[ $key ][ $option_key ] = $value;
				}
			}
		} else {
			$option[ $key ][] = $value;
		}
		$option = stripslashes_deep( $option );
		return update_option( $option_name, $option, false );
	}

	/**
	 * Adding the meta data.
	 *
	 * @param string $key    Option key.
	 * @param mixed  $value  Option value.
	 * @param bool   $unique Whether the key to the unique.
	 * @return int|false
	 */
	public function add( $key, $value, $unique = false ) {
		$return = false;
		do_action( SCF_Config::PREFIX . '-before-save-' . $this->meta_type, $this->id, $key, $value );
		$is_valid = apply_filters( SCF_Config::PREFIX . '-validate-save-' . $this->meta_type, $this->id, $key, $value );
		if ( $is_valid ) {
			if ( _get_meta_table( $this->meta_type ) ) {
				$return = add_metadata( $this->meta_type, $this->id, $key, $value, $unique );
			} else {
				$return = $this->add_option_metadata( $key, $value, $unique );
			}
		}
		do_action( SCF_Config::PREFIX . '-after-save-' . $this->meta_type, $this->id, $key, $value );
		return $return;
	}

	/**
	 * Adding the option like meta data.
	 *
	 * @param string $key    Option key.
	 * @param mixed  $value  Option value.
	 * @param bool   $unique Whether the key to the unique.
	 * @return bool
	 */
	protected function add_option_metadata( $key, $value, $unique ) {
		$option_name = $this->get_option_name();
		$option      = get_option( $option_name );
		if ( ! $unique || ! isset( $option[ $key ] ) ) {
			$option[ $key ][] = $value;
			$option           = stripslashes_deep( $option );
			return update_option( $option_name, $option, false );
		}
		return false;
	}

	/**
	 * Deleting the meta data.
	 *
	 * @param string $key   Meta key.
	 * @param mixed  $value If specified, it deletes the only ones of this value.
	 * @return bool
	 */
	public function delete( $key = '', $value = '' ) {
		if ( _get_meta_table( $this->meta_type ) ) {
			if ( $key ) {
				return delete_metadata( $this->meta_type, $this->id, $key, $value );
			}
		} elseif ( $key ) {
				return $this->delete_option_metadata( $key, $value );
		}
		return false;
	}

	/**
	 * Deleting the option like meta data.
	 *
	 * @param string $key   Option key.
	 * @param mixed  $value If specified, it deletes the only ones of this value.
	 * @return bool
	 */
	protected function delete_option_metadata( $key, $value ) {
		$option_name = $this->get_option_name();
		$option      = get_option( $option_name );

		if ( isset( $option[ $key ] ) && '' === $value ) {
			unset( $option[ $key ] );
			return update_option( $option_name, $option );
		}

		if ( isset( $option[ $key ] ) && '' !== $value ) {
			foreach ( $option[ $key ] as $option_key => $option_value ) {
				if ( $option_value === $value ) {
					unset( $option[ $key ][ $option_key ] );
				}
			}
			return update_option( $option_name, $option );
		}
		return false;
	}

	/**
	 * Delete all term meta for less than WordPress 4.3.
	 */
	public function delete_term_meta_for_wp43() {
		$option_name = $this->get_option_name();
		return delete_option( $option_name );
	}

	/**
	 * Saving the meta data based on the posted data.
	 *
	 * @param array $__post $_POST.
	 */
	public function save( array $__post ) {
		// For repeated multi-value items identification
		$repeat_multiple_data = array();

		// Retruning empty value when multi-value is empty, it doesn't save
		$multiple_data_fields = array();

		if ( is_null( $this->object ) ) {
			return;
		}

		$this->delete( SCF_Config::PREFIX . 'repeat-multiple-data' );

		if ( ! isset( $__post[ SCF_Config::NAME ] ) ) {
			return;
		}

		$settings   = SCF::get_settings( $this->object );
		$saved_data = array();

		foreach ( $settings as $setting ) {
			$groups = $setting->get_groups();
			foreach ( $groups as $group ) {
				$fields = $group->get_fields();
				foreach ( $fields as $field ) {
					$field_name = $field->get( 'name' );
					if ( ! isset( $__post[ SCF_Config::NAME ][ $field_name ] ) ) {
						continue;
					}
					$saved_data[ $field_name ] = $__post[ SCF_Config::NAME ][ $field_name ];

					$this->delete( $field_name );
					if ( $field->get_attribute( 'allow-multiple-data' ) ) {
						$multiple_data_fields[] = $field_name;
					}

					if ( $group->is_repeatable() && $field->get_attribute( 'allow-multiple-data' ) ) {
						$repeat_multiple_data_fields = $saved_data[ $field_name ];
						foreach ( $repeat_multiple_data_fields as $values ) {
							if ( is_array( $values ) ) {
								$repeat_multiple_data[ $field_name ][] = count( $values );
							} else {
								$repeat_multiple_data[ $field_name ][] = 0;
							}
						}
					}
				}
			}
		}

		if ( $repeat_multiple_data ) {
			$this->update( SCF_Config::PREFIX . 'repeat-multiple-data', $repeat_multiple_data );
		}

		foreach ( $saved_data as $name => $values ) {
			foreach ( $values as $value ) {
				if ( in_array( $name, $multiple_data_fields, true ) && '' === $value ) {
					continue;
				}
				if ( ! is_array( $value ) ) {
					$this->add( $name, $value );
				} else {
					foreach ( $value as $val ) {
						$this->add( $name, $val );
					}
				}
			}
		}
	}

	/**
	 * Restore the data from the revision.
	 *
	 * @param WP_Post $revision The revision post.
	 */
	public function restore( $revision ) {
		if ( 'post' !== $this->meta_type || is_null( $this->object ) || ! is_a( $revision, 'WP_Post' ) ) {
			return;
		}

		$settings = SCF::get_settings( $this->object );
		foreach ( $settings as $setting ) {
			$fields = $setting->get_fields();
			foreach ( $fields as $field ) {
				$field_name = $field->get( 'name' );
				$this->delete( $field_name );
				$value = SCF::get( $field_name, $revision->ID );
				if ( is_array( $value ) ) {
					foreach ( $value as $val ) {
						if ( is_array( $val ) ) {
							foreach ( $val as $v ) {
								// Repeated multi-value items
								$this->add( $field_name, $v );
							}
						} else {
							// Repeated single-value items or Non repeated multi-value items
							$this->add( $field_name, $val );
						}
					}
				} else {
					// Non repeated single-value item
					$this->add( $field_name, $value );
				}
			}
		}

		$repeat_multiple_data      = SCF::get_repeat_multiple_data( $revision );
		$repeat_multiple_data_name = SCF_Config::PREFIX . 'repeat-multiple-data';
		$this->delete( $repeat_multiple_data_name );
		$this->update( $repeat_multiple_data_name, $repeat_multiple_data );
	}

	/**
	 * Getting option name for saved options table.
	 *
	 * @return string
	 */
	public function get_option_name() {
		return sprintf(
			'%s%s-%s-%d',
			SCF_Config::PREFIX,
			$this->meta_type,
			$this->type,
			$this->id
		);
	}
}