website.class.php

Go to the documentation of this file.

<?php
/* Copyright (C) 2007-2018  Laurent Destailleur <eldy@users.sourceforge.net>
 * Copyright (C) 2014       Juanjo Menent       <jmenent@2byte.es>
 * Copyright (C) 2015       Florian Henry       <florian.henry@open-concept.pro>
 * Copyright (C) 2015       Raphaël Doursenaud  <rdoursenaud@gpcsolutions.fr>
 * Copyright (C) 2018-2024  Frédéric France         <frederic.france@free.fr>
 * Copyright (C) 2024   MDW             <mdeweerd@users.noreply.github.com>
 *
 * This program is free software; you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation; either version 3 of the License, or
 * (at your option) any later version.
 *
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with this program. If not, see <https://www.gnu.org/licenses/>.
 */
 
// Put here all includes required by your class file
require_once DOL_DOCUMENT_ROOT.'/core/class/commonobject.class.php';
//require_once DOL_DOCUMENT_ROOT . '/societe/class/societe.class.php';
//require_once DOL_DOCUMENT_ROOT . '/product/class/product.class.php';
 
 
class Website extends CommonObject
{
  public $element = 'website';
 
  public $table_element = 'website';
 
  protected $childtablesoncascade = array();
 
  public $picto = 'globe';
 
  public $entity;
 
  public $ref;
 
  public $description;
 
  public $lang;
 
  public $otherlang;
 
  public $status;
 
  public $date_creation;
 
  public $date_modification;
 
  public $fk_default_home;
 
  public $fk_user_creat;
 
  public $fk_user_modif;
 
  public $virtualhost;
 
  public $use_manifest;
 
  public $position;
 
  public $name_template;
 
  const STATUS_DRAFT = 0;
  const STATUS_VALIDATED = 1;
 
 
  public function __construct(DoliDB $db)
  {
    $this->db = $db;
 
    $this->ismultientitymanaged = 1;
  }
 
  public function create(User $user, $notrigger = 0)
  {
    global $conf, $langs;
 
    dol_syslog(__METHOD__, LOG_DEBUG);
 
    $error = 0;
    $now = dol_now();
 
    // Clean parameters
    if (isset($this->entity)) {
      $this->entity = (int) $this->entity;
    }
    if (isset($this->ref)) {
      $this->ref = trim($this->ref);
    }
    if (isset($this->description)) {
      $this->description = trim($this->description);
    }
    if (isset($this->status)) {
      $this->status = (int) $this->status;
    }
    if (empty($this->date_creation)) {
      $this->date_creation = $now;
    }
    if (empty($this->date_modification)) {
      $this->date_modification = $now;
    }
    // Remove spaces and be sure we have main language only
    $this->lang = preg_replace('/[_-].*$/', '', trim($this->lang)); // en_US or en-US -> en
    $tmparray = explode(',', $this->otherlang);
    if (is_array($tmparray)) {
      foreach ($tmparray as $key => $val) {
        // It possible we have empty val here if postparam WEBSITE_OTHERLANG is empty or set like this : 'en,,sv' or 'en,sv,'
        if (empty(trim($val))) {
          unset($tmparray[$key]);
          continue;
        }
        $tmparray[$key] = preg_replace('/[_-].*$/', '', trim($val)); // en_US or en-US -> en
      }
      $this->otherlang = implode(',', $tmparray);
    }
 
    // Check parameters
    if (empty($this->entity)) {
      $this->entity = $conf->entity;
    }
    if (empty($this->lang)) {
      $this->error = $langs->trans("ErrorFieldRequired", $langs->transnoentitiesnoconv("MainLanguage"));
      return -1;
    }
 
    // Insert request
    $sql = 'INSERT INTO '.MAIN_DB_PREFIX.$this->table_element.'(';
    $sql .= 'entity,';
    $sql .= 'ref,';
    $sql .= 'description,';
    $sql .= 'lang,';
    $sql .= 'otherlang,';
    $sql .= 'status,';
    $sql .= 'fk_default_home,';
    $sql .= 'virtualhost,';
    $sql .= 'fk_user_creat,';
    $sql .= 'date_creation,';
    $sql .= 'position,';
    $sql .= 'tms';
    $sql .= ') VALUES (';
    $sql .= ' '.((empty($this->entity) && $this->entity != '0') ? 'NULL' : $this->entity).',';
    $sql .= ' '.(!isset($this->ref) ? 'NULL' : "'".$this->db->escape($this->ref)."'").',';
    $sql .= ' '.(!isset($this->description) ? 'NULL' : "'".$this->db->escape($this->description)."'").',';
    $sql .= ' '.(!isset($this->lang) ? 'NULL' : "'".$this->db->escape($this->lang)."'").',';
    $sql .= ' '.(!isset($this->otherlang) ? 'NULL' : "'".$this->db->escape($this->otherlang)."'").',';
    $sql .= ' '.(!isset($this->status) ? '1' : $this->status).',';
    $sql .= ' '.(!isset($this->fk_default_home) ? 'NULL' : $this->fk_default_home).',';
    $sql .= ' '.(!isset($this->virtualhost) ? 'NULL' : "'".$this->db->escape($this->virtualhost)."'").",";
    $sql .= ' '.(!isset($this->fk_user_creat) ? $user->id : $this->fk_user_creat).',';
    $sql .= ' '.(!isset($this->date_creation) || dol_strlen($this->date_creation) == 0 ? 'NULL' : "'".$this->db->idate($this->date_creation)."'").",";
    $sql .= ' '.((int) $this->position).",";
    $sql .= ' '.(!isset($this->date_modification) || dol_strlen($this->date_modification) == 0 ? 'NULL' : "'".$this->db->idate($this->date_modification)."'");
    $sql .= ')';
 
    $this->db->begin();
 
    $resql = $this->db->query($sql);
    if (!$resql) {
      $error++;
      $this->errors[] = 'Error '.$this->db->lasterror();
      dol_syslog(__METHOD__.' '.implode(',', $this->errors), LOG_ERR);
    }
 
    if (!$error) {
      $this->id = $this->db->last_insert_id(MAIN_DB_PREFIX.$this->table_element);
 
      // Create a subdirectory for each language (except main language)
      $tmplangarray = explode(',', $this->otherlang);
      if (is_array($tmplangarray)) {
        dol_mkdir($conf->website->dir_output.'/'.$this->ref);
        foreach ($tmplangarray as $val) {
          if (trim($val) == $this->lang) {
            continue;
          }
          dol_mkdir($conf->website->dir_output.'/'.$this->ref.'/'.trim($val), DOL_DATA_ROOT);
        }
      }
 
      // Create subdirectory for images and js
      dol_mkdir($conf->medias->multidir_output[$conf->entity].'/image/'.$this->ref, DOL_DATA_ROOT);
      dol_mkdir($conf->medias->multidir_output[$conf->entity].'/js/'.$this->ref, DOL_DATA_ROOT);
 
      // Uncomment this and change WEBSITE to your own tag if you
      // want this action to call a trigger.
      // if (!$notrigger) {
 
      //     // Call triggers
      //     $result = $this->call_trigger('WEBSITE_CREATE',$user);
      //     if ($result < 0) $error++;
      //     // End call triggers
      // }
    }
 
    if (!$error) {
      $stringtodolibarrfile = "# Some properties for Dolibarr web site CMS\n";
      $stringtodolibarrfile .= "param=value\n";
      //print $conf->website->dir_output.'/'.$this->ref.'/.dolibarr';exit;
      file_put_contents($conf->website->dir_output.'/'.$this->ref.'/.dolibarr', $stringtodolibarrfile);
    }
 
    // Commit or rollback
    if ($error) {
      $this->db->rollback();
      if ($this->db->lasterrno() == 'DB_ERROR_RECORD_ALREADY_EXISTS') {
        return 0;
      } else {
        return -1 * $error;
      }
    } else {
      $this->db->commit();
 
      return $this->id;
    }
  }
 
  public function fetch($id, $ref = null)
  {
    dol_syslog(__METHOD__, LOG_DEBUG);
 
    $sql = "SELECT";
    $sql .= " t.rowid,";
    $sql .= " t.entity,";
    $sql .= " t.ref,";
    $sql .= " t.position,";
    $sql .= " t.description,";
    $sql .= " t.lang,";
    $sql .= " t.otherlang,";
    $sql .= " t.status,";
    $sql .= " t.fk_default_home,";
    $sql .= " t.use_manifest,";
    $sql .= " t.virtualhost,";
    $sql .= " t.fk_user_creat,";
    $sql .= " t.fk_user_modif,";
    $sql .= " t.date_creation,";
    $sql .= " t.tms as date_modification,";
    $sql .= " t.name_template";
    $sql .= " FROM ".MAIN_DB_PREFIX.$this->table_element." as t";
    $sql .= " WHERE t.entity IN (".getEntity('website').")";
    if (!empty($ref)) {
      $sql .= " AND t.ref = '".$this->db->escape($ref)."'";
    } else {
      $sql .= " AND t.rowid = ".(int) $id;
    }
 
    $resql = $this->db->query($sql);
    if ($resql) {
      $numrows = $this->db->num_rows($resql);
      if ($numrows) {
        $obj = $this->db->fetch_object($resql);
 
        $this->id = $obj->rowid;
 
        $this->entity = $obj->entity;
        $this->ref = $obj->ref;
        $this->position = $obj->position;
        $this->description = $obj->description;
        $this->lang = $obj->lang;
        $this->otherlang = $obj->otherlang;
        $this->status = $obj->status;
        $this->fk_default_home = $obj->fk_default_home;
        $this->virtualhost = $obj->virtualhost;
        $this->use_manifest = $obj->use_manifest;
        $this->fk_user_creat = $obj->fk_user_creat;
        $this->fk_user_modif = $obj->fk_user_modif;
        $this->date_creation = $this->db->jdate($obj->date_creation);
        $this->date_modification = $this->db->jdate($obj->date_modification);
        $this->name_template = $obj->name_template;
      }
      $this->db->free($resql);
 
      if ($numrows > 0) {
        return 1;
      } else {
        return 0;
      }
    } else {
      $this->errors[] = 'Error '.$this->db->lasterror();
      dol_syslog(__METHOD__.' '.implode(',', $this->errors), LOG_ERR);
 
      return -1;
    }
  }
 
 
  public function fetchAll($sortorder = '', $sortfield = '', $limit = 0, $offset = 0, $filter = '', $filtermode = 'AND')
  {
    dol_syslog(__METHOD__, LOG_DEBUG);
 
    $records = array();
 
    $sql = "SELECT";
    $sql .= " t.rowid,";
    $sql .= " t.entity,";
    $sql .= " t.ref,";
    $sql .= " t.description,";
    $sql .= " t.lang,";
    $sql .= " t.otherlang,";
    $sql .= " t.status,";
    $sql .= " t.fk_default_home,";
    $sql .= " t.virtualhost,";
    $sql .= " t.fk_user_creat,";
    $sql .= " t.fk_user_modif,";
    $sql .= " t.date_creation,";
    $sql .= " t.tms as date_modification";
    $sql .= " FROM ".MAIN_DB_PREFIX.$this->table_element." as t";
    $sql .= " WHERE t.entity IN (".getEntity('website').")";
 
    // Manage filter
    if (is_array($filter)) {
      $sqlwhere = array();
      if (count($filter) > 0) {
        foreach ($filter as $key => $value) {
          $sqlwhere[] = $key." LIKE '%".$this->db->escape($value)."%'";
        }
      }
      if (count($sqlwhere) > 0) {
        $sql .= ' AND '.implode(' '.$this->db->escape($filtermode).' ', $sqlwhere);
      }
 
      $filter = '';
    }
 
    // Manage filter
    $errormessage = '';
    $sql .= forgeSQLFromUniversalSearchCriteria($filter, $errormessage);
    if ($errormessage) {
      $this->errors[] = $errormessage;
      dol_syslog(__METHOD__.' '.implode(',', $this->errors), LOG_ERR);
      return -1;
    }
 
    if (!empty($sortfield)) {
      $sql .= $this->db->order($sortfield, $sortorder);
    }
    if (!empty($limit)) {
      $sql .= $this->db->plimit($limit, $offset);
    }
 
    $resql = $this->db->query($sql);
    if ($resql) {
      $num = $this->db->num_rows($resql);
 
      while ($obj = $this->db->fetch_object($resql)) {
        $record = new self($this->db);
 
        $record->id = $obj->rowid;
 
        $record->entity = $obj->entity;
        $record->ref = $obj->ref;
        $record->description = $obj->description;
        $record->lang = $obj->lang;
        $record->otherlang = $obj->otherlang;
        $record->status = $obj->status;
        $record->fk_default_home = $obj->fk_default_home;
        $record->virtualhost = $obj->virtualhost;
        $record->fk_user_creat = $obj->fk_user_creat;
        $record->fk_user_modif = $obj->fk_user_modif;
        $record->date_creation = $this->db->jdate($obj->date_creation);
        $record->date_modification = $this->db->jdate($obj->date_modification);
 
        $records[$record->id] = $record;
      }
      $this->db->free($resql);
 
      return $records;
    } else {
      $this->errors[] = 'Error '.$this->db->lasterror();
      dol_syslog(__METHOD__.' '.implode(',', $this->errors), LOG_ERR);
 
      return -1;
    }
  }
 
  public function update(User $user, $notrigger = 0)
  {
    global $conf, $langs;
 
    $error = 0;
 
    dol_syslog(__METHOD__, LOG_DEBUG);
 
    // Clean parameters
 
    if (isset($this->entity)) {
      $this->entity = (int) $this->entity;
    }
    if (isset($this->ref)) {
      $this->ref = trim($this->ref);
    }
    if (isset($this->description)) {
      $this->description = trim($this->description);
    }
    if (isset($this->status)) {
      $this->status = (int) $this->status;
    }
 
    // Remove spaces and be sure we have main language only
    $this->lang = preg_replace('/[_-].*$/', '', trim($this->lang)); // en_US or en-US -> en
    $tmparray = explode(',', $this->otherlang);
    if (is_array($tmparray)) {
      foreach ($tmparray as $key => $val) {
        // It possible we have empty val here if postparam WEBSITE_OTHERLANG is empty or set like this : 'en,,sv' or 'en,sv,'
        if (empty(trim($val))) {
          unset($tmparray[$key]);
          continue;
        }
        $tmparray[$key] = preg_replace('/[_-].*$/', '', trim($val)); // en_US or en-US -> en
      }
      $this->otherlang = implode(',', $tmparray);
    }
    if (empty($this->lang)) {
      $this->error = $langs->trans("ErrorFieldRequired", $langs->transnoentitiesnoconv("MainLanguage"));
      return -1;
    }
 
    // Check parameters
    // Put here code to add a control on parameters values
 
    // Update request
    $sql = 'UPDATE '.MAIN_DB_PREFIX.$this->table_element.' SET';
    $sql .= ' entity = '.(isset($this->entity) ? $this->entity : "null").',';
    $sql .= ' ref = '.(isset($this->ref) ? "'".$this->db->escape($this->ref)."'" : "null").',';
    $sql .= ' description = '.(isset($this->description) ? "'".$this->db->escape($this->description)."'" : "null").',';
    $sql .= ' lang = '.(isset($this->lang) ? "'".$this->db->escape($this->lang)."'" : "null").',';
    $sql .= ' otherlang = '.(isset($this->otherlang) ? "'".$this->db->escape($this->otherlang)."'" : "null").',';
    $sql .= ' status = '.(isset($this->status) ? $this->status : "null").',';
    $sql .= ' fk_default_home = '.(($this->fk_default_home > 0) ? $this->fk_default_home : "null").',';
    $sql .= ' use_manifest = '.((int) $this->use_manifest).',';
    $sql .= ' virtualhost = '.(($this->virtualhost != '') ? "'".$this->db->escape($this->virtualhost)."'" : "null").',';
    $sql .= ' fk_user_modif = '.(!isset($this->fk_user_modif) ? $user->id : $this->fk_user_modif).',';
    $sql .= ' date_creation = '.(!isset($this->date_creation) || dol_strlen($this->date_creation) != 0 ? "'".$this->db->idate($this->date_creation)."'" : 'null').',';
    $sql .= ' tms = '.(dol_strlen($this->date_modification) != 0 ? "'".$this->db->idate($this->date_modification)."'" : "'".$this->db->idate(dol_now())."'");
    $sql .= ' WHERE rowid='.((int) $this->id);
 
    $this->db->begin();
 
    $resql = $this->db->query($sql);
    if (!$resql) {
      $error++;
      $this->errors[] = 'Error '.$this->db->lasterror();
      dol_syslog(__METHOD__.' '.implode(',', $this->errors), LOG_ERR);
    }
 
    if (!$error && !$notrigger) {
      // Uncomment this and change MYOBJECT to your own tag if you
      // want this action calls a trigger.
 
      // Create subdirectory per language
      $tmplangarray = explode(',', $this->otherlang);
      if (is_array($tmplangarray)) {
        dol_mkdir($conf->website->dir_output.'/'.$this->ref);
        foreach ($tmplangarray as $val) {
          if (trim($val) == $this->lang) {
            continue;
          }
          dol_mkdir($conf->website->dir_output.'/'.$this->ref.'/'.trim($val));
        }
      }
 
      //$result=$this->call_trigger('WEBSITE_MODIFY',$user);
      //if ($result < 0) { $error++; //Do also what you must do to rollback action if trigger fail}
    }
 
    // Commit or rollback
    if ($error) {
      $this->db->rollback();
 
      return -1 * $error;
    } else {
      $this->db->commit();
 
      return 1;
    }
  }
 
  public function delete(User $user, $notrigger = 0)
  {
    global $conf;
 
    dol_syslog(__METHOD__, LOG_DEBUG);
 
    $error = 0;
 
    $this->db->begin();
 
    if (!$error) {
      $sql = 'DELETE FROM '.MAIN_DB_PREFIX.'categorie_website_page';
      $sql .= ' WHERE fk_website_page IN (SELECT rowid FROM '.MAIN_DB_PREFIX.'website_page WHERE fk_website = '.((int) $this->id).')';
 
      $resql = $this->db->query($sql);
      if (!$resql) {
        $error++;
        $this->errors[] = 'Error '.$this->db->lasterror();
        dol_syslog(__METHOD__.' '.implode(',', $this->errors), LOG_ERR);
      }
    }
 
    if (!$error) {
      $sql = 'DELETE FROM '.MAIN_DB_PREFIX.'website_page';
      $sql .= ' WHERE fk_website = '.((int) $this->id);
 
      $resql = $this->db->query($sql);
      if (!$resql) {
        $error++;
        $this->errors[] = 'Error '.$this->db->lasterror();
        dol_syslog(__METHOD__.' '.implode(',', $this->errors), LOG_ERR);
      }
    }
 
    // Delete common code. This include execution of trigger.
    $result = $this->deleteCommon($user, $notrigger);
    if ($result <= 0) {
      $error++;
    }
 
    if (!$error && !empty($this->ref)) {
      $pathofwebsite = DOL_DATA_ROOT.($conf->entity > 1 ? '/'.$conf->entity : '').'/website/'.$this->ref;
 
      dol_delete_dir_recursive($pathofwebsite);
    }
 
    // Commit or rollback
    if ($error) {
      $this->db->rollback();
 
      return -1 * $error;
    } else {
      $this->db->commit();
 
      return 1;
    }
  }
 
  public function createFromClone($user, $fromid, $newref, $newlang = '')
  {
    global $conf, $langs;
    global $dolibarr_main_data_root;
 
    $now = dol_now();
    $error = 0;
 
    dol_syslog(__METHOD__, LOG_DEBUG);
 
    $newref = dol_sanitizeFileName($newref);
 
    if (empty($newref)) {
      $this->error = 'ErrorBadParameter';
      return -1;
    }
 
    $object = new self($this->db);
 
    // Check no site with ref exists
    if ($object->fetch(0, $newref) > 0) {
      $this->error = 'ErrorNewRefIsAlreadyUsed';
      return -1;
    }
 
    $this->db->begin();
 
    // Load source object
    $object->fetch($fromid);
 
    $oldidforhome = $object->fk_default_home;
    $oldref = $object->ref;
 
    $pathofwebsiteold = $dolibarr_main_data_root.($conf->entity > 1 ? '/'.$conf->entity : '').'/website/'.dol_sanitizeFileName($oldref);
    $pathofwebsitenew = $dolibarr_main_data_root.($conf->entity > 1 ? '/'.$conf->entity : '').'/website/'.dol_sanitizeFileName($newref);
    dol_delete_dir_recursive($pathofwebsitenew);
 
    $fileindex = $pathofwebsitenew.'/index.php';
 
    // Reset some properties
    unset($object->id);
    unset($object->fk_user_creat);
    unset($object->import_key);
 
    // Clear fields
    $object->ref = $newref;
    $object->fk_default_home = 0;
    $object->virtualhost = '';
    $object->date_creation = $now;
    $object->fk_user_creat = $user->id;
    $object->position = ((int) $object->position) + 1;
    $object->status = self::STATUS_DRAFT;
    if (empty($object->lang)) {
      $object->lang = substr($langs->defaultlang, 0, 2); // Should not happen. Protection for corrupted site with no languages
    }
 
    // Create clone
    $object->context['createfromclone'] = 'createfromclone';
    $result = $object->create($user);
    if ($result < 0) {
      $error++;
      $this->error = $object->error;
      $this->errors = $object->errors;
      dol_syslog(__METHOD__.' '.implode(',', $this->errors), LOG_ERR);
    }
 
    if (!$error) {
      // @phan-suppress-next-line PhanPluginSuspiciousParamOrder
      dolCopyDir($pathofwebsiteold, $pathofwebsitenew, getDolGlobalString('MAIN_UMASK'), 0, [], 2);
 
      // Check symlink to medias and restore it if ko
      $pathtomedias = DOL_DATA_ROOT.'/medias'; // Target
      $pathtomediasinwebsite = $pathofwebsitenew.'/medias'; // Source / Link name
      if (!is_link(dol_osencode($pathtomediasinwebsite))) {
        dol_syslog("Create symlink for ".$pathtomedias." into name ".$pathtomediasinwebsite);
        dol_mkdir(dirname($pathtomediasinwebsite)); // To be sure dir for website exists
        $result = symlink($pathtomedias, $pathtomediasinwebsite);
      }
 
      // Copy images and js dir
      $pathofmediasjsold = DOL_DATA_ROOT.'/medias/js/'.$oldref;
      $pathofmediasjsnew = DOL_DATA_ROOT.'/medias/js/'.$newref;
      dolCopyDir($pathofmediasjsold, $pathofmediasjsnew, getDolGlobalString('MAIN_UMASK'), 0);
 
      $pathofmediasimageold = DOL_DATA_ROOT.'/medias/image/'.$oldref;
      $pathofmediasimagenew = DOL_DATA_ROOT.'/medias/image/'.$newref;
      dolCopyDir($pathofmediasimageold, $pathofmediasimagenew, getDolGlobalString('MAIN_UMASK'), 0);
 
      $newidforhome = 0;
 
      // Duplicate pages
      $objectpages = new WebsitePage($this->db);
      $listofpages = $objectpages->fetchAll($fromid);
      foreach ($listofpages as $pageid => $objectpageold) {
        // Delete old file
        $filetplold = $pathofwebsitenew.'/page'.$pageid.'.tpl.php';
        dol_delete_file($filetplold);
 
        // Create new file
        $objectpagenew = $objectpageold->createFromClone($user, $pageid, $objectpageold->pageurl, '', 0, $object->id, 1);
 
        //print $pageid.' = '.$objectpageold->pageurl.' -> '.$objectpagenew->id.' = '.$objectpagenew->pageurl.'<br>';
        if (is_object($objectpagenew) && $objectpagenew->pageurl) {
          $filealias = $pathofwebsitenew.'/'.$objectpagenew->pageurl.'.php';
          $filetplnew = $pathofwebsitenew.'/page'.$objectpagenew->id.'.tpl.php';
 
          // Save page alias
          $result = dolSavePageAlias($filealias, $object, $objectpagenew);
          if (!$result) {
            setEventMessages('Failed to write file '.$filealias, null, 'errors');
          }
 
          $result = dolSavePageContent($filetplnew, $object, $objectpagenew);
          if (!$result) {
            setEventMessages('Failed to write file '.$filetplnew, null, 'errors');
          }
 
          if ($pageid == $oldidforhome) {
            $newidforhome = $objectpagenew->id;
          }
        } else {
          setEventMessages($objectpageold->error, $objectpageold->errors, 'errors');
          $error++;
        }
      }
    }
 
    if (!$error) {
      // Restore id of home page
      $object->fk_default_home = $newidforhome;
      $res = $object->update($user);
      if (!($res > 0)) {
        $error++;
        setEventMessages($object->error, $object->errors, 'errors');
      }
 
      if (!$error) {
        $filetpl = $pathofwebsitenew.'/page'.$newidforhome.'.tpl.php';
        $filewrapper = $pathofwebsitenew.'/wrapper.php';
 
        // Re-generates the index.php page to be the home page, and re-generates the wrapper.php
        //--------------------------------------------------------------------------------------
        $result = dolSaveIndexPage($pathofwebsitenew, $fileindex, $filetpl, $filewrapper, $object);
      }
    }
 
    unset($object->context['createfromclone']);
 
    // End
    if (!$error) {
      $this->db->commit();
 
      return $object;
    } else {
      $this->db->rollback();
 
      return -1;
    }
  }
 
  public function getNomUrl($withpicto = 0, $option = '', $notooltip = 0, $maxlen = 24, $morecss = '')
  {
    global $langs;
 
    $result = '';
 
    $label = '<u>'.$langs->trans("WebSite").'</u>';
    $label .= '<br>';
    $label .= '<b>'.$langs->trans('Ref').':</b> '.$this->ref.'<br>';
    $label .= '<b>'.$langs->trans('MainLanguage').':</b> '.$this->lang;
 
    $linkstart = '<a href="'.DOL_URL_ROOT.'/website/card.php?id='.$this->id.'"';
    $linkstart .= ($notooltip ? '' : ' title="'.dol_escape_htmltag($label, 1).'" class="classfortooltip'.($morecss ? ' '.$morecss : '').'"');
    $linkstart .= '>';
    $linkend = '</a>';
 
    $linkstart = $linkend = '';
 
    if ($withpicto) {
      $result .= ($linkstart.img_object(($notooltip ? '' : $label), ($this->picto ? $this->picto : 'generic'), ($notooltip ? '' : 'class="classfortooltip"')).$linkend);
      if ($withpicto != 2) {
        $result .= ' ';
      }
    }
    $result .= $linkstart.$this->ref.$linkend;
    return $result;
  }
 
  public function getLibStatut($mode = 0)
  {
    return $this->LibStatut($this->status, $mode);
  }
 
  // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
  public function LibStatut($status, $mode = 0)
  {
    // phpcs:enable
    global $langs;
 
    if (empty($this->labelStatus) || empty($this->labelStatusShort)) {
      global $langs;
      //$langs->load("mymodule");
      $this->labelStatus[self::STATUS_DRAFT] = $langs->transnoentitiesnoconv('Offline');
      $this->labelStatus[self::STATUS_VALIDATED] = $langs->transnoentitiesnoconv('Online');
      $this->labelStatusShort[self::STATUS_DRAFT] = $langs->transnoentitiesnoconv('Offline');
      $this->labelStatusShort[self::STATUS_VALIDATED] = $langs->transnoentitiesnoconv('Online');
    }
 
    $statusType = 'status5';
    if ($status == self::STATUS_VALIDATED) {
      $statusType = 'status4';
    }
 
    return dolGetStatus($this->labelStatus[$status], $this->labelStatusShort[$status], '', $statusType, $mode);
  }
 
 
  public function initAsSpecimen()
  {
    global $user;
 
    $this->id = 0;
    $this->specimen = 1;
    $this->entity = 1;
    $this->ref = 'myspecimenwebsite';
    $this->description = 'A specimen website';
    $this->lang = 'en';
    $this->otherlang = 'fr,es';
    $this->status = 1;
    $this->fk_default_home = 0;
    $this->virtualhost = 'http://myvirtualhost';
    $this->fk_user_creat = $user->id;
    $this->fk_user_modif = $user->id;
    $this->date_creation = dol_now();
    $this->tms = dol_now();
 
    return 1;
  }
 
 
  public function exportWebSite()
  {
    global $conf, $mysoc;
 
    $website = $this;
 
    if (empty($website->id) || empty($website->ref)) {
      setEventMessages("Website id or ref is not defined", null, 'errors');
      return '';
    }
 
    dol_syslog("Create temp dir ".$conf->website->dir_temp);
    dol_mkdir($conf->website->dir_temp);
    if (!is_writable($conf->website->dir_temp)) {
      setEventMessages("Temporary dir ".$conf->website->dir_temp." is not writable", null, 'errors');
      return '';
    }
 
    $destdir = $conf->website->dir_temp.'/'.$website->ref;
    dol_syslog("Clear temp dir ".$destdir);
    $count = 0;
    $countreallydeleted = 0;
    $counttodelete = dol_delete_dir_recursive($destdir, $count, 1, 0, $countreallydeleted);
    if ($counttodelete != $countreallydeleted) {
      setEventMessages("Failed to clean temp directory ".$destdir, null, 'errors');
      return '';
    }
 
    $arrayreplacementinfilename = array();
    $arrayreplacementincss = array();
    $arrayreplacementincss['file=image/'.$website->ref.'/'] = "file=image/__WEBSITE_KEY__/";
    $arrayreplacementincss['file=js/'.$website->ref.'/'] = "file=js/__WEBSITE_KEY__/";
    $arrayreplacementincss['medias/image/'.$website->ref.'/'] = "medias/image/__WEBSITE_KEY__/";
    $arrayreplacementincss['medias/js/'.$website->ref.'/'] = "medias/js/__WEBSITE_KEY__/";
    if ($mysoc->logo_small) {
      $arrayreplacementincss['file=logos%2Fthumbs%2F'.$mysoc->logo_small] = "file=logos%2Fthumbs%2F__LOGO_SMALL_KEY__";
    }
    if ($mysoc->logo_mini) {
      $arrayreplacementincss['file=logos%2Fthumbs%2F'.$mysoc->logo_mini] = "file=logos%2Fthumbs%2F__LOGO_MINI_KEY__";
    }
    if ($mysoc->logo) {
      $arrayreplacementincss['file=logos%2Fthumbs%2F'.$mysoc->logo] = "file=logos%2Fthumbs%2F__LOGO_KEY__";
    }
 
    // Create output directories
    dol_syslog("Create containers dir");
    dol_mkdir($conf->website->dir_temp.'/'.$website->ref.'/containers');
    dol_mkdir($conf->website->dir_temp.'/'.$website->ref.'/medias/image/websitekey');
    dol_mkdir($conf->website->dir_temp.'/'.$website->ref.'/medias/js/websitekey');
 
    // Copy files into 'containers'
    $srcdir = $conf->website->dir_output.'/'.$website->ref;
    $destdir = $conf->website->dir_temp.'/'.$website->ref.'/containers';
 
    dol_syslog("Copy pages from ".$srcdir." into ".$destdir);
    dolCopyDir($srcdir, $destdir, 0, 1, $arrayreplacementinfilename, 2, array('old', 'back'), 1);
 
    // Copy file README.md and LICENSE from directory containers into directory root
    if (dol_is_file($conf->website->dir_temp.'/'.$website->ref.'/containers/README.md')) {
      dol_copy($conf->website->dir_temp.'/'.$website->ref.'/containers/README.md', $conf->website->dir_temp.'/'.$website->ref.'/README.md');
    }
    if (dol_is_file($conf->website->dir_temp.'/'.$website->ref.'/containers/LICENSE')) {
      dol_copy($conf->website->dir_temp.'/'.$website->ref.'/containers/LICENSE', $conf->website->dir_temp.'/'.$website->ref.'/LICENSE');
    }
 
    // Copy files into medias/image
    $srcdir = DOL_DATA_ROOT.'/medias/image/'.$website->ref;
    $destdir = $conf->website->dir_temp.'/'.$website->ref.'/medias/image/websitekey';
 
    dol_syslog("Copy content from ".$srcdir." into ".$destdir);
    dolCopyDir($srcdir, $destdir, 0, 1, $arrayreplacementinfilename);
 
    // Copy files into medias/js
    $srcdir = DOL_DATA_ROOT.'/medias/js/'.$website->ref;
    $destdir = $conf->website->dir_temp.'/'.$website->ref.'/medias/js/websitekey';
 
    dol_syslog("Copy content from ".$srcdir." into ".$destdir);
    dolCopyDir($srcdir, $destdir, 0, 1, $arrayreplacementinfilename);
 
    // Make some replacement into some files
    $cssindestdir = $conf->website->dir_temp.'/'.$website->ref.'/containers/styles.css.php';
    if (dol_is_file($cssindestdir)) {
      dolReplaceInFile($cssindestdir, $arrayreplacementincss);
    }
 
    $htmldeaderindestdir = $conf->website->dir_temp.'/'.$website->ref.'/containers/htmlheader.html';
    if (dol_is_file($htmldeaderindestdir)) {
      dolReplaceInFile($htmldeaderindestdir, $arrayreplacementincss);
    }
 
    // Build the website_page.sql file
    $filesql = $conf->website->dir_temp.'/'.$website->ref.'/website_pages.sql';
    $fp = fopen($filesql, "w");
    if (empty($fp)) {
      setEventMessages("Failed to create file ".$filesql, null, 'errors');
      return '';
    }
 
    $objectpages = new WebsitePage($this->db);
    $listofpages = $objectpages->fetchAll($website->id);
 
 
    // Assign ->newid and ->newfk_page starting at 1.
    $i = 1;
    foreach ($listofpages as $pageid => $objectpageold) {
      $objectpageold->newid = $i;
      $i++;
    }
    $i = 1;
    foreach ($listofpages as $pageid => $objectpageold) {
      // Search newid
      $newfk_page = 0;
      foreach ($listofpages as $pageid2 => $objectpageold2) {
        if ($pageid2 == $objectpageold->fk_page) {
          $newfk_page = $objectpageold2->newid;
          break;
        }
      }
      $objectpageold->newfk_page = $newfk_page;
      $i++;
    }
 
    $line = '-- File generated by Dolibarr '.DOL_VERSION.' --;'."\n";
    $line .= "\n";
    fwrite($fp, $line);
 
    foreach ($listofpages as $pageid => $objectpageold) {
      $oldpageid = $objectpageold->id;
 
      $allaliases = $objectpageold->pageurl;
      $allaliases .= ($objectpageold->aliasalt ? ','.$objectpageold->aliasalt : '');
 
      if (!getDolGlobalInt('WEBSITE_EXPORT_KEEP_FILES_OF_PAGES')) {
        // We don't need to keep the PHP files of pages and aliases (they are regenerated at import) so we remove them.
        // Delete the pageX.tpl.php page
        dol_delete_file($conf->website->dir_temp.'/'.$website->ref.'/containers/page'.$objectpageold->id.'.tpl.php', 0, 0, 0, null, false, 0);
        // Delete the alias page
        dol_delete_file($conf->website->dir_temp.'/'.$website->ref.'/containers/'.$objectpageold->pageurl.'.php', 0, 0, 0, null, false, 0);
        dol_delete_file($conf->website->dir_temp.'/'.$website->ref.'/containers/*/'.$objectpageold->pageurl.'.php', 0, 0, 0, null, false, 0);
        // Delete alternative alias pages
        $arrayofaliases = explode(',', $objectpageold->aliasalt);
        foreach ($arrayofaliases as $tmpaliasalt) {
          dol_delete_file($conf->website->dir_temp.'/'.$website->ref.'/containers/'.trim($tmpaliasalt).'.php', 0, 0, 0, null, false, 0);
          dol_delete_file($conf->website->dir_temp.'/'.$website->ref.'/containers/*/'.trim($tmpaliasalt).'.php', 0, 0, 0, null, false, 0);
        }
      }
 
      // This comment syntax is important, it is parsed by import to get information on page ID and all aliases to regenerate
      $line = '-- Page ID '.$objectpageold->newid.'__+MAX_llx_website_page__ - Aliases '.$allaliases.' --;'; // newid start at 1, 2...
      $line .= "\n";
      fwrite($fp, $line);
 
      // Warning: We must keep llx_ here. It is a generic SQL.
      $line = 'INSERT INTO llx_website_page(rowid, fk_page, fk_website, pageurl, aliasalt, title, description, lang, image, keywords, status, date_creation, tms, import_key, grabbed_from, type_container, htmlheader, content, author_alias, allowed_in_frames)';
      $line .= " VALUES(";
      $line .= $objectpageold->newid."__+MAX_llx_website_page__, ";
      $line .= ($objectpageold->newfk_page ? $this->db->escape($objectpageold->newfk_page)."__+MAX_llx_website_page__" : "null").", ";
      $line .= "__WEBSITE_ID__, ";
      $line .= "'".$this->db->escape($objectpageold->pageurl)."', ";
      $line .= "'".$this->db->escape($objectpageold->aliasalt)."', ";
      $line .= "'".$this->db->escape($objectpageold->title)."', ";
      $line .= "'".$this->db->escape($objectpageold->description)."', ";
      $line .= "'".$this->db->escape($objectpageold->lang)."', ";
      $line .= "'".$this->db->escape($objectpageold->image)."', ";
      $line .= "'".$this->db->escape($objectpageold->keywords)."', ";
      $line .= "'".$this->db->escape($objectpageold->status)."', ";
      $line .= "'".$this->db->idate($objectpageold->date_creation)."', ";
      $line .= "'".$this->db->idate($objectpageold->date_modification)."', ";
      $line .= ($objectpageold->import_key ? "'".$this->db->escape($objectpageold->import_key)."'" : "null").", ";
      $line .= "'".$this->db->escape($objectpageold->grabbed_from)."', ";
      $line .= "'".$this->db->escape($objectpageold->type_container)."', ";
 
      // Make substitution with a generic path into htmlheader content
      $stringtoexport = $objectpageold->htmlheader;
      $stringtoexport = str_replace(array("\r\n", "\r", "\n"), "__N__", $stringtoexport);
      $stringtoexport = str_replace('file=image/'.$website->ref.'/', "file=image/__WEBSITE_KEY__/", $stringtoexport);
      $stringtoexport = str_replace('file=js/'.$website->ref.'/', "file=js/__WEBSITE_KEY__/", $stringtoexport);
      $stringtoexport = str_replace('medias/image/'.$website->ref.'/', "medias/image/__WEBSITE_KEY__/", $stringtoexport);
      $stringtoexport = str_replace('medias/js/'.$website->ref.'/', "medias/js/__WEBSITE_KEY__/", $stringtoexport);
 
      $stringtoexport = str_replace('file=logos%2Fthumbs%2F'.$mysoc->logo_small, "file=logos%2Fthumbs%2F__LOGO_SMALL_KEY__", $stringtoexport);
      $stringtoexport = str_replace('file=logos%2Fthumbs%2F'.$mysoc->logo_mini, "file=logos%2Fthumbs%2F__LOGO_MINI_KEY__", $stringtoexport);
      $stringtoexport = str_replace('file=logos%2Fthumbs%2F'.$mysoc->logo, "file=logos%2Fthumbs%2F__LOGO_KEY__", $stringtoexport);
      $line .= "'".$this->db->escape(str_replace(array("\r\n", "\r", "\n"), "__N__", $stringtoexport))."', "; // Replace \r \n to have record on 1 line
 
      // Make substitution with a generic path into page content
      $stringtoexport = $objectpageold->content;
      $stringtoexport = str_replace(array("\r\n", "\r", "\n"), "__N__", $stringtoexport);
      $stringtoexport = str_replace('file=image/'.$website->ref.'/', "file=image/__WEBSITE_KEY__/", $stringtoexport);
      $stringtoexport = str_replace('file=js/'.$website->ref.'/', "file=js/__WEBSITE_KEY__/", $stringtoexport);
      $stringtoexport = str_replace('medias/image/'.$website->ref.'/', "medias/image/__WEBSITE_KEY__/", $stringtoexport);
      $stringtoexport = str_replace('medias/js/'.$website->ref.'/', "medias/js/__WEBSITE_KEY__/", $stringtoexport);
      $stringtoexport = str_replace('"image/'.$website->ref.'/', '"image/__WEBSITE_KEY__/', $stringtoexport); // When we have a link src="image/websiteref/file.png" into html content
      $stringtoexport = str_replace('"/image/'.$website->ref.'/', '"/image/__WEBSITE_KEY__/', $stringtoexport); // When we have a link src="/image/websiteref/file.png" into html content
      $stringtoexport = str_replace('"js/'.$website->ref.'/', '"js/__WEBSITE_KEY__/', $stringtoexport);
      $stringtoexport = str_replace('"/js/'.$website->ref.'/', '"/js/__WEBSITE_KEY__/', $stringtoexport);
 
      $stringtoexport = str_replace('file=logos%2Fthumbs%2F'.$mysoc->logo_small, "file=logos%2Fthumbs%2F__LOGO_SMALL_KEY__", $stringtoexport);
      $stringtoexport = str_replace('file=logos%2Fthumbs%2F'.$mysoc->logo_mini, "file=logos%2Fthumbs%2F__LOGO_MINI_KEY__", $stringtoexport);
      $stringtoexport = str_replace('file=logos%2Fthumbs%2F'.$mysoc->logo, "file=logos%2Fthumbs%2F__LOGO_KEY__", $stringtoexport);
 
 
      $line .= "'".$this->db->escape($stringtoexport)."', "; // Replace \r \n to have record on 1 line
      $line .= "'".$this->db->escape($objectpageold->author_alias)."', ";
      $line .= (int) $objectpageold->allowed_in_frames;
      $line .= ");";
      $line .= "\n";
 
      fwrite($fp, $line);
 
      // Add line to update home page id during import
      //var_dump($this->fk_default_home.' - '.$objectpageold->id.' - '.$objectpageold->newid);exit;
      if ($this->fk_default_home > 0 && ($objectpageold->id == $this->fk_default_home) && ($objectpageold->newid > 0)) {  // This is the page that is set as the home page
        // Warning: We must keep llx_ here. It is a generic SQL.
        $line = "UPDATE llx_website SET fk_default_home = ".($objectpageold->newid > 0 ? $this->db->escape($objectpageold->newid)."__+MAX_llx_website_page__" : "null")." WHERE rowid = __WEBSITE_ID__;";
        $line .= "\n";
        fwrite($fp, $line);
      }
 
      fwrite($fp, "\n");
    }
 
    $line = "\n-- For Dolibarr v14+ --;\n";
    $line .= "UPDATE llx_website SET lang = '".$this->db->escape($this->lang)."' WHERE rowid = __WEBSITE_ID__;\n";
    $line .= "UPDATE llx_website SET otherlang = '".$this->db->escape($this->otherlang)."' WHERE rowid = __WEBSITE_ID__;\n";
    $line .= "\n";
    fwrite($fp, $line);
 
    fclose($fp);
 
    dolChmod($filesql);
 
    // Build zip file
    $filedir  = $conf->website->dir_temp.'/'.$website->ref.'/.';
    $fileglob = $conf->website->dir_temp.'/'.$website->ref.'/website_'.$website->ref.'-*.zip';
    $filename = $conf->website->dir_temp.'/'.$website->ref.'/website_'.$website->ref.'-'.dol_print_date(dol_now(), 'dayhourlog').'-V'.((float) DOL_VERSION).'.zip';
 
    dol_delete_file($fileglob, 0);
 
    $result = dol_compress_dir($filedir, $filename, 'zip');
 
    if ($result > 0) {
      return $filename;
    } else {
      global $errormsg;
      $this->error = $errormsg;
      return '';
    }
  }
 
 
  public function importWebSite($pathtofile)
  {
    global $conf, $mysoc;
 
    $error = 0;
 
    $pathtofile = dol_sanitizePathName($pathtofile);
    $object = $this;
    if (empty($object->ref)) {
      $this->error = 'Function importWebSite called on object not loaded (object->ref is empty)';
      return -2;
    }
 
    dol_delete_dir_recursive($conf->website->dir_temp."/".$object->ref);
    dol_mkdir($conf->website->dir_temp.'/'.$object->ref);
 
    $filename = basename($pathtofile);
    if (!preg_match('/^website_(.*)-(.*)$/', $filename, $reg)) {
      $this->errors[] = 'Bad format for filename '.$filename.'. Must be website_XXX-VERSION.';
      return -3;
    }
 
    $result = dol_uncompress($pathtofile, $conf->website->dir_temp.'/'.$object->ref);
 
    if (!empty($result['error'])) {
      $this->errors[] = 'Failed to unzip file '.$pathtofile.'.';
      return -4;
    }
 
    $arrayreplacement = array();
    $arrayreplacement['__WEBSITE_ID__'] = $object->id;
    $arrayreplacement['__WEBSITE_KEY__'] = $object->ref;
    $arrayreplacement['__N__'] = $this->db->escape("\n"); // Restore \n
    $arrayreplacement['__LOGO_SMALL_KEY__'] = $this->db->escape($mysoc->logo_small);
    $arrayreplacement['__LOGO_MINI_KEY__'] = $this->db->escape($mysoc->logo_mini);
    $arrayreplacement['__LOGO_KEY__'] = $this->db->escape($mysoc->logo);
 
 
    // Copy containers directory
    dolCopyDir($conf->website->dir_temp.'/'.$object->ref.'/containers', $conf->website->dir_output.'/'.$object->ref, 0, 1); // Overwrite if exists
 
    // Make replacement into css and htmlheader file
    $cssindestdir = $conf->website->dir_output.'/'.$object->ref.'/styles.css.php';
    $result = dolReplaceInFile($cssindestdir, $arrayreplacement);
 
    $htmldeaderindestdir = $conf->website->dir_output.'/'.$object->ref.'/htmlheader.html';
    $result = dolReplaceInFile($htmldeaderindestdir, $arrayreplacement);
 
    // Now generate the master.inc.php page
    $filemaster = $conf->website->dir_output.'/'.$object->ref.'/master.inc.php';
    $result = dolSaveMasterFile($filemaster);
    if (!$result) {
      $this->errors[] = 'Failed to write file '.$filemaster;
      $error++;
    }
 
    // Copy dir medias/image/websitekey
    if (dol_is_dir($conf->website->dir_temp.'/'.$object->ref.'/medias/image/websitekey')) {
      $result = dolCopyDir($conf->website->dir_temp.'/'.$object->ref.'/medias/image/websitekey', $conf->website->dir_output.'/'.$object->ref.'/medias/image/'.$object->ref, 0, 1);
      if ($result < 0) {
        $this->error = 'Failed to copy files into '.$conf->website->dir_output.'/'.$object->ref.'/medias/image/'.$object->ref.'.';
        dol_syslog($this->error, LOG_WARNING);
        $this->errors[] = $this->error;
        return -5;
      }
    }
 
    // Copy dir medias/js/websitekey
    if (dol_is_dir($conf->website->dir_temp.'/'.$object->ref.'/medias/js/websitekey')) {
      $result = dolCopyDir($conf->website->dir_temp.'/'.$object->ref.'/medias/js/websitekey', $conf->website->dir_output.'/'.$object->ref.'/medias/js/'.$object->ref, 0, 1);
      if ($result < 0) {
        $this->error = 'Failed to copy files into '.$conf->website->dir_output.'/'.$object->ref.'/medias/js/'.$object->ref.'.';
        dol_syslog($this->error, LOG_WARNING);
        $this->errors[] = $this->error;
        return -6;
      }
    }
 
    $sqlfile = $conf->website->dir_temp."/".$object->ref.'/website_pages.sql';
 
    $result = dolReplaceInFile($sqlfile, $arrayreplacement);
 
    $this->db->begin();
 
    // Search the $maxrowid because we need it later
    $sqlgetrowid = 'SELECT MAX(rowid) as max from '.MAIN_DB_PREFIX.'website_page';
    $resql = $this->db->query($sqlgetrowid);
    if ($resql) {
      $obj = $this->db->fetch_object($resql);
      $maxrowid = $obj->max;
    }
 
    // Load sql record
    $runsql = run_sql($sqlfile, 1, '', 0, '', 'none', 0, 1, 0, 0, 1); // The maxrowid of table is searched into this function two
    if ($runsql <= 0) {
      $this->errors[] = 'Failed to load sql file '.$sqlfile.' (ret='.((int) $runsql).')';
      $error++;
    }
 
    $objectpagestatic = new WebsitePage($this->db);
 
    // Regenerate the php files for pages
    $fp = fopen($sqlfile, "r");
    if ($fp) {
      while (!feof($fp)) {
        $reg = array();
 
        // Warning fgets with second parameter that is null or 0 hang.
        $buf = fgets($fp, 65000);
        $newid = 0;
 
        // Scan the line
        if (preg_match('/^-- Page ID (\d+)\s[^\s]+\s(\d+).*Aliases\s(.+)\s--;/i', $buf, $reg)) {
          // Example of line: "-- Page ID 179 -> 1__+MAX_llx_website_page__ - Aliases about-us --;"
          $oldid = (int) $reg[1];
          $newid = ((int) $reg[2] + $maxrowid);
          $aliasesarray = explode(',', $reg[3]);
 
          dol_syslog("In sql source file, we have the page ID ".$oldid." to replace with the new ID ".$newid.", and we must create the shortcut aliases: ".$reg[3]);
 
          //dol_move($conf->website->dir_output.'/'.$object->ref.'/page'.$oldid.'.tpl.php', $conf->website->dir_output.'/'.$object->ref.'/page'.$newid.'.tpl.php', 0, 1, 0, 0);
        } elseif (preg_match('/^-- Page ID (\d+).*Aliases\s(.*)\s--;/i', $buf,  $reg)) {
          // Example of line: "-- Page ID 1__+MAX_llx_website_page__ - Aliases about-us --;"
          $newid = ((int) $reg[1] + $maxrowid);
          $aliasesarray = explode(',', $reg[2]);
 
          dol_syslog("In sql source file, we have the page with the new ID ".$newid.", and we must create the shortcut aliases: ".$reg[2]);
        }
 
        if ($newid) {
          $objectpagestatic->fetch($newid);
 
          // We regenerate the pageX.tpl.php
          $filetpl = $conf->website->dir_output.'/'.$object->ref.'/page'.$newid.'.tpl.php';
          $result = dolSavePageContent($filetpl, $object, $objectpagestatic);
          if (!$result) {
            $this->errors[] = 'Failed to write file '.basename($filetpl);
            $error++;
          }
 
          // Regenerate also the main alias + alternative aliases pages
          if (is_array($aliasesarray)) {
            foreach ($aliasesarray as $aliasshortcuttocreate) {
              if (trim($aliasshortcuttocreate)) {
                $filealias = $conf->website->dir_output.'/'.$object->ref.'/'.trim($aliasshortcuttocreate).'.php';
                $result = dolSavePageAlias($filealias, $object, $objectpagestatic);
                if (!$result) {
                  $this->errors[] = 'Failed to write file '.basename($filealias);
                  $error++;
                }
              }
            }
          }
        }
      }
    }
 
    // Read record of website that has been updated by the run_sql function previously called so we can get the
    // value of fk_default_home that is ID of home page
    $sql = "SELECT fk_default_home FROM ".MAIN_DB_PREFIX."website WHERE rowid = ".((int) $object->id);
    $resql = $this->db->query($sql);
    if ($resql) {
      $obj = $this->db->fetch_object($resql);
      if ($obj) {
        $object->fk_default_home = $obj->fk_default_home;
      } else {
        //$this->errors[] = 'Failed to get the Home page';
        //$error++;
      }
    }
 
    // Regenerate the index.php page to point to the new index page
    $pathofwebsite = $conf->website->dir_output.'/'.$object->ref;
    dolSaveIndexPage($pathofwebsite, $pathofwebsite.'/index.php', $pathofwebsite.'/page'.$object->fk_default_home.'.tpl.php', $pathofwebsite.'/wrapper.php', $object);
 
    //$this->initFilesStatus($pathofwebsite);
 
    if ($error) {
      $this->db->rollback();
      return -1;
    } else {
      $this->db->commit();
      return $object->id;
    }
  }
 
  public function rebuildWebSiteFiles()
  {
    global $conf;
 
    $error = 0;
 
    $object = $this;
    if (empty($object->ref)) {
      $this->error = 'Function rebuildWebSiteFiles called on object not loaded (object->ref is empty)';
      return -1;
    }
 
    $objectpagestatic = new WebsitePage($this->db);
 
    $sql = "SELECT rowid FROM ".MAIN_DB_PREFIX."website_page WHERE fk_website = ".((int) $this->id);
 
    $resql = $this->db->query($sql);
    if (!$resql) {
      $this->error = $this->db->lasterror();
      return -1;
    }
 
    $num = $this->db->num_rows($resql);
 
    // Loop on each container/page
    $i = 0;
    while ($i < $num) {
      $obj = $this->db->fetch_object($resql);
 
      $newid = $obj->rowid;
 
      $objectpagestatic->fetch($newid);
 
      $aliasesarray = explode(',', $objectpagestatic->aliasalt);
 
      $filetpl = $conf->website->dir_output.'/'.$object->ref.'/page'.$newid.'.tpl.php';
      $result = dolSavePageContent($filetpl, $object, $objectpagestatic);
      if (!$result) {
        $this->errors[] = 'Failed to write file '.basename($filetpl);
        $error++;
      }
 
      // Add main alias to list of alternative aliases
      if (!empty($objectpagestatic->pageurl) && !in_array($objectpagestatic->pageurl, $aliasesarray)) {
        $aliasesarray[] = $objectpagestatic->pageurl;
      }
 
      // Regenerate also all aliases pages (pages with a natural name) by calling dolSavePageAlias()
      if (is_array($aliasesarray)) {
        foreach ($aliasesarray as $aliasshortcuttocreate) {
          if (trim($aliasshortcuttocreate)) {
            $filealias = $conf->website->dir_output.'/'.$object->ref.'/'.trim($aliasshortcuttocreate).'.php';
            $result = dolSavePageAlias($filealias, $object, $objectpagestatic); // This includes also a copy into sublanguage directories.
            if (!$result) {
              $this->errors[] = 'Failed to write file '.basename($filealias);
              $error++;
            }
          }
        }
      }
 
      $i++;
    }
 
    if (!$error) {
      // Save index.php and wrapper.php
      $pathofwebsite = $conf->website->dir_output.'/'.$object->ref;
      $fileindex = $pathofwebsite.'/index.php';
      $filetpl = '';
      if ($object->fk_default_home > 0) {
        $filetpl = $pathofwebsite.'/page'.$object->fk_default_home.'.tpl.php';
      }
      $filewrapper = $pathofwebsite.'/wrapper.php';
      dolSaveIndexPage($pathofwebsite, $fileindex, $filetpl, $filewrapper, $object);  // This includes also a version of index.php into sublanguage directories
    }
 
    if ($error) {
      return -1;
    } else {
      return $num;
    }
  }
 
  public function isMultiLang()
  {
    return !empty($this->otherlang);
  }
 
  public function componentSelectLang($languagecodes, $weblangs, $morecss = '', $htmlname = '')
  {
    global $websitepagefile, $website;
 
    if (!is_object($weblangs)) {
      return 'ERROR componentSelectLang called with parameter $weblangs not defined';
    }
 
    $arrayofspecialmainlanguages = array(
      'en' => 'en_US',
      'sq' => 'sq_AL',
      'ar' => 'ar_SA',
      'eu' => 'eu_ES',
      'bn' => 'bn_DB',
      'bs' => 'bs_BA',
      'ca' => 'ca_ES',
      'zh' => 'zh_CN',
      'cs' => 'cs_CZ',
      'da' => 'da_DK',
      'et' => 'et_EE',
      'ka' => 'ka_GE',
      'el' => 'el_GR',
      'he' => 'he_IL',
      'kn' => 'kn_IN',
      'km' => 'km_KH',
      'ko' => 'ko_KR',
      'lo' => 'lo_LA',
      'nb' => 'nb_NO',
      'fa' => 'fa_IR',
      'sr' => 'sr_RS',
      'sl' => 'sl_SI',
      'uk' => 'uk_UA',
      'vi' => 'vi_VN'
    );
 
    // Load tmppage if we have $websitepagefile defined
    $tmppage = new WebsitePage($this->db);
 
    $pageid = 0;
    if (!empty($websitepagefile)) {
      $websitepagefileshort = basename($websitepagefile);
      if ($websitepagefileshort == 'index.php') {
        $pageid = $website->fk_default_home;
      } else {
        $pageid = str_replace(array('.tpl.php', 'page'), array('', ''), $websitepagefileshort);
      }
      if ($pageid > 0) {
        $tmppage->fetch($pageid);
      }
    }
 
    // Fill $languagecodes array with existing translation, nothing if none
    if (!is_array($languagecodes) && $pageid > 0) {
      $languagecodes = array();
 
      $sql = "SELECT wp.rowid, wp.lang, wp.pageurl, wp.fk_page";
      $sql .= " FROM ".MAIN_DB_PREFIX."website_page as wp";
      $sql .= " WHERE wp.fk_website = ".((int) $website->id);
      $sql .= " AND (wp.fk_page = ".((int) $pageid)." OR wp.rowid  = ".((int) $pageid);
      if ($tmppage->fk_page > 0) {
        $sql .= " OR wp.fk_page = ".((int) $tmppage->fk_page)." OR wp.rowid = ".((int) $tmppage->fk_page);
      }
      $sql .= ")";
 
      $resql = $this->db->query($sql);
      if ($resql) {
        while ($obj = $this->db->fetch_object($resql)) {
          $newlang = $obj->lang;
          if ($obj->rowid == $pageid) {
            $newlang = $obj->lang;
          }
          if (!in_array($newlang, $languagecodes)) {
            $languagecodes[] = $newlang;
          }
        }
      }
    }
    // Now $languagecodes is always an array. Example array('en', 'fr', 'es');
 
    $languagecodeselected = substr($weblangs->defaultlang, 0, 2); // Because we must init with a value, but real value is the lang of main parent container
    if (!empty($websitepagefile)) {
      $pageid = str_replace(array('.tpl.php', 'page'), array('', ''), basename($websitepagefile));
      if ($pageid > 0) {
        $pagelang = substr($tmppage->lang, 0, 2);
        $languagecodeselected = substr($pagelang, 0, 2);
        if (!in_array($pagelang, $languagecodes)) {
          $languagecodes[] = $pagelang; // We add language code of page into combo list
        }
      }
    }
 
    $weblangs->load('languages');
    //var_dump($weblangs->defaultlang);
 
    $url = $_SERVER["REQUEST_URI"];
    $url = preg_replace('/(\?|&)l=([a-zA-Z_]*)/', '', $url); // We remove param l from url
    //$url = preg_replace('/(\?|&)lang=([a-zA-Z_]*)/', '', $url); // We remove param lang from url
    $url .= (preg_match('/\?/', $url) ? '&' : '?').'l=';
    if (!preg_match('/^\//', $url)) {
      $url = '/'.$url;
    }
 
    $HEIGHTOPTION = 40;
    $MAXHEIGHT = 4 * $HEIGHTOPTION;
    $nboflanguage = count($languagecodes);
 
    $out = '<!-- componentSelectLang'.$htmlname.' -->'."\n";
 
    $out .= '<style>';
    $out .= '.componentSelectLang'.$htmlname.':hover { height: '.min($MAXHEIGHT, ($HEIGHTOPTION * $nboflanguage)).'px; overflow-x: hidden; overflow-y: '.((($HEIGHTOPTION * $nboflanguage) > $MAXHEIGHT) ? ' scroll' : 'hidden').'; }'."\n";
    $out .= '.componentSelectLang'.$htmlname.' li { line-height: '.$HEIGHTOPTION.'px; }'."\n";
    $out .= '.componentSelectLang'.$htmlname.' {
      display: inline-block;
      padding: 0;
      height: '.$HEIGHTOPTION.'px;
      overflow: hidden;
      transition: all .3s ease;
      margin: 0 0 0 0;
      vertical-align: top;
    }
    .componentSelectLang'.$htmlname.':hover, .componentSelectLang'.$htmlname.':hover a { background-color: #fff; color: #000 !important; }
    ul.componentSelectLang'.$htmlname.' { width: 150px; }
    ul.componentSelectLang'.$htmlname.':hover .fa { visibility: hidden; }
    .componentSelectLang'.$htmlname.' a { text-decoration: none; width: 100%; }
    .componentSelectLang'.$htmlname.' li { display: block; padding: 0px 15px; margin-left: 0; margin-right: 0; }
    .componentSelectLang'.$htmlname.' li:hover { background-color: #EEE; }
    ';
    $out .= '</style>';
    $out .= '<ul class="componentSelectLang'.$htmlname.($morecss ? ' '.$morecss : '').'">';
 
    if ($languagecodeselected) {
      // Convert $languagecodeselected into a long language code
      if (strlen($languagecodeselected) == 2) {
        $languagecodeselected = (empty($arrayofspecialmainlanguages[$languagecodeselected]) ? $languagecodeselected.'_'.strtoupper($languagecodeselected) : $arrayofspecialmainlanguages[$languagecodeselected]);
      }
 
      $countrycode = strtolower(substr($languagecodeselected, -2));
      $label = $weblangs->trans("Language_".$languagecodeselected);
      if ($countrycode == 'us') {
        $label = preg_replace('/\s*\‍(.*\‍)/', '', $label);
      }
      $out .= '<li><a href="'.$url.substr($languagecodeselected, 0, 2).'"><img height="12px" src="/medias/image/common/flags/'.$countrycode.'.png" style="margin-right: 5px;"/><span class="websitecomponentlilang">'.$label.'</span>';
      $out .= '<span class="fa fa-caret-down" style="padding-left: 5px;" />';
      $out .= '</a></li>';
    }
    $i = 0;
    if (is_array($languagecodes)) {
      foreach ($languagecodes as $languagecode) {
        // Convert $languagecode into a long language code
        if (strlen($languagecode) == 2) {
          $languagecode = (empty($arrayofspecialmainlanguages[$languagecode]) ? $languagecode.'_'.strtoupper($languagecode) : $arrayofspecialmainlanguages[$languagecode]);
        }
 
        if ($languagecode == $languagecodeselected) {
          continue; // Already output
        }
 
        $countrycode = strtolower(substr($languagecode, -2));
        $label = $weblangs->trans("Language_".$languagecode);
        if ($countrycode == 'us') {
          $label = preg_replace('/\s*\‍(.*\‍)/', '', $label);
        }
        $out .= '<li><a href="'.$url.substr($languagecode, 0, 2).'"><img height="12px" src="/medias/image/common/flags/'.$countrycode.'.png" style="margin-right: 5px;"/><span class="websitecomponentlilang">'.$label.'</span>';
        if (empty($i) && empty($languagecodeselected)) {
          $out .= '<span class="fa fa-caret-down" style="padding-left: 5px;" />';
        }
        $out .= '</a></li>';
        $i++;
      }
    }
    $out .= '</ul>';
 
    return $out;
  }
 
  public function overwriteTemplate(string $pathtotmpzip, $exportPath = '')
  {
    global $conf;
 
    //$error = 0;
 
    $website = $this;
    if (empty($website->id) || empty($website->ref)) {
      setEventMessages("Website id or ref is not defined", null, 'errors');
      return -1;
    }
    if (empty($website->name_template) && empty($exportPath)) {
      setEventMessages("To export the website template into a directory of the server, the name of the directory/template must be provided.", null, 'errors');
      return -1;
    }
    if (!is_writable($conf->website->dir_temp)) {
      setEventMessages("Temporary dir ".$conf->website->dir_temp." is not writable", null, 'errors');
      return -1;
    }
 
    // Replace modified files into the doctemplates directory.
    if (getDolGlobalString('WEBSITE_ALLOW_OVERWRITE_GIT_SOURCE')) {
      // If the user has not specified a path
      if (empty($exportPath)) {
        $destdirrel = 'install/doctemplates/websites/'.$website->name_template;
        $destdir = DOL_DOCUMENT_ROOT.'/'.$destdirrel;
      } else {
        $exportPath = rtrim($exportPath, '/');
        if (strpos($exportPath, '..') !== false) {
          setEventMessages("Invalid path.", null, 'errors');
          return -1;
        }
        // if path start with / (absolute path)
        if (strpos($exportPath, '/') === 0 || preg_match('/^[a-zA-Z]:/', $exportPath)) {
          if (!is_dir($exportPath)) {
            setEventMessages("The specified absolute path does not exist.", null, 'errors');
            return -1;
          }
 
          if (!is_writable($exportPath)) {
            setEventMessages("The specified absolute path is not writable.", null, 'errors');
            return -1;
          }
          $destdirrel = $exportPath;
          $destdir = $exportPath;
        } else {
          // relatif path
          $destdirrel = 'install/doctemplates/websites/'.$exportPath;
          $destdir = DOL_DOCUMENT_ROOT.'/'.$destdirrel;
        }
      }
    }
 
    dol_mkdir($destdir);
 
    if (!is_writable($destdir)) {
      setEventMessages("The specified path ".$destdir." is not writable.", null, 'errors');
      return -1;
    }
 
    // Export on target sources
    $resultarray = dol_uncompress($pathtotmpzip, $destdir);
 
    // Remove the file README and LICENSE from the $destdir/containers
    if (dol_is_file($destdir.'/containers/README.md')) {
      dol_move($destdir.'/containers/README.md', $destdir.'/README.md', '0', 1, 0, 0);
    }
    if (dol_is_file($destdir.'/containers/LICENSE')) {
      dol_move($destdir.'/containers/LICENSE', $destdir.'/LICENSE', '0', 1, 0, 0);
    }
    /*
    if (empty($exportPath)) {
      dol_delete_file($destdir.'/containers/README.md');
      dol_delete_file($destdir.'/containers/LICENSE');
    }
    */
 
    // Remove non required files (will be re-generated during the import)
    dol_delete_file($destdir.'/containers/index.php');
    dol_delete_file($destdir.'/containers/master.inc.php');
 
    // Now we remove the flag o+x on files
    // TODO
 
    if (!empty($resultarray)) {
      setEventMessages("Error, failed to unzip the export into target dir ".$destdir.": ".implode(',', $resultarray), null, 'errors');
    } else {
      setEventMessages("Website content written into ".$destdirrel, null, 'mesgs');
    }
 
    header("Location: ".$_SERVER["PHP_SELF"].'?website='.$website->ref);
    exit();
  }
 
  protected function extractNumberFromFilename($filename)
  {
    $matches = [];
    if (preg_match('/page(\d+)\.tpl\.php/', $filename, $matches)) {
      return (int) $matches[1];
    }
    return -1;
  }
 
  public function setTemplateName($name_template)
  {
    $sql = "UPDATE ".$this->db->prefix()."website SET";
    $sql .= " name_template = '".$this->db->escape($name_template)."'";
    $sql .= " WHERE rowid = ".(int) $this->id;
    $result = $this->db->query($sql);
 
    if ($result) {
      $this->db->commit();
      return 1;
    } else {
      $this->db->rollback();
      return -1;
    }
  }
 
  public function checkPreviousState($pathname)
  {
    if (!file_exists($pathname)) {
      if (touch($pathname)) {
        dolChmod($pathname, '0664');
      }
      return [];
    }
    return unserialize(file_get_contents($pathname));
  }
 
 
  public function saveState($etat, $pathname)
  {
    return file_put_contents($pathname, serialize($etat));
  }
 
  public function compareFichierModifie($dossierSource, $dossierDestination, $fichierModifie)
  {
 
    $fichiersSource = [];
    $fichiersDestination = [];
 
    $fichierWithNoPage = [];
    $fichierWithNoPageInDest = [];
 
    // Filter source files
    foreach (dol_dir_list($dossierSource, "files") as $file) {
      if (preg_match('/^page\d+/', $file['name']) && !str_contains($file['name'], '.old')) {
        $fichiersSource[] = $file;
      } else {
        $fichierWithNoPage[] = $file;
      }
    }
 
    // Filter destination files
    foreach (dol_dir_list($dossierDestination, "all", 1) as $file) {
      if (preg_match('/^page\d+/', $file['name']) && !str_contains($file['name'], '.old')) {
        $fichiersDestination[] = $file;
      } else {
        $fichierWithNoPageInDest[] = $file;
      }
    }
 
    // find index source and search it in folder destination
    $numOfPageSource = 0;
    foreach ($fichiersSource as $index => $file) {
      if ($file['name'] == basename($fichierModifie['fullname'])) {
        $numOfPageSource = $this->extractNumberFromFilename($file['name']);
        break;
      }
    }
 
    //search numPage where was declared
    $filesFound = array();
    foreach ($fichierWithNoPage as $filesource) {
      $fileContent = file_get_contents($filesource['fullname']);
      if (strpos($fileContent, "require './page".$numOfPageSource.".tpl.php'") !== false) {
        $filesFound = $filesource;
        break;
      }
    }
    // find file with same name and extract num page in destination folder
    $numPagesFound = '';
    foreach ($fichierWithNoPageInDest as $filedest) {
      if ($filedest['name'] === $filesFound['name']) {
        $fileContent = file_get_contents($filedest['fullname']);
        if (preg_match("/page\d+\.tpl\.php/", $fileContent, $matches)) {
          $numPagesFound = $matches[0];
          break;
        }
      }
    }
    //search file with the number of pages found
    $fileNeeded = array();
    foreach ($fichiersDestination as $index => $file) {
      if ($file['name'] == $numPagesFound) {
        $fileNeeded = $file;
        break;
      }
    }
 
    if (isset($fileNeeded)) {
      $sourceContent = file_get_contents($fichierModifie['fullname']);
      if (file_exists($fileNeeded['fullname'])) {
        $destContent = file_get_contents($fileNeeded['fullname']);
 
        $numOfPageDest = $this->extractNumberFromFilename($fileNeeded['name']);
        $differences = $this->showDifferences($destContent, $sourceContent, array($numOfPageDest,$numOfPageSource));
        $differences['file_destination'] = $fileNeeded;
      } else {
        $differences = array();
      }
      return $differences;
    }
    return array();
  }
 
  private function normalizeString($str)
  {
    $str = str_replace("\r\n", "\n", $str);
    $str = str_replace("\r", "\n", $str);
    return $str;
  }
 
  protected function showDifferences($str1, $str2, $exceptNumPge = array())
  {
    $diff = array();
    $str1 = $this->normalizeString($str1);
    $str2 = $this->normalizeString($str2);
 
    $lines1 = explode("\n", $str1);
    $lines2 = explode("\n", $str2);
 
    $linesShouldChange = array();
    $linesShouldNotChange = array();
    $linefound = array();
    $countNumPage = count($exceptNumPge);
 
    for ($i = 0;$i < $countNumPage; $i++) {
      $linefound[$i] = array();
      $linefound[$i]['meta'] = '/content="' . preg_quote($exceptNumPge[$i], '/') . '" \/>/';
      $linefound[$i]['output'] = '/dolWebsiteOutput\‍(\$tmp, "html", ' . preg_quote($exceptNumPge[$i], '/') . '\‍);/';
    }
 
    if (isset($linefound[1])) {
      $maxLines = max(count($lines1), count($lines2));
      for ($lineNum = 0; $lineNum < $maxLines; $lineNum++) {
        $lineContent1 = $lines1[$lineNum] ?? '';
        $lineContent2 = $lines2[$lineNum] ?? '';
        if (preg_match($linefound[0]['output'], $lineContent1)) {
          $linesShouldChange[] = $lineContent1;
        }
        if (preg_match($linefound[0]['meta'], $lineContent1)) {
          $linesShouldChange[] = $lineContent1;
        }
        if (preg_match($linefound[1]['output'], $lineContent2)) {
          $linesShouldNotChange[] = $lineContent2;
        }
        if (preg_match($linefound[1]['meta'], $lineContent2)) {
          $linesShouldNotChange[] = $lineContent2;
        }
        if ($lineContent1 !== $lineContent2) {
          if (isset($lines1[$lineNum]) && !isset($lines2[$lineNum])) {
            // Ligne deleted de la source
            $diff["Supprimée à la ligne " . ($lineNum + 1)] = $lineContent1;
          } elseif (!isset($lines1[$lineNum]) && isset($lines2[$lineNum])) {
            // Nouvelle ligne added dans la destination
            $diff["Ajoutée à la ligne " . ($lineNum + 1)] = $lineContent2;
          } else {
            // Différence found it
            $diff["Modifiée à la ligne " . ($lineNum + 1)] = $lineContent2;
          }
        }
      }
    }
 
 
    if (empty($linesShouldChange)) {
      $linesShouldChange[0] = '<meta name="dolibarr:pageid" content="'.$exceptNumPge[0].'" />';
      $linesShouldChange[1] = '$tmp = ob_get_contents(); ob_end_clean(); dolWebsiteOutput($tmp, "html", '.$exceptNumPge[0].');';
    }
 
    $replacementMapping = array();
    if (!empty($linesShouldNotChange)) {
      $i = 0;
      foreach ($linesShouldNotChange as $numLigne => $ligneRemplacement) {
        if (isset($linesShouldChange[$numLigne])) {
          $replacementMapping[$ligneRemplacement] = $linesShouldChange[$numLigne];
        } else {
          $replacementMapping[$ligneRemplacement] = $linesShouldChange[$i];
        }
        $i++;
      }
      $diff['lignes_dont_change'] = $replacementMapping;
    }
    // search path of image and replace it with the correct path
    $pattern = '/medias\/image\/'.preg_quote($this->ref, '/').'\/([^\'"\s]+)/';
 
    foreach ($diff as $key => $value) {
      // Ensure the value is a string
      if (is_string($value)) {
        if (preg_match($pattern, $value)) {
          $newValue = preg_replace($pattern, 'medias/image/'.$this->name_template.'/$1', $value);
          $diff[$key] = $newValue;
        }
      }
    }
    return $diff;
  }
 
  protected function replaceLineUsingNum($inplaceFile, $differences)
  {
    if (file_exists($inplaceFile)) {
      dolChmod($inplaceFile, '0664');
    }
    if (!is_writable($inplaceFile)) {
      return -2;
    }
 
    unset($differences['file_destination']);
    $contentDest = file($inplaceFile, FILE_IGNORE_NEW_LINES);
    foreach ($differences as $key => $ligneSource) {
      $matches = array();
      if (preg_match('/(Ajoutée|Modifiée) à la ligne (\d+)/', $key, $matches)) {
        $typeModification = $matches[1];
        $numLigne = (int) $matches[2] - 1;
 
        if ($typeModification === 'Ajoutée') {
          array_splice($contentDest, $numLigne, 0, $ligneSource);
        } elseif ($typeModification === 'Modifiée') {
          $contentDest[$numLigne] = $ligneSource;
        }
      } elseif (preg_match('/Supprimée à la ligne (\d+)/', $key, $matches)) {
        $numLigne = (int) $matches[1] - 1;
        unset($contentDest[$numLigne]);
      }
    }
    // Reindex the table keys
    $contentDest = array_values($contentDest);
    $stringreplacement = implode("\n", $contentDest);
    file_put_contents($inplaceFile, $stringreplacement);
    foreach ($differences['lignes_dont_change'] as $linechanged => $line) {
      if (in_array($linechanged, $contentDest)) {
        dolReplaceInFile($inplaceFile, array($linechanged => $line));
      }
    }
 
    return 0;
  }
}