<?php
/**
 * 2013 - 2018 PayPlug SAS
 *
 * NOTICE OF LICENSE
 *
 * This source file is subject to the Academic Free License (AFL 3.0)
 * that is bundled with this package in the file LICENSE.txt.
 * It is also available through the world-wide-web at this URL:
 * http://opensource.org/licenses/afl-3.0.php
 * If you did not receive a copy of the license and are unable to
 * obtain it through the world-wide-web, please send an email
 * to license@prestashop.com so we can send you a copy immediately.
 *
 * 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    PayPlug SAS
 *  @copyright 2013 - 2018 PayPlug SAS
 *  @license   http://opensource.org/licenses/afl-3.0.php  Academic Free License (AFL 3.0)
 *  International Registered Trademark & Property of PayPlug SAS
 */

class PayplugValidationModuleFrontController extends ModuleFrontController
{
    public function addLog($debug, $log, $str, $level)
    {
        $debugBacktrace = debug_backtrace();
        $line_n = $debugBacktrace[0]['line'];
        if ($debug) {
            $log->$level($str, '--', $line_n);
        }
        return($str);
    }

    public function postProcess()
    {
        //Inclusions
        require_once(dirname(__FILE__).'/../../../../config/config.inc.php');
        require_once(_PS_MODULE_DIR_.'../init.php');
        require_once(_PS_MODULE_DIR_.'payplug/payplug.php');
        require_once(_PS_MODULE_DIR_.'payplug/classes/PayplugBackward.php');
        require_once(_PS_MODULE_DIR_.'payplug/classes/PayplugLock.php');
        require_once(_PS_MODULE_DIR_.'payplug/lib/init.php');
        
        //Settings
        $debug = PayplugBackward::getConfiguration('PAYPLUG_DEBUG_MODE');

        if ($debug) {
            require_once(dirname(__FILE__).'/../../classes/MyLogPHP.class.php');
            $log = new MyLogPHP(_PS_MODULE_DIR_.'payplug/log/validation-'.date("Y-m-d").'.csv');
            $log->info('Validation Starting.');
        } else {
            $log = false;
        }

        $payplug = new Payplug();

        $redirect_url_error = 'index.php?controller=order&step=1';
        if (version_compare(_PS_VERSION_, '1.5', '<')) {
            $order_confirmation_url = 'order-confirmation.php?';
        } else {
            $order_confirmation_url = 'index.php?controller=order-confirmation&';
        }


        //Cancelling
        /*
        if (!$payplug->active) {
            $this->addLog($debug, $log, 'Payplug module is not enabled.', 'error');
            Payplug::redirectForVersion($redirect_url_error);
        } elseif (!($cart_id = Tools::getValue('cartid'))) {
        */
        if (!($cart_id = Tools::getValue('cartid'))) {
            $this->addLog($debug, $log, 'No Cart ID.', 'error');
            Payplug::redirectForVersion($redirect_url_error);
        } elseif (!($ps = Tools::getValue('ps')) || $ps != 1) {
            if ($ps == 2) {
                $this->addLog($debug, $log, 'Order has been cancelled on PayPlug page', 'info');
            } else {
                $this->addLog($debug, $log, 'Wrong GET parameter ps = '.$ps, 'error');
            }
            Payplug::redirectForVersion($redirect_url_error);
        }


        //Treatment
        $this->addLog($debug, $log, 'Cart ID : '.(int)$cart_id, 'info');
        $cart = new Cart((int)$cart_id);
        if (!Validate::isLoadedObject($cart)) {
            $this->addLog($debug, $log, 'Cart cannot be loaded.', 'error');
            Payplug::redirectForVersion($redirect_url_error);
        } else {
            if (!$pay_id = $payplug->getPaymentByCart((int)$cart_id)) {
                $this->addLog($debug, $log, 'Payment is not stored or is already consumed.', 'error');
                $id_order = Order::getOrderByCartId($cart->id);
                $customer = new Customer((int)$cart->id_customer);
                $link_redirect = __PS_BASE_URI__.$order_confirmation_url.'id_cart='.$cart->id
                    .'&id_module='.$payplug->id.'&id_order='.$id_order.'&key='.$customer->secure_key;
                Payplug::redirectForVersion($link_redirect);
            } else {
                $this->addLog($debug, $log, 'Payment is not consumed yet.', 'info');
                try {
                    $payment = \Payplug\Payment::retrieve($pay_id);
                    $this->addLog($debug, $log, 'Retrieving payment...', 'info');
                    if ($payment->failure) {
                        $this->addLog($debug, $log, 'Payment failure : '.$payment->failure->message, 'error');
                        Payplug::redirectForVersion($redirect_url_error);
                    }
                    $is_paid = $payment->is_paid;
                } catch (Exception $e) {
                    $this->addLog($debug, $log, 'Payment cannot be retrieved.', 'error');
                    Payplug::redirectForVersion($redirect_url_error);
                }
            }

            if ($payment->save_card == 1 || ($payment->card->id != '' && $payment->hosted_payment != '')) {
                $this->addLog($debug, $log, 'Saving card...', 'info');
                $res_payplug_card = $payplug->saveCard($payment);

                if (!$res_payplug_card) {
                    $this->addLog($debug, $log, 'Card cannot be saved.', 'error');
                }
            }

            $customer = new Customer((int)$cart->id_customer);
            if (!Validate::isLoadedObject($customer)) {
                $this->addLog($debug, $log, 'Customer cannot be loaded.', 'error');
                Payplug::redirectForVersion($redirect_url_error);
            }

            if (version_compare(_PS_VERSION_, 1.4, '<')) {
                $total = (float)$cart->getOrderTotal(true, 3);
            } else {
                $total = (float)$cart->getOrderTotal(true, Cart::BOTH);
            }
            $this->addLog($debug, $log, 'Total : '.$total, 'info');

            $this->addLog($debug, $log, 'Lock checking start.', 'debug');
            PayplugLock::check($cart->id);
            $this->addLog($debug, $log, 'Lock checking end.', 'debug');

            $cart_lock = PayplugLock::createLockG2($cart->id, 'validation');
            if (!$cart_lock) {
                $this->addLog($debug, $log, 'Lock cannot be created.', 'error');
            } else {
                $this->addLog($debug, $log, 'Lock created.', 'debug');
                switch ($cart_lock) {
                    case 'ipn':
                    case 'validation':
                        $id_order = false;
                        break;
                    default:
                        $id_order = (int)$cart_lock;
                }
            }

            $id_order = Order::getOrderByCartId($cart->id);

            if ($id_order) {
                $this->addLog($debug, $log, 'Order already exists.', 'info');

                $this->addLog($debug, $log, 'Deleting stored payment.', 'info');
                if ($payplug->isTransactionPending((int)$cart_id)) {
                    $this->addLog($debug, $log, 'Transaction is pending so stored payment will not be deleted.', 'info');
                } else {
                    if (!$payplug->deletePayment($payment->id, (int)$cart_id)) {
                        $this->addLog($debug, $log, 'Stored payment cannot be deleted.', 'error');
                    } else {
                        $this->addLog($debug, $log, 'Stored payment successfully deleted.', 'info');
                    }
                }
            } else {
                $this->addLog($debug, $log, 'Order does\'nt exists yet.', 'info');

                $state_addons = ($payment->is_live ? '' : '_TEST');
                $pending_state = (int)PayplugBackward::getConfiguration('PAYPLUG_ORDER_STATE_PENDING'.$state_addons);
                $paid_state = (int)PayplugBackward::getConfiguration('PAYPLUG_ORDER_STATE_PAID'.$state_addons);
                if ($is_paid) {
                    $order_state = $paid_state;
                    $this->addLog($debug, $log, 'Deleting stored payment.', 'info');
                    if (!$payplug->deletePayment($payment->id, (int)$cart_id)) {
                        $this->addLog($debug, $log, 'Stored payment cannot be deleted.', 'error');
                    } else {
                        $this->addLog($debug, $log, 'Stored payment successfully deleted.', 'info');
                    }
                } else {
                    $order_state = $pending_state;
                    $this->addLog($debug, $log, 'Stored payment become pending.', 'info');
                    if (!$payplug->registerPendingTransaction((int)$cart_id)) {
                        $this->addLog($debug, $log, 'Stored payment cannot be pending.', 'error');
                    } else {
                        $this->addLog($debug, $log, 'Stored payment successfully set up to pending.', 'info');
                    }
                }
                $this->addLog($debug, $log, 'Order state will be :'.$order_state, 'info');

                $extra_vars = array(
                    'transaction_id' => $payment->id
                );

                $address = new Address((int)$cart->id_address_delivery);
                $this->context->country = new Country($address->id_country, $cart->id_lang);
                /* 
                 * For some reasons, secure key form cart can differ from secure key from customer
                 * Maybe due to migration or Prestashop's Update
                 */
                $secure_key = false;
                if (isset($customer->secure_key) && !empty($customer->secure_key)) {
                    if (isset($cart->secure_key) && !empty($cart->secure_key) && $cart->secure_key !== $customer->secure_key) {
                        $secure_key = $cart->secure_key;
                        $this->addLog($debug, $log, 'Secure keys do not match.', 'error');
                        $this->addLog($debug, $log, 'Customer Secure Key: '.$customer->secure_key, 'error');
                        $this->addLog($debug, $log, 'Cart Secure Key: '.$cart->secure_key, 'error');
                    } else {
                        $secure_key = $customer->secure_key;
                    }
                }

                $validateOrder_result = $payplug->validateOrder(
                    $cart->id,
                    $order_state,
                    $total,
                    $payplug->displayName,
                    false,
                    $extra_vars,
                    (int)$cart->id_currency,
                    false,
                    $secure_key
                );
                $id_order = $payplug->currentOrder;

                if (!$validateOrder_result) {
                    $this->addLog($debug, $log, 'Order not validated', 'error');
                    $cart_unlock = PayplugLock::deleteLockG2($cart->id);
                    if (!$cart_unlock) {
                        $this->addLog($debug, $log, 'Lock cannot be deleted.', 'error');
                    } else {
                        $this->addLog($debug, $log, 'Lock deleted.', 'debug');
                    }
                    Payplug::redirectForVersion($redirect_url_error);
                } else {
                    $this->addLog($debug, $log, 'Order validated', 'info');
                    $api_key = Payplug::setAPIKey();
                    $data = array();
                    $data['metadata'] = $payment->metadata;
                    $data['metadata']['Order'] = $id_order;
                    $payplug->patchPayment($api_key, $payment->id, $data);
                }

                if (version_compare(_PS_VERSION_, '1.5', '<')) {
                    if (!$payplug->addPayplugOrderPayment($id_order, $payment->id)) {
                        $this->addLog($debug, $log, 'Unable to create order payment.', 'error');
                    }
                }

                $this->addLog($debug, $log, 'Checking number of order passed with this id_cart...', 'info');
                $req_nb_orders = '
            SELECT o.* 
            FROM '._DB_PREFIX_.'orders o 
            WHERE o.id_cart = '.$cart->id;
                $res_nb_orders = Db::getInstance()->executeS($req_nb_orders);
                if (!$res_nb_orders) {
                    $this->addLog($debug, $log, 'No order can be found using id_cart '.(int)$cart->id, 'error');
                    $cart_unlock = PayplugLock::deleteLockG2($cart->id);
                    if (!$cart_unlock) {
                        $this->addLog($debug, $log, 'Lock cannot be deleted.', 'error');
                    } else {
                        $this->addLog($debug, $log, 'Lock deleted.', 'debug');
                    }
                    Payplug::redirectForVersion($redirect_url_error);
                } elseif (count($res_nb_orders) > 1) {
                    $this->addLog($debug, $log, 'There is more than one order using id_cart '.(int)$cart->id, 'error');
                    foreach ($res_nb_orders as $o) {
                        $this->addLog($debug, $log, 'Order ID : '.$o['id_order'], 'debug');
                    }
                } else {
                    $this->addLog($debug, $log, 'Everything looks good.', 'info');
                }

                $this->addLog($debug, $log, 'Checking number of transaction validated for this order...', 'info');
                if (version_compare(_PS_VERSION_, '1.5', '<')) {
                    $req_order_payment = '
                SELECT pop.* 
                FROM '._DB_PREFIX_.'payplug_order_payment pop  
                WHERE pop.id_order = '.(int)$id_order;
                    $payments = Db::getInstance()->executeS($req_order_payment);
                } else {
                    $order = new Order((int)$id_order);
                    $payments = $order->getOrderPaymentCollection();
                }
                if (!$payments) {
                    $this->addLog($debug, $log, 'No transaction can be found using id_order '.(int)$id_order, 'error');
                    $cart_unlock = PayplugLock::deleteLockG2($cart->id);
                    if (!$cart_unlock) {
                        $this->addLog($debug, $log, 'Lock cannot be deleted.', 'error');
                    } else {
                        $this->addLog($debug, $log, 'Lock deleted.', 'debug');
                    }
                    Payplug::redirectForVersion($redirect_url_error);
                } elseif (count($payments) > 1) {
                    $this->addLog(
                        $debug,
                        $log,
                        'There is more than one transaction using id_order '.(int)$id_order,
                        'error'
                    );
                } else {
                    $this->addLog($debug, $log, 'Everything looks good.', 'info');
                }
            }

            $cart_unlock = PayplugLock::deleteLockG2($cart->id);
            if (!$cart_unlock) {
                $this->addLog($debug, $log, 'Lock cannot be deleted.', 'error');
            } else {
                $this->addLog($debug, $log, 'Lock deleted.', 'debug');
            }

            $link_redirect = __PS_BASE_URI__.$order_confirmation_url.'id_cart='.$cart->id.'&id_module='.$payplug->id
                .'&id_order='.$id_order.'&key='.$customer->secure_key;
            $this->addLog($debug, $log, 'Redirecting to :'.$link_redirect, 'info');
            Payplug::redirectForVersion($link_redirect);
        }
    }
}