#!/usr/bin/env php
<?php
/* Copyright (C) 2016 Laurent Destailleur	<eldy@users.sourceforge.net>
 *
 * 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/>.
 * or see https://www.gnu.org/
 *
 * Get a distant dump file and load it into a mysql database
 */

$sapi_type = php_sapi_name();
$script_file = basename(__FILE__);
$path = dirname(__FILE__).'/';

// Test if batch mode
if (substr($sapi_type, 0, 3) == 'cgi') {
	echo "Error: You are using PHP for CGI. To execute ".$script_file." from command line, you must use PHP for CLI mode.\n";
	exit;
}

// Global variables
$error = 0;

$confirm = isset($argv[1]) ? $argv[1] : '';

// Include Dolibarr environment
$res = 0;
$reg = array();
if (!$res && file_exists($path."../../master.inc.php")) {
	$res = @include $path."../../master.inc.php";
}
if (!$res && file_exists($path."../../htdocs/master.inc.php")) {
	$res = @include $path."../../htdocs/master.inc.php";
}
if (!$res && file_exists("../master.inc.php")) {
	$res = @include "../master.inc.php";
}
if (!$res && file_exists("../../master.inc.php")) {
	$res = @include "../../master.inc.php";
}
if (!$res && file_exists("../../../master.inc.php")) {
	$res = @include "../../../master.inc.php";
}
if (!$res && preg_match('/\/nltechno([^\/]*)\//', $_SERVER["PHP_SELF"], $reg)) {
	$res = @include $path."../../../dolibarr".$reg[1]."/htdocs/master.inc.php"; // Used on dev env only
}
if (!$res && preg_match('/\/nltechno([^\/]*)\//', $_SERVER["PHP_SELF"], $reg)) {
	$res = @include "../../../dolibarr".$reg[1]."/htdocs/master.inc.php"; // Used on dev env only
}
if (!$res) {
	die("Failed to include master.inc.php file\n");
}
/**
 * @var DoliDB $db
 */
include_once DOL_DOCUMENT_ROOT.'/core/lib/files.lib.php';
include_once DOL_DOCUMENT_ROOT.'/blockedlog/class/blockedlog.class.php';


/*
 *	Main
 */

print "***** ".$script_file." ".$confirm." *****\n";
if (empty($confirm)) {
	print "Usage: $script_file confirm|confirmresetblockedlog\n";
	print "Return code: 0 if success, <>0 if error\n";
	exit(1);
}


$dolnow = dol_now();

// Current year
$tmp = dol_getdate($dolnow);

$year = 2010;					// Old year in demo
$lastyear = $tmp['year'] - 2;	// New year in demo

$tables = array(
	'propal' => array(0 => 'datep', 1 => 'fin_validite', 2 => 'date_valid', 3 => 'date_cloture'),
	'commande' => array(0 => 'date_commande', 1 => 'date_valid', 2 => 'date_cloture'),
	'facture' => array(0 => 'datec', 1 => 'datef', 2 => 'date_valid', 3 => 'date_lim_reglement'),
	'paiement' => array(0 => 'datep'),
	'bank' => array(0 => 'datev', 1 => 'dateo'),
	'commande_fournisseur' => array(0 => 'date_commande', 1 => 'date_valid', 3 => 'date_creation', 4 => 'date_approve', 5 => 'date_approve2', 6 => 'date_livraison'),
	'supplier_proposal' => array(0 => 'datec', 1 => 'date_valid', 2 => 'date_cloture'),
	'expensereport' => array(0 => 'date_debut', 1 => 'date_fin', 2 => 'date_create', 3 => 'date_valid', 4 => 'date_approve', 5 => 'date_refuse', 6 => 'date_cancel'),
	'holiday' => array(0 => 'date_debut', 1 => 'date_fin', 2 => 'date_create', 3 => 'date_valid', 5 => 'date_refuse', 6 => 'date_cancel'),
	'ticket' => array(0 => 'datec', 1 => 'date_read', 2 => 'date_close')
);


if ($confirm == 'regenerate') {
	$entity = 1;
	$fromrowid = 0;
	//$fromrowid = 442;

	$block_static = new BlockedLog($db);
	$block_static->loadTrackedEvents();

	print "TZ=".date_default_timezone_get()."\n";

	$db->begin();

	// Now restart request with all data, so without the limit(1) in sql request
	$sql = "SELECT rowid, entity, date_creation, tms, user_fullname, action, module_source, amounts_taxexcl, amounts, element, fk_object, date_object, ref_object,";
	$sql .= " linktoref, linktype, signature, fk_user, object_data, object_version, object_format, debuginfo";
	$sql .= " FROM ".MAIN_DB_PREFIX."blockedlog";
	$sql .= " WHERE entity = ".((int) $entity);
	$sql .= " AND rowid >= ".((int) $fromrowid);
	$sql .= " ORDER BY date_creation ASC, rowid ASC"; // Required so later we can use the parameter $previoushash of checkSignature()

	$i = 0;

	$resql = $db->query($sql);
	if ($resql) {
		// Make the first fetch to get first line and then get the previous hash.
		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 blockedlog->fetch() method (db->jdate for date, ...)

			$block_static->id = $obj->rowid;
			$block_static->entity = $obj->entity;

			if ($i == 0) {
				$tmparray = $block_static->getPreviousHash(0, $block_static->id);
				$previoushash = $tmparray['previoushash'];
			}

			$tz = 'gmt';
			if (empty($obj->object_format) || $obj->object_format == 'V1') {
				$tz = 'tzserver';
			}

			$block_static->date_creation = $db->jdate($obj->date_creation, $tz);		// jdate(date_creation) is UTC
			$block_static->date_modification = $db->jdate($obj->tms, $tz);			// jdate(tms) is UTC

			$block_static->action = $obj->action;
			$block_static->module_source = $obj->module_source;

			$block_static->amounts_taxexcl = is_null($obj->amounts_taxexcl) ? null : (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->fk_object = $obj->fk_object;							// Not in signature
			$block_static->date_object = $db->jdate($obj->date_object, $tz);	// jdate(date_object) is UTC
			$block_static->ref_object = $obj->ref_object;

			$block_static->linktoref = $obj->linktoref;
			$block_static->linktype = $obj->linktype;

			$block_static->fk_user = $obj->fk_user;								// Not in signature
			$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->object_format = $obj->object_format;					// Not in signature.
			$block_static->object_version = $obj->object_version;				// Not in signature

			//$block_static->certified = ($obj->certified == 1);				// Not in signature

			//var_dump($obj->date_creation, $tz, $block_static->date_creation);

			// Build/Check the string for the signature
			$signature = $block_static->checkSignature($previoushash, 2);

			print "For ROWID ".$obj->rowid." - Previous hash = ".$previoushash."\n";
			print "Signature in db: ".$obj->signature." - New calculated: ".$signature['calculatedsignature']."\n";
			if ($obj->signature != $signature['calculatedsignature']) {
				$tmpsql = "UPDATE ".MAIN_DB_PREFIX."blockedlog SET signature = '".$db->escape($signature['calculatedsignature'])."'";
				$tmpsql .= " WHERE rowid = ".((int) $obj->rowid);

				print "Update for ROWID ".$obj->rowid." with ".$tmpsql."\n";
				$tmpresult = $db->query($tmpsql);
			}

			$previoushash = $signature['calculatedsignature'];


			// Set new previous hash for next fetch

			$i++;

			// Uncomment to proceed one only
			//break;
		}
	} else {
		$error++;
		setEventMessages($db->lasterror, null, 'errors');
	}

	$db->commit();
}


if ($confirm == 'confirm') {
	print "Update dates to current year for database name = ".$db->database_name."\n";

	// Upgrade dates from 2010 to current year - 2.
	while ($year <= $lastyear) {
		//$year=2021;
		$delta1 = ($lastyear - $year);
		$delta2 = ($lastyear - $year - 1);
		//$delta=-1;

		if ($delta1) {
			foreach ($tables as $tablekey => $tableval) {
				print "Correct ".$tablekey." for year ".$year." and move them to current year ".$lastyear." ";
				$sql = "select rowid from ".MAIN_DB_PREFIX.$tablekey." where ".$tableval[0]." between '".$year."-01-01' and '".$year."-12-31' and ".$tableval[0]." < DATE_ADD(NOW(), INTERVAL -1 YEAR)";
				//$sql="select rowid from ".MAIN_DB_PREFIX.$tablekey." where ".$tableval[0]." between '".$year."-01-01' and '".$year."-12-31' and ".$tableval[0]." > NOW()";
				$resql = $db->query($sql);
				if ($resql) {
					$num = $db->num_rows($resql);
					$i = 0;
					while ($i < $num) {
						$obj = $db->fetch_object($resql);
						if ($obj) {
							print ".";
							$sql2 = "UPDATE ".MAIN_DB_PREFIX.$tablekey." set ";
							$j = 0;
							foreach ($tableval as $field) {
								if ($j) {
									$sql2 .= ", ";
								}
								$sql2 .= $field." = ".$db->ifsql("DATE_ADD(".$field.", INTERVAL ".$delta1." YEAR) > NOW()", "DATE_ADD(".$field.", INTERVAL ".$delta2." YEAR)", "DATE_ADD(".$field.", INTERVAL ".$delta1." YEAR)");
								$j++;
							}
							$sql2 .= " WHERE rowid = ".$obj->rowid;
							//print $sql2."\n";
							$resql2 = $db->query($sql2);
							if (!$resql2) {
								dol_print_error($db);
							}
						}
						$i++;
					}
				} else {
					dol_print_error($db);
				}
				print "\n";
			}
		}

		$year++;
	}
}

if ($confirm == 'confirmresetblockedlog') {
	$year = $tmp['year'];			// Old year in demo
	$lastyear = $tmp['year'] - 2;	// New year in demo

	// Upgrade dates from current year to current year - 2.
	while ($year >= $lastyear) {
		//$year=2021;
		$delta1 = ($lastyear - $year);			// negative value
		$delta2 = ($lastyear - $year - 1);		// negative value
		//$delta=-1;

		if ($delta1) {
			foreach ($tables as $tablekey => $tableval) {
				print "Correct ".$tablekey." for year ".$year." and move them to current year ".$lastyear." ";
				$sql = "select rowid from ".MAIN_DB_PREFIX.$tablekey." where ".$tableval[0]." between '".$year."-01-01' and '".$year."-12-31'";
				$resql = $db->query($sql);
				if ($resql) {
					$num = $db->num_rows($resql);
					$i = 0;
					while ($i < $num) {
						$obj = $db->fetch_object($resql);
						if ($obj) {
							print ".";
							$sql2 = "UPDATE ".MAIN_DB_PREFIX.$tablekey." set ";
							$j = 0;
							foreach ($tableval as $field) {
								if ($j) {
									$sql2 .= ", ";
								}
								$sql2 .= $field." = DATE_ADD(".$field.", INTERVAL ".$delta1." YEAR)";
								$j++;
							}
							$sql2 .= " WHERE rowid = ".$obj->rowid;
							//print $sql2."\n";
							$resql2 = $db->query($sql2);
							if (!$resql2) {
								dol_print_error($db);
							}
						}
						$i++;
					}
				} else {
					dol_print_error($db);
				}
				print "\n";
			}
		}

		$year--;
	}


	$sql = "CREATE TABLE tmp_delete (SELECT pf.fk_paiement FROM llx_paiement_facture as pf WHERE pf.fk_facture IN (SELECT f.rowid FROM llx_facture as f WHERE f.datef < '2024-12-31'))";
	print $sql;
	print "\n";
	$db->query($sql);

	$sql = "DELETE FROM ".MAIN_DB_PREFIX."paiement_facture WHERE fk_paiement IN (SELECT fk_paiement FROM tmp_delete)";
	print $sql;
	print "\n";
	$db->query($sql);

	$sql = "DELETE FROM ".MAIN_DB_PREFIX."paiement WHERE rowid IN (SELECT fk_paiement FROM tmp_delete)";
	print $sql;
	print "\n";
	$db->query($sql);

	$sql = "DELETE FROM ".MAIN_DB_PREFIX."facturedet as fd WHERE fd.fk_facture IN (SELECT rowid FROM ".MAIN_DB_PREFIX."facture WHERE datef < '".$lastyear."-12-31')";
	print $sql;
	print "\n";
	$db->query($sql);

	$sql = "DELETE FROM ".MAIN_DB_PREFIX."facture WHERE datef < '".$lastyear."-12-31'";
	print $sql;
	print "\n";
	$db->query($sql);

	$sql = "DROP TABLE tmp_delete";
	print $sql;
	print "\n";
	$db->query($sql);


	$sql = "UPDATE ".MAIN_DB_PREFIX."facture SET datef = datec";
	print $sql;
	print "\n";
	$db->query($sql);

	$sql = "UPDATE ".MAIN_DB_PREFIX."paiement as p SET datep = (SELECT datef FROM ".MAIN_DB_PREFIX."facture as f WHERE f.rowid = (SELECT fk_facture FROM ".MAIN_DB_PREFIX."paiement_facture as pf WHERE pf.fk_paiement = p.rowid AND pf.fk_facture = f.rowid) LIMIT 1)";
	print $sql;
	print "\n";
	$db->query($sql);


	$sql = "DELETE FROM ".MAIN_DB_PREFIX."blockedlog";
	print $sql;
	print "\n";
	$db->query($sql);

	$sql = "DELETE FROM ".MAIN_DB_PREFIX."const WHERE name = 'MAIN_FIRST_REGISTRATION_OK_DATE'";
	print $sql;
	print "\n";
	$db->query($sql);


	/*
	// Delete corrupted record no more used that still exists in demo image but can't exist in a production env
	$sql = "DELETE FROM ".MAIN_DB_PREFIX."blockedlog WHERE action LIKE 'PAYMENT_VARIOUS_%'";
	print $sql;
	print "\n";
	$db->query($sql);

	$sql = "DELETE FROM ".MAIN_DB_PREFIX."blockedlog WHERE rowid < 199";
	print $sql;
	print "\n";
	$db->query($sql);

	$sql = "DELETE FROM ".MAIN_DB_PREFIX."blockedlog WHERE action LIKE 'MODULE_RESET'";
	print $sql;
	print "\n";
	$db->query($sql);

	$sql = "DELETE FROM ".MAIN_DB_PREFIX."blockedlog";
	print $sql;
	print "\n";
	$db->query($sql);

	$sql = "UPDATE ".MAIN_DB_PREFIX."blockedlog SET date_creation = tms WHERE date_creation <> tms";
	print $sql;
	print "\n";

	$sql = "DELETE FROM ".MAIN_DB_PREFIX."blockedlog WHERE date_creation > '".dol_print_date($dolnow, 'day')."'";
	print $sql;
	print "\n";
	$db->query($sql);

	$sql = "UPDATE ".MAIN_DB_PREFIX."blockedlog SET debuginfo = NULL WHERE debuginfo IS NOT NULL";
	print $sql;
	print "\n";
	$db->query($sql);
	*/
}


print "\n";

exit(0);