@@ -22 +22 @@
- * \brief Page to show Dolibarr information
+ * \brief Page to show Dolibarr informations
@@ -25 +24,0 @@
-// Load Dolibarr environment
@@ -36,3 +35,3 @@
-$action = GETPOST('action', 'aZ09');
-
-if (!$user->admin) {
+$action = GETPOST('action', 'alpha');
+
+if (!$user->admin)
@@ -40 +38,0 @@
-}
@@ -51,14 +49,5 @@
-if ($action == 'getlastversion') {
- $result = getURLContent('https://sourceforge.net/projects/dolibarr/rss');
- //var_dump($result['content']);
- if (function_exists('simplexml_load_string')) {
- if (LIBXML_VERSION < 20900) {
- // Avoid load of external entities (security problem).
- // Required only if LIBXML_VERSION < 20900
- libxml_disable_entity_loader(true);
- }
-
- $sfurl = simplexml_load_string($result['content'], 'SimpleXMLElement', LIBXML_NOCDATA|LIBXML_NONET);
- } else {
- setEventMessages($langs->trans("ErrorPHPDoesNotSupport", "xml"), null, 'errors');
- }
+if ($action == 'getlastversion')
+{
+ $result = getURLContent('https://sourceforge.net/projects/dolibarr/rss');
+ //var_dump($result['content']);
+ $sfurl = simplexml_load_string($result['content']);
@@ -74 +62,0 @@
-$help_url = '';
@@ -77 +65 @@
-llxHeader('', $title, $help_url);
+llxHeader('', $title);
@@ -84 +72 @@
-print ''.$langs->trans("Version").' '.$langs->trans("Value").' '.$langs->trans("Version").' '.$langs->trans("Value").' '.(($version != '0.0') ? $version : $langs->trans("Unknown")).' ';
+ }
+ else
+ {
+ print $langs->trans("LastStableVersion").' : '.$langs->trans("UpdateServerOffline").' ';
+ }
+ }
+ else
+ {
+ print $langs->trans("LastStableVersion").' : '.$langs->trans("Check").' ';
+ }
+}
+
+// Now show link to the changelog
+print ' - ';
@@ -100,51 +126,6 @@
-if (preg_match('/[a-z]+/i', $version)) {
- $version = 'develop'; // If version contains text, it is not an official tagged version, so we use the full change log.
-}
-print ' '.$langs->trans("SeeChangeLog").' ';
-
-$newversion = '';
-if (function_exists('curl_init')) {
- $conf->global->MAIN_USE_RESPONSE_TIMEOUT = 10;
- print ' - ';
- if ($action == 'getlastversion') {
- if ($sfurl) {
- $i = 0;
- while (!empty($sfurl->channel[0]->item[$i]->title) && $i < 10000) {
- $title = $sfurl->channel[0]->item[$i]->title;
- $reg = array();
- if (preg_match('/([0-9]+\.([0-9\.]+))/', $title, $reg)) {
- $newversion = $reg[1];
- $newversionarray = explode('.', $newversion);
- $versionarray = explode('.', $version);
- //var_dump($newversionarray);var_dump($versionarray);
- if (versioncompare($newversionarray, $versionarray) > 0) {
- $version = $newversion;
- }
- }
- $i++;
- }
-
- // Show version
- print $langs->trans("LastStableVersion").' : '.(($version != '0.0') ? $version : $langs->trans("Unknown")).' ';
- if ($version != '0.0') {
- print ' '.$langs->trans("SeeChangeLog").' ';
- }
- } else {
- print $langs->trans("LastStableVersion").' : '.$langs->trans("UpdateServerOffline").' ';
- }
- } else {
- print $langs->trans("LastStableVersion").' : '.$langs->trans("Check").' ';
- }
-}
-
-// Now show link to the changelog
-//print ' - ';
-
-$version = DOL_VERSION;
-if (preg_match('/[a-z]+/i', $version)) {
- $version = 'develop'; // If version contains text, it is not an official tagged version, so we use the full change log.
-}
-
-print ''."\n";
-print ''.$langs->trans("VersionLastUpgrade").' ('.$langs->trans("Database").') '.getDolGlobalString('MAIN_VERSION_LAST_UPGRADE').' '.$langs->trans("VersionLastInstall").' '.getDolGlobalString('MAIN_VERSION_LAST_INSTALL').' '.$langs->trans("SeeChangeLog").' ';
+print ''."\n";
+print ''.$langs->trans("VersionLastUpgrade").' ('.$langs->trans("Database").') '.$conf->global->MAIN_VERSION_LAST_UPGRADE.' '.$langs->trans("VersionLastInstall").' '.$conf->global->MAIN_VERSION_LAST_INSTALL.' '.$langs->trans("Session").' '.$langs->trans("Value").' '.$langs->trans("SessionSavePath").' '.session_save_path().' '.$langs->trans("SessionName").' '.session_name().' '.$langs->trans("SessionId").' '.session_id().' '.$langs->trans("CurrentSessionTimeOut").' (session.gc_maxlifetime) ';
-print '';
-print ini_get('session.gc_maxlifetime').' '.$langs->trans("seconds");
+print ' '.$langs->trans("Session").' '.$langs->trans("Value").' '.$langs->trans("SessionSavePath").' '.session_save_path().' '.$langs->trans("SessionName").' '.session_name().' '.$langs->trans("SessionId").' '.session_id().' '.$langs->trans("CurrentSessionTimeOut").' (session.gc_maxlifetime) '.ini_get('session.gc_maxlifetime').' '.$langs->trans("seconds");
+print ' ';
@@ -170,2 +150,2 @@
-print ' '.$langs->trans("CurrentTheme").' '.$conf->theme.' '.$langs->trans("CurrentMenuHandler").' ';
+print ' '.$langs->trans("CurrentTheme").' '.$conf->theme.' '.$langs->trans("CurrentMenuHandler").' ';
@@ -174 +154 @@
-print ' '.$langs->trans("Screen").' ';
+print ' '.$langs->trans("Screen").' ';
@@ -177 +157 @@
-print ' '.$langs->trans("Session").' ';
+print ' '.$langs->trans("Session").' ';
@@ -179,9 +159,5 @@
-foreach ($_SESSION as $key => $val) {
- if ($i > 0) {
- print ', ';
- }
- if (is_array($val)) {
- print $key.' => array(...)';
- } else {
- print $key.' => '.dol_escape_htmltag($val);
- }
+foreach ($_SESSION as $key => $val)
+{
+ if ($i > 0) print ', ';
+ if (is_array($val)) print $key.' => array(...)';
+ else print $key.' => '.dol_escape_htmltag($val);
@@ -197 +173,2 @@
-if (isset($conf->global->MAIN_OPTIMIZE_SPEED) && ($conf->global->MAIN_OPTIMIZE_SPEED & 0x02)) {
+if (isset($conf->global->MAIN_OPTIMIZE_SPEED) && ($conf->global->MAIN_OPTIMIZE_SPEED & 0x02))
+{
@@ -200 +177 @@
- print '';
+ print '
';
@@ -203 +180 @@
- print '
'.$langs->trans("LanguageFilesCachedIntoShmopSharedMemory").' ';
+ print ''.$langs->trans("LanguageFilesCachedIntoShmopSharedMemory").' ';
@@ -208 +185,2 @@
- foreach ($shmoparray as $key => $val) {
+ foreach ($shmoparray as $key => $val)
+ {
@@ -224 +202 @@
-print ''.$langs->trans("LocalisationDolibarrParameters").' '.$langs->trans("Value").' '.$langs->trans("LocalisationDolibarrParameters").' '.$langs->trans("Value").' '.$langs->trans("CurrentTimeZone").' '; // Timezone server PHP
+$a = getServerTimeZoneInt('now');
+$b = getServerTimeZoneInt('winter');
+$c = getServerTimeZoneInt('summer');
+$daylight = (is_numeric($c) && is_numeric($b)) ?round($c - $b) : 'unknown';
+//print $a." ".$b." ".$c." ".$daylight;
+$val = ($a >= 0 ? '+' : '').$a;
+$val .= ' ('.($a == 'unknown' ? 'unknown' : ($a >= 0 ? '+' : '').($a * 3600)).')';
+$val .= ' '.getServerTimeZoneString();
+$val .= ' '.$langs->trans("DaylingSavingTime").': '.($daylight === 'unknown' ? 'unknown' : ($a == $c ?yn($daylight) : yn(0).($daylight ? ' ('.$langs->trans('YesInSummer').')' : '')));
+print $form->textwithtooltip($val, $txt, 2, 1, img_info(''));
+print ' => '.$langs->trans("CurrentHour").' '.dol_print_date(dol_now(), 'dayhour', 'tzserver').' => dol_print_date(0,"dayhourtext") '.dol_print_date(0, "dayhourtext").' ';
+print ' => dol_get_first_day(1970,1,false) '.dol_get_first_day(1970, 1, false).' (=> dol_print_date() or idate() of this value = '.dol_print_date(dol_get_first_day(1970, 1, false), 'dayhour').') ';
+print ' => dol_get_first_day(1970,1,true) '.dol_get_first_day(1970, 1, true).' (=> dol_print_date() or idate() of this value = '.dol_print_date(dol_get_first_day(1970, 1, true), 'dayhour').') ';
@@ -251 +243,2 @@
-if ($conf->db->type == 'mysql' || $conf->db->type == 'mysqli') {
+if ($conf->db->type == 'mysql' || $conf->db->type == 'mysqli')
+{
@@ -255 +248,2 @@
- if ($resql) {
+ if ($resql)
+ {
@@ -261,19 +254,0 @@
-$txt = $langs->trans("OSTZ").' (variable system TZ): '.(!empty($_ENV["TZ"]) ? $_ENV["TZ"] : $langs->trans("NotDefined")).''.$langs->trans("CurrentTimeZone").' '; // Timezone server PHP
-$a = getServerTimeZoneInt('now');
-$b = getServerTimeZoneInt('winter');
-$c = getServerTimeZoneInt('summer');
-$daylight = round($c - $b);
-//print $a." ".$b." ".$c." ".$daylight;
-$val = ($a >= 0 ? '+' : '').$a;
-$val .= ' ('.($a == 'unknown' ? 'unknown' : ($a >= 0 ? '+' : '').($a * 3600)).')';
-$val .= ' '.getServerTimeZoneString();
-$val .= ' '.$langs->trans("DaylingSavingTime").': '.(is_null($daylight) ? 'unknown' : ($a == $c ? yn($daylight) : yn(0).($daylight ? ' ('.$langs->trans('YesInSummer').')' : '')));
-print $form->textwithtooltip($val, $txt, 2, 1, img_info(''));
-print ' => '.$langs->trans("CurrentHour").' '.dol_print_date(dol_now('gmt'), 'dayhour', 'tzserver').' => dol_print_date(0,"dayhourtext") '.dol_print_date(0, "dayhourtext").' ';
-print ' => dol_get_first_day(1970,1,false) '.dol_get_first_day(1970, 1, false).' (=> dol_print_date() or idate() of this value = '.dol_print_date(dol_get_first_day(1970, 1, false), 'dayhour').') ';
-print ' => dol_get_first_day(1970,1,true) '.dol_get_first_day(1970, 1, true).' (=> dol_print_date() or idate() of this value = '.dol_print_date(dol_get_first_day(1970, 1, true), 'dayhour').') ';
@@ -285,11 +260,6 @@
-if ($_SESSION['dol_dst'] > 0) {
- print yn(1);
-} else {
- print yn(0);
-}
-if (!empty($_SESSION['dol_dst_first'])) {
- print ' ('.dol_print_date(dol_stringtotime($_SESSION['dol_dst_first']), 'dayhour', 'gmt').' - '.dol_print_date(dol_stringtotime($_SESSION['dol_dst_second']), 'dayhour', 'gmt').')';
-}
-print ' => '.$langs->trans("ClientHour").' '.dol_print_date(dol_now('gmt'), 'dayhour', 'tzuser').' => '.$langs->trans("ClientHour").' '.dol_print_date(dol_now(), 'dayhour', 'tzuser').' '.$langs->trans("Parameters").' ';
+print ' '.$langs->trans("Parameters").' ';
@@ -385 +349,2 @@
-foreach ($configfileparameters as $key => $value) {
+foreach ($configfileparameters as $key => $value)
+{
@@ -388 +353,2 @@
- if (empty($ignore)) {
+ if (empty($ignore))
+ {
@@ -391,4 +357,4 @@
- if (preg_match('/^\?/', $key) && empty(${$newkey})) {
- if ($newkey != 'multicompany_transverse_mode' || !isModEnabled('multicompany')) {
- continue; // We discard parameters starting with ?
- }
+ if (preg_match('/^\?/', $key) && empty(${$newkey}))
+ {
+ if ($newkey != 'multicompany_transverse_mode' || empty($conf->multicompany->enabled))
+ continue; // We discard parameters starting with ?
@@ -396,2 +362,6 @@
- if (strpos($newkey, 'separator') !== false && $lastkeyshown == 'separator') {
- continue;
+ if (strpos($newkey, 'separator') !== false && $lastkeyshown == 'separator') continue;
+
+ print ' ';
+ if (strpos($newkey, 'separator') !== false)
+ {
+ print ' ';
@@ -399,5 +369,2 @@
-
- print ' ';
- if (strpos($newkey, 'separator') !== false) {
- print ' ';
- } else {
+ else
+ {
@@ -410,11 +377,5 @@
- if (in_array($newkey, array('dolibarr_main_db_pass', 'dolibarr_main_auth_ldap_admin_pass'))) {
- if (empty($dolibarr_main_prod)) {
- print '';
- print showValueWithClipboardCPButton(${$newkey}, 0, '********');
- } else {
- print '**********';
- }
- } elseif ($newkey == 'dolibarr_main_url_root' && preg_match('/__auto__/', ${$newkey})) {
- print ${$newkey}.' => '.constant('DOL_MAIN_URL_ROOT');
- } elseif ($newkey == 'dolibarr_main_document_root_alt') {
- $tmparray = explode(',', $dolibarr_main_document_root_alt);
+ if ($newkey == 'dolibarr_main_db_pass') print preg_replace('/./i', '*', ${$newkey});
+ elseif ($newkey == 'dolibarr_main_url_root' && preg_match('/__auto__/', ${$newkey})) print ${$newkey}.' => '.constant('DOL_MAIN_URL_ROOT');
+ elseif ($newkey == 'dolibarr_main_document_root_alt')
+ {
+ $tmparray = explode(',', ${$newkey});
@@ -422,4 +383,3 @@
- foreach ($tmparray as $value2) {
- if ($i > 0) {
- print ', ';
- }
+ foreach ($tmparray as $value2)
+ {
+ if ($i > 0) print ', ';
@@ -427 +387,2 @@
- if (!is_readable($value2)) {
+ if (!is_readable($value2))
+ {
@@ -433,40 +393,0 @@
- } elseif ($newkey == 'dolibarr_main_instance_unique_id') {
- //print $conf->file->instance_unique_id;
- global $dolibarr_main_cookie_cryptkey, $dolibarr_main_instance_unique_id;
- $valuetoshow = $dolibarr_main_instance_unique_id ? $dolibarr_main_instance_unique_id : $dolibarr_main_cookie_cryptkey; // Use $dolibarr_main_instance_unique_id first then $dolibarr_main_cookie_cryptkey
- if (empty($dolibarr_main_prod)) {
- print '';
- print showValueWithClipboardCPButton($valuetoshow, 0, '********');
- print ' '.$langs->trans("ThisValueCanBeReadBecauseInstanceIsNotInProductionMode").' ';
- } else {
- print '**********';
- print ' '.$langs->trans("SeeConfFile").' ';
- }
- if (empty($valuetoshow)) {
- print img_warning("EditConfigFileToAddEntry", 'dolibarr_main_instance_unique_id');
- }
- print ' ';
- print ' => '.$langs->trans("HashForPing").' '.md5('dolibarr'.$valuetoshow).' ('.$langs->trans("HashForPing").'='.md5('dolibarr'.$valuetoshow).') ';
@@ -476,0 +406,5 @@
+ else
+ {
+ print ${$newkey};
+ }
+ if ($newkey == 'dolibarr_main_url_root' && ${$newkey} != DOL_MAIN_URL_ROOT) print ' (currently overwritten by autodetected value: '.DOL_MAIN_URL_ROOT.')';
@@ -495,3 +429 @@
-if (!isModEnabled('multicompany') || !$user->entity) {
- print ''.$langs->trans("Entity").' '; // If superadmin or multicompany disabled
-}
+if (empty($conf->multicompany->enabled) || !$user->entity) print ''.$langs->trans("Entity").' '; // If superadmin or multicompany disabled
@@ -508 +440,2 @@
-if (!isModEnabled('multicompany')) {
+if (empty($conf->multicompany->enabled))
+{
@@ -511 +444,3 @@
-} else {
+}
+else
+{
@@ -513,3 +448 @@
- if ($user->entity) {
- $sql .= " WHERE entity IN (".$db->sanitize($user->entity.",".$conf->entity).")";
- }
+ if ($user->entity) $sql .= " WHERE entity IN (".$user->entity.",".$conf->entity.")";
@@ -519 +452,2 @@
-if ($resql) {
+if ($resql)
+{
@@ -523 +457,2 @@
- while ($i < $num) {
+ while ($i < $num)
+ {
@@ -527,14 +462,3 @@
- print ''.dol_escape_htmltag($obj->name).' '."\n";
- print '';
- if (isASecretKey($obj->name)) {
- if (empty($dolibarr_main_prod)) {
- print '';
- }
- print '**********';
- } else {
- print dol_escape_htmltag($obj->value);
- }
- print ' '."\n";
- if (!isModEnabled('multicompany') || !$user->entity) {
- print ''.$obj->entity.' '."\n"; // If superadmin or multicompany disabled
- }
+ print ''.$obj->name.' '."\n";
+ print ''.dol_escape_htmltag($obj->value).' '."\n";
+ if (empty($conf->multicompany->enabled) || !$user->entity) print ''.$obj->entity.' '."\n"; // If superadmin or multicompany disabled
--- /tmp/dsg/dolibarr/htdocs/admin/system/github_19.0.3_filecheck.php
+++ /tmp/dsg/dolibarr/htdocs/admin/system/client_filecheck.php
@@ -2 +2 @@
-/* Copyright (C) 2005-2020 Laurent Destailleur
+/* Copyright (C) 2005-2016 Laurent Destailleur
@@ -27 +26,0 @@
-// Load Dolibarr environment
@@ -34,3 +33,2 @@
-if (!$user->admin) {
- accessforbidden();
-}
+if (!$user->admin)
+ accessforbidden();
@@ -57,2 +55,2 @@
-print ''.$langs->trans("VersionLastInstall").' '.getDolGlobalString('MAIN_VERSION_LAST_INSTALL').' '.$langs->trans("VersionLastUpgrade").' '.getDolGlobalString('MAIN_VERSION_LAST_UPGRADE').' '.$langs->trans("VersionLastInstall").' '.$conf->global->MAIN_VERSION_LAST_INSTALL.' '.$langs->trans("VersionLastUpgrade").' '.$conf->global->MAIN_VERSION_LAST_UPGRADE.' '.$langs->trans("LocalSignature").' = ';
- print ''.$langs->trans("LocalSignature").' = ';
- print '('.$langs->trans("AvailableOnlyOnPackagedVersions").') ';
- print '('.$langs->trans("AvailableOnlyOnPackagedVersions").') ';
+ print ''.$langs->trans("RemoteSignature").' = ';
- print '('.$langs->trans("FeatureAvailableOnlyOnStable").') ';
- }
- print '('.$langs->trans("FeatureAvailableOnlyOnStable").') ';
+ print ''.$langs->trans('XmlCorrupted').': '.$xmlfile.'';
- $error++;
- }
- } else {
- print '
'.$langs->trans('XmlNotFound').': '.$xmlfile.'';
- $error++;
- }
-}
-if (GETPOST('target') == 'remote') {
- $xmlarray = getURLContent($xmlremote, 'GET', '', 1, array(), array('http', 'https'), 0); // Accept http or https links on external remote server only. Same is used into api_setup.class.php.
-
- // Return array('content'=>response,'curl_error_no'=>errno,'curl_error_msg'=>errmsg...)
- if (!$xmlarray['curl_error_no'] && $xmlarray['http_code'] != '400' && $xmlarray['http_code'] != '404') {
- $xmlfile = $xmlarray['content'];
- //print "xmlfilestart".$xmlfile."xmlfileend";
- if (LIBXML_VERSION < 20900) {
- // Avoid load of external entities (security problem).
- // Required only if LIBXML_VERSION < 20900
- libxml_disable_entity_loader(true);
- }
-
- $xml = simplexml_load_string($xmlfile, 'SimpleXMLElement', LIBXML_NOCDATA|LIBXML_NONET);
- } else {
- $errormsg = $langs->trans('XmlNotFound').': '.$xmlremote.' - '.$xmlarray['http_code'].(($xmlarray['http_code'] == 400 && $xmlarray['content']) ? ' '.$xmlarray['content'] : '').' '.$xmlarray['curl_error_no'].' '.$xmlarray['curl_error_msg'];
- setEventMessages($errormsg, null, 'errors');
- $error++;
- }
-}
-
-
-if (empty($error) && !empty($xml)) {
- $checksumconcat = array();
- $file_list = array();
- $out = '';
-
- // Forced constants
- if (is_object($xml->dolibarr_constants[0])) {
- $out .= load_fiche_titre($langs->trans("ForcedConstants"));
+if (GETPOST('target') == 'local')
+{
+ if (dol_is_file($xmlfile))
+ {
+ // If file is a zip file (.../filelist-x.y.z.xml.zip), we uncompress it before
+ if (preg_match('/\.zip$/i', $xmlfile)) {
+ dol_mkdir($conf->admin->dir_temp);
+ $xmlfilenew = preg_replace('/\.zip$/i', '', $xmlfile);
+ $result = dol_uncompress($xmlfile, $conf->admin->dir_temp);
+ if (empty($result['error'])) {
+ $xmlfile = $conf->admin->dir_temp.'/'.basename($xmlfilenew);
+ } else {
+ print $langs->trans('FailedToUncompressFile').': '.$xmlfile;
+ $error++;
+ }
+ }
+ $xml = simplexml_load_file($xmlfile);
+ }
+ else
+ {
+ print $langs->trans('XmlNotFound').': '.$xmlfile;
+ $error++;
+ }
+}
+if (GETPOST('target') == 'remote')
+{
+ $xmlarray = getURLContent($xmlremote);
+
+ // Return array('content'=>response,'curl_error_no'=>errno,'curl_error_msg'=>errmsg...)
+ if (!$xmlarray['curl_error_no'] && $xmlarray['http_code'] != '404')
+ {
+ $xmlfile = $xmlarray['content'];
+ //print "xmlfilestart".$xmlfile."xmlfileend";
+ $xml = simplexml_load_string($xmlfile);
+ }
+ else
+ {
+ $errormsg = $langs->trans('XmlNotFound').': '.$xmlremote.' - '.$xmlarray['http_code'].' '.$xmlarray['curl_error_no'].' '.$xmlarray['curl_error_msg'];
+ setEventMessages($errormsg, null, 'errors');
+ $error++;
+ }
+}
+
+
+if (!$error && $xml)
+{
+ $checksumconcat = array();
+ $file_list = array();
+ $out = '';
+
+ // Forced constants
+ if (is_object($xml->dolibarr_constants[0]))
+ {
+ $out .= load_fiche_titre($langs->trans("ForcedConstants"));
@@ -204,63 +182,66 @@
- $out .= '
';
- $out .= '';
- $out .= '# ';
- $out .= ''.$langs->trans("Constant").' ';
- $out .= ''.$langs->trans("ExpectedValue").' ';
- $out .= ''.$langs->trans("Value").' ';
- $out .= ' '."\n";
-
- $i = 0;
- foreach ($xml->dolibarr_constants[0]->constant as $constant) { // $constant is a simpleXMLElement
- $constname = $constant['name'];
- $constvalue = (string) $constant;
- $constvalue = (empty($constvalue) ? '0' : $constvalue);
- // Value found
- $value = '';
- if ($constname && getDolGlobalString($constname) != '') {
- $value = getDolGlobalString($constname);
- }
- $valueforchecksum = (empty($value) ? '0' : $value);
-
- $checksumconcat[] = $valueforchecksum;
-
- $i++;
- $out .= '';
- $out .= ''.$i.' '."\n";
- $out .= ''.dol_escape_htmltag($constname).' '."\n";
- $out .= ''.dol_escape_htmltag($constvalue).' '."\n";
- $out .= ''.dol_escape_htmltag($valueforchecksum).' '."\n";
- $out .= " \n";
- }
-
- if ($i == 0) {
- $out .= ''.$langs->trans("None").'
';
- $out .= '
';
-
- $out .= '
';
- }
-
- // Scan htdocs
- if (is_object($xml->dolibarr_htdocs_dir[0])) {
- //var_dump($xml->dolibarr_htdocs_dir[0]['includecustom']);exit;
- $includecustom = (empty($xml->dolibarr_htdocs_dir[0]['includecustom']) ? 0 : $xml->dolibarr_htdocs_dir[0]['includecustom']);
-
- // Define qualified files (must be same than into generate_filelist_xml.php and in api_setup.class.php)
- $regextoinclude = '\.(php|php3|php4|php5|phtml|phps|phar|inc|css|scss|html|xml|js|json|tpl|jpg|jpeg|png|gif|ico|sql|lang|txt|yml|bak|md|mp3|mp4|wav|mkv|z|gz|zip|rar|tar|less|svg|eot|woff|woff2|ttf|manifest)$';
- $regextoexclude = '('.($includecustom ? '' : 'custom|').'documents|conf|install|dejavu-fonts-ttf-.*|public\/test|sabre\/sabre\/.*\/tests|Shared\/PCLZip|nusoap\/lib\/Mail|php\/example|php\/test|geoip\/sample.*\.php|ckeditor\/samples|ckeditor\/adapters)$'; // Exclude dirs
- $scanfiles = dol_dir_list(DOL_DOCUMENT_ROOT, 'files', 1, $regextoinclude, $regextoexclude);
-
- // Fill file_list with files in signature, new files, modified files
- $ret = getFilesUpdated($file_list, $xml->dolibarr_htdocs_dir[0], '', DOL_DOCUMENT_ROOT, $checksumconcat); // Fill array $file_list
- // Complete with list of new files
- foreach ($scanfiles as $keyfile => $valfile) {
- $tmprelativefilename = preg_replace('/^'.preg_quote(DOL_DOCUMENT_ROOT, '/').'/', '', $valfile['fullname']);
- if (!in_array($tmprelativefilename, $file_list['insignature'])) {
- $md5newfile = @md5_file($valfile['fullname']); // Can fails if we don't have permission to open/read file
- $file_list['added'][] = array('filename'=>$tmprelativefilename, 'md5'=>$md5newfile);
- }
- }
-
- // Files missings
- $out .= load_fiche_titre($langs->trans("FilesMissing"));
+ $out .= '
';
+ $out .= '';
+ $out .= '# ';
+ $out .= ''.$langs->trans("Constant").' ';
+ $out .= ''.$langs->trans("ExpectedValue").' ';
+ $out .= ''.$langs->trans("Value").' ';
+ $out .= ' '."\n";
+
+ $i = 0;
+ foreach ($xml->dolibarr_constants[0]->constant as $constant) // $constant is a simpleXMLElement
+ {
+ $constname = $constant['name'];
+ $constvalue = (string) $constant;
+ $constvalue = (empty($constvalue) ? '0' : $constvalue);
+ // Value found
+ $value = '';
+ if ($constname && $conf->global->$constname != '') $value = $conf->global->$constname;
+ $valueforchecksum = (empty($value) ? '0' : $value);
+
+ $checksumconcat[] = $valueforchecksum;
+
+ $i++;
+ $out .= '';
+ $out .= ''.$i.' '."\n";
+ $out .= ''.$constname.' '."\n";
+ $out .= ''.$constvalue.' '."\n";
+ $out .= ''.$valueforchecksum.' '."\n";
+ $out .= " \n";
+ }
+
+ if ($i == 0)
+ {
+ $out .= ''.$langs->trans("None").'
';
+ $out .= '
';
- $out .= '';
- $out .= '# ';
- $out .= ''.$langs->trans("Filename").' ';
- $out .= ''.$langs->trans("ExpectedSize").' ';
- $out .= ''.$langs->trans("ExpectedChecksum").' ';
- $out .= ' '."\n";
- $tmpfilelist = dol_sort_array($file_list['missing'], 'filename');
- if (is_array($tmpfilelist) && count($tmpfilelist)) {
- $i = 0;
- foreach ($tmpfilelist as $file) {
- $i++;
- $out .= '';
- $out .= ''.$i.' '."\n";
- $out .= ''.dol_escape_htmltag($file['filename']).' '."\n";
- $out .= '';
- if (!empty($file['expectedsize'])) {
- $out .= dol_print_size($file['expectedsize']);
- }
- $out .= ' '."\n";
- $out .= ''.dol_escape_htmltag($file['expectedmd5']).' '."\n";
- $out .= " \n";
- }
- } else {
- $out .= ''.$langs->trans("None").'
';
- $out .= '