pingresult.php

Go to the documentation of this file.

<?php
/* Copyright (C) 2019-2023    Laurent Destailleur <eldy@users.sourceforge.net>
 * Copyright (C) 2024-2026  Frédéric 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 <https://www.gnu.org/licenses/>.
 */
 
if (!defined('NOTOKENRENEWAL')) {
  define('NOTOKENRENEWAL', '1'); // Disables token renewal
}
if (!defined('NOREQUIREMENU')) {
  define('NOREQUIREMENU', '1');
}
if (!defined('NOREQUIREHTML')) {
  define('NOREQUIREHTML', '1');
}
if (!defined('NOREQUIREAJAX')) {
  define('NOREQUIREAJAX', '1');
}
if (!defined('NOREQUIRESOC')) {
  define('NOREQUIRESOC', '1');
}
if (!defined('NOREQUIRETRAN')) {
  define('NOREQUIRETRAN', '1');
}
if (!defined('CSRFCHECK_WITH_TOKEN')) {
  define('CSRFCHECK_WITH_TOKEN', '1'); // This page saves constants: the token is required even in GET mode (the js callers send it)
}
 
// Load Dolibarr environment
require '../../main.inc.php';
require_once DOL_DOCUMENT_ROOT.'/core/lib/admin.lib.php';
require_once DOL_DOCUMENT_ROOT.'/blockedlog/lib/blockedlog.lib.php';
$action = GETPOST('action', 'aZ09');
 
// The hash of the instance unique id is computed here from the configuration, it is not taken from the request: the value saved
// into MAIN_FIRST_PING_OK_ID / MAIN_FIRST_REGISTRATION_OK_ID is the identifier of this instance and must not be forgeable.
$hash_unique_id = getHashUniqueIdOfRegistration('sha256');
 
 
// Security check
// Being connected is enough (the ping is sent by any user from the home page), the token is required (CSRFCHECK_WITH_TOKEN).
 
 
/*
 * Actions
 */
 
// None
 
 
/*
 * View
 */
 
$now = dol_now();
 
top_httphead();
 
print '<!-- Ajax page called with url '.dol_escape_htmltag($_SERVER["PHP_SELF"]).'?'.dol_escape_htmltag($_SERVER["QUERY_STRING"]).' -->'."\n";
 
// If ok
if ($action == 'MAIN_FIRST_PING_OK_DATE') {
  // Note: pings are per installed instances / entity.
  // Once this constants are set, no more ping will be tried (except if we add parameter &forceping=1 on URL). So we can say this are 'first' ping.
  dolibarr_set_const($db, 'MAIN_FIRST_PING_OK_DATE', dol_print_date($now, 'dayhourlog', 'gmt'), 'chaine', 0, '', $conf->entity);
  dolibarr_set_const($db, 'MAIN_FIRST_PING_OK_ID', $hash_unique_id.' - '.DOL_VERSION, 'chaine', 0, '', $conf->entity);
 
  print 'First ping OK saved for entity '.$conf->entity;
} elseif ($action == 'MAIN_LAST_PING_KO_DATE') {
  // If ko
  // Note: pings are by installation, done on entity 1.
  dolibarr_set_const($db, 'MAIN_LAST_PING_KO_DATE', dol_print_date($now, 'dayhourlog', 'gmt'), 'chaine', 0, '', $conf->entity); // erase last value
  print 'First ping KO saved for entity '.$conf->entity;
} elseif ($action == 'MAIN_FIRST_REGISTRATION_OK_DATE') {
  // Note: pings are per installed instances / entity.
  // Once this constants are set, no more ping will be tried (except if we add parameter &forceping=1 on URL). So we can say this are 'first' ping.
  dolibarr_set_const($db, 'MAIN_FIRST_REGISTRATION_OK_DATE', dol_print_date($now, 'dayhourlog', 'gmt'), 'chaine', 0, '', $conf->entity);
  dolibarr_set_const($db, 'MAIN_FIRST_REGISTRATION_OK_ID', $hash_unique_id.' - '.DOL_VERSION, 'chaine', 0, '', $conf->entity);
 
  print 'First ping OK saved for entity '.$conf->entity;
} elseif ($action == 'MAIN_LAST_REGISTRATION_KO_DATE') {
  // If ko
  // Note: pings are by installation, done on entity 1.
  dolibarr_set_const($db, 'MAIN_LAST_REGISTRATION_KO_DATE', dol_print_date($now, 'dayhourlog', 'gmt'), 'chaine', 0, '', $conf->entity); // erase last value
  print 'First ping KO saved for entity '.$conf->entity;
} else {
  print 'Error action='.$action.' not supported';
}