website2.lib.php

Go to the documentation of this file.

<?php
/* Copyright (C) 2017 Laurent Destailleur <eldy@users.sourceforge.net>
 *
 * 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/>.
 */
 
function dolSaveMasterFile($filemaster)
{
  global $conf;
 
  // Now generate the master.inc.php page
  dol_syslog("We regenerate the master file");
  dol_delete_file($filemaster);
 
  $mastercontent = '<?php'."\n";
  $mastercontent .= '// File generated to link to the master file - DO NOT MODIFY - It is just an include'."\n";
  $mastercontent .= "if (! defined('USEDOLIBARRSERVER') && ! defined('USEDOLIBARREDITOR')) {\n";
  $mastercontent .= "    if (! defined('USEEXTERNALSERVER')) define('USEEXTERNALSERVER', 1);\n";
  $mastercontent .= "    require_once '".DOL_DOCUMENT_ROOT."/master.inc.php';\n";
  $mastercontent .= "}\n";
  $mastercontent .= '?>'."\n";
  $result = file_put_contents($filemaster, $mastercontent);
  if (!empty($conf->global->MAIN_UMASK)) {
    @chmod($filemaster, octdec($conf->global->MAIN_UMASK));
  }
 
  return $result;
}
 
function dolSavePageAlias($filealias, $object, $objectpage)
{
  global $conf;
 
  // Now create the .tpl file
  dol_syslog("dolSavePageAlias We regenerate the alias page filealias=".$filealias);
 
  $aliascontent = '<?php'."\n";
  $aliascontent .= "// File generated to wrap the alias page - DO NOT MODIFY - It is just a wrapper to real page\n";
  $aliascontent .= 'global $dolibarr_main_data_root;'."\n";
  $aliascontent .= 'if (empty($dolibarr_main_data_root)) require \'./page'.$objectpage->id.'.tpl.php\'; ';
  $aliascontent .= 'else require $dolibarr_main_data_root.\'/website/\'.$website->ref.\'/page'.$objectpage->id.'.tpl.php\';'."\n";
  $aliascontent .= '?>'."\n";
  $result = file_put_contents($filealias, $aliascontent);
  if ($result === false) {
    dol_syslog("Failed to write file ".$filealias, LOG_WARNING);
  }
  if (!empty($conf->global->MAIN_UMASK)) {
    @chmod($filealias, octdec($conf->global->MAIN_UMASK));
  }
 
  // Save also alias into language subdirectory if it is not a main language
  if ($objectpage->lang && in_array($objectpage->lang, explode(',', $object->otherlang))) {
    $dirname = dirname($filealias);
    $filename = basename($filealias);
    $filealiassub = $dirname.'/'.$objectpage->lang.'/'.$filename;
 
    $aliascontent = '<?php'."\n";
    $aliascontent .= "// File generated to wrap the alias page - DO NOT MODIFY - It is just a wrapper to real page\n";
    $aliascontent .= 'global $dolibarr_main_data_root;'."\n";
    $aliascontent .= 'if (empty($dolibarr_main_data_root)) require \'../page'.$objectpage->id.'.tpl.php\'; ';
    $aliascontent .= 'else require $dolibarr_main_data_root.\'/website/\'.$website->ref.\'/page'.$objectpage->id.'.tpl.php\';'."\n";
    $aliascontent .= '?>'."\n";
    $result = file_put_contents($filealiassub, $aliascontent);
    if ($result === false) {
      dol_syslog("Failed to write file ".$filealiassub, LOG_WARNING);
    }
    if (!empty($conf->global->MAIN_UMASK)) {
      @chmod($filealiassub, octdec($conf->global->MAIN_UMASK));
    }
  } elseif (empty($objectpage->lang) || !in_array($objectpage->lang, explode(',', $object->otherlang))) {
    // Save also alias into all language subdirectories if it is a main language
    if (empty($conf->global->WEBSITE_DISABLE_MAIN_LANGUAGE_INTO_LANGSUBDIR) && !empty($object->otherlang)) {
      $dirname = dirname($filealias);
      $filename = basename($filealias);
      foreach (explode(',', $object->otherlang) as $sublang) {
        // Avoid to erase main alias file if $sublang is empty string
        if (empty(trim($sublang))) continue;
        $filealiassub = $dirname.'/'.$sublang.'/'.$filename;
 
        $aliascontent = '<?php'."\n";
        $aliascontent .= "// File generated to wrap the alias page - DO NOT MODIFY - It is just a wrapper to real page\n";
        $aliascontent .= 'global $dolibarr_main_data_root;'."\n";
        $aliascontent .= 'if (empty($dolibarr_main_data_root)) require \'../page'.$objectpage->id.'.tpl.php\'; ';
        $aliascontent .= 'else require $dolibarr_main_data_root.\'/website/\'.$website->ref.\'/page'.$objectpage->id.'.tpl.php\';'."\n";
        $aliascontent .= '?>'."\n";
        $result = file_put_contents($filealiassub, $aliascontent);
        if ($result === false) {
          dol_syslog("Failed to write file ".$filealiassub, LOG_WARNING);
        }
        if (!empty($conf->global->MAIN_UMASK)) {
          @chmod($filealiassub, octdec($conf->global->MAIN_UMASK));
        }
      }
    }
  }
 
  return ($result ?true:false);
}
 
 
function dolSavePageContent($filetpl, Website $object, WebsitePage $objectpage, $backupold = 0)
{
  global $conf, $db;
 
  // Now create the .tpl file (duplicate code with actions updatesource or updatecontent but we need this to save new header)
  dol_syslog("dolSavePageContent We regenerate the tpl page filetpl=".$filetpl);
 
  include_once DOL_DOCUMENT_ROOT.'/core/lib/files.lib.php';
 
  if (dol_is_file($filetpl)) {
    if ($backupold) {
      dol_delete_file($filetpl.'.old');
      $result = dol_move($filetpl, $filetpl.'.old', 0, 1, 0, 0);
      if (! $result) {
        return false;
      }
    } else {
      dol_delete_file($filetpl);
    }
  }
 
  $shortlangcode = '';
  if ($objectpage->lang) {
    $shortlangcode = substr($objectpage->lang, 0, 2); // en_US or en-US -> en
  }
  if (empty($shortlangcode)) {
    $shortlangcode = substr($object->lang, 0, 2); // en_US or en-US -> en
  }
 
  $tplcontent = '';
  $tplcontent .= "<?php // BEGIN PHP\n";
  $tplcontent .= '$websitekey=basename(__DIR__); if (empty($websitepagefile)) $websitepagefile=__FILE__;'."\n";
  $tplcontent .= "if (! defined('USEDOLIBARRSERVER') && ! defined('USEDOLIBARREDITOR')) {\n";
  $tplcontent .= '  $pathdepth = count(explode(\'/\', $_SERVER[\'SCRIPT_NAME\'])) - 2;'."\n";
  $tplcontent .= '  require_once ($pathdepth ? str_repeat(\'../\', $pathdepth) : \'./\').\'master.inc.php\';'."\n";
  $tplcontent .= "} // Not already loaded\n";
  $tplcontent .= "require_once DOL_DOCUMENT_ROOT.'/core/lib/website.lib.php';\n";
  $tplcontent .= "require_once DOL_DOCUMENT_ROOT.'/core/website.inc.php';\n";
  $tplcontent .= "ob_start();\n";
  $tplcontent .= "// END PHP ?>\n";
  if (!empty($conf->global->WEBSITE_FORCE_DOCTYPE_HTML5)) {
    $tplcontent .= "<!DOCTYPE html>\n";
  }
  $tplcontent .= '<html'.($shortlangcode ? ' lang="'.$shortlangcode.'"' : '').'>'."\n";
  $tplcontent .= '<head>'."\n";
  $tplcontent .= '<title>'.dol_string_nohtmltag($objectpage->title, 0, 'UTF-8').'</title>'."\n";
  $tplcontent .= '<meta charset="utf-8">'."\n";
  $tplcontent .= '<meta http-equiv="content-type" content="text/html; charset=utf-8" />'."\n";
  $tplcontent .= '<meta name="robots" content="index, follow" />'."\n";
  $tplcontent .= '<meta name="viewport" content="width=device-width, initial-scale=1.0">'."\n";
  $tplcontent .= '<meta name="keywords" content="'.dol_string_nohtmltag($objectpage->keywords).'" />'."\n";
  $tplcontent .= '<meta name="title" content="'.dol_string_nohtmltag($objectpage->title, 0, 'UTF-8').'" />'."\n";
  $tplcontent .= '<meta name="description" content="'.dol_string_nohtmltag($objectpage->description, 0, 'UTF-8').'" />'."\n";
  $tplcontent .= '<meta name="generator" content="'.DOL_APPLICATION_TITLE.' '.DOL_VERSION.' (https://www.dolibarr.org)" />'."\n";
  $tplcontent .= '<meta name="dolibarr:pageid" content="'.dol_string_nohtmltag($objectpage->id).'" />'."\n";
  // Add canonical reference
  if ($object->virtualhost) {
    $tplcontent .= '<link rel="canonical" href="'.(($objectpage->id == $object->fk_default_home) ? '/' : (($shortlangcode != substr($object->lang, 0, 2) ? '/'.$shortlangcode : '').'/'.$objectpage->pageurl.'.php')).'" />'."\n";
  }
  // Add translation reference (main language)
  if ($object->isMultiLang()) {
    // Add page "translation of"
    $translationof = $objectpage->fk_page;
    if ($translationof) {
      $tmppage = new WebsitePage($db);
      $tmppage->fetch($translationof);
      if ($tmppage->id > 0) {
        $tmpshortlangcode = '';
        if ($tmppage->lang) {
          $tmpshortlangcode = preg_replace('/[_-].*$/', '', $tmppage->lang); // en_US or en-US -> en
        }
        if (empty($tmpshortlangcode)) {
          $tmpshortlangcode = preg_replace('/[_-].*$/', '', $object->lang); // en_US or en-US -> en
        }
        if ($tmpshortlangcode != $shortlangcode) {
          $tplcontent .= '<link rel="alternate" hreflang="'.$tmpshortlangcode.'" href="'.($object->fk_default_home == $tmppage->id ? '/' : (($tmpshortlangcode != substr($object->lang, 0, 2)) ? '/'.$tmpshortlangcode : '').'/'.$tmppage->pageurl.'.php').'" />'."\n";
        }
      }
    }
 
    // Add "has translation pages"
    $sql = "SELECT rowid as id, lang, pageurl from ".MAIN_DB_PREFIX.'website_page where fk_page IN ('.$db->sanitize($objectpage->id.($translationof ? ", ".$translationof : '')).")";
    $resql = $db->query($sql);
    if ($resql) {
      $num_rows = $db->num_rows($resql);
      if ($num_rows > 0) {
        while ($obj = $db->fetch_object($resql)) {
          $tmpshortlangcode = '';
          if ($obj->lang) {
            $tmpshortlangcode = preg_replace('/[_-].*$/', '', $obj->lang); // en_US or en-US -> en
          }
          if ($tmpshortlangcode != $shortlangcode) {
            $tplcontent .= '<link rel="alternate" hreflang="'.$tmpshortlangcode.'" href="'.($object->fk_default_home == $obj->id ? '/' : (($tmpshortlangcode != substr($object->lang, 0, 2) ? '/'.$tmpshortlangcode : '')).'/'.$obj->pageurl.'.php').'" />'."\n";
          }
        }
      }
    } else {
      dol_print_error($db);
    }
 
    // Add myself
    $tplcontent .= '<?php if ($_SERVER["PHP_SELF"] == "'.(($object->fk_default_home == $objectpage->id) ? '/' : (($shortlangcode != substr($object->lang, 0, 2)) ? '/'.$shortlangcode : '')).'/'.$objectpage->pageurl.'.php") { ?>'."\n";
    $tplcontent .= '<link rel="alternate" hreflang="'.$shortlangcode.'" href="'.(($object->fk_default_home == $objectpage->id) ? '/' : (($shortlangcode != substr($object->lang, 0, 2)) ? '/'.$shortlangcode : '').'/'.$objectpage->pageurl.'.php').'" />'."\n";
 
    $tplcontent .= '<?php } ?>'."\n";
  }
  // Add manifest.json. Do we have to add it only on home page ?
  $tplcontent .= '<?php if ($website->use_manifest) { print \'<link rel="manifest" href="/manifest.json.php" />\'."\n"; } ?>'."\n";
  $tplcontent .= '<!-- Include link to CSS file -->'."\n";
  // Add js
  $tplcontent .= '<link rel="stylesheet" href="/styles.css.php?website=<?php echo $websitekey; ?>" type="text/css" />'."\n";
  $tplcontent .= '<!-- Include link to JS file -->'."\n";
  $tplcontent .= '<script async src="/javascript.js.php"></script>'."\n";
  // Add headers
  $tplcontent .= '<!-- Include HTML header from common file -->'."\n";
  $tplcontent .= '<?php if (file_exists(DOL_DATA_ROOT."/website/".$websitekey."/htmlheader.html")) include DOL_DATA_ROOT."/website/".$websitekey."/htmlheader.html"; ?>'."\n";
  $tplcontent .= '<!-- Include HTML header from page header block -->'."\n";
  $tplcontent .= preg_replace('/<\/?html>/ims', '', $objectpage->htmlheader)."\n";
  $tplcontent .= '</head>'."\n";
 
  $tplcontent .= '<!-- File generated by Dolibarr website module editor -->'."\n";
  $tplcontent .= '<body id="bodywebsite" class="bodywebsite bodywebpage-'.$objectpage->ref.'">'."\n";
  $tplcontent .= $objectpage->content."\n";
  $tplcontent .= '</body>'."\n";
  $tplcontent .= '</html>'."\n";
 
  $tplcontent .= '<?php // BEGIN PHP'."\n";
  $tplcontent .= '$tmp = ob_get_contents(); ob_end_clean(); dolWebsiteOutput($tmp, "html", '.$objectpage->id.');'."\n";
  $tplcontent .= "// END PHP ?>\n";
 
  //var_dump($filetpl);exit;
  $result = file_put_contents($filetpl, $tplcontent);
  if (!empty($conf->global->MAIN_UMASK)) {
    @chmod($filetpl, octdec($conf->global->MAIN_UMASK));
  }
 
  return $result;
}
 
 
function dolSaveIndexPage($pathofwebsite, $fileindex, $filetpl, $filewrapper, $object = null)
{
  global $conf, $db;
 
  $result1 = false;
  $result2 = false;
 
  dol_mkdir($pathofwebsite);
 
  if ($fileindex) {
    dol_delete_file($fileindex);
    $indexcontent = '<?php'."\n";
    $indexcontent .= "// BEGIN PHP File generated to provide an index.php as Home Page or alias redirector - DO NOT MODIFY - It is just a generated wrapper.\n";
    $indexcontent .= '$websitekey=basename(__DIR__); if (empty($websitepagefile)) $websitepagefile=__FILE__;'."\n";
    $indexcontent .= "if (! defined('USEDOLIBARRSERVER') && ! defined('USEDOLIBARREDITOR')) { require_once './master.inc.php'; } // Load master if not already loaded\n";
    $indexcontent .= 'if (!empty($_GET[\'pageref\']) || !empty($_GET[\'pagealiasalt\']) || !empty($_GET[\'pageid\'])) {'."\n";
    $indexcontent .= "  require_once DOL_DOCUMENT_ROOT.'/core/lib/website.lib.php';\n";
    $indexcontent .= "  require_once DOL_DOCUMENT_ROOT.'/core/website.inc.php';\n";
    $indexcontent .= '  redirectToContainer($_GET[\'pageref\'], $_GET[\'pagealiasalt\'], $_GET[\'pageid\']);'."\n";
    $indexcontent .= "}\n";
    $indexcontent .= "include_once './".basename($filetpl)."'\n";
    $indexcontent .= '// END PHP ?>'."\n";
 
    $result1 = file_put_contents($fileindex, $indexcontent);
    if (!empty($conf->global->MAIN_UMASK)) {
      @chmod($fileindex, octdec($conf->global->MAIN_UMASK));
    }
 
    if (is_object($object) && $object->fk_default_home > 0) {
      $objectpage = new WebsitePage($db);
      $objectpage->fetch($object->fk_default_home);
 
      // Create a version for sublanguages
      if (empty($objectpage->lang) || !in_array($objectpage->lang, explode(',', $object->otherlang))) {
        if (empty($conf->global->WEBSITE_DISABLE_MAIN_LANGUAGE_INTO_LANGSUBDIR) && is_object($object) && !empty($object->otherlang)) {
          $dirname = dirname($fileindex);
          foreach (explode(',', $object->otherlang) as $sublang) {
            // Avoid to erase main alias file if $sublang is empty string
            if (empty(trim($sublang))) continue;
            $fileindexsub = $dirname.'/'.$sublang.'/index.php';
 
            // Same indexcontent than previously but with ../ instead of ./ for master and tpl file include/require_once.
            $relpath = '..';
            $indexcontent = '<?php'."\n";
            $indexcontent .= "// BEGIN PHP File generated to provide an index.php as Home Page or alias redirector - DO NOT MODIFY - It is just a generated wrapper.\n";
            $indexcontent .= '$websitekey=basename(__DIR__); if (empty($websitepagefile)) $websitepagefile=__FILE__;'."\n";
            $indexcontent .= "if (! defined('USEDOLIBARRSERVER') && ! defined('USEDOLIBARREDITOR')) { require_once '".$relpath."/master.inc.php'; } // Load master if not already loaded\n";
            $indexcontent .= 'if (!empty($_GET[\'pageref\']) || !empty($_GET[\'pagealiasalt\']) || !empty($_GET[\'pageid\'])) {'."\n";
            $indexcontent .= "  require_once DOL_DOCUMENT_ROOT.'/core/lib/website.lib.php';\n";
            $indexcontent .= "  require_once DOL_DOCUMENT_ROOT.'/core/website.inc.php';\n";
            $indexcontent .= '  redirectToContainer($_GET[\'pageref\'], $_GET[\'pagealiasalt\'], $_GET[\'pageid\']);'."\n";
            $indexcontent .= "}\n";
            $indexcontent .= "include_once '".$relpath."/".basename($filetpl)."'\n";  // use .. instead of .
            $indexcontent .= '// END PHP ?>'."\n";
            $result = file_put_contents($fileindexsub, $indexcontent);
            if ($result === false) {
              dol_syslog("Failed to write file ".$fileindexsub, LOG_WARNING);
            }
            if (!empty($conf->global->MAIN_UMASK)) {
              @chmod($fileindexsub, octdec($conf->global->MAIN_UMASK));
            }
          }
        }
      }
    }
  } else {
    $result1 = true;
  }
 
  if ($filewrapper) {
    dol_delete_file($filewrapper);
    $wrappercontent = file_get_contents(DOL_DOCUMENT_ROOT.'/website/samples/wrapper.php');
 
    $result2 = file_put_contents($filewrapper, $wrappercontent);
    if (!empty($conf->global->MAIN_UMASK)) {
      @chmod($filewrapper, octdec($conf->global->MAIN_UMASK));
    }
  } else {
    $result2 = true;
  }
 
  return ($result1 && $result2);
}
 
 
function dolSaveHtmlHeader($filehtmlheader, $htmlheadercontent)
{
  global $conf, $pathofwebsite;
 
  dol_syslog("Save html header into ".$filehtmlheader);
 
  dol_mkdir($pathofwebsite);
  $result = file_put_contents($filehtmlheader, $htmlheadercontent);
  if (!empty($conf->global->MAIN_UMASK)) {
    @chmod($filehtmlheader, octdec($conf->global->MAIN_UMASK));
  }
 
  return $result;
}
 
function dolSaveCssFile($filecss, $csscontent)
{
  global $conf, $pathofwebsite;
 
  dol_syslog("Save css file into ".$filecss);
 
  dol_mkdir($pathofwebsite);
  $result = file_put_contents($filecss, $csscontent);
  if (!empty($conf->global->MAIN_UMASK)) {
    @chmod($filecss, octdec($conf->global->MAIN_UMASK));
  }
 
  return $result;
}
 
function dolSaveJsFile($filejs, $jscontent)
{
  global $conf, $pathofwebsite;
 
  dol_syslog("Save js file into ".$filejs);
 
  dol_mkdir($pathofwebsite);
  $result = file_put_contents($filejs, $jscontent);
  if (!empty($conf->global->MAIN_UMASK)) {
    @chmod($filejs, octdec($conf->global->MAIN_UMASK));
  }
 
  return $result;
}
 
function dolSaveRobotFile($filerobot, $robotcontent)
{
  global $conf, $pathofwebsite;
 
  dol_syslog("Save robot file into ".$filerobot);
 
  dol_mkdir($pathofwebsite);
  $result = file_put_contents($filerobot, $robotcontent);
  if (!empty($conf->global->MAIN_UMASK)) {
    @chmod($filerobot, octdec($conf->global->MAIN_UMASK));
  }
 
  return $result;
}
 
function dolSaveHtaccessFile($filehtaccess, $htaccess)
{
  global $conf, $pathofwebsite;
 
  dol_syslog("Save htaccess file into ".$filehtaccess);
 
  dol_mkdir($pathofwebsite);
  $result = file_put_contents($filehtaccess, $htaccess);
  if (!empty($conf->global->MAIN_UMASK)) {
    @chmod($filehtaccess, octdec($conf->global->MAIN_UMASK));
  }
 
  return $result;
}
 
function dolSaveManifestJson($file, $content)
{
  global $conf, $pathofwebsite;
 
  dol_syslog("Save manifest.js.php file into ".$file);
 
  dol_mkdir($pathofwebsite);
  $result = file_put_contents($file, $content);
  if (!empty($conf->global->MAIN_UMASK)) {
    @chmod($file, octdec($conf->global->MAIN_UMASK));
  }
 
  return $result;
}
 
function dolSaveReadme($file, $content)
{
  global $conf, $pathofwebsite;
 
  dol_syslog("Save README.md file into ".$file);
 
  dol_mkdir($pathofwebsite);
  $result = file_put_contents($file, $content);
  if (!empty($conf->global->MAIN_UMASK)) {
    @chmod($file, octdec($conf->global->MAIN_UMASK));
  }
 
  return $result;
}
 
function dolSaveLicense($file, $content)
{
  global $conf, $pathofwebsite;
 
  dol_syslog("Save LICENSE file into ".$file);
 
  dol_mkdir($pathofwebsite);
  $result = file_put_contents($file, $content);
  if (!empty($conf->global->MAIN_UMASK)) {
    @chmod($file, octdec($conf->global->MAIN_UMASK));
  }
 
  return $result;
}
 
function showWebsiteTemplates(Website $website)
{
  global $conf, $langs, $db, $form, $user;
 
  $dirthemes = array('/doctemplates/websites');
  if (!empty($conf->modules_parts['websitetemplates'])) {   // Using this feature slow down application
    foreach ($conf->modules_parts['websitetemplates'] as $reldir) {
      $dirthemes = array_merge($dirthemes, (array) ($reldir.'doctemplates/websites'));
    }
  }
  $dirthemes = array_unique($dirthemes);
  // Now dir_themes=array('/themes') or dir_themes=array('/theme','/mymodule/theme')
 
  $colspan = 2;
 
  print '<!-- For website template import -->'."\n";
  print '<table class="noborder centpercent">';
 
  // Title
  print '<tr class="liste_titre"><th class="titlefield">';
  print $form->textwithpicto($langs->trans("Templates"), $langs->trans("ThemeDir").' : '.join(", ", $dirthemes));
  print ' ';
  print '<a href="'.$_SERVER["PHP_SELF"].'?website='.urlencode($website->ref).'&importsite=1" target="_blank" rel="noopener noreferrer external">';
  print img_picto('', 'refresh');
  print '</a>';
  print '</th>';
  print '<th class="right">';
  $url = 'https://www.dolistore.com/43-web-site-templates';
  print '<a href="'.$url.'" target="_blank" rel="noopener noreferrer external">';
  print img_picto('', 'globe', 'class="pictofixedwidth"').$langs->trans('DownloadMoreSkins');
  print '</a>';
  print '</th></tr>';
 
  print '<tr><td colspan="'.$colspan.'">';
 
  print '<table class="nobordernopadding centpercent"><tr><td><div class="center">';
 
  if (count($dirthemes)) {
    $i = 0;
    foreach ($dirthemes as $dir) {
      //print $dirroot.$dir;exit;
      $dirtheme = DOL_DATA_ROOT.$dir; // This include loop on $conf->file->dol_document_root
      if (is_dir($dirtheme)) {
        $handle = opendir($dirtheme);
        if (is_resource($handle)) {
          while (($subdir = readdir($handle)) !== false) {
            if (is_file($dirtheme."/".$subdir) && substr($subdir, 0, 1) <> '.' && substr($subdir, 0, 3) <> 'CVS' && preg_match('/\.zip$/i', $subdir)) {
              $subdirwithoutzip = preg_replace('/\.zip$/i', '', $subdir);
 
              // Disable not stable themes (dir ends with _exp or _dev)
              if ($conf->global->MAIN_FEATURES_LEVEL < 2 && preg_match('/_dev$/i', $subdir)) {
                continue;
              }
              if ($conf->global->MAIN_FEATURES_LEVEL < 1 && preg_match('/_exp$/i', $subdir)) {
                continue;
              }
 
              print '<div class="inline-block" style="margin-top: 10px; margin-bottom: 10px; margin-right: 20px; margin-left: 20px;">';
 
              $templatedir = $dirtheme."/".$subdir;
              $file = $dirtheme."/".$subdirwithoutzip.".jpg";
              $url = DOL_URL_ROOT.'/viewimage.php?modulepart=doctemplateswebsite&file='.$subdirwithoutzip.".jpg";
 
              if (!file_exists($file)) {
                $url = DOL_URL_ROOT.'/public/theme/common/nophoto.png';
              }
 
              $originalfile = basename($file);
              $entity = $conf->entity;
              $modulepart = 'doctemplateswebsite';
              $cache = '';
              $title = $file;
 
              $ret = '';
              $urladvanced = getAdvancedPreviewUrl($modulepart, $originalfile, 1, '&entity='.$entity);
              if (!empty($urladvanced)) {
                $ret .= '<a class="'.$urladvanced['css'].'" target="'.$urladvanced['target'].'" mime="'.$urladvanced['mime'].'" href="'.$urladvanced['url'].'">';
              } else {
                $ret .= '<a href="'.DOL_URL_ROOT.'/viewimage.php?modulepart='.urlencode($modulepart).'&entity='.((int) $entity).'&file='.urlencode($originalfile).'&cache='.((int) $cache).'">';
              }
              print $ret;
              print '<img class="img-skinthumb shadow" src="'.$url.'" border="0" alt="'.$title.'" title="'.$title.'" style="margin-bottom: 5px;">';
              print '</a>';
 
              print '<br>';
              print $subdir;
              print '<br>';
              print '<span class="opacitymedium">'.dol_print_size(dol_filesize($dirtheme."/".$subdir), 1, 1).' - '.dol_print_date(dol_filemtime($templatedir), 'dayhour', 'tzuserrel').'</span>';
              if ($user->hasRight('website', 'delete')) {
                print ' <a href="'.$_SERVER["PHP_SELF"].'?action=deletetemplate&token='.newToken().'&website='.urlencode($website->ref).'&templateuserfile='.urlencode($subdir).'">'.img_picto('', 'delete').'</a>';
              }
              print '<br><a href="'.$_SERVER["PHP_SELF"].'?action=importsiteconfirm&token='.newToken().'&website='.urlencode($website->ref).'&templateuserfile='.urlencode($subdir).'" class="button">'.$langs->trans("Load").'</a>';
              print '</div>';
 
              $i++;
            }
          }
        }
      }
    }
  } else {
    print '<span class="opacitymedium">'.$langs->trans("None").'</span>';
  }
 
  print '</div></td></tr></table>';
 
  print '</td></tr>';
  print '</table>';
}
 
 
function checkPHPCode($phpfullcodestringold, $phpfullcodestring)
{
  global $conf, $langs, $user;
 
  $error = 0;
 
  if (empty($phpfullcodestringold) && empty($phpfullcodestring)) {
    return 0;
  }
 
  // First check forbidden commands
  $forbiddenphpcommands = array();
  if (empty($conf->global->WEBSITE_PHP_ALLOW_EXEC)) {    // If option is not on, we disallow functions to execute commands
    $forbiddenphpcommands = array("exec", "passthru", "shell_exec", "system", "proc_open", "popen", "eval", "dol_eval", "executeCLI");
  }
  if (empty($conf->global->WEBSITE_PHP_ALLOW_WRITE)) {    // If option is not on, we disallow functions to write files
    $forbiddenphpcommands = array_merge($forbiddenphpcommands, array("fopen", "file_put_contents", "fputs", "fputscsv", "fwrite", "fpassthru", "unlink", "mkdir", "rmdir", "symlink", "touch", "umask"));
  }
  foreach ($forbiddenphpcommands as $forbiddenphpcommand) {
    if (preg_match('/'.$forbiddenphpcommand.'\s*\‍(/ms', $phpfullcodestring)) {
      $error++;
      setEventMessages($langs->trans("DynamicPHPCodeContainsAForbiddenInstruction", $forbiddenphpcommand), null, 'errors');
      break;
    }
  }
  // This char can be used to execute RCE for example using with echo `ls`
  $forbiddenphpchars = array();
  if (empty($conf->global->WEBSITE_PHP_ALLOW_DANGEROUS_CHARS)) {    // If option is not on, we disallow functions to execute commands
    $forbiddenphpchars = array("`");
  }
  foreach ($forbiddenphpchars as $forbiddenphpchar) {
    if (preg_match('/'.$forbiddenphpchar.'/ms', $phpfullcodestring)) {
      $error++;
      setEventMessages($langs->trans("DynamicPHPCodeContainsAForbiddenInstruction", $forbiddenphpchar), null, 'errors');
      break;
    }
  }
  // Check dynamic functions $xxx(
  if (preg_match('/\$[a-z0-9_]+\‍(/ims', $phpfullcodestring)) {
    $error++;
    setEventMessages($langs->trans("DynamicPHPCodeContainsAForbiddenInstruction", '$...('), null, 'errors');
  }
 
  if ($phpfullcodestringold != $phpfullcodestring) {
    if (!$error && empty($user->rights->website->writephp)) {
      $error++;
      setEventMessages($langs->trans("NotAllowedToAddDynamicContent"), null, 'errors');
    }
    if (!$error) {
      $dolibarrdataroot = preg_replace('/([\\/]+)$/i', '', DOL_DATA_ROOT);
      $allowimportsite = true;
      if (dol_is_file($dolibarrdataroot.'/installmodules.lock')) {
        $allowimportsite = false;
      }
 
      if (!$allowimportsite) {
        $error++;
        // Blocked by installmodules.lock
        if (getDolGlobalString('MAIN_MESSAGE_INSTALL_MODULES_DISABLED_CONTACT_US')) {
          // Show clean corporate message
          $message = $langs->trans('InstallModuleFromWebHasBeenDisabledContactUs');
        } else {
          // Show technical generic message
          $message = $langs->trans("InstallModuleFromWebHasBeenDisabledByFile", $dolibarrdataroot.'/installmodules.lock');
        }
        setEventMessages($message, null, 'errors');
      }
    }
  }
 
  return $error;
}