blockedlog_archives.php

Go to the documentation of this file.

<?php
/* Copyright (C) 2017   ATM Consulting        <contact@atm-consulting.fr>
 * Copyright (C) 2017-2018  Laurent Destailleur     <eldy@destailleur.fr>
 * Copyright (C) 2018-2025  Frédéric France       <frederic.france@free.fr>
 * Copyright (C) 2024-2025  MDW             <mdeweerd@users.noreply.github.com>
 * Copyright (C) 2024   Alexandre Spangaro      <alexandre@inovea-conseil.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/>.
 */
 
// Load Dolibarr environment
require '../../main.inc.php';
require_once DOL_DOCUMENT_ROOT.'/blockedlog/lib/blockedlog.lib.php';
require_once DOL_DOCUMENT_ROOT.'/blockedlog/class/blockedlog.class.php';
require_once DOL_DOCUMENT_ROOT.'/core/lib/admin.lib.php';
require_once DOL_DOCUMENT_ROOT.'/core/lib/date.lib.php';
require_once DOL_DOCUMENT_ROOT.'/core/lib/files.lib.php';
require_once DOL_DOCUMENT_ROOT.'/core/lib/functions2.lib.php';
require_once DOL_DOCUMENT_ROOT.'/core/class/html.formother.class.php';
 
// Load translation files required by the page
$langs->loadLangs(array('admin', 'banks', 'bills', 'blockedlog', 'other'));
 
// Get Parameters
$action      = GETPOST('action', 'aZ09');
//$confirm     = GETPOST('confirm', 'aZ09');
$contextpage = GETPOST('contextpage', 'aZ') ? GETPOST('contextpage', 'aZ') : getDolDefaultContextPage(__FILE__); // To manage different context of search
$backtopage  = GETPOST('backtopage', 'alpha'); // Go back to a dedicated page
$optioncss   = GETPOST('optioncss', 'aZ'); // Option for the css output (always '' except when 'print')
 
//$hmacexportkey = GETPOST('hmacexportkey', 'password');
 
$search_showonlyerrors = GETPOSTINT('search_showonlyerrors');
if ($search_showonlyerrors < 0) {
  $search_showonlyerrors = 0;
}
 
$search_startyear = GETPOSTINT('search_startyear');
$search_startmonth = GETPOSTINT('search_startmonth');
$search_startday = GETPOSTINT('search_startday');
$search_endyear = GETPOSTINT('search_endyear');
$search_endmonth = GETPOSTINT('search_endmonth');
$search_endday = GETPOSTINT('search_endday');
$search_id = GETPOST('search_id', 'alpha');
$search_fk_user = GETPOST('search_fk_user', 'intcomma');
$search_start = -1;
if (GETPOST('search_startyear') != '') {
  $search_start = dol_mktime(0, 0, 0, $search_startmonth, $search_startday, $search_startyear);
}
$search_end = -1;
if (GETPOST('search_endyear') != '') {
  $search_end = dol_mktime(23, 59, 59, $search_endmonth, $search_endday, $search_endyear);
}
$search_code = GETPOST('search_code', 'array:alpha');
$search_ref = GETPOST('search_ref', 'alpha');
$search_amount = GETPOST('search_amount', 'alpha');
$search_signature = GETPOST('search_signature', 'alpha');
 
if (($search_start == -1 || empty($search_start)) && !GETPOSTISSET('search_startmonth') && !GETPOSTISSET('begin')) {
  $search_start = dol_time_plus_duree(dol_now(), -1, 'w');
  $tmparray = dol_getdate($search_start);
  $search_startday = $tmparray['mday'];
  $search_startmonth = $tmparray['mon'];
  $search_startyear = $tmparray['year'];
}
 
// Load variable for pagination
$limit = GETPOSTINT('limit') ? GETPOSTINT('limit') : $conf->liste_limit;
$sortfield = GETPOST('sortfield', 'aZ09comma');
$sortorder = GETPOST('sortorder', 'aZ09comma');
$page = GETPOSTISSET('pageplusone') ? (GETPOSTINT('pageplusone') - 1) : GETPOSTINT("page");
if (empty($page) || $page == -1) {
  $page = 0;
}     // If $page is not defined, or '' or -1
$offset = $limit * $page;
$pageprev = $page - 1;
$pagenext = $page + 1;
 
if (empty($sortfield)) {
  $sortfield = 'rowid';
}
if (empty($sortorder)) {
  $sortorder = 'DESC';
}
 
$block_static = new BlockedLog($db);
$block_static->loadTrackedEvents();
 
// Access Control
if ((!$user->admin && !$user->hasRight('blockedlog', 'read')) || !isModEnabled('blockedlog')) {
  accessforbidden();
}
 
// We force also permission to write because it does not exists and we need it to upload a file
$user->rights->blockedlog->create = 1;
 
$result = restrictedArea($user, 'blockedlog', 0, '');
 
// Execution Time
$max_execution_time_for_importexport = getDolGlobalInt('EXPORT_MAX_EXECUTION_TIME', 300); // 5mn if not defined
$max_time = @ini_get("max_execution_time");
if ($max_time && $max_time < $max_execution_time_for_importexport) {
  dol_syslog("max_execution_time=".$max_time." is lower than max_execution_time_for_importexport=".$max_execution_time_for_importexport.". We try to increase it dynamically.");
  @ini_set("max_execution_time", $max_execution_time_for_importexport); // This work only if safe mode is off. also web servers has timeout of 300
}
 
$MAXLINES = getDolGlobalInt('BLOCKEDLOG_MAX_LINES', 10000);
 
$permission = $user->hasRight('blockedlog', 'read');
$permissiontoadd = $user->hasRight('blockedlog', 'read'); // Permission is to upload new files to scan them
$permtoedit = $permissiontoadd;
 
$upload_dir = getMultidirOutput($block_static, 'blockedlog').'/archives';
 
dol_mkdir($upload_dir);
 
$fh = null;
 
 
/*
 * Actions
 */
 
// Purge search criteria
if (GETPOST('button_removefilter_x', 'alpha') || GETPOST('button_removefilter.x', 'alpha') || GETPOST('button_removefilter', 'alpha')) { // All tests are required to be compatible with all browsers
  $search_id = '';
  $search_fk_user = '';
  $search_start = -1;
  $search_end = -1;
  $search_code = array();
  $search_ref = '';
  $search_amount = '';
  $search_signature = '';
  $search_showonlyerrors = 0;
  $search_startyear = '';
  $search_startmonth = '';
  $search_startday = '';
  $search_endyear = '';
  $search_endmonth = '';
  $search_endday = '';
  $toselect = array();
  $search_array_options = array();
}
 
include DOL_DOCUMENT_ROOT.'/core/actions_linkedfiles.inc.php';
 
if (GETPOST('action') == 'export' && $user->hasRight('blockedlog', 'read')) {   // read is read/export for blockedlog
  $error = 0;
 
  $previoushash = '';
  $firstid = '';
  $periodnotcomplete = 0;
 
  if (! (GETPOSTINT('yeartoexport') > 0)) {
    setEventMessages($langs->trans("ErrorFieldRequired", $langs->transnoentitiesnoconv("Year")), null, "errors");
    $error++;
  }
  /*
  if (empty($hmacexportkey)) {
    setEventMessages($langs->trans("ErrorFieldRequired", $langs->transnoentitiesnoconv("Password")), null, "errors");
    $error++;
  }
  */
 
  $dates = dol_get_first_day(GETPOSTINT('yeartoexport'), GETPOSTINT('monthtoexport') > 0 ? GETPOSTINT('monthtoexport') : 1);
  $datee = dol_get_last_day(GETPOSTINT('yeartoexport'), GETPOSTINT('monthtoexport') > 0 ? GETPOSTINT('monthtoexport') : 12);
 
  if ($datee >= dol_now()) {
    $periodnotcomplete = 1;
  }
 
  $suffixperiod = ($periodnotcomplete ? 'INCOMPLETE' : 'DONOTMODIFY');
 
  if (!$error) {
    // Get the ID of the first line qualified
    $sql = "SELECT rowid";
    $sql .= " FROM ".MAIN_DB_PREFIX."blockedlog";
    $sql .= " WHERE entity = ".((int) $conf->entity);
    // For unalterable log, we are using the date of creation of the log. Note that a bookkeeper may decide to dispatch an invoice
    // on different periods for example to manage depreciation.
    $sql .= " AND date_creation BETWEEN '".$db->idate($dates)."' AND '".$db->idate($datee)."'";
    $sql .= " ORDER BY date_creation ASC, rowid ASC"; // Required so we get the first one
    $sql .= $db->plimit(1);
 
    $res = $db->query($sql);
    if ($res) {
      // Make the first fetch to get first line and then get the previous hash.
      $obj = $db->fetch_object($res);
      if ($obj) {
        $firstid = $obj->rowid;
        $previoushash = $block_static->getPreviousHash(0, $firstid);
      } else {  // If not data found for filter, we do not need previoushash neither firstid
        $firstid = '';
        $previoushash = 'nodata';
      }
    } else {
      $error++;
      setEventMessages($db->lasterror, null, 'errors');
    }
  }
 
  // Define file name
  $registrationnumber = getHashUniqueIdOfRegistration();
  $secretkey = $registrationnumber;
 
  $yearmonthtoexport = GETPOSTINT('yeartoexport').'-'.(GETPOSTINT('monthtoexport') > 0 ? sprintf("%02d", GETPOSTINT('monthtoexport')) : '');
  $yearmonthdateofexport = dol_print_date(dol_now(), 'dayhourrfc', 'gmt');
  $yearmonthdateofexportstandard = dol_print_date(dol_now(), 'dayhourlog', 'gmt');
 
  $nameofdownoadedfile = "unalterable-log-archive-".$dolibarr_main_db_name."-".str_replace('-', '', $yearmonthtoexport).'-'.$yearmonthdateofexportstandard.'UTC-'.$suffixperiod.'.csv';
 
  //$tmpfile = $conf->admin->dir_temp.'/unalterable-log-archive-tmp-'.$user->id.'.csv';
  $tmpfile = getMultidirOutput($block_static, 'blockedlog').'/archives/'.$nameofdownoadedfile;
 
  $formatexport = 'VE1';
 
 
  // Init var for totals
  /*
  $totalhtamountalllines = array('BILL_VALIDATE' => 0, 'PAYMENT_CUSTOMER_CREATE' => 0);
  $totalvatamountalllines = array('BILL_VALIDATE' => 0, 'PAYMENT_CUSTOMER_CREATE' => 0);
  $totalamountalllines = array('BILL_VALIDATE' => 0, 'PAYMENT_CUSTOMER_CREATE' => 0);
  $totalhtamountlifetime = array('BILL_VALIDATE' => array(), 'PAYMENT_CUSTOMER_CREATE' => array());
  $totalvatamountlifetime = array('BILL_VALIDATE' => array(), 'PAYMENT_CUSTOMER_CREATE' => array());
  $totalamountlifetime = array('BILL_VALIDATE' => array(), 'PAYMENT_CUSTOMER_CREATE' => array());
  */
 
  if (!$error) {
    $fh = fopen($tmpfile, 'w');
  }
 
  if (!$error && $fh) {
    // Now restart request with all data, so without the limit(1) in sql request
    $sql = "SELECT rowid, date_creation, tms, user_fullname, action, amounts_taxexcl, amounts, element, fk_object, date_object, ref_object,";
    $sql .= " signature, fk_user, object_data, object_version, object_format, debuginfo";
    $sql .= " FROM ".MAIN_DB_PREFIX."blockedlog";
    $sql .= " WHERE entity = ".((int) $conf->entity);
    // For unalterable log, we are using the date of creation of the log. Note that a bookkeeper may decide to dispatch an invoice
    // or payment on different periods for example to manage depreciation, but we want here is not accountancy but payment data.
    $sql .= " AND date_creation BETWEEN '".$db->idate($dates)."' AND '".$db->idate($datee)."'";
    $sql .= " ORDER BY date_creation ASC, rowid ASC"; // Required so later we can use the parameter $previoushash of checkSignature()
 
    $resql = $db->query($sql);
    if ($resql) {
      // Print line with title
      fwrite($fh, "BEGIN - date=".$yearmonthdateofexport." - period=".$yearmonthtoexport.($periodnotcomplete ? '-'.$suffixperiod : '')." - formatexport=".$formatexport." - user=".$user->getFullName($langs)
        .';'.$langs->transnoentities('Id')
        .';'.$langs->transnoentities('DateCreation')
        .';'.$langs->transnoentities('Action')
        .';'.$langs->transnoentities('Origin')
        .';'.$langs->transnoentities('AmountHT')
        .';'.$langs->transnoentities('AmountTTC')
        .';'.$langs->transnoentities('Ref')
        .';'.$langs->transnoentities('Date')
        .';'.$langs->transnoentities('User')
        .';'.$langs->transnoentities('LinkTo')
        .';'.$langs->transnoentities('LinkType')
        .';'.$langs->transnoentities('FullData')
        .';'.$langs->transnoentities('Version')       // Version Dolibarr, example 22.0.0
        .';'.$langs->transnoentities('VersionSignature')  // Rule used for fingerprint calculation
        .';'.$langs->transnoentities('FingerprintDatabase')     // Signature
        .';'.$langs->transnoentities('Status')
        .';'.$langs->transnoentities('FingerprintExport')
        ."\n");
 
      $loweridinerror = 0;
      $i = 0;
 
      $refinvoicefound = array();
      $totalhtamount = array();
      $totalvatamount = array();
      $totalamount = array();
 
      while ($obj = $db->fetch_object($resql)) {
        // We set here all data used into signature calculation (see checkSignature method) and more
        // IMPORTANT: We must have here, the same rule for transformation of data than into the fetch method (db->jdate for date, ...)
        $block_static->id = $obj->rowid;
        $block_static->entity = $obj->entity;
 
        $block_static->date_creation = $db->jdate($obj->date_creation);   // jdate(date_creation) is UTC
 
        $block_static->module_source = $obj->module_source;
 
        $block_static->amounts_taxexcl = (float) $obj->amounts_taxexcl;   // Database store value with 8 digits, we cut ending 0 them with (flow)
        $block_static->amounts = (float) $obj->amounts;           // Database store value with 8 digits, we cut ending 0 them with (flow)
 
        $block_static->action = $obj->action;
        $block_static->date_object = $db->jdate($obj->date_object);     // jdate(date_object) is UTC
        $block_static->ref_object = $obj->ref_object;
 
        $block_static->user_fullname = $obj->user_fullname;
 
        $block_static->object_data = $block_static->dolDecodeBlockedData($obj->object_data);
 
        // Old hash + Previous fields concatenated = signature
        $block_static->signature = $obj->signature;
 
        $block_static->element = $obj->element;               // Not in signature
        $block_static->fk_object = $obj->fk_object;             // Not in signature
 
        $block_static->fk_user = $obj->fk_user;               // Not in signature
 
        $block_static->date_modification = $db->jdate($obj->tms);     // Not in signature
        $block_static->object_version = $obj->object_version;       // Not in signature
        $block_static->object_format = $obj->object_format;         // Not in signature
 
        $block_static->certified = ($obj->certified == 1);
 
        $block_static->linktoref = $obj->linktoref;
        $block_static->linktype = $obj->linktype;
 
        $block_static->debuginfo = $obj->debuginfo;
 
        //var_dump($block->id.' '.$block->signature, $block->object_data);
        $checksignature = $block_static->checkSignature($previoushash);   // If $previoushash is not defined, checkSignature will search it
 
        if ($checksignature) {
          $statusofrecord = 'Valid';
          if ($loweridinerror > 0) {
            $statusofrecordnote = 'ValidButFoundAPreviousKO';
          } else {
            $statusofrecordnote = '';
          }
        } else {
          $statusofrecord = 'KO';
          $statusofrecordnote = 'LineCorruptedOrNotMatchingPreviousOne';
          $loweridinerror = $obj->rowid;
        }
 
        if ($i == 0) {
          $statusofrecordnote = $langs->trans("PreviousFingerprint").': '.$previoushash.($statusofrecordnote ? ' - '.$statusofrecordnote : '');
        }
 
        $concatenateddata = $block_static->buildKeyForSignature();
 
        // Version archive V1=sha256
        $signatureexport = dol_hash($previoushash.$concatenateddata, 'sha256');   // SHA256
        //$signatureexporthmac = 'TODO';
 
 
        // Define $totalhtamount, $totalvatamount, $totalamount for $block->action event code
        $total_ht = $total_vat = $total_ttc = 0;
        sumAmountsForUnalterableEvent($block_static, $refinvoicefound, $totalhtamount, $totalvatamount, $totalamount, $total_ht, $total_vat, $total_ttc);
 
 
        fwrite($fh, ";"
          .csvClean($block_static->id).';'
          .csvClean($block_static->date_creation).';'
          .csvClean($block_static->action).';'
          .csvClean($block_static->module_source).';'
          .csvClean($block_static->amounts_taxexcl).';' // Can be 1.20000000 with 8 digits. TODO Clean to have 8 digits in V1
          .csvClean($block_static->amounts).';'     // Can be 1.20000000 with 8 digits. TODO Clean to have 8 digits in V1
          .csvClean($block_static->ref_object).';'
          .csvClean($block_static->date_object).';'
          .csvClean($block_static->user_fullname).';'
          .csvClean($block_static->linktoref).';'
          .csvClean($block_static->linktype).';'
          .csvClean($obj->object_data).';'        // We must use the string (so $obj->object_data) and not the array decoded with dolDecodeBlockedData
          .csvClean($block_static->object_version).';'
          .csvClean($block_static->object_format).';'
          .csvClean($block_static->signature).';'
          .csvClean($statusofrecord).';'
          .csvClean($signatureexport).';'."\n");
 
        // Set new previous hash for next fetch
        $previoushash = $obj->signature;
 
        $i++;
      }
    } else {
      $error++;
      setEventMessages($db->lasterror, null, 'errors');
    }
 
    // Now calculate cumulative total of all invoices validated
    /*
    if (array_key_exists('BILL_VALIDATE', $totalhtamount)) {
      foreach ($totalhtamount['BILL_VALIDATE'] as $val) { // Loop on each module
        $totalhtamountalllines['BILL_VALIDATE'] += $val;
      }
      foreach ($totalvatamount['BILL_VALIDATE'] as $val) {
        $totalvatamountalllines['BILL_VALIDATE'] += $val;
      }
      foreach ($totalamount['BILL_VALIDATE'] as $val) {
        $totalamountalllines['BILL_VALIDATE'] += $val;
      }
    }
    if (array_key_exists('PAYMENT_CUSTOMER_CREATE', $totalhtamount)) {
      foreach ($totalhtamount['PAYMENT_CUSTOMER_CREATE'] as $val) {
        $totalhtamountalllines['PAYMENT_CUSTOMER_CREATE'] += $val;
      }
      foreach ($totalvatamount['PAYMENT_CUSTOMER_CREATE'] as $val) {
        $totalvatamountalllines['PAYMENT_CUSTOMER_CREATE'] += $val;
      }
      foreach ($totalamount['PAYMENT_CUSTOMER_CREATE'] as $val) {
        $totalamountalllines['PAYMENT_CUSTOMER_CREATE'] += $val;
      }
    }
 
 
    // Add a final line with cumulative total of invoices validated (BILL_VALIDATE)
    $block_static->id = '';
    $block_static->date_creation = '';
    $block_static->action = 'BILL_VALIDATE';
    $block_static->module_source = '*';
    $block_static->amounts_taxexcl = $totalhtamountalllines['BILL_VALIDATE'];
    $block_static->amounts = $totalamountalllines['BILL_VALIDATE'];
    $block_static->ref_object = $langs->transnoentitiesnoconv("VAT").': '.$totalvatamountalllines['BILL_VALIDATE'];
    $block_static->date_object = '';
    $block_static->user_fullname = '';
    $block_static->linktoref = '';
    $block_static->linktype = '';
    $block_static->object_version = '';
    $block_static->object_format = '';
    $block_static->signature = '';
 
    $statusofrecord = '';
    $signatureexport = '';
 
 
    fwrite($fh, 'Cumulative total - Invoice validations (all invoices);'
      .csvClean($block_static->id).';'
      .csvClean($block_static->date_creation).';'
      .csvClean($block_static->action).';'
      .csvClean($block_static->module_source).';'
      .csvClean($block_static->amounts_taxexcl).';' // Can be 1.20000000 with 8 digits. TODO Clean to have 8 digits in V1
      .csvClean($block_static->amounts).';'     // Can be 1.20000000 with 8 digits. TODO Clean to have 8 digits in V1
      .csvClean($block_static->ref_object).';'
      .csvClean($block_static->date_object).';'
      .csvClean($block_static->user_fullname).';'
      .csvClean($block_static->linktoref).';'
      .csvClean($block_static->linktype).';'
      .csvClean($obj->object_data).';'        // We must use the string (so $obj->object_data) and not the array decoded with dolDecodeBlockedData
      .csvClean($block_static->object_version).';'
      .csvClean($block_static->object_format).';'
      .csvClean($block_static->signature).';'
      .csvClean($statusofrecord).';'
      .csvClean($signatureexport).';'."\n");
 
 
    // Add a final line with cumulative total of invoices validated (PAYMENT_CUSTOMER_CREATE)
    $block_static->id = '';
    $block_static->date_creation = '';
    $block_static->action = 'PAYMENT_CUSTOMER_CREATE';
    $block_static->module_source = '*';
    $block_static->amounts_taxexcl = '';
    $block_static->amounts = $totalamountalllines['PAYMENT_CUSTOMER_CREATE'];
    $block_static->ref_object = '';
    $block_static->date_object = '';
    $block_static->user_fullname = '';
    $block_static->linktoref = '';
    $block_static->linktype = '';
    $block_static->object_version = '';
    $block_static->object_format = '';
    $block_static->signature = '';
    $statusofrecord = '';
    $signatureexport = '';
 
    fwrite($fh, 'Cumulative total - Invoice payments (all payments);'
      .csvClean($block_static->id).';'
      .csvClean($block_static->date_creation).';'
      .csvClean($block_static->action).';'
      .csvClean($block_static->module_source).';'
      .csvClean($block_static->amounts_taxexcl).';' // Can be 1.20000000 with 8 digits. TODO Clean to have 8 digits in V1
      .csvClean($block_static->amounts).';'     // Can be 1.20000000 with 8 digits. TODO Clean to have 8 digits in V1
      .csvClean($block_static->ref_object).';'
      .csvClean($block_static->date_object).';'
      .csvClean($block_static->user_fullname).';'
      .csvClean($block_static->linktoref).';'
      .csvClean($block_static->linktype).';'
      .csvClean($obj->object_data).';'        // We must use the string (so $obj->object_data) and not the array decoded with dolDecodeBlockedData
      .csvClean($block_static->object_version).';'
      .csvClean($block_static->object_format).';'
      .csvClean($block_static->signature).';'
      .csvClean($statusofrecord).';'
      .csvClean($signatureexport).';'."\n");
 
 
    // Calculate lifetime totals (with date of first record)
    $sql = "SELECT action, module_source, object_format, MIN(date_creation) as datemin, SUM(amounts_taxexcl) as sumamounts_taxexcl, SUM(amounts) as sumamounts";
    $sql .= " FROM ".MAIN_DB_PREFIX."blockedlog";
    $sql .= " WHERE entity = ".((int) $conf->entity);
    //$sql .= " AND action IN ('BILL_VALIDATE', 'BILL_SENTBYMAIL', 'PAYMENT_CUSTOMER_CREATE', 'CASHCONTROL_CLOSE', 'PAYMENT_CUSTOMER_DELETE', 'DOC_DOWNLOAD', 'DOC_PREVIEW')";
    $sql .= " AND action IN ('BILL_VALIDATE', 'PAYMENT_CUSTOMER_CREATE', 'PAYMENT_CUSTOMER_DELETE')"; // Only event into lifetime total
    //$sql .= " AND action IN ('PAYMENT_CUSTOMER_CREATE')";
    $sql .= " GROUP BY action, module_source, object_format";
 
    $foundoldformat = 0;
    $firstrecorddatearray = array();
    $firstrecorddate = 0;
    $resql = $db->query($sql);
    if ($resql) {
      while ($obj = $db->fetch_object($resql)) {
        // First record date per action code and module
        if (!empty($firstrecorddatearray[$obj->action][$obj->module_source])) {
          $firstrecorddatearray[$obj->action][$obj->module_source] = min($firstrecorddatearray[$obj->action][$obj->module_source], $db->jdate($obj->datemin));
        } else {
          $firstrecorddatearray[$obj->action] = array();
          $firstrecorddatearray[$obj->action][$obj->module_source] = $db->jdate($obj->datemin);
        }
        // First record for all actions code
        if (!empty($firstrecorddate)) {
          $firstrecorddate = min($firstrecorddate, $db->jdate($obj->datemin));
        } else {
          $firstrecorddate = $obj->datemin;
        }
 
        if (!isset($totalamountlifetime[$obj->action][$obj->module_source])) {
          $totalamountlifetime[$obj->action][$obj->module_source] = 0;
        }
 
        //var_dump($obj->action, $obj->module_source, $obj->sumamounts);
 
        // Total per action code and module
        $totalamountlifetime[$obj->action][$obj->module_source] += $obj->sumamounts;
 
        // If format of line is old, the sumamounts_taxexcl was not recorded. So we flag this case.
        if (empty($obj->object_format) || $obj->object_format == 'V1') {
          $foundoldformat = 1;
        } else {
          $totalhtamountlifetime[$obj->action][$obj->module_source] += $obj->sumamounts_taxexcl;
        }
      }
    } else {
      $error++;
      setEventMessages($db->lasterror, null, 'errors');
    }
 
    // Add a final line with perpetual total for invoice validations
    $block_static->id = '';
    $block_static->date_creation = '';
    $block_static->action = 'BILL_VALIDATE';
    $block_static->module_source = '*';
    // if an old format was found, we do not have reliable amount excluding tax for lifetime value, we do not show it
 
    $block_static->amounts_taxexcl = ($foundoldformat ? '' : array_sum($totalhtamountlifetime['BILL_VALIDATE']));
    $block_static->amounts = array_sum($totalamountlifetime['BILL_VALIDATE']);
    // if an old format was found, we do not have reliable VAT amount for lifetime value, we do not show it
    $block_static->ref_object = ($foundoldformat ? '' : $langs->transnoentitiesnoconv("VAT").': '.($block_static->amounts - $block_static->amounts_taxexcl));
    $block_static->date_object = '';
    $block_static->user_fullname = '';
    $block_static->linktoref = '';
    $block_static->linktype = '';
    $block_static->object_version = '';
    $block_static->object_format = '';
    $block_static->signature = '';
 
    $statusofrecord = '';
    $signatureexport = '';
 
    fwrite($fh, 'Lifetime total (>= '.dol_print_date($firstrecorddate, 'standard').') - Invoice validations (all invoices);'
      .csvClean($block_static->id).';'
      .csvClean($block_static->date_creation).';'
      .csvClean($block_static->action).';'
      .csvClean($block_static->module_source).';'
      .csvClean($block_static->amounts_taxexcl).';' // Can be 1.20000000 with 8 digits. TODO Clean to have 8 digits in V1
      .csvClean($block_static->amounts).';'     // Can be 1.20000000 with 8 digits. TODO Clean to have 8 digits in V1
      .csvClean($block_static->ref_object).';'
      .csvClean($block_static->date_object).';'
      .csvClean($block_static->user_fullname).';'
      .csvClean($block_static->linktoref).';'
      .csvClean($block_static->linktype).';'
      .csvClean($obj->object_data).';'        // We must use the string (so $obj->object_data) and not the array decoded with dolDecodeBlockedData
      .csvClean($block_static->object_version).';'
      .csvClean($block_static->object_format).';'
      .csvClean($block_static->signature).';'
      .csvClean($statusofrecord).';'
      .csvClean($signatureexport).';'."\n");
 
 
    // Add a final line with perpetual total for customer payments
    $block_static->id = '';
    $block_static->date_creation = '';
    $block_static->action = 'PAYMENT_CUSTOMER_CREATE';
    $block_static->module_source = '*';
    $block_static->amounts_taxtecl = '';
    $block_static->amounts = array_sum($totalamountlifetime['PAYMENT_CUSTOMER_CREATE']);
    $block_static->ref_object = '';
    $block_static->date_object = '';
    $block_static->user_fullname = '';
    $block_static->linktoref = '';
    $block_static->linktype = '';
    $block_static->object_version = '';
    $block_static->object_format = '';
    $block_static->signature = '';
 
    $statusofrecord = '';
    $signatureexport = '';
 
    fwrite($fh, 'Lifetime total (>= '.dol_print_date($firstrecorddate, 'standard').') - Invoice payments (all payments);'
      .csvClean($block_static->id).';'
      .csvClean($block_static->date_creation).';'
      .csvClean($block_static->action).';'
      .csvClean($block_static->module_source).';'
      .csvClean($block_static->amounts_taxexcl).';' // Can be 1.20000000 with 8 digits. TODO Clean to have 8 digits in V1
      .csvClean($block_static->amounts).';'     // Can be 1.20000000 with 8 digits. TODO Clean to have 8 digits in V1
      .csvClean($block_static->ref_object).';'
      .csvClean($block_static->date_object).';'
      .csvClean($block_static->user_fullname).';'
      .csvClean($block_static->linktoref).';'
      .csvClean($block_static->linktype).';'
      .csvClean($obj->object_data).';'        // We must use the string (so $obj->object_data) and not the array decoded with dolDecodeBlockedData
      .csvClean($block_static->object_version).';'
      .csvClean($block_static->object_format).';'
      .csvClean($block_static->signature).';'
      .csvClean($statusofrecord).';'
      .csvClean($signatureexport).';'."\n");
    */
 
    fclose($fh);
 
    // Calculate the signature of the file (the last line has a return line)
    $algo = 'sha256';
    $sha256 = hash_file($algo, $tmpfile);
    $hmacsha256 = hash_hmac_file($algo, $tmpfile, $secretkey);
 
    // Now add a signature to check integrity at end of file
    file_put_contents($tmpfile, 'END - sha256='.$sha256.' - hmac_sha256='.$hmacsha256, FILE_APPEND);
    dolChmod($tmpfile);
 
    if (!$error) {
      setEventMessages($langs->trans("FileGenerated"), null);
    }
  }
 
  if (!$error) {
    if ($periodnotcomplete) {
      setEventMessages($langs->trans("ErrorPeriodMustBePastToAllowExport"), null, "warnings");
    } else {
      // We record the export as a new line into the unalterable logs
      require_once DOL_DOCUMENT_ROOT.'/blockedlog/class/blockedlog.class.php';
      $b = new BlockedLog($db);
 
      $object = new stdClass();
      $object->id = 0;
      $object->element = 'module';
      $object->ref = 'systemevent';
      $object->entity = $conf->entity;
      $object->date = dol_now();
      $object->fullname = $user->getFullName($langs);
 
      $object->label = 'Export unalterable logs';
      $object->period = 'year='.GETPOSTINT('yeartoexport').(GETPOSTINT('monthtoexport') ? ' month='.GETPOSTINT('monthtoexport') : '');
 
      $action = 'BLOCKEDLOG_EXPORT';
      $result = $b->setObjectData($object, $action, 0, $user, null);
      //var_dump($b); exit;
 
      if ($result < 0) {
        setEventMessages('Failed to insert the export int the unalterable log', null, 'errors');
        $error++;
      }
 
      $res = $b->create($user);
 
      if ($res < 0) {
        setEventMessages('Failed to insert the export int the unalterable log', null, 'errors');
        $error++;
      }
    }
  }
}
 
 
/*
 *  View
 */
 
$form = new Form($db);
$formother = new FormOther($db);
 
if (GETPOST('withtab', 'alpha')) {
  $title = $langs->trans("ModuleSetup").' '.$langs->trans('BlockedLog');
} else {
  $title = $langs->trans("BrowseBlockedLog");
}
$help_url = "EN:Module_Unalterable_Archives_-_Logs|FR:Module_Archives_-_Logs_Inaltérable";
 
llxHeader('', $title, $help_url, '', 0, 0, '', '', '', 'bodyforlist mod-blockedlog page-admin_blockedlog_list');
 
$blocks = $block_static->getLog('all', (int) $search_id, $MAXLINES, $sortfield, $sortorder, (int) $search_fk_user, $search_start, $search_end, $search_ref, $search_amount, $search_code, $search_signature);
if (!is_array($blocks)) {
  if ($blocks == -2) {
    setEventMessages($langs->trans("TooManyRecordToScanRestrictFilters", $MAXLINES), null, 'errors');
  } else {
    dol_print_error($block_static->db, $block_static->error, $block_static->errors);
    exit;
  }
}
 
$linkback = '';
if (GETPOST('withtab', 'alpha')) {
  $linkback = '<a href="'.dolBuildUrl($backtopage ? $backtopage : DOL_URL_ROOT.'/admin/modules.php', ['restore_lastsearch_values' => 1]).'">'.img_picto($langs->trans("BackToModuleList"), 'back', 'class="pictofixedwidth"').'<span class="hideonsmartphone">'.$langs->trans("BackToModuleList").'</span></a>';
}
 
$morehtmlcenter = '';
 
$registrationnumber = getHashUniqueIdOfRegistration();
$texttop = '<small class="opacitymedium">'.$langs->trans("RegistrationNumber").':</small> <small>'.dol_trunc($registrationnumber, 10).'</small>';
 
print load_fiche_titre($title.'<br>'.$texttop, $linkback, 'blockedlog', 0, '', '', $morehtmlcenter);
 
$head = blockedlogadmin_prepare_head(GETPOST('withtab', 'alpha'));
 
print dol_get_fiche_head($head, 'archives', '', -1);
 
//print $texttop;
//print '<br><br>';
 
print '<div class="opacitymedium hideonsmartphone justify">';
 
print $langs->trans("ArchivesDesc")."<br>";
 
print "</div>\n";
 
$htmltext = '';
 
$htmltext .= $langs->trans("UnalterableLogTool2", $langs->transnoentities("Archives"))."<br>";
if ($mysoc->country_code == 'FR') {
  $htmltext .= '<br>'.$langs->trans("UnalterableLogTool1FR").'<br>';
}
//$htmltext .= $langs->trans("UnalterableLogTool1");
//$htmltext .= $langs->trans("UnalterableLogTool3")."<br>";
 
print info_admin($htmltext, 0, 0, 'warning');
 
 
print '<br>';
 
$param = '';
if ($contextpage != getDolDefaultContextPage(__FILE__)) {
  $param .= '&contextpage='.urlencode($contextpage);
}
if ($limit > 0 && $limit != $conf->liste_limit) {
  $param .= '&limit='.((int) $limit);
}
if ($search_id != '') {
  $param .= '&search_id='.urlencode($search_id);
}
if ($search_fk_user > 0) {
  $param .= '&search_fk_user='.urlencode($search_fk_user);
}
if ($search_startyear > 0) {
  $param .= '&search_startyear='.((int) $search_startyear);
}
if ($search_startmonth > 0) {
  $param .= '&search_startmonth='.((int) $search_startmonth);
}
if ($search_startday > 0) {
  $param .= '&search_startday='.((int) $search_startday);
}
if ($search_endyear > 0) {
  $param .= '&search_endyear='.((int) $search_endyear);
}
if ($search_endmonth > 0) {
  $param .= '&search_endmonth='.((int) $search_endmonth);
}
if ($search_endday > 0) {
  $param .= '&search_endday='.((int) $search_endday);
}
if ($search_amount) {
  $param .= '&search_amount='.urlencode($search_amount);
}
if ($search_signature) {
  $param .= '&search_signature='.urlencode($search_signature);
}
if ($search_showonlyerrors > 0) {
  $param .= '&search_showonlyerrors='.((int) $search_showonlyerrors);
}
if ($optioncss != '') {
  $param .= '&optioncss='.urlencode($optioncss);
}
if (GETPOST('withtab', 'alpha')) {
  $param .= '&withtab='.urlencode(GETPOST('withtab', 'alpha'));
}
 
// Add $param from extra fields
//include DOL_DOCUMENT_ROOT.'/core/tpl/extrafields_list_search_param.tpl.php';
 
if ($action == 'deletefile') {
  $langs->load("companies"); // Need for string DeleteFile+ConfirmDeleteFiles
  print $form->formconfirm(
    $_SERVER["PHP_SELF"].'?urlfile='.urlencode(GETPOST("urlfile")).'&linkid='.GETPOSTINT('linkid').(empty($param) ? '' : $param),
    $langs->trans('DeleteFile'),
    $langs->trans('ConfirmDeleteFile'),
    'confirm_deletefile',
    '',
    '',
    1
  );
}
 
 
print '<form method="POST" id="exportArchives" action="'.$_SERVER["PHP_SELF"].'?output=file">';
print '<input type="hidden" name="token" value="'.newToken().'">';
print '<input type="hidden" name="action" value="export">';
 
print '<div class="right">';
 
print '<span class="hideonsmartphone">'.$langs->trans("RestrictYearToExport").': </span>';
// Month
print $formother->select_month((string) GETPOSTINT('monthtoexport'), 'monthtoexport', $langs->trans("Month"), 0, 'minwidth50 maxwidth75imp valignmiddle', true);
print '<input type="text" name="yeartoexport" class="valignmiddle maxwidth75imp" value="'.GETPOST('yeartoexport').'" placeholder="'.$langs->trans("Year").'">';
 
print ' ';
 
// Disabled, we will use the getHashUniqueIdOfRegistration() as secret HMAC
//print '<input type="text" name="hmacexportkey" class="valignmiddle minwidth150imp maxwidth300imp" required value="'.GETPOST('hmacexportkey').'" placeholder="'.$langs->trans("Password").'">';
 
print ' ';
 
print '<input type="hidden" name="withtab" value="'.GETPOST('withtab', 'alpha').'">';
print '<input type="submit" name="downloadcsv" class="button" value="'.$langs->trans('DownloadLogCSV').'">';
/*if (getDolGlobalString('BLOCKEDLOG_USE_REMOTE_AUTHORITY')) {
  print ' | <a href="?action=downloadblockchain'.(GETPOST('withtab', 'alpha') ? '&withtab='.GETPOST('withtab', 'alpha') : '').'">'.$langs->trans('DownloadBlockChain').'</a>';
}*/
print ' </div><br>';
 
print '</form>';
 
 
/*
print '<form method="POST" id="searchFormList" action="'.dolBuildUrl($_SERVER["PHP_SELF"]).'">';
 
if ($optioncss != '') {
  print '<input type="hidden" name="optioncss" value="'.$optioncss.'">';
}
print '<input type="hidden" name="token" value="'.newToken().'">';
print '<input type="hidden" name="formfilteraction" id="formfilteraction" value="list">';
print '<input type="hidden" name="action" value="list">';
print '<input type="hidden" name="sortfield" value="'.$sortfield.'">';
print '<input type="hidden" name="sortorder" value="'.$sortorder.'">';
print '<input type="hidden" name="page" value="'.$page.'">';
print '<input type="hidden" name="contextpage" value="'.$contextpage.'">';
print '<input type="hidden" name="withtab" value="'.GETPOST('withtab', 'alpha').'">';
 
print '<div class="div-table-responsive">'; // You can use div-table-responsive-no-min if you don't need reserved height for your table
*/
 
$filearray = dol_dir_list($upload_dir, 'files', 0, '', null, 'name', SORT_ASC, 1);
 
$modulepart = 'blockedlog';
$relativepathwithnofile = 'archives/';
$disablemove = 1;
/*
$param = '&id='.$object->id.'&entity='.(empty($object->entity) ? getDolEntity() : $object->entity);
include DOL_DOCUMENT_ROOT.'/core/tpl/document_actions_post_headers.tpl.php';
*/
 
include_once DOL_DOCUMENT_ROOT.'/core/class/html.formfile.class.php';
$formfile = new FormFile($db);
 
$savingdocmask = '';
 
$object = $block_static;
 
// Get the form to add files (upload and links)
$tmparray = $formfile->form_attach_new_file(
  $_SERVER["PHP_SELF"],
  '',
  0,
  0,
  $permission,
  $conf->browser->layout == 'phone' ? 40 : 60,
  $object,
  '',
  1,
  $savingdocmask,
  1,
  'formuserfile',
  '',
  '',
  0,
  0,
  0,
  2
);
 
$formToUploadAFile = '';
 
if (is_array($tmparray) && !empty($tmparray)) {
  $formToUploadAFile = $tmparray['formToUploadAFile'];
}
 
// List of document
// TODO Replace with specific code to list files with mass action, ...
$formfile->list_of_documents(
  $filearray,
  null,
  $modulepart,
  $param,
  0,
  $relativepathwithnofile, // relative path with no file. For example "0/1"
  $permission,
  0,
  '',
  0,
  $langs->transnoentitiesnoconv('Archives'),
  '',
  0,
  $permtoedit,
  $upload_dir,
  $sortfield,
  $sortorder,
  $disablemove,
  0,
  -1,
  '',
  array('afteruploadtitle' => $formToUploadAFile, 'showhideaddbutton' => 1)
);
 
/*
print '</div>';
 
print '</form>';
*/
 
// Javascript to manage the showinfo popup
print '<script type="text/javascript">
 
jQuery(document).ready(function () {
  jQuery("#dialogforpopup").dialog({
    closeOnEscape: true,
    classes: { "ui-dialog": "highlight" },
    maxHeight: window.innerHeight-60,
    height: window.innerHeight-60,
    width: '.($conf->browser->layout == 'phone' ? 400 : 700).',
    modal: true,
    autoOpen: false
  }).css("z-index: 5000");
 
  $("a[rel=show-info]").click(function() {
      console.log("We click on tooltip a[rel=show-info], we open popup and get content using an ajax call");
 
    var fk_block = $(this).attr("data-blockid");
 
    $.ajax({
      method: "GET",
      data: { token: \''.currentToken().'\' },
      url: "'.DOL_URL_ROOT.'/blockedlog/ajax/block-info.php?id="+fk_block,
      dataType: "html"
    }).done(function(data) {
      jQuery("#dialogforpopup").html(data);
    });
 
    var mydialog = jQuery("#dialogforpopup");
    mydialog.dialog({autoOpen: false, modal: true, height: (window.innerHeight - 150), width: \'80%\', title: \''.dol_escape_js($langs->trans("UnlaterableDataOfEvent")).'\',});
    mydialog.dialog("open");
    return false;
  });
})
</script>'."\n";
 
 
if (GETPOST('withtab', 'alpha')) {
  print dol_get_fiche_end();
}
 
print '<br><br>';
 
// End of page
llxFooter();
$db->close();