dolibarr/htdocs/admin/system/filecheck.php

<?php
/* Copyright (C) 2005-2012  Laurent Destailleur     <eldy@users.sourceforge.net>
 * Copyright (C) 2007       Rodolphe Quiedeville    <rodolphe@quiedeville.org>
 * Copyright (C) 2007-2012  Regis Houssin           <regis.houssin@capnetworks.com>
 * Copyright (C) 2015       Frederic France         <frederic.france@free.fr>
 *
 * 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 <http://www.gnu.org/licenses/>.
 */

/**
 *  \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 '<table class="noborder" width="100%">';
print '<tr class="liste_titre"><td>'.$langs->trans("Version").'</td><td>'.$langs->trans("Value").'</td></tr>'."\n";
$var = ! $var;
print '<tr '.$bc[$var].'><td width="300">'.$langs->trans("VersionLastInstall").'</td><td>'.$conf->global->MAIN_VERSION_LAST_INSTALL.'</td></tr>'."\n";
$var = ! $var;
print '<tr '.$bc[$var].'><td width="300">'.$langs->trans("VersionLastUpgrade").'</td><td>'.$conf->global->MAIN_VERSION_LAST_UPGRADE.'</td></tr>'."\n";
$var = ! $var;
print '<tr '.$bc[$var].'><td width="300">'.$langs->trans("VersionProgram").'</td><td>'.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 '</td></tr>'."\n";
print '</table>';
print '<br>';


// 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 '<table class="noborder">';
        print '<tr class="liste_titre">';
        print '<td>' . $langs->trans("FilesMissing") . '</td>';
        print '</tr>'."\n";
        $var = true;
        foreach ($file_list['missing'] as $file) {
            $var = !$var;
            print '<tr ' . $bc[$var] . '>';
            print '<td>'.$file.'</td>' . "\n";
            print "</tr>\n";
        }
        print '</table>';
        print '<table class="noborder">';
        print '<tr class="liste_titre">';
        print '<td>' . $langs->trans("FilesUpdated") . '</td>';
        print '</tr>'."\n";
        $var = true;
        foreach ($file_list['updated'] as $file) {
            $var = !$var;
            print '<tr ' . $bc[$var] . '>';
            print '<td>'.$file.'</td>' . "\n";
            print "</tr>\n";
        }
        print '</table>';
    }
} 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;
}