<?php

/**
 * MIT License
 *
 * Copyright (c) 2020 DIGITAL RETAIL TECHNOLOGIES SL
 *
 * Permission is hereby granted, free of charge, to any person obtaining a copy
 * of this software and associated documentation files (the "Software"), to deal
 * in the Software without restriction, including without limitation the rights
 * to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
 * copies of the Software, and to permit persons to whom the Software is
 * furnished to do so, subject to the following conditions:
 *
 * The above copyright notice and this permission notice shall be included in
 * all copies or substantial portions of the Software.
 *
 * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
 * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
 * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
 * AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
 * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
 * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
 * SOFTWARE.
 *
 * DISCLAIMER
 *
 * Do not edit or add to this file if you wish to upgrade PrestaShop to newer
 * versions in the future. If you wish to customize PrestaShop for your
 * needs please refer to http://www.prestashop.com for more information.
 *
 * @author    DIGITAL RETAIL TECHNOLOGIES SL <mail@simlachat.com>
 * @copyright 2020 DIGITAL RETAIL TECHNOLOGIES SL
 * @license   https://opensource.org/licenses/MIT  The MIT License
 *
 * Don't forget to prefix your containers with your own identifier
 * to avoid any conflicts with others containers.
 */
class RetailcrmCatalog
{
    public $default_lang;
    public $default_currency;
    public $default_country;
    public $protocol;
    public $version;
    public $link;
    public $home_category;

    public function __construct()
    {
        $this->default_lang = (int)Configuration::get('PS_LANG_DEFAULT');
        $this->default_currency = (int)Configuration::get('PS_CURRENCY_DEFAULT');
        $this->default_country = (int)Configuration::get('PS_COUNTRY_DEFAULT');

        $this->protocol = (Configuration::get('PS_SSL_ENABLED')) ? "https://" : "http://";
        $this->version = substr(_PS_VERSION_, 0, 3);
        $this->link = new Link();
        $this->home_category = Configuration::get('PS_HOME_CATEGORY');
    }

    public function getData()
    {
        return array($this->getCategories(), $this->getOffers());
    }

    public function getCategories()
    {
        $categories = array();
        $categoriesIds = array();

        $types = Category::getCategories($this->default_lang, true, false);

        foreach ($types as $category) {
            $categoryId = (empty($category['id_category']) && isset($category['id']))
                ? $category['id'] : $category['id_category'];

            if (!self::isCategoryActive(new Category($categoryId))) {

                continue;
            }

            $picture = $this->link->getCatImageLink($category['link_rewrite'], $categoryId, 'category_default');

            $categoriesIds[] = $categoryId;
            $categories[] = array(
                'id' => $categoryId,
                'parentId' => self::getParentCategoryId($categoryId, $category['id_parent']),
                'name' => htmlspecialchars($category['name']),
                'picture' => $picture ? $this->protocol . $picture : ''
            );
        }

        foreach ($categories as $key => $innerCategory) {
            if (isset($innerCategory['parentId'])
                && !empty($innerCategory['parentId'])
                && !in_array($innerCategory['parentId'], $categoriesIds)
            ) {
                $innerCategory['parentId'] = $this->home_category;
                $categories[$key] = $innerCategory;
            }
        }

        return $categories;
    }

    public function getOffers()
    {
        $id_lang = $this->default_lang;
        $homeCategory = $this->home_category;

        $inactiveCategories = array();
        $categoriesIds = array();

        $types = Category::getCategories($id_lang, true, false);

        foreach ($types as $category) {
            $categoryId = (empty($category['id_category']) && isset($category['id']))
                ? $category['id'] : $category['id_category'];

            if (!self::isCategoryActive(new Category($categoryId))) {
                if (!in_array($categoryId, $inactiveCategories)) {
                    $inactiveCategories[] = $categoryId;
                }

                continue;
            }

            $categoriesIds[] = $categoryId;
        }

        $limit = 2000;
        $start = 0;
        $count = self::getProductsCount($id_lang);

        if ($count > 0)
            do {
                $products = Product::getProducts($id_lang, $start, $limit, 'name', 'asc');

                foreach ($products as $product) {
                    $currentProductCategories = Product::getProductCategories($product['id_product']);
                    $categoriesLeft = array_filter(
                        $currentProductCategories,
                        function ($val) use ($inactiveCategories, $categoriesIds, $homeCategory) {
                            if ($val == $homeCategory) {
                                return false;
                            }

                            if (in_array($val, $inactiveCategories)) {
                                return false;
                            }

                            return in_array($val, $categoriesIds);
                        }
                    );

                    if (empty($categoriesLeft)) {
                        continue;
                    }

                    if ($this->version == "1.3") {
                        $available_for_order = $product['active'] && $product['quantity'];
                    } else {
                        $available_for_order = $product['active'] && $product['available_for_order'];
                    }

                    $crewrite = Category::getLinkRewrite($product['id_category_default'], $id_lang);
                    $url = $this->link->getProductLink($product['id_product'], $product['link_rewrite'], $crewrite);

                    if (!empty($product['wholesale_price'])) {
                        $purchasePrice = round($product['wholesale_price'], 2);
                    } else {
                        $purchasePrice = null;
                    }

                    $price = !empty($product['rate'])
                        ? round($product['price'], 2) + (round($product['price'], 2) * $product['rate'] / 100)
                        : round($product['price'], 2);

                    if (!empty($product['manufacturer_name'])) {
                        $vendor = $product['manufacturer_name'];
                    } else {
                        $vendor = null;
                    }

                    if (!empty($product['reference'])) {
                        $article = htmlspecialchars($product['reference']);
                    } else {
                        $article = null;
                    }

                    $weight = round($product['weight'], 2);
                    if ($weight === 0.0) {
                        $weight = null;
                    }

                    $width = round($product['width'], 3);
                    $height = round($product['height'], 3);
                    $depth = round($product['depth'], 3);

                    if ($width !== 0.0 && $height !== 0.0) {
                        $dimensions = implode('/', array($width, $height, $depth));
                    } else {
                        $dimensions = null;
                    }

                    $offers = Product::getProductAttributesIds($product['id_product']);

                    if (!empty($offers)) {
                        $productForCombination = new Product($product['id_product']);

                        foreach ($offers as $offer) {
                            $combinations = $productForCombination->getAttributeCombinationsById($offer['id_product_attribute'], $id_lang);

                            if (!empty($combinations)) {
                                foreach ($combinations as $combination) {
                                    $arSet = array(
                                        'group_name' => $combination['group_name'],
                                        'attribute' => $combination['attribute_name'],
                                    );

                                    $arComb[] = $arSet;
                                }
                            }

                            $pictures = array();
                            $covers = Image::getImages($id_lang, $product['id_product'], $offer['id_product_attribute']);

                            foreach ($covers as $cover) {
                                $picture = $this->protocol . $this->link->getImageLink($product['link_rewrite'], $product['id_product'] . '-' . $cover['id_image'], 'large_default');
                                $pictures[] = $picture;
                            }

                            if (!$pictures) {
                                $image = Image::getCover($product['id_product']);
                                $picture = $this->protocol . $this->link->getImageLink($product['link_rewrite'], $image['id_image'], 'large_default');
                                $pictures[] = $picture;
                            }

                            if ($this->version == "1.3") {
                                $quantity = $product['quantity'];
                            } else {
                                $quantity = (int)StockAvailable::getQuantityAvailableByProduct($product['id_product'], $offer['id_product_attribute']);
                            }

                            $offerCombination = new Combination($offer['id_product_attribute']);

                            $offerCombinationPrice = !empty($product['rate'])
                                ? round($offerCombination->price, 2) + (round($offerCombination->price, 2) * $product['rate'] / 100)
                                : round($offerCombination->price, 2);

                            $offerPrice = round($offerCombinationPrice, 2) + $price;
                            $offerPrice = $offerPrice > 0 ? $offerPrice : $price;

                            if ($offerCombination->wholesale_price > 0) {
                                $offerPurchasePrice = round($offerCombination->wholesale_price, 2);
                            } else {
                                $offerPurchasePrice = $purchasePrice;
                            }

                            if (!empty($offerCombination->reference)) {
                                $offerArticle = htmlspecialchars($offerCombination->reference);
                            } else {
                                $offerArticle = $article;
                            }

                            $item = array(
                                'id' => $product['id_product'] . '#' . $offer['id_product_attribute'],
                                'productId' => $product['id_product'],
                                'productActivity' => ($available_for_order) ? 'Y' : 'N',
                                'name' => htmlspecialchars(strip_tags(Product::getProductName($product['id_product'], $offer['id_product_attribute']))),
                                'productName' => htmlspecialchars(strip_tags($product['name'])),
                                'categoryId' => $categoriesLeft,
                                'picture' => $pictures,
                                'url' => $url,
                                'quantity' => $quantity > 0 ? $quantity : 0,
                                'purchasePrice' => $offerPurchasePrice,
                                'price' => round($offerPrice, 2),
                                'vendor' => $vendor,
                                'article' => $offerArticle,
                                'weight' => $weight,
                                'dimensions' => $dimensions,
                                'vatRate' => $product['rate'],
                            );

                            if (!empty($combinations)) {
                                foreach ($arComb as $itemComb) {
                                    $item[mb_strtolower($itemComb['group_name'])] = htmlspecialchars($itemComb['attribute']);
                                }
                            }

                            yield RetailcrmTools::filter(
                                'RetailcrmFilterProcessOffer',
                                $item,
                                array(
                                    'product' => $product,
                                    'offer' => $offer
                                )
                            );
                        }
                    } else {

                        $pictures = array();
                        $covers = Image::getImages($id_lang, $product['id_product'], null);
                        foreach ($covers as $cover) {
                            $picture = $this->protocol . $this->link->getImageLink($product['link_rewrite'], $product['id_product'] . '-' . $cover['id_image'], 'large_default');
                            $pictures[] = $picture;
                        }

                        if ($this->version == "1.3") {
                            $quantity = $product['quantity'];
                        } else {
                            $quantity = (int)StockAvailable::getQuantityAvailableByProduct($product['id_product']);
                        }

                        $item = array(
                            'id' => $product['id_product'],
                            'productId' => $product['id_product'],
                            'productActivity' => ($available_for_order) ? 'Y' : 'N',
                            'name' => htmlspecialchars(strip_tags($product['name'])),
                            'productName' => htmlspecialchars(strip_tags($product['name'])),
                            'categoryId' => $categoriesLeft,
                            'picture' => $pictures,
                            'url' => $url,
                            'quantity' => $quantity > 0 ? $quantity : 0,
                            'purchasePrice' => round($purchasePrice, 2),
                            'price' => $price,
                            'vendor' => $vendor,
                            'article' => $article,
                            'weight' => $weight,
                            'dimensions' => $dimensions,
                            'vatRate' => $product['rate'],
                        );

                        yield RetailcrmTools::filter(
                            'RetailcrmFilterProcessOffer',
                            $item,
                            array(
                                'product' => $product
                            )
                        );
                    }
                }

                $start += $limit;
            } while ($start < $count && count($products) > 0);
    }

    private static function getProductsCount(
        $id_lang,
        Context $context = null
    )
    {
        if (!$context) {
            $context = Context::getContext();
        }

        $front = true;
        if (!in_array($context->controller->controller_type, array('front', 'modulefront'))) {
            $front = false;
        }

        $sql = 'SELECT COUNT(product_shop.`id_product`) AS nb
                FROM `' . _DB_PREFIX_ . 'product` p
                ' . Shop::addSqlAssociation('product', 'p') . '
                LEFT JOIN `' . _DB_PREFIX_ . 'product_lang` pl ON (p.`id_product` = pl.`id_product` ' . Shop::addSqlRestrictionOnLang('pl') . ')
                WHERE pl.`id_lang` = ' . (int)$id_lang .
            ($front ? ' AND product_shop.`visibility` IN ("both", "catalog")' : '');

        return (int)Db::getInstance(_PS_USE_SQL_SLAVE_)->getValue($sql);
    }

    /**
     * @param \Category|\CategoryCore $category
     *
     * @return bool
     */
    private static function isCategoryActive($category)
    {
        if ($category->id == Configuration::get('PS_HOME_CATEGORY')) {
            return true;
        }

        if (!$category->active) {
            return false;
        }

        if (!empty($category->id_parent)) {
            $parent = new Category($category->id_parent);

            if (!$parent->active) {
                return false;
            }

            return self::isCategoryActive($parent);
        }

        return $category->active;
    }

    /**
     * Returns active parent category
     *
     * @param int $categoryId
     * @param int $parentId
     *
     * @return null
     */
    private static function getParentCategoryId($categoryId, $parentId)
    {
        $home = Configuration::get('PS_HOME_CATEGORY');

        if (empty($parentId)) {
            return null;
        }

        if ($categoryId == $home) {
            return null;
        }

        if ($parentId == $home) {
            return $home;
        }

        /** @var \Category|\CategoryCore $category */
        $category = new Category($parentId);

        if (empty($category->id) || !$category->active) {
            return $home;
        }

        return $parentId;
    }
}