<?php
/**
 * 2007-2018 PrestaShop
 *
 * 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    DPD France S.A.S. <support.ecommerce@dpd.fr>
 * @copyright 2018 DPD France S.A.S.
 * @license   http://opensource.org/licenses/afl-3.0.php  Academic Free License (AFL 3.0)
 */

if (!defined('_PS_VERSION_')) {
    exit;
}

class DPDFrance extends CarrierModule
{
    private $config_carrier_relais = array(
        'name'                  => 'Livraison en relais Pickup',
        'id_tax_rules_group'    => 0,
        'url'                   => 'http://www.dpd.fr/tracex_@',
        'active'                => true,
        'deleted'               => 0,
        'shipping_handling'     => false,
        'range_behavior'        => 1,
        'is_module'             => true,
        'delay'                 => array(   'fr'=>'Livraison 24-48h en France vers plus de 5000 relais Pickup.',
                                            'en'=>'24-48h delivery in one of our 5000 pick-up points.',
                                            'es'=>'Entrega en 24 a 48 horas en una de nuestras 5000 tiendas.',
                                            'it'=>'Consegna in 24 a 48 ore in uno dei nostri 5.000 negozi.',
                                            'de'=>'24-48 Stunden Lieferung in einem unserer 5.000 Geschäften.'),
        'id_zone'               => 1,
        'shipping_external'     => true,
        'external_module_name'  => 'dpdfrance',
        'need_range'            => true,
        'grade'                 => 9,
        );

    private $config_carrier_predict = array(
        'name'                  => 'Livraison à domicile Predict sur rendez-vous',
        'id_tax_rules_group'    => 0,
        'url'                   => 'http://www.dpd.fr/tracex_@',
        'active'                => true,
        'deleted'               => 0,
        'shipping_handling'     => false,
        'range_behavior'        => 1,
        'is_module'             => true,
        'delay'                 => array(   'fr'=>'Livraison 24-48h à domicile dans le créneau horaire qui vous convient le mieux (parmi des choix proposés par DPD).',
                                            'en'=>'24-48h delivery in a specific time window.',
                                            'es'=>'Entrega en 24 a 48 horas en una ventana horaria especifica.',
                                            'it'=>'Consegna in 24 a 48 ore in un intervallo di tempo specifico.',
                                            'de'=>'24-48 Stunden Lieferung in einem bestimmten Zeitfenster.'),
        'id_zone'               => 1,
        'shipping_external'     => true,
        'external_module_name'  => 'dpdfrance',
        'need_range'            => true,
        'grade'                 => 9,
        );

    private $config_carrier_classic = array(
        'name'                  => 'Livraison sur lieu de travail',
        'id_tax_rules_group'    => 0,
        'url'                   => 'http://www.dpd.fr/tracex_@',
        'active'                => true,
        'deleted'               => 0,
        'shipping_handling'     => false,
        'range_behavior'        => 1,
        'is_module'             => true,
        'delay'                 => array(   'fr'=>'Livraison 24-48h du lundi au vendredi pour tous ceux qui font le choix de recevoir leur colis sur leur lieu de travail.',
                                            'en'=>'24-48h delivery at your workplace only.',
                                            'es'=>'Entrega en 24 a 48 horas en su lugar de trabajo.',
                                            'it'=>'Consegna in 24 a 48 ore sul posto di lavoro.',
                                            'de'=>'24-48 Stunden Lieferung an Ihrem Arbeitsplatz.'),
        'id_zone'               => 1,
        'shipping_external'     => true,
        'external_module_name'  => 'dpdfrance',
        'need_range'            => true,
        'grade'                 => 9,
        );

    public $config_carrier_world = array(
        'name'                  => 'Livraison internationale par DPD',
        'id_tax_rules_group'    => 0,
        'url'                   => 'http://www.dpd.fr/tracex_@',
        'active'                => true,
        'deleted'               => 0,
        'shipping_handling'     => false,
        'range_behavior'        => 1,
        'is_module'             => true,
        'delay'                 => array(   'fr'=>'Livraison 48-96h partout en Europe et dans le monde entier avec la fiabilité du réseau DPD.',
                                            'en'=>'Delivery all over the world with the reliability of DPD network.',
                                            'es'=>'Entrega mundial con la confiabilidad de la red DPD.',
                                            'it'=>'Consegna in tutto il mondo con l affidabilità della rete di DPD.',
                                            'de'=>'Lieferung in der ganzen Welt mit der Zuverlässigkeit der DPD Netzwerk.'),
        'id_zone'               => 1,
        'shipping_external'     => true,
        'external_module_name'  => 'dpdfrance',
        'need_range'            => true,
        'grade'                 => 9,
        );

    /* Get Postal Code from an address ID */
    public static function getPostcodeByAddress($id_address)
    {
        $row=Db::getInstance()->getRow('
            SELECT `postcode`
            FROM '._DB_PREFIX_.'address a
            WHERE a.`id_address` = '.(int) $id_address);
        if (!empty($row['postcode'])) {
            return $row['postcode'];
        } else {
            return false;
        }
    }

    /* Island and Mountain zones overcost calculation functions */
    public function getOrderShippingCost($params, $shipping_cost)
    {
        if (!$this->context->cart instanceof Cart) {
            $this->context->cart = new Cart((int) $params->id);
        }
        $address = new Address((int) $this->context->cart->id_address_delivery);
        $iso_code = Country::getIsoById((int) $address->id_country);
        if ($iso_code != 'FR') {
            return $shipping_cost;
        }
        $zone_iles=array('17111', '17123', '17190', '17310', '17370', '17410', '17480', '17550', '17580', '17590', '17630', '17650', '17670', '17740', '17840', '17880', '17940', '22870', '29242', '29253', '29259', '29980', '29990', '56360', '56590', '56780', '56840', '85350');
        $zone_montagne=array('04120', '04130', '04140', '04160', '04170', '04200', '04240', '04260', '04300', '04310', '04330', '04360', '04370', '04400', '04510', '04530', '04600', '04700', '04850', '05100', '05110', '05120', '05130', '05150', '05160', '05170', '05200', '05220', '05240', '05250', '05260', '05290', '05300', '05310', '05320', '05330', '05340', '05350', '05400', '05460', '05470', '05500', '05560', '05600', '05700', '05800', '06140', '06380', '06390', '06410', '06420', '06430', '06450', '06470', '06530', '06540', '06620', '06710', '06750', '06910', '09110', '09140', '09300', '09460', '25120', '25140', '25240', '25370', '25450', '25500', '25650', '30570', '31110', '38112', '38114', '38142', '38190', '38250', '38350', '38380', '38410', '38580', '38660', '38700', '38750', '38860', '38880', '39220', '39310', '39400', '63113', '63210', '63240', '63610', '63660', '63690', '63840', '63850', '64440', '64490', '64560', '64570', '65110', '65120', '65170', '65200', '65240', '65400', '65510', '65710', '66210', '66760', '66800', '68140', '68610', '68650', '73110', '73120', '73130', '73140', '73150', '73160', '73170', '73190', '73210', '73220', '73230', '73250', '73260', '73270', '73300', '73320', '73340', '73350', '73390', '73400', '73440', '73450', '73460', '73470', '73500', '73530', '73550', '73590', '73600', '73620', '73630', '73640', '73710', '73720', '73870', '74110', '74120', '74170', '74220', '74230', '74260', '74310', '74340', '74350', '74360', '74390', '74400', '74420', '74430', '74440', '74450', '74470', '74480', '74660', '74740', '74920', '83111', '83440', '83530', '83560', '83630', '83690', '83830', '83840', '84390', '88310', '88340', '88370', '88400', '90200');
        $id_address=$this->context->cart->id_address_delivery;
        $postcode=self::getPostcodeByAddress($id_address);
        if (Tools::substr($postcode, 0, 2)=='20') {
            $shipping_cost+=(float) Configuration::get('DPDFRANCE_SUPP_ILES');
            if ((float) Configuration::get('DPDFRANCE_SUPP_ILES')<0) {
                return false;
            }
        }
        if (in_array($postcode, $zone_iles)) {
            $shipping_cost+=(float) Configuration::get('DPDFRANCE_SUPP_ILES');
            if ((float) Configuration::get('DPDFRANCE_SUPP_ILES')<0) {
                return false;
            }
        }
        if (in_array($postcode, $zone_montagne)) {
            $shipping_cost+=(float) Configuration::get('DPDFRANCE_SUPP_MONTAGNE');
            if ((float) Configuration::get('DPDFRANCE_SUPP_MONTAGNE')<0) {
                return false;
            }
        }
        return $shipping_cost;
    }

    public function getOrderShippingCostExternal($params)
    {
        return $params;
    }

    public function __construct()
    {
        $this->name = 'dpdfrance';
        $this->tab='shipping_logistics';
        $this->version = '5.3.1';
        $this->author = 'DPD France S.A.S.';
        $this->module_key = '41c64060327b5afada101ff25bd38850';
        $this->need_instance = 1;
        $this->ps_versions_compliancy = array('min' => '1.7', 'max' => _PS_VERSION_);
        $this->multishop_context = Shop::CONTEXT_ALL | Shop::CONTEXT_GROUP | Shop::CONTEXT_SHOP;
        $this->multishop_context_group = Shop::CONTEXT_GROUP;

        parent::__construct();

        $this->displayName = $this->l('DPD France');
        $this->description = $this->l('Offer DPD\'s fast and reliable delivery services to your customers');
        $this->confirmUninstall = $this->l('Warning: all the data saved in your database will be deleted. Are you sure you want uninstall this module?');

        if (Configuration::get('DPDFRANCE_PARAM') == 0) {
            $this->warning = $this->l('Please proceed to the configuration of the DPD plugin');
        }
        if (!extension_loaded('soap')) {
            $this->warning = $this->l('Warning! The PHP extension SOAP is not installed on this server. You must activate it in order to use the DPD plugin');
        }
    }

    public function install()
    {
        // Prevent installation wrong PS version
        if (_PS_VERSION_ < '1.7') {
            $this->_errors[] = $this->l('This version of the DPD France module is only compatible with Prestashop 1.7+. Please download the module corresponding to your Prestashop version.');
            return false;
        }
        if (!parent::install()
        || !$this->installModuleTab('AdminDPDFrance', 'DPD France', Tab::getIdFromClassName('AdminParentOrders'))
        || !$this->registerHooks()
        || !Configuration::updateValue('DPDFRANCE_PARAM', 0)
        || !Configuration::updateValue('DPDFRANCE_NOM_EXP', '')
        || !Configuration::updateValue('DPDFRANCE_ADDRESS_EXP', '')
        || !Configuration::updateValue('DPDFRANCE_ADDRESS2_EXP', '')
        || !Configuration::updateValue('DPDFRANCE_CP_EXP', '')
        || !Configuration::updateValue('DPDFRANCE_VILLE_EXP', '')
        || !Configuration::updateValue('DPDFRANCE_TEL_EXP', '')
        || !Configuration::updateValue('DPDFRANCE_GSM_EXP', '')
        || !Configuration::updateValue('DPDFRANCE_EMAIL_EXP', '')
        || !Configuration::updateValue('DPDFRANCE_RELAIS_CARRIER_ID', '')
        || !Configuration::updateValue('DPDFRANCE_RELAIS_DEPOT_CODE', '')
        || !Configuration::updateValue('DPDFRANCE_RELAIS_SHIPPER_CODE', '')
        || !Configuration::updateValue('DPDFRANCE_PREDICT_CARRIER_ID', '')
        || !Configuration::updateValue('DPDFRANCE_PREDICT_DEPOT_CODE', '')
        || !Configuration::updateValue('DPDFRANCE_PREDICT_SHIPPER_CODE', '')
        || !Configuration::updateValue('DPDFRANCE_CLASSIC_CARRIER_ID', '')
        || !Configuration::updateValue('DPDFRANCE_CLASSIC_DEPOT_CODE', '')
        || !Configuration::updateValue('DPDFRANCE_CLASSIC_SHIPPER_CODE', '')
        || !Configuration::updateValue('DPDFRANCE_SUPP_ILES', '')
        || !Configuration::updateValue('DPDFRANCE_SUPP_MONTAGNE', '')
        || !Configuration::updateValue('DPDFRANCE_GOOGLE_API_KEY', '')
        || !Configuration::updateValue('DPDFRANCE_ETAPE_EXPEDITION', '3')
        || !Configuration::updateValue('DPDFRANCE_ETAPE_EXPEDIEE', '4')
        || !Configuration::updateValue('DPDFRANCE_ETAPE_LIVRE', '5')
        || !Configuration::updateValue('DPDFRANCE_AD_VALOREM', '')
        || !Configuration::updateValue('DPDFRANCE_AUTO_UPDATE', '')
        || !Configuration::updateValue('DPDFRANCE_MARKETPLACE_MODE', '')
        || !Configuration::updateValue('DPDFRANCE_RETOUR_OPTION', '0')
        || !Configuration::updateValue('DPDFRANCE_LAST_TRACKING', '')) {
            return false;
        }
        return $this->installConfigDB();
    }

    private function registerHooks()
    {
        if (!$this->registerHook('actionFrontControllerSetMedia')||
            !$this->registerHook('displayHeader')||
            !$this->registerHook('displayBackOfficeHeader')||
            !$this->registerHook('displayAfterCarrier')||
            !$this->registerHook('actionCarrierUpdate')||
            !$this->registerHook('actionValidateOrder')) {
            return false;
        }
        return true;
    }

    public static function uninstallByName($name)
    {
        if (!is_array($name)) {
            $name = array($name);
        }
        $res = true;

        foreach ($name as $n) {
            if (Validate::isModuleName($n)) {
                $res &= Module::getInstanceByName($n)->uninstall();
            }
        }
        return $res;
    }

    public function installConfigDB()
    {
        // Database alteration : stretching the shipping_number field from 32 to 64 chars.
        $sql = 'ALTER TABLE `'._DB_PREFIX_.'orders` CHANGE `shipping_number` `shipping_number` VARCHAR(64) CHARACTER SET utf8 COLLATE utf8_general_ci NULL DEFAULT NULL';
        Db::getInstance()->Execute($sql);

        $query = Db::getInstance()->Execute('CREATE TABLE IF NOT EXISTS `'._DB_PREFIX_.'dpdfrance_shipping` (
        `id_customer` int(10) unsigned NOT NULL,
        `id_cart` int(10) unsigned NOT NULL,
        `id_carrier` int(5) unsigned DEFAULT NULL,
        `service` varchar(3) DEFAULT NULL,
        `relay_id` varchar(8) DEFAULT NULL,
        `company` varchar(32) DEFAULT NULL,
        `address1` varchar(128) DEFAULT NULL,
        `address2` varchar(128) DEFAULT NULL,
        `postcode` varchar(10) DEFAULT NULL,
        `city` varchar(100) DEFAULT NULL,
        `id_country` int(11) DEFAULT NULL,
        `gsm_dest` varchar(14) DEFAULT NULL,
        PRIMARY KEY(id_cart))
        ENGINE='._MYSQL_ENGINE_.' DEFAULT CHARSET=utf8;');

        if (!$query) {
            return false;
        }

        // Get "France" zone ID and set it as $id_zone_france
        $sql = 'SELECT id_zone FROM '._DB_PREFIX_.'zone WHERE name LIKE \'%France%\'';
        $res = Db::getInstance()->ExecuteS($sql);
        if (!empty($res)) {
            foreach ($res as $zone) {
                $id_zone_france = $zone['id_zone'];
            }
        } else {
            $id_zone_france = '';
        }

        // If France zone ID is empty : Create a France zone, fetch its ID, and assign the France country to this zone
        if (!$id_zone_france) {
            Db::getInstance()->execute('INSERT INTO '._DB_PREFIX_.'zone (name, active) VALUES (\'France\',1)');
            $sql = 'SELECT id_zone FROM '._DB_PREFIX_.'zone WHERE name = \'France\'';
            $res = Db::getInstance()->ExecuteS($sql);
            if (!empty($res)) {
                foreach ($res as $zone) {
                    $id_zone_france = $zone['id_zone'];
                    Db::getInstance()->execute('UPDATE '._DB_PREFIX_.'country SET id_zone='.(int) $id_zone_france.' WHERE iso_code = \'FR\' and active = 1');
                }
            }
        }
        $sql = 'UPDATE '._DB_PREFIX_.'country SET id_zone='.(int) $id_zone_france.' WHERE iso_code = \'FR\' and active = 1';
        if (!Db::getInstance()->Execute($sql)) {
            return false;
        }
        return true;
    }

    public function uninstall()
    {
        if (!parent::uninstall()
        || !$this->uninstallModuleTab('AdminDPDFrance')
        || !Configuration::deleteByName('DPDFRANCE_NOM_EXP')
        || !Configuration::deleteByName('DPDFRANCE_ADDRESS_EXP')
        || !Configuration::deleteByName('DPDFRANCE_ADDRESS2_EXP')
        || !Configuration::deleteByName('DPDFRANCE_CP_EXP')
        || !Configuration::deleteByName('DPDFRANCE_VILLE_EXP')
        || !Configuration::deleteByName('DPDFRANCE_TEL_EXP')
        || !Configuration::deleteByName('DPDFRANCE_EMAIL_EXP')
        || !Configuration::deleteByName('DPDFRANCE_GSM_EXP')
        || !Configuration::deleteByName('DPDFRANCE_RELAIS_CARRIER_ID', '')
        || !Configuration::deleteByName('DPDFRANCE_RELAIS_DEPOT_CODE', '')
        || !Configuration::deleteByName('DPDFRANCE_RELAIS_SHIPPER_CODE', '')
        || !Configuration::deleteByName('DPDFRANCE_PREDICT_CARRIER_ID', '')
        || !Configuration::deleteByName('DPDFRANCE_PREDICT_DEPOT_CODE', '')
        || !Configuration::deleteByName('DPDFRANCE_PREDICT_SHIPPER_CODE', '')
        || !Configuration::deleteByName('DPDFRANCE_CLASSIC_CARRIER_ID', '')
        || !Configuration::deleteByName('DPDFRANCE_CLASSIC_DEPOT_CODE', '')
        || !Configuration::deleteByName('DPDFRANCE_CLASSIC_SHIPPER_CODE', '')
        || !Configuration::deleteByName('DPDFRANCE_RELAIS_MYPUDO_URL')
        || !Configuration::deleteByName('DPDFRANCE_SUPP_ILES')
        || !Configuration::deleteByName('DPDFRANCE_SUPP_MONTAGNE')
        || !Configuration::deleteByName('DPDFRANCE_GOOGLE_API_KEY')
        || !Configuration::deleteByName('DPDFRANCE_ETAPE_EXPEDITION')
        || !Configuration::deleteByName('DPDFRANCE_ETAPE_EXPEDIEE')
        || !Configuration::deleteByName('DPDFRANCE_ETAPE_LIVRE')
        || !Configuration::deleteByName('DPDFRANCE_AUTO_UPDATE')
        || !Configuration::deleteByName('DPDFRANCE_MARKETPLACE_MODE')
        || !Configuration::deleteByName('DPDFRANCE_AD_VALOREM')
        || !Configuration::deleteByName('DPDFRANCE_RETOUR_OPTION')
        || !Configuration::deleteByName('DPDFRANCE_DATA_SENT')
        || !Configuration::deleteByName('DPDFRANCE_LAST_TRACKING')
        || !Configuration::deleteByName('DPDFRANCE_PARAM')) {
            return false;
        }
        return true;
    }

    /* Called in administration -> module -> configure */
    public function getContent()
    {
        $output = '<h2>'.$this->displayName.'</h2>';

        // DPD Relais carrier creation
        if (Tools::isSubmit('submitCreateCarrierRelais')) {
            $this->createCarrier($this->config_carrier_relais, 'relais');
            $output .= '<div class="okmsg">'.$this->l('DPD Relais carrier created').'</div>';
            $output .= '<script language="javascript">$(document).ready(function(){$("#onglet2").click();dpdfrance_attr_carrier($("[name=dpdfrance_relais_carrier_id]"));});</script>';
        }
        // DPD Predict carrier creation
        if (Tools::isSubmit('submitCreateCarrierPredict')) {
            $this->createCarrier($this->config_carrier_predict, 'predict');
            $output .= '<div class="okmsg">'.$this->l('Predict carrier created').'</div>';
            $output .= '<script language="javascript">$(document).ready(function(){$("#onglet2").click();dpdfrance_attr_carrier($("[name=dpdfrance_predict_carrier_id]"));});</script>';
        }
        // DPD Classic carrier creation
        if (Tools::isSubmit('submitCreateCarrierClassic')) {
            $this->createCarrier($this->config_carrier_classic, 'classic');
            $output .= '<div class="okmsg">'.$this->l('Classic carrier created').'</div>';
            $output .= '<script language="javascript">$(document).ready(function(){$("#onglet2").click();dpdfrance_attr_carrier($("[name=dpdfrance_classic_carrier_id]"));});</script>';
        }
        // DPD Intercontinental carrier creation
        if (Tools::isSubmit('submitCreateCarrierWorld')) {
            $this->createCarrier($this->config_carrier_world, 'world');
            $output .= '<div class="okmsg">'.$this->l('Intercontinental carrier created').'</div>';
            $output .= '<script language="javascript">$(document).ready(function(){$("#onglet2").click();});</script>';
        }

        if (Tools::isSubmit('submitRcReferer')) {
            Configuration::updateValue('DPDFRANCE_NOM_EXP', Tools::getValue('nom_exp'));
            Configuration::updateValue('DPDFRANCE_ADDRESS_EXP', Tools::getValue('address_exp'));
            Configuration::updateValue('DPDFRANCE_ADDRESS2_EXP', Tools::getValue('address2_exp'));
            Configuration::updateValue('DPDFRANCE_CP_EXP', Tools::getValue('cp_exp'));
            Configuration::updateValue('DPDFRANCE_VILLE_EXP', Tools::getValue('ville_exp'));
            Configuration::updateValue('DPDFRANCE_TEL_EXP', Tools::getValue('tel_exp'));
            Configuration::updateValue('DPDFRANCE_EMAIL_EXP', Tools::getValue('email_exp'));
            Configuration::updateValue('DPDFRANCE_GSM_EXP', Tools::getValue('gsm_exp'));

            // Log ID DPD Relais
            if (!in_array((int) Tools::getValue('dpdfrance_relais_carrier_id'), explode('|', Configuration::get('DPDFRANCE_RELAIS_CARRIER_LOG')))) {
                Configuration::updateValue('DPDFRANCE_RELAIS_CARRIER_LOG', Configuration::get('DPDFRANCE_RELAIS_CARRIER_LOG').'|'.(int) Tools::getValue('dpdfrance_relais_carrier_id'));
            }
            // DPD Relais carrier reassignment
            if ((int) Tools::getValue('dpdfrance_relais_carrier_id') != (int) Configuration::get('DPDFRANCE_RELAIS_CARRIER_ID')) {
                Configuration::updateValue('DPDFRANCE_RELAIS_CARRIER_ID', (int) Tools::getValue('dpdfrance_relais_carrier_id'));
                $this->reaffectationCarrier((int) Configuration::get('DPDFRANCE_RELAIS_CARRIER_ID'));
            }
            Configuration::updateValue('DPDFRANCE_RELAIS_DEPOT_CODE', Tools::getValue('relais_depot_code'));
            Configuration::updateValue('DPDFRANCE_RELAIS_SHIPPER_CODE', ltrim(Tools::getValue('relais_shipper_code'), '0'));

            // Log ID DPD Predict
            if (!in_array((int) Tools::getValue('dpdfrance_predict_carrier_id'), explode('|', Configuration::get('DPDFRANCE_PREDICT_CARRIER_LOG')))) {
                Configuration::updateValue('DPDFRANCE_PREDICT_CARRIER_LOG', Configuration::get('DPDFRANCE_PREDICT_CARRIER_LOG').'|'.(int) Tools::getValue('dpdfrance_predict_carrier_id'));
            }
            // DPD Predict carrier reassignment
            if ((int) Tools::getValue('dpdfrance_predict_carrier_id') != (int) Configuration::get('DPDFRANCE_PREDICT_CARRIER_ID')) {
                Configuration::updateValue('DPDFRANCE_PREDICT_CARRIER_ID', (int) Tools::getValue('dpdfrance_predict_carrier_id'));
                $this->reaffectationCarrier((int) Configuration::get('DPDFRANCE_PREDICT_CARRIER_ID'));
            }
            Configuration::updateValue('DPDFRANCE_PREDICT_DEPOT_CODE', Tools::getValue('predict_depot_code'));
            Configuration::updateValue('DPDFRANCE_PREDICT_SHIPPER_CODE', ltrim(Tools::getValue('predict_shipper_code'), '0'));

            // Log ID DPD Classic
            if (!in_array((int) Tools::getValue('dpdfrance_classic_carrier_id'), explode('|', Configuration::get('DPDFRANCE_CLASSIC_CARRIER_LOG')))) {
                Configuration::updateValue('DPDFRANCE_CLASSIC_CARRIER_LOG', Configuration::get('DPDFRANCE_CLASSIC_CARRIER_LOG').'|'.(int) Tools::getValue('dpdfrance_classic_carrier_id'));
            }

            // DPD Classic carrier reassignment
            if ((int) Tools::getValue('dpdfrance_classic_carrier_id') != (int) Configuration::get('DPDFRANCE_CLASSIC_CARRIER_ID')) {
                Configuration::updateValue('DPDFRANCE_CLASSIC_CARRIER_ID', (int) Tools::getValue('dpdfrance_classic_carrier_id'));
                $this->reaffectationCarrier((int) Configuration::get('DPDFRANCE_CLASSIC_CARRIER_ID'));
            }
            Configuration::updateValue('DPDFRANCE_CLASSIC_DEPOT_CODE', Tools::getValue('classic_depot_code'));
            Configuration::updateValue('DPDFRANCE_CLASSIC_SHIPPER_CODE', ltrim(Tools::getValue('classic_shipper_code'), '0'));

            Configuration::updateValue('DPDFRANCE_RELAIS_MYPUDO_URL', preg_replace('/\s+/', '', Tools::getValue('mypudo_url')));
            Configuration::updateValue('DPDFRANCE_SUPP_ILES', (float) Tools::getValue('supp_iles'));
            Configuration::updateValue('DPDFRANCE_SUPP_MONTAGNE', (float) Tools::getValue('supp_montagne'));
            Configuration::updateValue('DPDFRANCE_GOOGLE_API_KEY', preg_replace('/\s+/', '', Tools::getValue('google_api_key')));

            Configuration::updateValue('DPDFRANCE_ETAPE_EXPEDITION', (int) Tools::getValue('id_expedition'));
            Configuration::updateValue('DPDFRANCE_ETAPE_EXPEDIEE', (int) Tools::getValue('id_expedie'));
            Configuration::updateValue('DPDFRANCE_ETAPE_LIVRE', (int) Tools::getValue('id_livre'));
            Configuration::updateValue('DPDFRANCE_MARKETPLACE_MODE', (int) Tools::getValue('marketplace_mode'));

            if ((int) Tools::getValue('auto_update') != (int) Configuration::get('DPDFRANCE_AUTO_UPDATE')) {
                Configuration::updateValue('DPDFRANCE_AUTO_UPDATE', (int) Tools::getValue('auto_update'));
                $this->setTrackingURLs((int) Configuration::get('DPDFRANCE_AUTO_UPDATE'));
            }

            Configuration::updateValue('DPDFRANCE_AD_VALOREM', (int) Tools::getValue('ad_valorem'));
            Configuration::updateValue('DPDFRANCE_RETOUR_OPTION', (int) Tools::getValue('retour'));

            Configuration::updateValue('DPDFRANCE_PARAM', 1);

            $output .= '<div class="okmsg">'.$this->l('Settings updated').'</div>';
        }
        return $output.$this->displayForm();
    }

    public function displayForm()
    {
        if (!extension_loaded('soap')) {
            echo '<div class="warnmsg">'.$this->l('Warning! The PHP extension SOAP is not installed on this server. You must activate it in order to use the DPD plugin').'</div>';
        } else {
            $this->context->smarty->assign(array(
                'nom_exp'                      => Tools::getValue('nom_exp', Configuration::get('DPDFRANCE_NOM_EXP')),
                'address_exp'                  => Tools::getValue('address_exp', Configuration::get('DPDFRANCE_ADDRESS_EXP')),
                'address2_exp'                 => Tools::getValue('address2_exp', Configuration::get('DPDFRANCE_ADDRESS2_EXP')),
                'cp_exp'                       => Tools::getValue('cp_exp', Configuration::get('DPDFRANCE_CP_EXP')),
                'ville_exp'                    => Tools::getValue('ville_exp', Configuration::get('DPDFRANCE_VILLE_EXP')),
                'tel_exp'                      => Tools::getValue('tel_exp', Configuration::get('DPDFRANCE_TEL_EXP')),
                'email_exp'                    => Tools::getValue('email_exp', Configuration::get('DPDFRANCE_EMAIL_EXP')),
                'gsm_exp'                      => Tools::getValue('gsm_exp', Configuration::get('DPDFRANCE_GSM_EXP')),
                'relais_depot_code'            => Tools::getValue('relais_depot_code', Configuration::get('DPDFRANCE_RELAIS_DEPOT_CODE')),
                'predict_depot_code'           => Tools::getValue('predict_depot_code', Configuration::get('DPDFRANCE_PREDICT_DEPOT_CODE')),
                'classic_depot_code'           => Tools::getValue('classic_depot_code', Configuration::get('DPDFRANCE_CLASSIC_DEPOT_CODE')),
                'relais_shipper_code'          => Tools::getValue('relais_shipper_code', Configuration::get('DPDFRANCE_RELAIS_SHIPPER_CODE')),
                'predict_shipper_code'         => Tools::getValue('predict_shipper_code', Configuration::get('DPDFRANCE_PREDICT_SHIPPER_CODE')),
                'classic_shipper_code'         => Tools::getValue('classic_shipper_code', Configuration::get('DPDFRANCE_CLASSIC_SHIPPER_CODE')),
                'carriers'                     => Carrier::getCarriers($this->context->language->id, false, false, false, null, (defined('ALL_CARRIERS') ? ALL_CARRIERS : null)),
                'dpdfrance_relais_carrier_id'  => Tools::getValue('dpdfrance_relais_carrier_id', Configuration::get('DPDFRANCE_RELAIS_CARRIER_ID')),
                'dpdfrance_predict_carrier_id' => Tools::getValue('dpdfrance_predict_carrier_id', Configuration::get('DPDFRANCE_PREDICT_CARRIER_ID')),
                'dpdfrance_classic_carrier_id' => Tools::getValue('dpdfrance_classic_carrier_id', Configuration::get('DPDFRANCE_CLASSIC_CARRIER_ID')),
                'mypudo_url'                   => Tools::getValue('mypudo_url', Configuration::get('DPDFRANCE_RELAIS_MYPUDO_URL')),
                'supp_iles'                    => Tools::getValue('supp_iles', Configuration::get('DPDFRANCE_SUPP_ILES')),
                'supp_montagne'                => Tools::getValue('supp_montagne', Configuration::get('DPDFRANCE_SUPP_MONTAGNE')),
                'google_api_key'               => Tools::getValue('google_api_key', Configuration::get('DPDFRANCE_GOOGLE_API_KEY')),
                'etats_factures'               => OrderState::getOrderStates((int) $this->context->language->id),
                'dpdfrance_etape_expedition'   => (int) Configuration::get('DPDFRANCE_ETAPE_EXPEDITION'),
                'dpdfrance_etape_expediee'     => (int) Configuration::get('DPDFRANCE_ETAPE_EXPEDIEE'),
                'dpdfrance_etape_livre'        => (int) Configuration::get('DPDFRANCE_ETAPE_LIVRE'),
                'auto_update'                  => (int) Configuration::get('DPDFRANCE_AUTO_UPDATE'),
                'marketplace_mode'             => (int) Configuration::get('DPDFRANCE_MARKETPLACE_MODE'),
                'dpdfrance_ad_valorem'         => (int) Configuration::get('DPDFRANCE_AD_VALOREM'),
                'dpdfrance_retour_option'      => (int) Configuration::get('DPDFRANCE_RETOUR_OPTION'),
                'optupdate'                    => array($this->l('Disabled'), $this->l('Enabled - Tracking links by reference'), $this->l('Enabled - Tracking links by parcel no.')),
                'optmarketplace'               => array($this->l('Disabled'), $this->l('Enabled')),
                'optvd'                        => array($this->l('Integrated parcel insurance service (23 € / kg)'), $this->l('Ad Valorem insurance service')),
                'optretour'                    => array('0' => $this->l('No returns'), '4' => $this->l('Prepared'), '3' => $this->l('On Demand')),
                'ps_version'                   => (float) _PS_VERSION_,
                'form_submit_url'              => $_SERVER['REQUEST_URI'],
            ));
            return $this->display(__FILE__, 'views/templates/admin/config.tpl');
        }
    }


    /* Manage to update tracking status of orders */
    public function hookDisplayBackOfficeHeader($params)
    {
        if ((int) Configuration::get('DPDFRANCE_AUTO_UPDATE')) {
            $cron_url = _MODULE_DIR_.'dpdfrance/cron.php?token='.Tools::encrypt('dpdfrance/cron').'&employee='.(int) $this->context->employee->id;
            return '<script type="text/javascript">$(document).ready(function() {$.get("'.$cron_url.'");});</script>';
        }
    }

    /* Calls CSS and JS files on header of front-office order pages */
    public function hookDisplayHeader()
    {
        if (!($file = basename(Tools::getValue('controller')))) {
            $file = str_replace('.php', '', basename($_SERVER['SCRIPT_NAME']));
        }
        if ($file == 'order') {
            $this->context->controller->registerStylesheet(
                'module-dpdfrance-css',
                '/modules/'.$this->name.'/views/css/front/dpdfrance.css',
                array('media' => 'all')
            );
            $this->context->controller->registerJavascript(
                'module-dpdfrance-jquery',
                '/js/jquery/jquery-1.11.0.min.js',
                array('position' => 'head', 'priority' => 1)
            );
            $this->context->controller->registerJavascript(
                'module-dpdfrance-js',
                '/modules/'.$this->name.'/views/js/front/dpdfrance_531.js',
                array('position' => 'bottom', 'priority' => 100)
            );
            $this->context->controller->registerJavascript(
                'module-dpdfrance-gmaps',
                'https://maps.googleapis.com/maps/api/js?key='.Configuration::get('DPDFRANCE_GOOGLE_API_KEY'),
                array('priority' => 100, 'server' => 'remote')
            );
            $this->context->smarty->assign(array(
                'ps_version'                        => (float) _PS_VERSION_,
                'dpdfrance_base_dir'                => __PS_BASE_URI__.'modules/'.$this->name,
                'dpdfrance_relais_carrier_id'       => (int) Configuration::get('DPDFRANCE_RELAIS_CARRIER_ID'),
                'dpdfrance_predict_carrier_id'      => (int) Configuration::get('DPDFRANCE_PREDICT_CARRIER_ID'),
                'dpdfrance_cart'                    => $this->context->cart,
                'dpdfrance_token'                   => Tools::encrypt('dpdfrance/ajax'),
            ));
            return $this->display(__FILE__, 'views/templates/front/header.tpl');
        }
    }

    /* Calls TPL files and executes corresponding actions upon carrier selection */
    public function hookDisplayAfterCarrier($params)
    {
        if ($params['cart']->id_address_delivery) {
            $address=new Address((int) $params['cart']->id_address_delivery);
            $address_details = array(
                'address1'          => $address->address1,
                'postcode'          => $address->postcode,
                'city'              => $address->city,
                'id_country'        => (int) $address->id_country,
                'id_address'        => (int) $address->id,
            );
            $delivery_infos = self::getDeliveryInfos((int) $this->context->cart->id);

            if ($this->context->country->iso_code == 'FR') {
                $cookiedata=Tools::jsonDecode(Context::getContext()->cookie->dpdfrance_relais_cookie, true);

                /* Search Pickup points near a manually entered address only if same id_address_delivery */
                if (!empty($cookiedata['search']['postcode']) && ($cookiedata['search']['id_address'] == $this->context->cart->id_address_delivery)) {
                    $search=(array)$cookiedata['search'];
                    $dpdfrance_relais_points = $this->getPoints($search);
                } else {
                    $dpdfrance_relais_points = $this->getPoints($address_details);
                }
            } else {
                $dpdfrance_relais_points['error'] = true;
            }
            $this->context->smarty->assign(array(
                'ps_version'                        => (float) _PS_VERSION_,
                'dpdfrance_base_dir'                => __PS_BASE_URI__.'modules/'.$this->name,
                'ssl'                               => (int) Configuration::get('PS_SSL_ENABLED'),
                'ssl_everywhere'                    => (int) Configuration::get('PS_SSL_ENABLED_EVERYWHERE'),
                'dpdfrance_relais_points'           => (!isset($dpdfrance_relais_points['error']) ? $dpdfrance_relais_points : null),
                'error'                             => (isset($dpdfrance_relais_points['error']) ? $this->l($dpdfrance_relais_points['error']) : null),
                'dpdfrance_selectedrelay'           => (isset($delivery_infos['relay_id']) ? $delivery_infos['relay_id'] : null),
                'dpdfrance_relais_status'           => (Tools::getValue('dpdrelais') ? Tools::getValue('dpdrelais') : null),
                'dpdfrance_relais_carrier_id'       => (int) Configuration::get('DPDFRANCE_RELAIS_CARRIER_ID'),
                'dpdfrance_predict_gsm_dest'        => (!empty($delivery_infos['gsm_dest']) ? $delivery_infos['gsm_dest'] : $address->phone),
                'dpdfrance_predict_status'          => (Tools::getValue('dpdpredict') ? Tools::getValue('dpdpredict') : null),
                'dpdfrance_predict_carrier_id'      => (int) Configuration::get('DPDFRANCE_PREDICT_CARRIER_ID'),
                'dpdfrance_token'                   => Tools::encrypt('dpdfrance/ajax'),
                ));
            return $this->display(__FILE__, 'views/templates/front/aftercarrier.tpl');
        }
    }

    public function ajaxRegisterGsm()
    {
        $cart = $this->context->cart;
        $input_tel=Tools::getValue('gsm_dest');
        $gsm=str_replace(array(' ', '.', '-', ',', ';', '/', '\\', '(', ')'), '', $input_tel);

        if (Tools::substr($gsm, 0, 2) == '00') {
            $gsm=str_replace('00', '+', $gsm);
        }
        /* All right, delete previous entry of GSM for this cart and write the new one */
        Db::getInstance()->delete('dpdfrance_shipping', 'id_cart = "'.pSQL((int) $cart->id).'"');
        $sql='INSERT IGNORE INTO '._DB_PREFIX_."dpdfrance_shipping
                        (id_customer, id_cart, id_carrier, service, relay_id, company, address1, address2, postcode, city, id_country, gsm_dest)
                        VALUES (
                        '".(int) $cart->id_customer."',
                        '".(int) $cart->id."',
                        '".(int) $cart->id_carrier."',
                        'PRE',
                        '',
                        '',
                        '',
                        '',
                        '',
                        '',
                        '',
                        '".pSQL($gsm)."'
                        )";
        Db::getInstance()->Execute($sql);
    }

    public function ajaxRegisterPudo()
    {
        $cart = $this->context->cart;
        $relay_id = Tools::getValue('pudo_id');

        if (!empty(Context::getContext()->cookie->dpdfrance_relais_cookie) && !empty($relay_id)) {
            $cookiedata = Tools::jsonDecode(Context::getContext()->cookie->dpdfrance_relais_cookie, true);
            $detail_relais = $cookiedata[$relay_id];
            /* Delete previous entry in database */
            Db::getInstance()->delete('dpdfrance_shipping', 'id_cart = "'.pSQL((int) $cart->id).'"');
            $address1 = (isset($detail_relais['address1']) ? $detail_relais['address1'] : '');
            $address2 = (isset($detail_relais['address2']) ? $detail_relais['address2'] : '');
            $sql='INSERT IGNORE INTO '._DB_PREFIX_."dpdfrance_shipping
                    (id_customer, id_cart, id_carrier, service, relay_id, company, address1, address2, postcode, city, id_country, gsm_dest)
                    VALUES (
                    '".(int) $cart->id_customer."',
                    '".(int) $cart->id."',
                    '".(int) $cart->id_carrier."',
                    'REL',
                    '".pSQL($relay_id)."',
                    '".pSQL($detail_relais['shop_name'])."',
                    '".pSQL($address1)."',
                    '".pSQL($address2)."',
                    '".pSQL($detail_relais['postal_code'])."',
                    '".pSQL($detail_relais['city'])."',
                    '".pSQL($detail_relais['id_country'])."',
                    ''
                    )";
            Db::getInstance()->Execute($sql);
        }
    }

    public function ajaxUpdatePoints($params)
    {
        $cart = new Cart((int) $params['dpdfrance_cart_id']);
        $address = new Address((int) $cart->id_address_delivery);

        if (Tools::getValue('action')=='search') {
            $address_details = array(
                'address1'          => $params['address1'],
                'postcode'          => $params['postcode'],
                'city'              => $params['city'],
                'id_country'        => (int) $address->id_country,
                'dpdfrance_cart_id' => (int) $cart->id,
                'id_address'        => (int) $cart->id_address_delivery,
            );
        } else {
            $address_details = array(
                'address1'          => $address->address1,
                'postcode'          => $address->postcode,
                'city'              => $address->city,
                'id_country'        => (int) $address->id_country,
                'id_address'        => (int) $cart->id_address_delivery,
            );
        }
        $delivery_infos = self::getDeliveryInfos((int) $cart->id);
        $iso_code = $this->context->country->iso_code;

        if ($iso_code == 'FR') {
            $dpdfrance_relais_points = $this->getPoints($address_details);
            $this->context->smarty->assign(array(
                'dpdfrance_tpl_path'                => str_replace('\\', '/', _PS_MODULE_DIR_).'dpdfrance/views/templates/front/ps14',
                'error'                             => (isset($dpdfrance_relais_points['error']) ? $this->l($dpdfrance_relais_points['error']) : null),
                'dpdfrance_relais_empty'            => (empty($dpdfrance_relais_points) ? 1 : null),
                'dpdfrance_relais_carrier_id'       => (int) Configuration::get('DPDFRANCE_RELAIS_CARRIER_ID'),
                'dpdfrance_relais_status'           => (Tools::getValue('dpdrelais') ? Tools::getValue('dpdrelais') : null),
                'dpdfrance_relais_points'           => (!isset($dpdfrance_relais_points['error']) ? $dpdfrance_relais_points : null),
                'dpdfrance_selectedrelay'           => (isset($delivery_infos['relay_id']) ? $delivery_infos['relay_id'] : null),
                'ssl'                               => (int) Configuration::get('PS_SSL_ENABLED'),
                'ssl_everywhere'                    => (int) Configuration::get('PS_SSL_ENABLED_EVERYWHERE'),
                'dpdfrance_base_dir'                => __PS_BASE_URI__.'modules/'.$this->name,
                'dpdfrance_predict_gsm_dest'        => (isset($delivery_infos['gsm_dest'])?$delivery_infos['gsm_dest']:$address->phone_mobile),
                'dpdfrance_predict_status'          => (Tools::getValue('dpdpredict')?Tools::getValue('dpdpredict'):null),
                'dpdfrance_predict_carrier_id'      => (int) Configuration::get('DPDFRANCE_PREDICT_CARRIER_ID'),
                'dpdfrance_token'                   => Tools::encrypt('dpdfrance/ajax'),
            ));

            return $this->display(__FILE__, 'views/templates/front/aftercarrier.tpl');
        }
    }

    /* Get delivery information from a Cart ID */
    public static function getDeliveryInfos($id_cart)
    {
        return Db::getInstance()->getRow('SELECT id_customer, id_cart, service, relay_id, company, address1, address2, postcode, city, id_country, gsm_dest FROM '._DB_PREFIX_.'dpdfrance_shipping WHERE id_cart = '.(int) $id_cart);
    }

    /* If DPD France is selected, replaces customer shipping address by pudo's or Predict number*/
    public function hookActionValidateOrder($params)
    {
        switch ($params['order']->id_carrier) {
            case (Configuration::get('DPDFRANCE_RELAIS_CARRIER_ID')):
                $order = $params['order'];
                $cart = $params['cart'];

                // Retrieve default order address and fetch its ID
                $ps_address = new Address($cart->id_address_delivery);
                $id_address_delivery = (int) $ps_address->id;

                // Retrieve DPD Pickup point selection
                $address_relais = self::getDeliveryInfos($cart->id);

                // DPD Pickup address will become one of customer's
                if (is_array($address_relais) && !empty($address_relais['relay_id'])) {
                    $new_address = new Address();
                    $new_address->id_customer   = $ps_address->id_customer;
                    $new_address->lastname      = $ps_address->lastname;
                    $new_address->firstname     = $ps_address->firstname;
                    $new_address->company       = Tools::substr($address_relais['company'], 0, 23).' ('.$address_relais['relay_id'].')';
                    $new_address->address1      = Tools::substr($address_relais['address1'], 0, 128);
                    $new_address->address2      = Tools::substr($address_relais['address2'], 0, 128);
                    $new_address->postcode      = $address_relais['postcode'];
                    $new_address->city          = $address_relais['city'];
                    $new_address->phone         = $ps_address->phone;
                    $new_address->phone_mobile  = $ps_address->phone_mobile;
                    $new_address->id_country    = $address_relais['id_country'];
                    $new_address->alias         = 'DPD Relais '.$address_relais['relay_id'];
                    $new_address->deleted       = 1;
                    $new_address->add();
                    $id_address_delivery = (int) $new_address->id;
                }

                // Update order
                $order->id_address_delivery = $id_address_delivery;
                $order->update();
                break;

            case (Configuration::get('DPDFRANCE_PREDICT_CARRIER_ID')):
                $order = $params['order'];
                $cart = $params['cart'];

                // Retrieve default order address and fetch its ID
                $ps_address = new Address($cart->id_address_delivery);
                $id_address_delivery = (int) $ps_address->id;

                // Retrieve GSM number for Predict
                $address_predict = self::getDeliveryInfos($cart->id);

                // Predict address will become one of customer's
                if (is_array($address_predict) && !empty($address_predict['gsm_dest'])) {
                    $new_address = new Address();
                    $new_address->id_customer   = $ps_address->id_customer;
                    $new_address->lastname      = $ps_address->lastname;
                    $new_address->firstname     = $ps_address->firstname;
                    $new_address->company       = $ps_address->company;
                    $new_address->address1      = $ps_address->address1;
                    $new_address->address2      = $ps_address->address2;
                    $new_address->postcode      = $ps_address->postcode;
                    $new_address->city          = $ps_address->city;
                    $new_address->id_country    = $ps_address->id_country;
                    $new_address->phone         = $address_predict['gsm_dest'];
                    $new_address->phone_mobile  = $address_predict['gsm_dest'];
                    $new_address->alias         = 'DPD Predict '.$address_predict['gsm_dest'];
                    $new_address->deleted       = 1;
                    $new_address->add();
                    $id_address_delivery = (int) $new_address->id;
                }

                // Update order
                $order->id_address_delivery = $id_address_delivery;
                $order->update();
                break;
        }
    }

    /* Maintains DPD France Carriers' ID up to date */
    public function hookActionCarrierUpdate($params)
    {
        if (Shop::isFeatureActive()) {
            foreach (Shop::getShops(true) as $shop) {
                if ((int) $params['id_carrier'] == (int) Configuration::get('DPDFRANCE_RELAIS_CARRIER_ID', null, $shop['id_shop_group'], $shop['id_shop'])) {
                    Configuration::updateValue('DPDFRANCE_RELAIS_CARRIER_ID', (int) $params['carrier']->id, false, $shop['id_shop_group'], $shop['id_shop']);
                    Configuration::updateValue('DPDFRANCE_RELAIS_CARRIER_LOG', Configuration::get('DPDFRANCE_RELAIS_CARRIER_LOG', null, $shop['id_shop_group'], $shop['id_shop']).'|'.(int) $params['carrier']->id, false, $shop['id_shop_group'], $shop['id_shop']);
                }
                if ((int) $params['id_carrier'] == (int) Configuration::get('DPDFRANCE_PREDICT_CARRIER_ID', null, $shop['id_shop_group'], $shop['id_shop'])) {
                    Configuration::updateValue('DPDFRANCE_PREDICT_CARRIER_ID', (int) $params['carrier']->id, false, $shop['id_shop_group'], $shop['id_shop']);
                    Configuration::updateValue('DPDFRANCE_PREDICT_CARRIER_LOG', Configuration::get('DPDFRANCE_PREDICT_CARRIER_LOG', null, $shop['id_shop_group'], $shop['id_shop']).'|'.(int) $params['carrier']->id, false, $shop['id_shop_group'], $shop['id_shop']);
                }
                if ((int) $params['id_carrier'] == (int) Configuration::get('DPDFRANCE_CLASSIC_CARRIER_ID', null, $shop['id_shop_group'], $shop['id_shop'])) {
                    Configuration::updateValue('DPDFRANCE_CLASSIC_CARRIER_ID', (int) $params['carrier']->id, false, $shop['id_shop_group'], $shop['id_shop']);
                    Configuration::updateValue('DPDFRANCE_CLASSIC_CARRIER_LOG', Configuration::get('DPDFRANCE_CLASSIC_CARRIER_LOG', null, $shop['id_shop_group'], $shop['id_shop']).'|'.(int) $params['carrier']->id, false, $shop['id_shop_group'], $shop['id_shop']);
                }
            }
        } else {
            if ((int) $params['id_carrier'] == (int) Configuration::get('DPDFRANCE_RELAIS_CARRIER_ID', null, null, null)) {
                Configuration::updateValue('DPDFRANCE_RELAIS_CARRIER_ID', (int) $params['carrier']->id, false, null, null);
                Configuration::updateValue('DPDFRANCE_RELAIS_CARRIER_LOG', Configuration::get('DPDFRANCE_RELAIS_CARRIER_LOG', null, null, null).'|'.(int) $params['carrier']->id, false, null, null);
            }
            if ((int) $params['id_carrier'] == (int) Configuration::get('DPDFRANCE_PREDICT_CARRIER_ID', null, null, null)) {
                Configuration::updateValue('DPDFRANCE_PREDICT_CARRIER_ID', (int) $params['carrier']->id, false, null, null);
                Configuration::updateValue('DPDFRANCE_PREDICT_CARRIER_LOG', Configuration::get('DPDFRANCE_PREDICT_CARRIER_LOG', null, null, null).'|'.(int) $params['carrier']->id, false, null, null);
            }
            if ((int) $params['id_carrier'] == (int) Configuration::get('DPDFRANCE_CLASSIC_CARRIER_ID', null, null, null)) {
                Configuration::updateValue('DPDFRANCE_CLASSIC_CARRIER_ID', (int) $params['carrier']->id, false, null, null);
                Configuration::updateValue('DPDFRANCE_CLASSIC_CARRIER_LOG', Configuration::get('DPDFRANCE_CLASSIC_CARRIER_LOG', null, null, null).'|'.(int) $params['carrier']->id, false, null, null);
            }
        }
    }

    /* Replaces accented characters and symbols */
    public static function stripAccents($str)
    {
        $str = preg_replace('/[\x{00C0}\x{00C1}\x{00C2}\x{00C3}\x{00C4}\x{00C5}]/u', 'A', $str);
        $str = preg_replace('/[\x{0105}\x{0104}\x{00E0}\x{00E1}\x{00E2}\x{00E3}\x{00E4}\x{00E5}]/u', 'a', $str);
        $str = preg_replace('/[\x{00C7}\x{0106}\x{0108}\x{010A}\x{010C}]/u', 'C', $str);
        $str = preg_replace('/[\x{00E7}\x{0107}\x{0109}\x{010B}\x{010D}}]/u', 'c', $str);
        $str = preg_replace('/[\x{010E}\x{0110}]/u', 'D', $str);
        $str = preg_replace('/[\x{010F}\x{0111}]/u', 'd', $str);
        $str = preg_replace('/[\x{00C8}\x{00C9}\x{00CA}\x{00CB}\x{0112}\x{0114}\x{0116}\x{0118}\x{011A}\x{20AC}]/u', 'E', $str);
        $str = preg_replace('/[\x{00E8}\x{00E9}\x{00EA}\x{00EB}\x{0113}\x{0115}\x{0117}\x{0119}\x{011B}]/u', 'e', $str);
        $str = preg_replace('/[\x{00CC}\x{00CD}\x{00CE}\x{00CF}\x{0128}\x{012A}\x{012C}\x{012E}\x{0130}]/u', 'I', $str);
        $str = preg_replace('/[\x{00EC}\x{00ED}\x{00EE}\x{00EF}\x{0129}\x{012B}\x{012D}\x{012F}\x{0131}]/u', 'i', $str);
        $str = preg_replace('/[\x{0142}\x{0141}\x{013E}\x{013A}]/u', 'l', $str);
        $str = preg_replace('/[\x{00F1}\x{0148}]/u', 'n', $str);
        $str = preg_replace('/[\x{00D2}\x{00D3}\x{00D4}\x{00D5}\x{00D6}\x{00D8}]/u', 'O', $str);
        $str = preg_replace('/[\x{00F2}\x{00F3}\x{00F4}\x{00F5}\x{00F6}\x{00F8}]/u', 'o', $str);
        $str = preg_replace('/[\x{0159}\x{0155}]/u', 'r', $str);
        $str = preg_replace('/[\x{015B}\x{015A}\x{0161}]/u', 's', $str);
        $str = preg_replace('/[\x{00DF}]/u', 'ss', $str);
        $str = preg_replace('/[\x{0165}]/u', 't', $str);
        $str = preg_replace('/[\x{00D9}\x{00DA}\x{00DB}\x{00DC}\x{016E}\x{0170}\x{0172}]/u', 'U', $str);
        $str = preg_replace('/[\x{00F9}\x{00FA}\x{00FB}\x{00FC}\x{016F}\x{0171}\x{0173}]/u', 'u', $str);
        $str = preg_replace('/[\x{00FD}\x{00FF}]/u', 'y', $str);
        $str = preg_replace('/[\x{017C}\x{017A}\x{017B}\x{0179}\x{017E}]/u', 'z', $str);
        $str = preg_replace('/[\x{00C6}]/u', 'AE', $str);
        $str = preg_replace('/[\x{00E6}]/u', 'ae', $str);
        $str = preg_replace('/[\x{0152}]/u', 'OE', $str);
        $str = preg_replace('/[\x{0153}]/u', 'oe', $str);
        $str = preg_replace('/[^\p{L}\p{N}]/u', ' ', $str);
        $str = Tools::strtoupper($str);
        return $str;
    }

    /* MyPudo webservice calling method */
    public function getPoints($input)
    {
        $dpdfrance_relais_points = array();
        $serviceurl = Configuration::get('DPDFRANCE_RELAIS_MYPUDO_URL');
        $date = date('d/m/Y');

        $this->address  = self::stripAccents($input['address1']);
        $this->zipcode  = $input['postcode'];
        $this->city     = self::stripAccents($input['city']);
        // Zip code is mandatory
        if (empty($this->zipcode)) {
            $dpdfrance_relais_points['error'] = $this->l('Postal code in missing in the address. Please, modify it.');
            return $dpdfrance_relais_points;
        }

        // MyPudo call parameters
        $variables = array(
            'carrier'=>'EXA',
            'key'=> 'deecd7bc81b71fcc0e292b53e826c48f',
            'address'=> $this->address,
            'zipCode'=> $this->zipcode,
            'city'=> $this->city,
            'countrycode'=>'FR',
            'requestID'=>'1234',
            'request_id'=>'1234',
            'date_from'=>$date,
            'max_pudo_number'=>'',
            'max_distance_search'=>'',
            'weight'=>'',
            'category'=>'',
            'holiday_tolerant'=>''
        );

        try {
            ini_set('default_socket_timeout', 5);
            $soappudo = new SoapClient($serviceurl, array('connection_timeout' => 5, 'cache_wsdl' => WSDL_CACHE_NONE, 'exceptions' => true));
            $GetPudoList = $soappudo->getPudoList($variables)->GetPudoListResult->any;

            // Get the webservice XML response and parse its values
            $xml = new SimpleXMLElement($GetPudoList);
            if (Tools::strlen($xml->ERROR) > 0) {
                $dpdfrance_relais_points['error'] = $this->l('DPD Relais is not available at the moment, please try again shortly.');
            } else {
                $relais_items = $xml->PUDO_ITEMS;
                // Prepare cookie
                $cookiedata = array();
                $cookiedata['search'] = $input;

                // Loop through each pudo
                $i = 0;
                foreach ($relais_items->PUDO_ITEM as $item) {
                    $point = array();
                    $item = (array)$item;

                    // Island and Mountain zones restrict Pickup point suggestion
                    $id_address=$this->context->cart->id_address_delivery;
                    $postcode=self::getPostcodeByAddress($id_address);
                    $zone_iles=array('17111', '17123', '17190', '17310', '17370', '17410', '17480', '17550', '17580', '17590', '17630', '17650', '17670', '17740', '17840', '17880', '17940', '22870', '29242', '29253', '29259', '29980', '29990', '56360', '56590', '56780', '56840', '85350');
                    $zone_montagne=array('04120', '04130', '04140', '04160', '04170', '04200', '04240', '04260', '04300', '04310', '04330', '04360', '04370', '04400', '04510', '04530', '04600', '04700', '04850', '05100', '05110', '05120', '05130', '05150', '05160', '05170', '05200', '05220', '05240', '05250', '05260', '05290', '05300', '05310', '05320', '05330', '05340', '05350', '05400', '05460', '05470', '05500', '05560', '05600', '05700', '05800', '06140', '06380', '06390', '06410', '06420', '06430', '06450', '06470', '06530', '06540', '06620', '06710', '06750', '06910', '09110', '09140', '09300', '09460', '25120', '25140', '25240', '25370', '25450', '25500', '25650', '30570', '31110', '38112', '38114', '38142', '38190', '38250', '38350', '38380', '38410', '38580', '38660', '38700', '38750', '38860', '38880', '39220', '39310', '39400', '63113', '63210', '63240', '63610', '63660', '63690', '63840', '63850', '64440', '64490', '64560', '64570', '65110', '65120', '65170', '65200', '65240', '65400', '65510', '65710', '66210', '66760', '66800', '68140', '68610', '68650', '73110', '73120', '73130', '73140', '73150', '73160', '73170', '73190', '73210', '73220', '73230', '73250', '73260', '73270', '73300', '73320', '73340', '73350', '73390', '73400', '73440', '73450', '73460', '73470', '73500', '73530', '73550', '73590', '73600', '73620', '73630', '73640', '73710', '73720', '73870', '74110', '74120', '74170', '74220', '74230', '74260', '74310', '74340', '74350', '74360', '74390', '74400', '74420', '74430', '74440', '74450', '74470', '74480', '74660', '74740', '74920', '83111', '83440', '83530', '83560', '83630', '83690', '83830', '83840', '84390', '88310', '88340', '88370', '88400', '90200');

                    // Island zone disabled : exclude Pickup point
                    if (((float) Configuration::get('DPDFRANCE_SUPP_ILES') < 0) && (in_array($item['ZIPCODE'], $zone_iles) || (Tools::substr($item['ZIPCODE'], 0, 2)=='20'))) {
                        continue;
                    }
                    // Mountain zone disabled : exclude Pickup point
                    if ((float) Configuration::get('DPDFRANCE_SUPP_MONTAGNE') < 0 && in_array($item['ZIPCODE'], $zone_montagne)) {
                        continue;
                    }

                    // Customer in island zone + island overcost set : exclude Pickup point if outside island
                    if ((float) Configuration::get('DPDFRANCE_SUPP_ILES') > 0) {
                        if (in_array($postcode, $zone_iles)) {
                            if (!in_array($item['ZIPCODE'], $zone_iles)) {
                                continue;
                            }
                        } else {
                            // Customer outside island zone + island overcost set : exclude Pickup point if inside island
                            if (in_array($item['ZIPCODE'], $zone_iles)) {
                                continue;
                            }
                        }
                    }

                    // Customer in Corsica + island overcost set : exclude Pickup point if outside Corsica
                    if ((float) Configuration::get('DPDFRANCE_SUPP_ILES') > 0) {
                        if (Tools::substr($postcode, 0, 2)=='20') {
                            if (Tools::substr($item['ZIPCODE'], 0, 2)!='20') {
                                continue;
                            }
                        } else {
                            // Customer outside Corsica + island overcost set : exclude Pickup point if inside Corsica
                            if (Tools::substr($item['ZIPCODE'], 0, 2)=='20') {
                                continue;
                            }
                        }
                    }

                    // Customer in mountain zone + mountain overcost set : exclude Pickup point if outside mountain
                    if ((float) Configuration::get('DPDFRANCE_SUPP_MONTAGNE') > 0) {
                        if (in_array($postcode, $zone_montagne)) {
                            if (!in_array($item['ZIPCODE'], $zone_montagne)) {
                                continue;
                            }
                        } else {
                            // Customer outside mountain zone + mountain overcost set : exclude Pickup point if inside mountain
                            if (in_array($item['ZIPCODE'], $zone_montagne)) {
                                continue;
                            }
                        }
                    }

                    $point['relay_id']       = $item['PUDO_ID'];
                    $point['shop_name']      = self::stripAccents($item['NAME']);
                    $point['address1']       = self::stripAccents($item['ADDRESS1']);
                    if ($item['ADDRESS2'] != '') {
                        $point['address2']   = self::stripAccents($item['ADDRESS2']);
                    }
                    if ($item['ADDRESS3'] != '') {
                        $point['address3']   = self::stripAccents($item['ADDRESS3']);
                    }
                    if ($item['LOCAL_HINT'] != '') {
                        $point['local_hint'] = self::stripAccents($item['LOCAL_HINT']);
                    }
                    $point['postal_code']    = $item['ZIPCODE'];
                    $point['city']           = self::stripAccents($item['CITY']);
                    $point['id_country']     = $input['id_country'];

                    // Prepare cookie data with only necessary informations
                    $cookiedata[$point['relay_id']] = $point;

                    $point['distance']       = number_format($item['DISTANCE'] / 1000, 2);
                    $point['coord_lat']      = (float) strtr($item['LATITUDE'], ',', '.');
                    $point['coord_long']     = (float) strtr($item['LONGITUDE'], ',', '.');
                    $days = array(1=>'monday', 2=>'tuesday', 3=>'wednesday', 4=>'thursday', 5=>'friday', 6=>'saturday', 7=>'sunday');
                    if (count($item['OPENING_HOURS_ITEMS']->OPENING_HOURS_ITEM) > 0) {
                        foreach ($item['OPENING_HOURS_ITEMS']->OPENING_HOURS_ITEM as $oh_item) {
                            $oh_item = (array)$oh_item;
                            $point[$days[$oh_item['DAY_ID']]][] = $oh_item['START_TM'].' - '.$oh_item['END_TM'];
                        }
                    }
                    if (count($item['HOLIDAY_ITEMS']->HOLIDAY_ITEM) > 0) {
                        $x = 0;
                    }
                    foreach ($item['HOLIDAY_ITEMS']->HOLIDAY_ITEM as $holiday_item) {
                        $holiday_item = (array)$holiday_item;
                        $point['closing_period'][$x] = $holiday_item['START_DTM'].' - '.$holiday_item['END_DTM'];
                        ++$x;
                    }
                    array_push($dpdfrance_relais_points, $point);
                    if (++$i == 5) {
                        break;
                    }
                }
                // Push cookie data
                Context::getContext()->cookie->dpdfrance_relais_cookie = Tools::jsonEncode($cookiedata);
            }
        } catch (Exception $e) {
            $dpdfrance_relais_points['error'] = $this->l('DPD Relais is not available at the moment, please try again shortly.');
        }
        return $dpdfrance_relais_points;
    }

    private function installModuleTab($tab_class, $tab_name, $id_tab_parent)
    {
        $tab = new Tab();

        $languages = Language::getLanguages(false);
        foreach ($languages as $language) {
            $tab->name[$language['id_lang']] = $tab_name;
        }
        $tab->class_name = $tab_class;
        $tab->module = $this->name;
        $tab->id_parent = $id_tab_parent;

        if (!$tab->save()) {
            return false;
        }
        return true;
    }

    private function uninstallModuleTab($tab_class)
    {
        $id_tab = Tab::getIdFromClassName($tab_class);
        if ($id_tab != 0) {
            $tab = new Tab($id_tab);
            $tab->delete();
            return true;
        }
        return false;
    }

    /* Carrier creation function */
    public static function createCarrier($config, $type)
    {
        $carrier = new Carrier();
        $carrier->name = $config['name'];
        $carrier->id_tax_rules_group = $config['id_tax_rules_group'];
        $carrier->id_zone = $config['id_zone'];
        $carrier->url = $config['url'];
        $carrier->active = $config['active'];
        $carrier->deleted = $config['deleted'];
        $carrier->delay = $config['delay'];
        $carrier->shipping_handling = $config['shipping_handling'];
        $carrier->range_behavior = $config['range_behavior'];
        $carrier->is_module = true;
        $carrier->shipping_external = $config['shipping_external'];
        $carrier->external_module_name = $config['external_module_name'];
        $carrier->need_range = $config['need_range'];
        $carrier->grade = $config['grade'];

        $languages = Language::getLanguages(true);
        foreach ($languages as $language) {
            if ($language['iso_code']=='fr') {
                $carrier->delay[$language['id_lang']]=$config['delay'][$language['iso_code']];
            }
            if ($language['iso_code']=='en') {
                $carrier->delay[$language['id_lang']]=$config['delay'][$language['iso_code']];
            }
            if ($language['iso_code']=='es') {
                $carrier->delay[$language['id_lang']]=$config['delay'][$language['iso_code']];
            }
            if ($language['iso_code']=='it') {
                $carrier->delay[$language['id_lang']]=$config['delay'][$language['iso_code']];
            }
            if ($language['iso_code']=='de') {
                $carrier->delay[$language['id_lang']]=$config['delay'][$language['iso_code']];
            }
        }

        if ($carrier->add()) {
            $groups = Group::getgroups(true);
            foreach ($groups as $group) {
                Db::getInstance()->execute('INSERT INTO '._DB_PREFIX_.'carrier_group VALUE (\''.(int) $carrier->id.'\',\''.(int) $group['id_group'].'\')');
            }
            // Price range creation
            $range_price = new RangePrice();
            $range_price->id_carrier = $carrier->id;
            $range_price->delimiter1 = '0';
            $range_price->delimiter2 = '10000';
            $range_price->add();
            // Weight range creation
            $range_weight = new RangeWeight();
            $range_weight->id_carrier = $carrier->id;
            $range_weight->delimiter1 = '0';
            if ($type == 'relais') {
                $range_weight->delimiter2 = '20';
            } else {
                $range_weight->delimiter2 = '30';
            }
            $range_weight->add();
            // Assign carrier to France zone but DPD World carrier
            if ($type == 'world') {
                $sql = 'SELECT id_zone FROM '._DB_PREFIX_.'zone WHERE name NOT LIKE \'%France%\'';
            } else {
                $sql = 'SELECT id_zone FROM '._DB_PREFIX_.'zone WHERE name LIKE \'%France%\'';
            }
            $res = Db::getInstance()->ExecuteS($sql);
            foreach ($res as $zone) {
                Db::getInstance()->execute('INSERT INTO '._DB_PREFIX_.'carrier_zone  (id_carrier, id_zone) VALUE (\''.(int) $carrier->id.'\',\''.(int) $zone['id_zone'].'\')');
                Db::getInstance()->execute('INSERT INTO '._DB_PREFIX_.'delivery (id_carrier, id_range_price, id_range_weight, id_zone, price) VALUE (\''.(int) $carrier->id.'\',\''.(int) $range_price->id.'\',NULL,\''.(int) $zone['id_zone'].'\',\'5.95\')');
                Db::getInstance()->execute('INSERT INTO '._DB_PREFIX_.'delivery (id_carrier, id_range_price, id_range_weight, id_zone, price) VALUE (\''.(int) $carrier->id.'\',NULL,\''.(int) $range_weight->id.'\',\''.(int) $zone['id_zone'].'\',\'5.95\')');
            }
            // Logo copy
            if (in_array($type, array('relais','predict','classic','world'))) {
                if (!copy(dirname(__FILE__).'/views/img/front/'.$type.'/carrier_logo.jpg', _PS_SHIP_IMG_DIR_.'/'.$carrier->id.'.jpg')) {
                    return false;
                }
            }
            return true;
        }
        return false;
    }

    /* When a carrier is hooked to DPD module, sets some parameters */
    public function reaffectationCarrier($id_carrier)
    {
        Db::getInstance()->execute('
            UPDATE '._DB_PREFIX_.'carrier
            SET shipping_handling = 0,
                is_module = 1,
                shipping_external = 1,
                need_range = 1,
                external_module_name = "dpdfrance"
            WHERE  id_carrier = '.(int) $id_carrier);
    }

    /* When auto update by parcel no. mode is activated, change tracking URLs */
    public function setTrackingURLs($mode)
    {
        if ($mode == 2) {
            $url = 'http://www.dpd.fr/traces_@';
        } else {
            $url = 'http://www.dpd.fr/tracex_@';
        }
        Db::getInstance()->execute('
            UPDATE  '._DB_PREFIX_.'carrier
            SET     url = "'.pSQL($url).'"
            WHERE   url LIKE "%dpd.fr/trace%"');
    }
}