* Copyright (C) 2007 Rodolphe Quiedeville * Copyright (C) 2007-2012 Regis Houssin * Copyright (C) 2015 Frederic France * * 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 . */ /** * \file htdocs/admin/system/filecheck.php * \brief Page to check Dolibarr files integrity */ require '../../main.inc.php'; $langs->load("admin"); if (!$user->admin) accessforbidden(); /* * View */ llxHeader(); print_fiche_titre($langs->trans("FileCheckDolibarr"),'','setup'); // Version $var = true; print ''; print ''."\n"; $var = ! $var; print ''."\n"; $var = ! $var; print ''."\n"; $var = ! $var; print ''."\n"; print '

'.$langs->trans("Version").'	'.$langs->trans("Value").'
'.$langs->trans("VersionLastInstall").'	'.$conf->global->MAIN_VERSION_LAST_INSTALL.'
'.$langs->trans("VersionLastUpgrade").'	'.$conf->global->MAIN_VERSION_LAST_UPGRADE.'
'.$langs->trans("VersionProgram").'	'.DOL_VERSION; // If current version differs from last upgrade if (empty($conf->global->MAIN_VERSION_LAST_UPGRADE)) { // Compare version with last install database version (upgrades never occured) if (DOL_VERSION != $conf->global->MAIN_VERSION_LAST_INSTALL) print ' '.img_warning($langs->trans("RunningUpdateProcessMayBeRequired",DOL_VERSION,$conf->global->MAIN_VERSION_LAST_INSTALL)); } else { // Compare version with last upgrade database version if (DOL_VERSION != $conf->global->MAIN_VERSION_LAST_UPGRADE) print ' '.img_warning($langs->trans("RunningUpdateProcessMayBeRequired",DOL_VERSION,$conf->global->MAIN_VERSION_LAST_UPGRADE)); } print '

'; print '
'; // Modified or missing files $file_list = array('missing' => array(), 'updated' => array()); $xmlfile = DOL_DOCUMENT_ROOT.'/core/filelist-'.DOL_VERSION.'.xml'; if (file_exists($xmlfile)) { $xml = simplexml_load_file($xmlfile); if ($xml) { $ret = getFilesUpdated($xml->dolibarr_root_dir[0]); print ''; print ''; print ''; print ''."\n"; $var = true; foreach ($file_list['missing'] as $file) { $var = !$var; print ''; print '' . "\n"; print "\n"; } print '

' . $langs->trans("FilesMissing") . '

'.$file.'

'; print ''; print ''; print ''; print ''."\n"; $var = true; foreach ($file_list['updated'] as $file) { $var = !$var; print ''; print '' . "\n"; print "\n"; } print '

' . $langs->trans("FilesUpdated") . '

'.$file.'

'; } } else { print $langs->trans('XmlNotFound') . ': ' . DOL_DOCUMENT_ROOT . '/core/filelist-' . DOL_VERSION . '.xml'; } llxFooter(); $db->close(); /** * Function to get list of updated or modified files * * @param SimpleXMLElement $dir SimpleXMLElement of files to test * @param string $path Path of file * @return array Array of filenames */ function getFilesUpdated(SimpleXMLElement $dir, $path = '') { global $file_list; $exclude = 'install'; foreach ($dir->md5file as $file) { $filename = $path.$file['name']; if (preg_match('#'.$exclude.'#', $filename)) continue; if (!file_exists(DOL_DOCUMENT_ROOT.'/'.$filename)) { $file_list['missing'][] = $filename; } else { $md5_local = md5_file(DOL_DOCUMENT_ROOT.'/'.$filename); if ($md5_local != (string) $file) $file_list['updated'][] = $filename; } } foreach ($dir->dir as $subdir) getFilesUpdated($subdir, $path.$subdir['name'].'/'); return $file_list; }