block-info.php

Go to the documentation of this file.

<?php
/* Copyright (C) 2017 Laurent Destailleur  <eldy@users.sourceforge.net>
 * Copyright (C) 2017 ATM Consulting       <contact@atm-consulting.fr>
 * Copyright (C) 2024       Frédéric France         <frederic.france@free.fr>
 * Copyright (C) 2024   MDW           <mdeweerd@users.noreply.github.com>
 *
 * 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/>.
 */
 
// This script is called with a POST method.
// Directory to scan (full path) is inside POST['dir'].
 
if (!defined('NOTOKENRENEWAL')) {
  define('NOTOKENRENEWAL', 1); // Disables token renewal
}
if (!defined('NOREQUIREMENU')) {
  define('NOREQUIREMENU', '1');
}
if (!defined('NOREQUIREHTML')) {
  define('NOREQUIREHTML', '1');
}
 
 
// Load Dolibarr environment
require '../../main.inc.php';
require_once DOL_DOCUMENT_ROOT.'/blockedlog/class/blockedlog.class.php';
$id = GETPOSTINT('id');
$block = new BlockedLog($db);
 
if ((!$user->admin && !$user->hasRight('blockedlog', 'read')) || empty($conf->blockedlog->enabled)) {
  accessforbidden();
}
 
$langs->loadLangs(array("admin"));
 
 
/*
 * View
 */
 
top_httphead();
 
print '<div id="pop-info"><table height="80%" class="border centpercent"><thead><th width="50%" class="left">'.$langs->trans('Field').'</th><th class="left">'.$langs->trans('Value').'</th></thead>';
print '<tbody>';
 
if ($block->fetch($id) > 0) {
  $objtoshow = $block->object_data;
  print formatObject($objtoshow, '');
} else {
  print 'Error, failed to get unalterable log with id '.$id;
}
 
print '</tbody>';
print '</table></div>';
 
 
$db->close();
 
 
function formatObject($objtoshow, $prefix)
{
  $s = '';
 
  $newobjtoshow = $objtoshow;
 
  if (is_object($newobjtoshow) || is_array($newobjtoshow)) {
    //var_dump($newobjtoshow);
    foreach ($newobjtoshow as $key => $val) {
      if (!is_object($val) && !is_array($val)) {
        // TODO $val can be '__PHP_Incomplete_Class', the is_object return false
        $s .= '<tr><td>'.($prefix ? $prefix.' > ' : '').$key.'</td>';
        $s .= '<td>';
        if (in_array($key, array('date', 'datef', 'dateh', 'datec', 'datem', 'datep'))) {
          //var_dump(is_object($val));
          //var_dump(is_array($val));
          //var_dump(is_array($val));
          //var_dump(@get_class($val));
          //var_dump($val);
          $s .= dol_print_date($val, 'dayhour');
        } else {
          $s .= $val;
        }
        $s .= '</td></tr>';
      } elseif (is_array($val)) {
        $s .= formatObject($val, ($prefix ? $prefix.' > ' : '').$key);
      } elseif (is_object($val)) {
        $s .= formatObject($val, ($prefix ? $prefix.' > ' : '').$key);
      }
    }
  }
 
  return $s;
}