<?php
/**
 * NetCommonsメール 埋め込みタグ Utility
 *
 * @author Noriko Arai <arai@nii.ac.jp>
 * @author Ryuji Masukawa
 * @author Mitsuru Mutaguchi <mutaguchi@opensource-workshop.jp>
 * @link http://www.netcommons.org NetCommons Project
 * @license http://www.netcommons.org/license.txt NetCommons License
 * @copyright Copyright 2014, NetCommons Project
 */

App::uses('WorkflowComponent', 'Workflow.Controller/Component');
App::uses('NetCommonsExtentionTag', 'Mails.Utility');

/**
 * NetCommonsメール 埋め込みタグ Utility
 *
 * #### 自動セットする埋め込みタグ
 * | 埋め込みタグ            | 名   | 参照元 |
 * | ----------------------- | ---- | ------ |
 * | `X-FROM_EMAIL`          | 送信者メールアドレス | SiteSettingUtil::read('Mail.from'); |
 * | `X-FROM_NAME`           | 送信者名 | SiteSettingUtil::read('Mail.from_name'); |
 * | `X-SITE_NAME`           | サイト名 | SiteSettingUtil::read('App.site_name'); |
 * | `X-SITE_URL`            | サイトURL | Router::fullbaseUrl()); |
 * | `X-PLUGIN_NAME`         | プラグイン名 | Current::read('Plugin.name'); |
 * | `X-BLOCK_NAME`          | ブロック名 | Current::read('BlocksLanguage.name'); |
 * | `X-TO_DATE`             | 今日日付 'Y/m/d H:i:s' |  |
 * | `X-BODY_HEADER`         | 本文ヘッダー | SiteSettingUtil::read('Mail.body_header'); |
 * | `X-SIGNATURE`           | 署名 | SiteSettingUtil::read('Mail.signature'); |
 * | `X-USER`                | ユーザ名(ハンドル) | NetCommonsExtentionTag::getXUser() |
 * | `X-ROOM`                | ルーム名 | NetCommonsExtentionTag::getXRoom() |
 * | `X-URL`                 | コンテンツURL | NetCommonsExtentionTag::getXUrl() |
 * | `X-TAGS`                | タグ(タグプラグイン) | NetCommonsExtentionTag::getXTags() |
 * | `X-WORKFLOW_COMMENT`    | 承認コメント | NetCommonsExtentionTag::getXWorkflowComment() |
 * | `X-PLUGIN_MAIL_SUBJECT` | プラグイン側で設定した件名(承認メール用) | NetCommonsMailAssignTag::setMailFixedPhraseSiteSetting() |
 * | `X-PLUGIN_MAIL_BODY`    | プラグイン側で設定した本文(承認メール用) | NetCommonsMailAssignTag::setMailFixedPhraseSiteSetting() |
 *
 * @author Mitsuru Mutaguchi <mutaguchi@opensource-workshop.jp>
 * @package NetCommons\Mails\Utility
 * @property SiteSetting $SiteSetting
 * @property RoomsLanguage $RoomsLanguage
 * @property Workflow $Workflow
 * @property User $User
 */
class NetCommonsMailAssignTag {

/**
 * @var int メール本文の1行の最大文字数
 */
	const MAX_LINE_LENGTH = 300;

/**
 * SiteSettingの定型文の種類
 *
 * @var string 承認依頼通知
 * @var string 差戻し通知
 * @var string 承認完了通知
 * @var string 担当者への連絡通知
 */
	const
		SITE_SETTING_FIXED_PHRASE_APPROVAL = 'approval',
		SITE_SETTING_FIXED_PHRASE_DISAPPROVAL = 'disapproval',
		SITE_SETTING_FIXED_PHRASE_APPROVAL_COMPLETION = 'approval_completion',
		SITE_SETTING_FIXED_PHRASE_CONTACT_AFTER_APPROVAL = 'contact_after_approval';

/**
 * @var string 件名(定型文)
 */
	public $fixedPhraseSubject = null;

/**
 * @var string 本文(定型文)
 */
	public $fixedPhraseBody = null;

/**
 * @var array 埋め込みタグ
 */
	public $assignTags = array();

/**
 * @var array 埋め込みタグのウィジウィグ対象
 */
	public $embedTagsWysiwyg = array();

/**
 * @var array SiteSetting model data
 */
	public $siteSetting = null;

/**
 * 初期設定 プラグイン用
 *
 * @param int $languageId 言語ID
 * @param string $pluginName プラグイン名
 * @return void
 * @see CakeEmail::$charset
 */
	public function initPlugin($languageId, $pluginName = null) {
		// SiteSettingからメール設定を取得する
		SiteSettingUtil::setup(array(
			'Mail.from',
			'Mail.from_name',
			'Mail.messageType',
			'Mail.transport',
			'App.site_name',
			'Workflow.approval_mail_subject',
			'Workflow.approval_mail_body',
			'Workflow.disapproval_mail_subject',
			'Workflow.disapproval_mail_body',
			'Workflow.approval_completion_mail_subject',
			'Workflow.approval_completion_mail_body',
			'Workflow.contact_after_approval_mail_subject',
			'Workflow.contact_after_approval_mail_body',
			'Mail.body_header',
			'Mail.signature',
		));

		$this->initTags($languageId, $pluginName);
	}

/**
 * 初期設定 タグ
 *
 * @param int $languageId 言語ID
 * @param string $pluginName プラグイン名
 * @return void
 */
	public function initTags($languageId, $pluginName = null) {
		if ($pluginName === null) {
			$pluginName = Current::read('Plugin.name');
		}

		$from = SiteSettingUtil::read('Mail.from');
		$fromName = SiteSettingUtil::read('Mail.from_name', null, $languageId);
		$siteName = SiteSettingUtil::read('App.site_name', null, $languageId);
		$bodyHeader = SiteSettingUtil::read('Mail.body_header', null, $languageId);
		$signature = SiteSettingUtil::read('Mail.signature', null, $languageId);

		$siteTimezone = (new NetCommonsTime())->getSiteTimezone();
		$now = NetCommonsTime::getNowDatetime();
		$date = new DateTime($now);
		$date->setTimezone(new DateTimeZone($siteTimezone));
		$siteNow = $date->format('Y/m/d H:i:s');

		$this->assignTag('X-FROM_EMAIL', $from);
		$this->assignTag('X-FROM_NAME', $fromName);
		$this->assignTag('X-SITE_NAME', $siteName);
		$this->assignTag('X-SITE_URL', Router::fullbaseUrl());
		$this->assignTag('X-PLUGIN_NAME', $pluginName);
		$this->assignTag('X-BLOCK_NAME', Current::read('BlocksLanguage.name'));
		$this->assignTag('X-TO_DATE', $siteNow);
		$this->assignTag('X-BODY_HEADER', $bodyHeader);
		$this->assignTag('X-SIGNATURE', $signature);

		// X-ROOMタグ
		$this->setXRoom($languageId);
	}

/**
 * サイト設定 セット
 *
 * @param int $languageId 言語ID
 * @param string $fixedPhraseType 定型文の種類
 * @param array $mailSettingPlugin プラグイン側のメール設定データ
 * @return void
 */
	public function setMailFixedPhrase($languageId,
										$fixedPhraseType = null,
										$mailSettingPlugin = null) {
		if (isset($fixedPhraseType)) {
			$this->setMailFixedPhraseSiteSetting($languageId, $fixedPhraseType, $mailSettingPlugin);
		} else {
			$this->setMailFixedPhrasePlugin($mailSettingPlugin);
		}
	}

/**
 * プラグインの定型文 セット
 *
 * @param array $mailSettingPlugin メール設定データ
 * @return void
 */
	public function setMailFixedPhrasePlugin($mailSettingPlugin) {
		$subject = Hash::get($mailSettingPlugin, 'MailSettingFixedPhrase.mail_fixed_phrase_subject');
		$body = Hash::get($mailSettingPlugin, 'MailSettingFixedPhrase.mail_fixed_phrase_body');

		// 定型文
		$this->setFixedPhraseSubject($subject);
		$this->setFixedPhraseBody($body);
	}

/**
 * サイト設定の定型文 セット
 *
 * @param int $languageId 言語ID
 * @param string $fixedPhraseType 定型文の種類
 * @param array $mailSettingPlugin プラグイン側のメール設定データ
 * @return void
 */
	public function setMailFixedPhraseSiteSetting($languageId,
													$fixedPhraseType,
													$mailSettingPlugin = null) {
		$subject = SiteSettingUtil::read('Workflow.' . $fixedPhraseType . '_mail_subject',
			null, $languageId);
		$body = SiteSettingUtil::read('Workflow.' . $fixedPhraseType . '_mail_body',
			null, $languageId);

		// 定型文
		$this->setFixedPhraseSubject($subject);
		$this->setFixedPhraseBody($body);

		if ($mailSettingPlugin === null) {
			return;
		}

		$pluginSubject = Hash::get($mailSettingPlugin,
			'MailSettingFixedPhrase.mail_fixed_phrase_subject');
		$pluginBody = Hash::get($mailSettingPlugin, 'MailSettingFixedPhrase.mail_fixed_phrase_body');
		$this->assignTag('X-PLUGIN_MAIL_SUBJECT', $pluginSubject);
		$this->assignTag('X-PLUGIN_MAIL_BODY', $pluginBody);
	}

/**
 * 件名(定型文)をセットする
 *
 * @param string $fixedPhraseSubject 件名
 * @return void
 */
	public function setFixedPhraseSubject($fixedPhraseSubject) {
		$this->fixedPhraseSubject = trim($fixedPhraseSubject);
	}

/**
 * 本文(定型文)をセットする
 *
 * @param string $fixedPhraseBody 本文
 * @return void
 */
	public function setFixedPhraseBody($fixedPhraseBody) {
		$this->fixedPhraseBody = trim($fixedPhraseBody);
	}

/**
 * 埋め込みタグの追加
 *
 * @param string $tag タグ
 * @param string $value 変換する値
 * @return array タグ
 */
	public function assignTag($tag, $value) {
		// タグの両端空白なくして、大文字に変換
		$tag = strtoupper(trim($tag));

		// 頭に X- 付タグならセット
		if (substr($tag, 0, 2) == 'X-') {
			$this->assignTags[$tag] = $value;
		}
	}

/**
 * 埋め込みタグを配列で追加
 *
 * @param array $tags タグ配列
 * @return void
 */
	public function assignTags($tags) {
		foreach ($tags as $key => $value) {
			$this->assignTag($key, $value);
		}
	}

/**
 * 埋め込みタグをデータから参照して追加
 *
 * @param array $tags タグ配列
 * @param array $data タグ配列
 * @return void
 */
	public function assignTagDatas($tags, $data) {
		foreach ($tags as $tag => $dataKey) {
			$dataValue = Hash::get($data, $dataKey);
			$this->assignTag($tag, $dataValue);
		}
	}

/**
 * 埋め込みタグ変換：定型文の埋め込みタグを変換して、メール生文にする
 *
 * @return array タグ
 */
	public function assignTagReplace() {
		// 承認系メールのタグは先に置換
		if (array_key_exists('X-PLUGIN_MAIL_SUBJECT', $this->assignTags) &&
			array_key_exists('X-PLUGIN_MAIL_BODY', $this->assignTags)) {
			$this->fixedPhraseBody = str_replace('{X-PLUGIN_MAIL_BODY}',
				$this->assignTags['X-PLUGIN_MAIL_BODY'], $this->fixedPhraseBody);
			$this->fixedPhraseSubject = str_replace('{X-PLUGIN_MAIL_SUBJECT}',
				$this->assignTags['X-PLUGIN_MAIL_SUBJECT'], $this->fixedPhraseSubject);
			unset($this->assignTags['X-PLUGIN_MAIL_SUBJECT'], $this->assignTags['X-PLUGIN_MAIL_BODY']);
		}

		// html or text
		$messageType = SiteSettingUtil::read('Mail.messageType');

		// URL
		if (array_key_exists('X-URL', $this->assignTags)) {
			if ($messageType == 'text') {
				$this->fixedPhraseBody = str_replace('{X-URL}', $this->assignTags['X-URL'],
					$this->fixedPhraseBody);
			} else {
				$this->fixedPhraseBody = str_replace('{X-URL}',
					'<a href=\'' . $this->assignTags['X-URL'] . '\'>' . $this->assignTags['X-URL'] . '</a>',
					$this->fixedPhraseBody);
			}
			unset($this->assignTags['X-URL']);
		}

		// 本文
		foreach ($this->embedTagsWysiwyg as $xbodyTag) {
			if (array_key_exists($xbodyTag, $this->assignTags)) {
				$body = $this->assignTags[$xbodyTag];
				if ($messageType == 'text') {
					// htmlspecialchar 等をデコード と strap_tags
					$body = $this->__decodeAndStripTags($body);
				}
				$this->fixedPhraseBody = str_replace('{' . $xbodyTag . '}', $body, $this->fixedPhraseBody);
				unset($this->assignTags[$xbodyTag]);
			}
		}

		foreach ($this->assignTags as $key => $value) {
			$this->fixedPhraseBody = str_replace('{' . $key . '}', $value, $this->fixedPhraseBody);
			$this->fixedPhraseSubject = str_replace('{' . $key . '}', $value, $this->fixedPhraseSubject);
		}

		// 改行処理 と テキストのブロックを決められた幅で折り返す
		$this->fixedPhraseBody = $this->__textBrAndWrap($this->fixedPhraseBody);
	}

/**
 * htmlspecialchar 等をデコード と strap_tags
 *
 * ・{X-BODY}のウィジウィグのテキストは、不等号等が htmlspecialchar になっているため、変換する
 *
 * @param string $str 文字列
 * @return string 変換した文字列
 */
	private function __decodeAndStripTags($str) {
		$patterns = array();
		$replacements = array();

		//brを\n
		$patterns[] = "/<br(.|\s)*?>/u";
		$replacements[] = "\n";

		//&npspを空白
		$patterns[] = "/\&nbsp;/u";
		$replacements[] = " ";

		//&quot;を"
		$patterns[] = "/\&quot;/u";
		$replacements[] = "\"";

		//&acute;を´
		$patterns[] = "/\&acute;/u";
		$replacements[] = "´";

		//&cedil;を¸
		$patterns[] = "/\&cedil;/u";
		$replacements[] = "¸";

		//&circ;を?
		$patterns[] = "/\&circ;/u";
		$replacements[] = "?";

		//&lsquo;を‘
		$patterns[] = "/\&lsquo;/u";
		$replacements[] = "‘";

		//&rsquo;を’
		$patterns[] = "/\&rsquo;/u";
		$replacements[] = "’";

		//&ldquo;を“
		$patterns[] = "/\&ldquo;/u";
		$replacements[] = "“";

		//&rdquo;を”
		$patterns[] = "/\&rdquo;/u";
		$replacements[] = "”";

		//&apos;を'
		$patterns[] = "/\&apos;/u";
		$replacements[] = "'";

		//&#039;を'
		$patterns[] = "/\&#039;/u";
		$replacements[] = "'";

		//&amp;を&
		$patterns[] = "/\&amp;/u";
		$replacements[] = "&";

		$str = preg_replace($patterns, $replacements, $str);
		$str = strip_tags($str);

		// strip_tagsで「<」、「>」があるとそれ以降の文字が消えるため、strip_tags後に変換
		$patterns = array();
		$replacements = array();

		//&lt;を<
		$patterns[] = "/\&lt;/u";
		$replacements[] = "<";

		//&gt;を>
		$patterns[] = "/\&gt;/u";
		$replacements[] = ">";

		return preg_replace($patterns, $replacements, $str);
	}

/**
 * 改行処理 と テキストのブロックを決められた幅で折り返す
 *
 * @param string $text 文字列
 * @return string 文字列
 */
	private function __textBrAndWrap($text) {
		$text = str_replace(array("\r\n", "\r"), "\n", $text);
		// テキストのブロックを決められた幅で折り返す(各行末空白も自動削除する)
		// http://book.cakephp.org/2.0/ja/core-utility-libraries/string.html#CakeText::wrap
		$text = CakeText::wrap($text, $this::MAX_LINE_LENGTH);
		return $text;
	}

/**
 * メール本文の共通ヘッダー文、署名追加
 *
 * @param string $body 本文
 * @return string 本文
 */
	public function addHeaderAndSignature($body) {
		// 改行処理 と テキストのブロックを決められた幅で折り返す
		$bodyHeader = $this->__textBrAndWrap($this->assignTags['X-BODY_HEADER']);
		$signature = $this->__textBrAndWrap($this->assignTags['X-SIGNATURE']);

		// 各行末空白も自動削除するため、メール署名"-- "(RFC2646)を書いても機能しなくなるので対応
		$signature = str_replace("--\n", "-- \n", $signature);

		// メール本文の共通ヘッダー文、署名追加
		$body = $bodyHeader . "\n" . $body . "\n" . $signature;
		unset($this->assignTags['X-BODY_HEADER'], $this->assignTags['X-SIGNATURE']);

		return $body;
	}

/**
 * SiteSettingの定型文の種類 ゲット
 *
 * @param string $status 承認ステータス
 * @param string $comment 承認コメント
 * @param bool $isPublishableEdit 公開許可あり（承認者、承認OFF時の一般）の編集か
 * @return string
 * @throws InternalErrorException
 */
	public function getFixedPhraseType($status, $comment = null, $isPublishableEdit = null) {
		if ($status == WorkflowComponent::STATUS_PUBLISHED) {
			// --- 公開
			if ($comment && $isPublishableEdit) {
				// 担当者への連絡通知メール
				return self::SITE_SETTING_FIXED_PHRASE_CONTACT_AFTER_APPROVAL;
			}
			// 承認完了通知メール
			return self::SITE_SETTING_FIXED_PHRASE_APPROVAL_COMPLETION;

		} elseif ($status == WorkflowComponent::STATUS_APPROVAL_WAITING) {
			// --- 承認依頼
			// 承認依頼通知メール
			return self::SITE_SETTING_FIXED_PHRASE_APPROVAL;

		} elseif ($status == WorkflowComponent::STATUS_DISAPPROVED) {
			// --- 差戻し
			// 差戻し通知メール
			return self::SITE_SETTING_FIXED_PHRASE_DISAPPROVAL;
		}
		return null;
	}

/**
 * オリジナルタグのセット用マジックメソッド
 *
 * @param string $method メソッド
 * @param array $params パラメータ
 * @return mixed
 */
	public function __call($method, $params) {
		$callAssignTagFunc = ['setXTags', 'setXUrl', 'setXUser', 'setXWorkflowComment', 'setXRoom'];
		if (in_array($method, $callAssignTagFunc, true)) {
			$ExtentionTag = new NetCommonsExtentionTag();
			$params = call_user_func_array(array($ExtentionTag, 'g' . substr($method, 1)), $params);
			$method = 'assignTag';
		}
		return call_user_func_array(array($this, $method), $params);
	}

}
