<?php
/*
 * ----------------------------------------------------------------------
 *
 *                          Borlabs Cookie
 *                      developed by Borlabs
 *
 * ----------------------------------------------------------------------
 *
 * Copyright 2018-2020 Borlabs - Benjamin A. Bornschein. All rights reserved.
 * This file may not be redistributed in whole or significant part.
 * Content of this file is protected by international copyright laws.
 *
 * ----------------- Borlabs Cookie IS NOT FREE SOFTWARE -----------------
 *
 * @copyright Borlabs - Benjamin A. Bornschein, https://borlabs.io
 * @author Benjamin A. Bornschein, Borlabs ben@borlabs.io
 *
 */

namespace BorlabsCookie\Cookie\Backend;

use BorlabsCookie\Cookie\Config;
use BorlabsCookie\Cookie\Multilanguage;
use BorlabsCookie\Cookie\Tools;

class ScriptBlocker
{
    private static $instance;

    /**
     * tableScriptBlocker
     *
     * (default value: '')
     *
     * @var string
     * @access private
     */
    private $tableScriptBlocker = '';

    /**
     * imagePath
     *
     * @var mixed
     * @access private
     */
    private $imagePath;

    public static function getInstance()
    {
        if (null === self::$instance) {
            self::$instance = new self;
        }

        return self::$instance;
    }

    private function __clone()
    {
    }

    private function __wakeup()
    {
    }

    protected function __construct()
    {
        global $wpdb;

        $this->tableScriptBlocker = $wpdb->prefix.'borlabs_cookie_script_blocker';

        $this->imagePath = plugins_url('images', realpath(__DIR__.'/../../'));
    }

    /**
     * add function.
     *
     * @access public
     * @param mixed $data
     * @return void
     */
    public function add($data)
    {
        global $wpdb;

        $default = [
            'scriptBlockerId' => '',
            'name' => '',
            'blockHandles' => [],
            'blockPhrases' => [],
            'status' => false,
            'undeletable' => false,
        ];

        $data = array_merge($default, $data);

        // Remove handles which should not be blocked
        if (!empty($data['blockHandles'])) {

            $blockHandleList = [];

            foreach ($data['blockHandles'] as $handle => $status) {
                if (!empty($status)) {
                    $blockHandleList[$handle] = $handle;
                }
            }

            $data['blockHandles'] = $blockHandleList;
        }

        // Remove block phrase duplicates
        if (!empty($data['blockPhrases'])) {

            $blockPhrases = [];

            foreach ($data['blockPhrases'] as $phrase) {
                $blockPhrases[$phrase] = $phrase;
            }

            $data['blockPhrases'] = $blockPhrases;
        }

        $wpdb->query('
            INSERT INTO
                `'.$this->tableScriptBlocker.'`
                (
                    `script_blocker_id`,
                    `name`,
                    `handles`,
                    `js_block_phrases`,
                    `status`,
                    `undeletable`
                )
            VALUES
                (
                    "'.esc_sql($data['scriptBlockerId']).'",
                    "'.esc_sql(stripslashes($data['name'])).'",
                    "'.esc_sql(serialize($data['blockHandles'])).'",
                    "'.esc_sql(serialize($data['blockPhrases'])).'",
                    "'.(intval($data['status']) ? 1 : 0).'",
                    "'.(intval($data['undeletable']) ? 1 : 0).'"
                )
        ');

        if (!empty($wpdb->insert_id)) {
            return $wpdb->insert_id;
        }

        return false;
    }

    /**
     * checkIdExists function.
     *
     * @access public
     * @param mixed $scriptBlockerId
     * @return void
     */
    public function checkIdExists($scriptBlockerId)
    {
        global $wpdb;

        $checkId = $wpdb->get_results('
            SELECT
                `script_blocker_id`
            FROM
                `'.$this->tableScriptBlocker.'`
            WHERE
                `script_blocker_id`="'.esc_sql($scriptBlockerId).'"
        ');

        if (!empty($checkId[0]->script_blocker_id)) {
            return true;
        } else {
            return false;
        }
    }

    /**
     * delete function.
     *
     * @access public
     * @param mixed $id
     * @return void
     */
    public function delete($id)
    {
        global $wpdb;

        $wpdb->query('
            DELETE FROM
                `'.$this->tableScriptBlocker.'`
            WHERE
                `id` = "'.intval($id).'"
                AND
                `undeletable` = 0
        ');

        return true;
    }

    /**
     * display function.
     *
     * @access public
     * @return void
     */
    public function display()
    {
        $id = null;

        if (!empty($_POST['id'])) {
            $id = $_POST['id'];
        } elseif (!empty($_GET['id'])) {
            $id = $_GET['id'];
        }

        $action = false;

        if (!empty($_POST['action'])) {
            $action = $_POST['action'];
        } elseif (!empty($_GET['action'])) {
            $action = $_GET['action'];
        }

        if ($action !== false) {

            // Validate and create Script Blocker
            if ($action === 'create' && !empty($id) && check_admin_referer('borlabs_cookie_script_blocker_create')) {

                // Validate
                $errorStatus = $this->validate($_POST);

                // Save
                if ($errorStatus === false) {
                    $id = $this->save($_POST);

                    Messages::getInstance()->add(_x('Saved successfully.', 'Backend / Global / Alert Message', 'borlabs-cookie'), 'success');
                }
            }

            // Validate and save Script Blocker
            if ($action === 'save' && !empty($id) && check_admin_referer('borlabs_cookie_script_blocker_save')) {

                // Validate
                $errorStatus = $this->validate($_POST);

                // Save
                if ($errorStatus === false) {
                    $id = $this->save($_POST);

                    Messages::getInstance()->add(_x('Saved successfully.', 'Backend / Global / Alert Message', 'borlabs-cookie'), 'success');
                }
            }

            // Switch status of Script Blocker
            if ($action === 'switchStatus' && !empty($id) && wp_verify_nonce($_GET['_wpnonce'], 'switchStatus_'.$id)) {
                $this->switchStatus($id);

                Messages::getInstance()->add(_x('Changed status successfully.', 'Backend / Global / Alert Message', 'borlabs-cookie'), 'success');
            }

            // Delete Script Blocker
            if ($action === 'delete' && !empty($id) && wp_verify_nonce($_GET['_wpnonce'], 'delete_'.$id)) {
                $this->delete($id);

                Messages::getInstance()->add(_x('Deleted successfully.', 'Backend / Global / Alert Message', 'borlabs-cookie'), 'success');
            }
        }

        if ($action === 'edit' || $action === 'create' || $action === 'save') {

            // Script Blocker should be created but an error occurred
            if (empty($id) || $id === 'new') {
                $this->displayWizardStep_3($_POST);
            } else {
                $this->displayEdit($id, $_POST);
            }

        } elseif ($action === 'wizardStep-1') {
            // Enter URL
            $this->displayWizardStep_1($_POST);

        } elseif ($action === 'wizardStep-2') {
            // Scan website for JavaScripts
            $this->displayWizardStep_2($_POST);

        } elseif ($action === 'wizardStep-3') {
            // Display results
            $this->displayWizardStep_3($_POST);

        } else {
            $this->displayOverview();
        }
    }

    /**
     * displayEdit function.
     *
     * @access public
     * @param int $id (default: 0)
     * @param mixed $formData (default: [])
     * @return void
     */
    public function displayEdit($id, $formData = [])
    {
        $scriptBlockerData = $this->get($id);

        if (empty($scriptBlockerData)) {

            Messages::getInstance()->add(_x('The selected <strong>Script Blocker</strong> is not available.', 'Backend / Script Blocker / Alert Message', 'borlabs-cookie'), 'error');

            $this->displayOverview();

        } else {

            // Re-insert data
            if (isset($formData['name'])) {
                $scriptBlockerData->name = stripslashes($formData['name']);
            }

            if (isset($formData['status'])) {
                $scriptBlockerData->status = intval($formData['status']);
            }

            $inputId                = intval($scriptBlockerData->id);
            $inputScriptBlockerId   = esc_attr(!empty($scriptBlockerData->script_blocker_id) ? $scriptBlockerData->script_blocker_id : '');
            $inputName              = esc_attr(!empty($scriptBlockerData->name) ? $scriptBlockerData->name : '');
            $inputStatus            = !empty($scriptBlockerData->status) ? 1 : 0;
            $switchStatus           = $inputStatus ? ' active' : '';

            $blockedHandles = $scriptBlockerData->handles;
            $blockedPhrases = $scriptBlockerData->js_block_phrases;

            sort($blockedHandles, SORT_NATURAL | SORT_FLAG_CASE);
            sort($blockedPhrases, SORT_NATURAL | SORT_FLAG_CASE);

            $textareaUnblockScriptCookieCode = esc_textarea('<script>window.BorlabsCookie.unblockScriptBlockerId("'.$inputScriptBlockerId.'");</script>');
            $textareaUnblockScriptContentBlockerCode = esc_textarea('window.BorlabsCookie.allocateScriptBlockerToContentBlocker(contentBlockerData.id, "'.$inputScriptBlockerId.'", "scriptBlockerId");');
            $textareaUnblockScriptContentBlockerCode .= "\n".esc_textarea('window.BorlabsCookie.unblockScriptBlockerId("'.$inputScriptBlockerId.'");');

            include Backend::getInstance()->templatePath.'/script-blocker-edit.html.php';
        }
    }

    /**
     * displayOverview function.
     *
     * @access public
     * @return void
     */
    public function displayOverview()
    {
        global $wpdb;

        $scriptBlocker = $wpdb->get_results('
            SELECT
                `id`,
                `script_blocker_id`,
                `name`,
                `handles`,
                `js_block_phrases`,
                `status`,
                `undeletable`
            FROM
                `'.$this->tableScriptBlocker.'`
            ORDER BY
                `name` ASC
        ');

        if (!empty($scriptBlocker)) {
            foreach ($scriptBlocker as $key => $data) {

                $data->handles = unserialize($data->handles);
                $data->js_block_phrases = unserialize($data->js_block_phrases);

                sort($data->handles, SORT_NATURAL | SORT_FLAG_CASE);
                sort($data->js_block_phrases, SORT_NATURAL | SORT_FLAG_CASE);

                $scriptBlocker[$key]->handles = implode(', ', $data->handles);
                $scriptBlocker[$key]->js_block_phrases = implode(', ', $data->js_block_phrases);
                $scriptBlocker[$key]->undeletable = intval($data->undeletable);
            }
        }

        include Backend::getInstance()->templatePath.'/script-blocker-overview.html.php';
    }

    /**
     * displayWizardStep_1 function.
     *
     * @access public
     * @param mixed $id
     * @return void
     */
    public function displayWizardStep_1($formData = [])
    {
        $borlabsCookieStatus= !empty(Config::getInstance()->get('cookieStatus')) ? true : false;
        $inputScanPageId    = esc_attr(!empty($formData['scanPageId']) ? intval($formData['scanPageId']) : 0);
        $inputScanCustomURL = esc_attr(!empty($formData['scanCustomURL']) ? stripslashes($formData['scanCustomURL']) : '');
        $inputSearchPhrases = esc_attr(!empty($formData['searchPhrases']) ? stripslashes($formData['searchPhrases']) : '');

        include Backend::getInstance()->templatePath.'/script-blocker-wizard-step-1.html.php';
    }

    /**
     * displayWizardStep_2 function.
     *
     * @access public
     * @param mixed $formData (default: [])
     * @return void
     */
    public function displayWizardStep_2($formData = [])
    {
        $errorStatus = false;

        if (empty($formData['scanPageId']) && empty($formData['enableScanCustomURL'])) {
            Messages::getInstance()->add(_x('Please select a page.', 'Backend / Script Blocker / Alert Message', 'borlabs-cookie'), 'error');

            $errorStatus = true;
        }

        if (!empty($formData['enableScanCustomURL'])) {

            if (empty($formData['scanCustomURL'])) {
                Messages::getInstance()->add(_x('Please enter a URL.', 'Backend / Script Blocker / Alert Message', 'borlabs-cookie'), 'error');

                $errorStatus = true;
            } else {
                if (filter_var($formData['scanCustomURL'], FILTER_VALIDATE_URL) === false) {
                    Messages::getInstance()->add(_x('URL is not valid.', 'Backend / Script Blocker / Alert Message', 'borlabs-cookie'), 'error');

                    $errorStatus = true;
                }
            }
        }

        if ($errorStatus !== false) {
            $this->displayWizardStep_1($formData);
        } else {

            $scanURL = '';

            if (!empty($formData['scanPageId'])) {
                $postData = get_post($formData['scanPageId']);

                if (!empty($postData->ID)) {
                    $scanURL = get_permalink($postData->ID);
                }
            } else {
                $scanURL = stripslashes($formData['scanCustomURL']);
            }

            // Fallback - Should never happen
            if (empty($scanURL)) {
                $scanURL = get_home_url();
            }

            $inputScanURL       = esc_attr($scanURL);
            $inputSearchPhrases = esc_attr(!empty($formData['searchPhrases']) ? stripslashes($formData['searchPhrases']) : '');

            $loadingIcon = $this->imagePath.'/borlabs-cookie-icon-black.svg';

            include Backend::getInstance()->templatePath.'/script-blocker-wizard-step-2.html.php';
        }
    }

    /**
     * displayWizardStep_3 function.
     *
     * @access public
     * @return void
     */
    public function displayWizardStep_3($formData)
    {
        $errorStatus = false;

        $detectedJavaScripts = $this->getDetectedJavaScripts();

        if (empty(count($detectedJavaScripts, COUNT_RECURSIVE))) {
            Messages::getInstance()->add(_x('No JavaScripts could be found.', 'Backend / Script Blocker / Alert Message', 'borlabs-cookie'), 'error');

            $errorStatus = true;
        }

        if ($errorStatus !== false) {
            $this->displayWizardStep_1($formData);
        } else {

            $inputScriptBlockerId   = esc_attr(!empty($formData['scriptBlockerId']) ? stripslashes($formData['scriptBlockerId']) : '');
            $inputName              = esc_attr(!empty($formData['name']) ? stripslashes($formData['name']) : '');
            $inputStatus            = esc_attr(!empty($formData['status']) ? 1 : 0);
            $switchStatus           = $inputStatus ? ' active' : '';

            // If an error occurred during saving, these variables are filled with the information,
            // whether a handle or script has been selected to be blocked
            $blockedHandles = [];
            $blockedScriptTags = [];
            $blockedPhrases = [];

            if (!empty($formData['blockHandles'])) {
                $blockHandles = $formData['blockHandles'];
            }

            if (!empty($formData['blockScriptTags'])) {
                $blockedScriptTags = $formData['blockScriptTags'];
            }

            if (!empty($formData['blockPhrases'])) {
                $blockedPhrases = $formData['blockPhrases'];
            }

            include Backend::getInstance()->templatePath.'/script-blocker-wizard-step-3.html.php';
        }
    }

    /**
     * get function.
     *
     * @access public
     * @param mixed $id
     * @return void
     */
    public function get($id)
    {
        global $wpdb;

        $data = false;

        $scriptBlockerData = $wpdb->get_results('
            SELECT
                `id`,
                `script_blocker_id`,
                `name`,
                `handles`,
                `js_block_phrases`,
                `status`
            FROM
                `'.$this->tableScriptBlocker.'`
            WHERE
                `id` = "'.esc_sql($id).'"
        ');

        if (!empty($scriptBlockerData[0]->id)) {
            $data = $scriptBlockerData[0];

            $data->handles = unserialize($data->handles);
            $data->js_block_phrases = unserialize($data->js_block_phrases);
        }

        return $data;
    }

    /**
     * getDetectedJavaScripts function.
     *
     * @access public
     * @return void
     */
    public function getDetectedJavaScripts()
    {
        $detectedJavaScripts = get_option('BorlabsCookieDetectedJavaScripts', []);

        return $detectedJavaScripts;
    }

    /**
     * handleScanRequest function.
     *
     * @access public
     * @param mixed $scanURL
     * @param string $searchPhrases (default: '')
     * @return void
     */
    public function handleScanRequest($scanURL, $searchPhrases = '')
    {
        // Prepare search phrase
        if (!empty($searchPhrases)) {
            $searchPhrases = explode(',', $searchPhrases);

            foreach ($searchPhrases as $index => $phrase) {

                $phrase = trim($phrase);

                if (!empty($phrase)) {
                    $searchPhrases[$index] = $phrase;
                }
            }
        }

        update_option('BorlabsCookieJavaScriptSearchPhrases', $searchPhrases, 'no');

        // Enable JavaScript Handle Scan - will be disabled in JavaScript->saveDetectedJavaScripts()
        update_option('BorlabsCookieScanJavaScripts', true, 'no');

        // Request website and scan for JavaScript Handles
        $args = [
            'timeout' => 45,
            'body' => ['borlabsCookie' => ['scanJavaScripts' => true]],
        ];

        $response = wp_remote_post(
            $scanURL,
            $args
        );

        $status = false;
        if (!empty($response) && is_array($response) && $response['response']['code'] == 200 && !empty($response['body'])) {
            $status = true;
        }

        return $status;
    }

    /**
     * modify function.
     *
     * @access public
     * @param mixed $id
     * @param mixed $data
     * @return void
     */
    public function modify($id, $data)
    {
        global $wpdb;

        $default = [
            'name' => '',
            'status' => false,
        ];

        $data = array_merge($default, $data);

        $wpdb->query('
            UPDATE
                `'.$this->tableScriptBlocker.'`
            SET
                `name` = "'.esc_sql(stripslashes($data['name'])).'",
                `status` = "'.(intval($data['status']) ? 1 : 0).'"
            WHERE
                `id` = "'.intval($id).'"
        ');

        return $id;
    }

    /**
     * save function.
     *
     * @access public
     * @param mixed $formData
     * @return void
     */
    public function save($formData)
    {
        $id = 0;

        if (!empty($formData['id']) && $formData['id'] !== 'new') {
            // Edit
            $id = $this->modify($formData['id'], $formData);
        } else {
            // Add
            $id = $this->add($formData);
        }

        return $id;
    }

    /**
     * switchStatus function.
     *
     * @access public
     * @param mixed $id
     * @return void
     */
    public function switchStatus($id)
    {
        global $wpdb;

        $wpdb->query('
            UPDATE
                `'.$this->tableScriptBlocker.'`
            SET
                `status` = IF(`status` <> 0, 0, 1)
            WHERE
                `id` = "'.intval($id).'"
        ');

        return true;
    }

    /**
     * validate function.
     *
     * @access public
     * @param mixed $formData
     * @return void
     */
    public function validate($formData)
    {
        $errorStatus = false;

        // Check id if a new script blocker is about to be added
        if (empty($formData['id']) || $formData['id'] === 'new') {

            if (empty($formData['scriptBlockerId']) || preg_match('/^[a-z\-\_]{3,}$/', $formData['scriptBlockerId']) === 0) {

                $errorStatus = true;
                Messages::getInstance()->add(_x('Please fill out the field <strong>ID</strong>. The ID must be at least 3 characters long and may only contain: <strong><em>a-z - _</em></strong>', 'Backend / Global / Alert Message', 'borlabs-cookie'), 'error');

            } elseif ($this->checkIdExists($formData['scriptBlockerId'])) {

                $errorStatus = true;
                Messages::getInstance()->add(_x('The <strong>ID</strong> already exists.', 'Backend / Global / Alert Message', 'borlabs-cookie'), 'error');

            }

            $isBlockHandlesEmpty = true;
            $isBlockPhrasesEmpty = true;

            if (!empty($formData['blockHandles'])) {
                foreach ($formData['blockHandles'] as $status) {
                    if ($status === "1") {
                        $isBlockHandlesEmpty = false;

                        break;
                    }
                }
            }

            if (!empty($formData['blockPhrases'])) {
                foreach ($formData['blockPhrases'] as $phrase) {
                    if (strlen($phrase) >= 5) {
                        $isBlockPhrasesEmpty = false;

                        break;
                    }
                }
            }

            if ($isBlockHandlesEmpty === true && $isBlockPhrasesEmpty === true) {
                $errorStatus = true;
                Messages::getInstance()->add(_x('No JavaScript has been selected for blocking.', 'Backend / Script Blocker / Alert Message', 'borlabs-cookie'), 'error');
            }
        }

        if (empty($formData['name'])) {
            $errorStatus = true;
            Messages::getInstance()->add(_x('Please fill out the field <strong>Name</strong>.', 'Backend / Global / Alert Message', 'borlabs-cookie'), 'error');
        }

        return $errorStatus;
    }
}
