NEW Add caldav on fichinter (#30582)

* New caldav from fichinter * Update fichinter.lib.php * Create agendaexport.php * Update fichinter.lib.php * Update agendaexport.php * Update agendaexport.php * Update agendaexport.php * Update agendaexport.php * Update agendaexport.php * Update agendaexport.php * Update agendaexport.php * Update agendaexport.php * Update agendaexport.php * Update agendaexport.php * Update agendaexport.php * Update fichinter_xcal.php
2026-01-06 00:53:00 +01:00 · 2024-08-11 12:07:48 +02:00
parent 8a35651b3f
commit 82589a49c6
3 changed files with 975 additions and 2 deletions
--- a/htdocs/admin/fichinter_xcal.php
+++ b/htdocs/admin/fichinter_xcal.php
@@ -0,0 +1,244 @@
+<?php
+/* Copyright (C) 2008-2015 	Laurent Destailleur <eldy@users.sourceforge.net>
+ * Copyright (C) 2012-2013	Juanjo Menent		<jmenent@2byte.es>
+ * Copyright (C) 2012		Regis Houssin		<regis.houssin@inodbox.com>
+ * Copyright (C) 2015		Jean-François Ferry	<jfefe@aternatik.fr>
+ * Copyright (C) 2024		Charlene Benke		<charlene@patas-monkey.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/>.
+ */
+
+/**
+ *	    \file       htdocs/admin/fichinter_xcal.php
+ *      \ingroup    agenda
+ *      \brief      Page to setup miscellaneous options of agenda module
+ */
+
+// Load Dolibarr environment
+require '../main.inc.php';
+require_once DOL_DOCUMENT_ROOT.'/core/lib/admin.lib.php';
+require_once DOL_DOCUMENT_ROOT.'/core/lib/fichinter.lib.php';
+
+
+if (!$user->admin) {
+	accessforbidden();
+}
+
+// Load translation files required by the page
+$langs->loadLangs(array("admin", "other", "agenda"));
+
+$def = array();
+$actionsave = GETPOST('save', 'alpha');
+$MAIN_FICHINTER_XCAL_EXPORTKEY = getDolGlobalString('MAIN_FICHINTER_XCAL_EXPORTKEY');
+$MAIN_FICHINTER_EXPORT_PAST_DELAY = getDolGlobalString('MAIN_FICHINTER_EXPORT_PAST_DELAY', 100);
+$MAIN_FICHINTER_EXPORT_CACHE = getDolGlobalInt('MAIN_FICHINTER_EXPORT_CACHE');
+$MAIN_FICHINTER_EXPORT_FIX_TZ = getDolGlobalString('MAIN_FICHINTER_EXPORT_FIX_TZ');
+
+if (GETPOSTISSET('MAIN_FICHINTER_XCAL_EXPORTKEY')) {
+	$MAIN_FICHINTER_XCAL_EXPORTKEY = trim(GETPOST('MAIN_FICHINTER_XCAL_EXPORTKEY', 'alpha'));
+}
+if (GETPOSTISSET('MAIN_FICHINTER_EXPORT_PAST_DELAY')) {
+	$MAIN_FICHINTER_EXPORT_PAST_DELAY = intval(GETPOSTINT('MAIN_FICHINTER_EXPORT_PAST_DELAY'));
+}
+if (GETPOSTISSET('MAIN_FICHINTER_EXPORT_CACHE')) {
+	$MAIN_FICHINTER_EXPORT_CACHE = intval(GETPOSTINT('MAIN_FICHINTER_EXPORT_CACHE'));
+}
+if (GETPOSTISSET('MAIN_FICHINTER_EXPORT_FIX_TZ')) {
+	$MAIN_FICHINTER_EXPORT_FIX_TZ = trim(GETPOST('MAIN_FICHINTER_EXPORT_FIX_TZ', 'alpha'));
+}
+
+// Sauvegardes parameters
+if ($actionsave) {
+	$i = 0;
+
+	$db->begin();
+
+	$i += dolibarr_set_const($db, 'MAIN_FICHINTER_XCAL_EXPORTKEY', $MAIN_FICHINTER_XCAL_EXPORTKEY, 'chaine', 0, '', $conf->entity);
+	$i += dolibarr_set_const($db, 'MAIN_FICHINTER_EXPORT_PAST_DELAY', $MAIN_FICHINTER_EXPORT_PAST_DELAY, 'chaine', 0, '', $conf->entity);
+	$i += dolibarr_set_const($db, 'MAIN_FICHINTER_EXPORT_CACHE', $MAIN_FICHINTER_EXPORT_CACHE, 'chaine', 0, '', $conf->entity);
+	$i += dolibarr_set_const($db, 'MAIN_FICHINTER_EXPORT_FIX_TZ', $MAIN_FICHINTER_EXPORT_FIX_TZ, 'chaine', 0, '', $conf->entity);
+
+	if ($i >= 4) {
+		$db->commit();
+		setEventMessages($langs->trans("SetupSaved"), null, 'mesgs');
+	} else {
+		$db->rollback();
+		setEventMessages($langs->trans("SaveFailed"), null, 'errors');
+	}
+}
+
+
+
+/**
+ * View
+ */
+
+if (!getDolGlobalString("MAIN_FICHINTER_EXPORT_PAST_DELAY")) {
+	$conf->global->MAIN_FICHINTER_EXPORT_PAST_DELAY = 100;
+}
+
+$wikihelp = 'EN:Module_Agenda_En|FR:Module_Agenda|ES:Módulo_Agenda|DE:Modul_Terminplanung';
+llxHeader('', $langs->trans("AgendaSetup"), $wikihelp, '', 0, 0, '', '', '', 'mod-admin page-agenda_xcal');
+
+$linkback = '<a href="'.DOL_URL_ROOT.'/admin/modules.php?restore_lastsearch_values=1">'.$langs->trans("BackToModuleList").'</a>';
+print load_fiche_titre($langs->trans("AgendaSetup"), $linkback, 'title_setup');
+
+
+print '<form name="agendasetupform" action="'.$_SERVER["PHP_SELF"].'" method="post">';
+print '<input type="hidden" name="token" value="'.newToken().'">';
+
+$head = fichinter_admin_prepare_head();
+
+print dol_get_fiche_head($head, 'xcal', $langs->trans("Agenda"), -1, 'action');
+
+print '<span class="opacitymedium">'.$langs->trans("AgendaSetupOtherDesc")."</span><br>\n";
+print "<br>\n";
+
+print '<div class="div-table-responsive">'; // You can use div-table-responsive-no-min if you don't need reserved height for your table
+print '<table class="noborder centpercent">';
+
+print '<tr class="liste_titre">';
+print "<td>".$langs->trans("Parameter")."</td>";
+print "<td>".$langs->trans("Value")."</td>";
+//print "<td>".$langs->trans("Examples")."</td>";
+print "<td>&nbsp;</td>";
+print "</tr>";
+
+print '<tr class="oddeven">';
+print '<td class="fieldrequired">'.$langs->trans("PasswordTogetVCalExport")."</td>";
+print '<td><input required="required" type="text" class="flat minwidth100 maxwidth300 widthcentpercentminusx" id="MAIN_FICHINTER_XCAL_EXPORTKEY" name="MAIN_FICHINTER_XCAL_EXPORTKEY" value="'.dol_escape_htmltag($MAIN_FICHINTER_XCAL_EXPORTKEY).'">';
+if (!empty($conf->use_javascript_ajax)) {
+	print '&nbsp;'.img_picto($langs->trans('Generate'), 'refresh', 'id="generate_token" class="linkobject"');
+}
+print '</td>';
+print "<td>&nbsp;</td>";
+print "</tr>";
+
+print '<tr class="oddeven">';
+print "<td>".$langs->trans("PastDelayVCalExport")."</td>";
+print '<td><input type="text" class="flat width50 right" name="MAIN_FICHINTER_EXPORT_PAST_DELAY" value="'.$MAIN_FICHINTER_EXPORT_PAST_DELAY.'"> '.$langs->trans("days")."</td>";
+print "<td>&nbsp;</td>";
+print "</tr>";
+
+print '<tr class="oddeven">';
+print "<td>".$langs->trans("UseACacheDelay")."</td>";
+print '<td><input type="text" class="flat width50 right" name="MAIN_FICHINTER_EXPORT_CACHE" value="'.$MAIN_FICHINTER_EXPORT_CACHE.'"></td>';
+print "<td>&nbsp;</td>";
+print "</tr>";
+
+print '</table>';
+print '</div>';
+
+print '<br>';
+
+print '<div class="div-table-responsive">'; // You can use div-table-responsive-no-min if you don't need reserved height for your table
+print '<table class="noborder centpercent">';
+
+print '<tr class="liste_titre">';
+print '<td width="25%">'.$langs->trans("Parameter")."</td>";
+print "<td>".$langs->trans("Value")."</td>";
+print "</tr>";
+print '<tr class="oddeven">';
+print '<td>'.$langs->trans("FixTZ")."</td>";
+print "<td>";
+print '<input class="flat" type="text" size="4" name="MAIN_FICHINTER_EXPORT_FIX_TZ" value="'.dol_escape_htmltag($MAIN_FICHINTER_EXPORT_FIX_TZ).'">';
+print ' &nbsp; '.$langs->trans("FillThisOnlyIfRequired");
+print "</td>";
+print "</tr>";
+
+print '</table>';
+print '</div>';
+
+print dol_get_fiche_end();
+
+print $form->buttonsSaveCancel("Save", '');
+
+print "</form>\n";
+
+
+clearstatcache();
+
+//if ($mesg) print "<br>$mesg<br>";
+print "<br>";
+
+
+// Define $urlwithroot
+$urlwithouturlroot = preg_replace('/'.preg_quote(DOL_URL_ROOT, '/').'$/i', '', trim($dolibarr_main_url_root));
+$urlwithroot = $urlwithouturlroot.DOL_URL_ROOT; // This is to use external domain name found into config file
+//$urlwithroot=DOL_MAIN_URL_ROOT;					// This is to use same domain name than current
+$getentity = ($conf->entity > 1 ? "&entity=".$conf->entity : "");
+
+// Show message
+$message = '';
+
+$urlvcal = '<a href="'.$urlwithroot.'/public/fichinter/agendaexport.php?format=vcal'.$getentity.'&exportkey='.($conf->global->MAIN_FICHINTER_XCAL_EXPORTKEY ? urlencode(getDolGlobalString('MAIN_FICHINTER_XCAL_EXPORTKEY')) : '...').'" target="_blank" rel="noopener noreferrer">';
+$urlvcal .= $urlwithroot.'/public/fichinter/agendaexport.php?format=vcal'.$getentity.'&exportkey='.($conf->global->MAIN_FICHINTER_XCAL_EXPORTKEY ? urlencode(getDolGlobalString('MAIN_FICHINTER_XCAL_EXPORTKEY')) : 'KEYNOTDEFINED').'</a>';
+$message .= img_picto('', 'globe').' '.str_replace('{url}', $urlvcal, '<span class="opacitymedium">'.$langs->trans("WebCalUrlForVCalExport", 'vcal', '').'</span>');
+$message .= '<div class="urllink">';
+$message .= '<input type="text" id="onlinepaymenturl1" class="quatrevingtpercent" value="'.$urlwithroot.'/public/fichinter/agendaexport.php?format=vcal'.$getentity.'&exportkey='.($conf->global->MAIN_FICHINTER_XCAL_EXPORTKEY ? urlencode(getDolGlobalString('MAIN_FICHINTER_XCAL_EXPORTKEY')) : '...').'">';
+if (getDolGlobalString('MAIN_FICHINTER_XCAL_EXPORTKEY')) {
+	$message .= ' <a href="'.$urlwithroot.'/public/fichinter/agendaexport.php?format=vcal'.$getentity.'&exportkey='.($conf->global->MAIN_FICHINTER_XCAL_EXPORTKEY ? urlencode(getDolGlobalString('MAIN_FICHINTER_XCAL_EXPORTKEY')) : '...').'">'.img_picto('', 'download').'</a>';
+}
+$message .= '</div>';
+$message .= ajax_autoselect('onlinepaymenturl1');
+$message .= '<br>';
+
+$urlical = '<a href="'.$urlwithroot.'/public/fichinter/agendaexport.php?format=ical&type=event'.$getentity.'&exportkey='.($conf->global->MAIN_FICHINTER_XCAL_EXPORTKEY ? urlencode(getDolGlobalString('MAIN_FICHINTER_XCAL_EXPORTKEY')) : '...').'" target="_blank" rel="noopener noreferrer">';
+$urlical .= $urlwithroot.'/public/fichinter/agendaexport.php?format=ical&type=event'.$getentity.'&exportkey='.($conf->global->MAIN_FICHINTER_XCAL_EXPORTKEY ? urlencode(getDolGlobalString('MAIN_FICHINTER_XCAL_EXPORTKEY')) : 'KEYNOTDEFINED').'</a>';
+$message .= img_picto('', 'globe').' '.str_replace('{url}', $urlical, '<span class="opacitymedium">'.$langs->trans("WebCalUrlForVCalExport", 'ical/ics', '').'</span>');
+$message .= '<div class="urllink">';
+$message .= '<input type="text" id="onlinepaymenturl2" class="quatrevingtpercent" value="'.$urlwithroot.'/public/fichinter/agendaexport.php?format=ical'.$getentity.'&exportkey='.($conf->global->MAIN_FICHINTER_XCAL_EXPORTKEY ? urlencode(getDolGlobalString('MAIN_FICHINTER_XCAL_EXPORTKEY')) : '...').'">';
+if (getDolGlobalString('MAIN_FICHINTER_XCAL_EXPORTKEY')) {
+	$message .= ' <a href="'.$urlwithroot.'/public/fichinter/agendaexport.php?format=ical'.$getentity.'&exportkey='.($conf->global->MAIN_FICHINTER_XCAL_EXPORTKEY ? urlencode(getDolGlobalString('MAIN_FICHINTER_XCAL_EXPORTKEY')) : '...').'">'.img_picto('', 'download').'</a>';
+}
+$message .= '</div>';
+$message .= ajax_autoselect('onlinepaymenturl2');
+$message .= '<br>';
+
+$urlrss = '<a href="'.$urlwithroot.'/public/fichinter/agendaexport.php?format=rss'.$getentity.'&exportkey='.($conf->global->MAIN_FICHINTER_XCAL_EXPORTKEY ? urlencode(getDolGlobalString('MAIN_FICHINTER_XCAL_EXPORTKEY')) : '...').'" target="_blank" rel="noopener noreferrer">';
+$urlrss .= $urlwithroot.'/public/fichinter/agendaexport.php?format=rss'.$getentity.'&exportkey='.($conf->global->MAIN_FICHINTER_XCAL_EXPORTKEY ? urlencode(getDolGlobalString('MAIN_FICHINTER_XCAL_EXPORTKEY')) : 'KEYNOTDEFINED').'</a>';
+$message .= img_picto('', 'globe').' '.str_replace('{url}', $urlrss, '<span class="opacitymedium">'.$langs->trans("WebCalUrlForVCalExport", 'rss', '').'</span>');
+$message .= '<div class="urllink">';
+$message .= '<input type="text" id="onlinepaymenturl3" class="quatrevingtpercent" value="'.$urlwithroot.'/public/fichinter/agendaexport.php?format=rss'.$getentity.'&exportkey='.($conf->global->MAIN_FICHINTER_XCAL_EXPORTKEY ? urlencode(getDolGlobalString('MAIN_FICHINTER_XCAL_EXPORTKEY')) : '...').'">';
+if (getDolGlobalString('MAIN_FICHINTER_XCAL_EXPORTKEY')) {
+	$message .= ' <a href="'.$urlwithroot.'/public/fichinter/agendaexport.php?format=rss'.$getentity.'&exportkey='.($conf->global->MAIN_FICHINTER_XCAL_EXPORTKEY ? urlencode(getDolGlobalString('MAIN_FICHINTER_XCAL_EXPORTKEY')) : '...').'">'.img_picto('', 'download').'</a>';
+}
+$message .= '</div>';
+$message .= ajax_autoselect('onlinepaymenturl3');
+$message .= '<br>';
+
+print $message;
+
+$message = $langs->trans("AgendaUrlOptions1", $user->login, $user->login).'<br>';
+$message .= $langs->trans("AgendaUrlOptions3", $user->login, $user->login, $user->login).'<br>';
+$message .= $langs->trans("AgendaUrlOptions4", $user->login, $user->login).'<br>';
+$message .= $langs->trans("AgendaUrlOptionsProject", $user->login, $user->login).'<br>';
+$message .= $langs->trans("AgendaUrlOptionsType", 'systemauto|system').'<br>';
+$message .= $langs->trans("AgendaUrlOptionsCode", 'AC_COMPANY_CREATE,AC_PROPAL_VALIDATE,AC_CODE...').'<br>';
+$message .= $langs->trans("AgendaUrlOptionsIncludeHolidays", '1', '1').'<br>';
+//$defaultnotolderthan = getDolGlobalString('MAIN_FICHINTER_EXPORT_PAST_DELAY', 100);
+//$message .= $langs->trans("AgendaUrlOptionsLimitDays", $defaultnotolderthan, $defaultnotolderthan, $defaultnotolderthan).'<br>';
+$message .= $langs->trans("AgendaUrlOptionsLimit", '1000').'<br>';
+
+print info_admin($message);
+
+$constname = 'MAIN_FICHINTER_XCAL_EXPORTKEY';
+
+// Add button to autosuggest a key
+include_once DOL_DOCUMENT_ROOT.'/core/lib/security2.lib.php';
+print dolJSToSetRandomPassword($constname);
+
+// End of page
+llxFooter();
+$db->close();
--- a/htdocs/core/lib/fichinter.lib.php
+++ b/htdocs/core/lib/fichinter.lib.php
@@ -3,8 +3,8 @@
 * Copyright (C) 2007		Rodolphe Quiedeville	<rodolphe@quiedeville.org>
 * Copyright (C) 2012		Regis Houssin			<regis.houssin@inodbox.com>
 * Copyright (C) 2016		Gilles Poirier 		   <glgpoirier@gmail.com>
- * Copyright (C) 2018		charlene Benke 		   <charlie@patas-monkey.com>
- * Copyright (C) 2024		MDW							<mdeweerd@users.noreply.github.com>
+ * Copyright (C) 2018-2024	Charlene Benke 		   <charlene@patas-monkey.com>
+ * Copyright (C) 2024		MDW						<mdeweerd@users.noreply.github.com>

 *
 * This program is free software; you can redistribute it and/or modify
@@ -175,6 +175,7 @@ function fichinter_admin_prepare_head()
 	$extrafields->fetch_name_optionals_label('fichinter');
 	$extrafields->fetch_name_optionals_label('fichinterdet');

+
 	$h = 0;
 	$head = array();

@@ -183,6 +184,11 @@ function fichinter_admin_prepare_head()
 	$head[$h][2] = 'ficheinter';
 	$h++;

+	$head[$h][0] = DOL_URL_ROOT."/admin/fichinter_xcal.php";
+	$head[$h][1] = $langs->trans("ExportCal");
+	$head[$h][2] = 'xcal';
+	$h++;
+
 	// Show more tabs from modules
 	// Entries must be declared in modules descriptor with line
 	// $this->tabs = array('entity:+tabname:Title:@mymodule:/mymodule/mypage.php?id=__ID__');   to add new tab
--- a/htdocs/public/fichinter/agendaexport.php
+++ b/htdocs/public/fichinter/agendaexport.php
@@ -0,0 +1,723 @@
+<?php
+/* Copyright (C) 2008-2024 Laurent Destailleur <eldy@users.sourceforge.net>
+ * Copyright (C) 2024 Charlene Benke  		<charlene@patas-monkey.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/>.
+ */
+
+/**
+ * 	\file       htdocs/public/fichinter/calendarexport.php
+ * 	\ingroup    fichinter
+ * 	\brief      Page to export fichinter agenda into a vcal, ical or rss
+ * 				http://127.0.0.1/dolibarr/public/fichinter/calendarexport.php?format=vcal&exportkey=cle
+ * 				http://127.0.0.1/dolibarr/public/fichinter/calendarexport.php?format=ical&type=event&exportkey=cle
+ * 				http://127.0.0.1/dolibarr/public/fichinter/calendarexport.php?format=rss&exportkey=cle
+ *              Other parameters into url are:
+ *              &notolderthan=99
+ *              &year=2015
+ *              &limit=1000
+ *              &id=..., &idfrom=..., &idto=...
+ */
+
+if (!defined('NOTOKENRENEWAL')) {
+	define('NOTOKENRENEWAL', '1');
+}
+if (!defined('NOREQUIREMENU')) {
+	define('NOREQUIREMENU', '1'); // If there is no menu to show
+}
+if (!defined('NOREQUIREHTML')) {
+	define('NOREQUIREHTML', '1'); // If we don't need to load the html.form.class.php
+}
+if (!defined('NOREQUIREAJAX')) {
+	define('NOREQUIREAJAX', '1');
+}
+if (!defined('NOLOGIN')) {
+	define("NOLOGIN", 1); // This means this output page does not require to be logged.
+}
+if (!defined('NOCSRFCHECK')) {
+	define("NOCSRFCHECK", 1); // We accept to go on this page from external web site.
+}
+if (!defined('NOIPCHECK')) {
+	define('NOIPCHECK', '1'); // Do not check IP defined into conf $dolibarr_main_restrict_ip
+}
+
+
+// For MultiCompany module.
+// Do not use GETPOST here, function is not defined and define must be done before including main.inc.php
+// Because 2 entities can have the same ref
+$entity = (!empty($_GET['entity']) ? (int) $_GET['entity'] : (!empty($_POST['entity']) ? (int) $_POST['entity'] : 1));
+if (is_numeric($entity)) {
+	define("DOLENTITY", $entity);
+}
+
+// Load Dolibarr environment
+require '../../main.inc.php';
+require_once DOL_DOCUMENT_ROOT.'/fichinter/class/fichinter.class.php';
+
+$fichinterStatic = new Fichinter($db);
+
+// Not older than
+if (!getDolGlobalString('MAIN_FICHINTER_EXPORT_PAST_DELAY')) {
+	$conf->global->MAIN_FICHINTER_EXPORT_PAST_DELAY = 100; // default limit
+}
+
+// Define format, type and filter
+$format = 'ical';
+$type = 'event';
+if (GETPOST("format", 'alpha')) {
+	$format = GETPOST("format", 'alpha');
+}
+if (GETPOST("type", 'alpha')) {
+	$type = GETPOST("type", 'alpha');
+}
+
+$filters = array();
+if (GETPOSTINT("year")) {
+	$filters['year'] = GETPOSTINT("year");
+}
+if (GETPOSTINT("id")) {
+	$filters['id'] = GETPOSTINT("id");
+}
+if (GETPOSTINT("idfrom")) {
+	$filters['idfrom'] = GETPOSTINT("idfrom");
+}
+if (GETPOSTINT("idto")) {
+	$filters['idto'] = GETPOSTINT("idto");
+}
+if (GETPOST("project", 'alpha')) {
+	$filters['project'] = GETPOST("project", 'alpha');
+}
+if (GETPOST("logina", 'alpha')) {
+	$filters['logina'] = GETPOST("logina", 'alpha');
+}
+if (GETPOST("logint", 'alpha')) {
+	$filters['logint'] = GETPOST("logint", 'alpha');
+}
+
+if (GETPOSTINT("notolderthan")) {
+	$filters['notolderthan'] = GETPOSTINT("notolderthan");
+} else {
+	$filters['notolderthan'] = getDolGlobalString('MAIN_FICHINTER_EXPORT_PAST_DELAY', 100);
+}
+if (GETPOSTINT("limit")) {
+	$filters['limit'] = GETPOSTINT("limit");
+} else {
+	$filters['limit'] = 1000;
+}
+if (GETPOST("module", 'alpha')) {
+	$filters['module'] = GETPOST("module", 'alpha');
+}
+if (GETPOST("status", "intcomma")) {
+	$filters['status'] = GETPOST("status", "intcomma");
+}
+
+// Security check
+if (!isModEnabled('intervention')) {
+	httponly_accessforbidden('Module fichinter not enabled');
+}
+
+
+/*
+ * View
+ */
+
+// Check config
+if (!getDolGlobalString('MAIN_FICHINTER_XCAL_EXPORTKEY')) {
+	top_httphead();
+
+	print '<html><title>Export fichinter cal</title><body>';
+	print '<div class="error">Module Agenda was not configured properly.</div>';
+	print '</body></html>';
+	exit;
+}
+
+// Initialize technical object to manage hooks. Note that conf->hooks_modules contains array of hooks
+$hookmanager->initHooks(array('fichinterexport'));
+
+// Note that $action and $object may have been modified by some
+$reshook = $hookmanager->executeHooks('doActions', $filters);
+if ($reshook < 0) {
+	top_httphead();
+
+	print '<html><title>Export fichinter cal</title><body>';
+	if (!empty($hookmanager->errors) && is_array($hookmanager->errors)) {
+		print '<div class="error">'.implode('<br>', $hookmanager->errors).'</div>';
+	} else {
+		print '<div class="error">'.$hookmanager->error.'</div>';
+	}
+	print '</body></html>';
+} elseif (empty($reshook)) {
+	// Check exportkey
+	if (!GETPOST("exportkey") || getDolGlobalString('MAIN_FICHINTER_XCAL_EXPORTKEY') != GETPOST("exportkey")) {
+		top_httphead();
+
+		print '<html><title>Export fichinter cal</title><body>';
+		print '<div class="error">Bad value for key.</div>';
+		print '</body></html>';
+		exit;
+	}
+}
+
+// Define filename with prefix on filters predica (each predica set must have on cache file)
+$shortfilename = 'dolibarrcalendar';
+$filename = $shortfilename;
+// Complete long filename
+foreach ($filters as $key => $value) {
+	//if ($key == 'notolderthan')
+	//    $filename.='-notolderthan'.$value; This filter key is already added before and does not need to be in filename
+	if ($key == 'year') {
+		$filename .= '-year'.$value;
+	}
+	if ($key == 'id') {
+		$filename .= '-id'.$value;
+	}
+	if ($key == 'idfrom') {
+		$filename .= '-idfrom'.$value;
+	}
+	if ($key == 'idto') {
+		$filename .= '-idto'.$value;
+	}
+	if ($key == 'project') {
+		$filename .= '-project'.$value;
+		$shortfilename .= '-project'.$value;
+	}
+	if ($key == 'logina') {
+		$filename .= '-logina'.$value; // Author
+	}
+	if ($key == 'logint') {
+		$filename .= '-logint'.$value; // Assigned to
+	}
+
+	if ($key == 'module') {
+		$filename .= '-module'.$value;
+		if ($value == 'project@eventorganization') {
+			$shortfilename .= '-project';
+		} elseif ($value == 'conforbooth@eventorganization') {
+			$shortfilename .= '-conforbooth';
+		}
+	}
+	if ($key == 'status') {
+		$filename .= '-status'.$value;
+	}
+}
+// Add extension
+if ($format == 'vcal') {
+	$shortfilename .= '.vcs';
+	$filename .= '.vcs';
+}
+if ($format == 'ical') {
+	$shortfilename .= '.ics';
+	$filename .= '.ics';
+}
+if ($format == 'rss') {
+	$shortfilename .= '.rss';
+	$filename .= '.rss';
+}
+if ($shortfilename == 'dolibarrcalendar') {
+	$langs->load("errors");
+
+	top_httphead();
+
+	print '<html><title>Export fichinter cal</title><body>';
+	print '<div class="error">'.$langs->trans("ErrorWrongValueForParameterX", 'format').'</div>';
+	print '</body></html>';
+	exit;
+}
+
+$fichinter = new Fichinter($db);
+
+$cachedelay = 0;
+if (getDolGlobalString('MAIN_FICHINTER_EXPORT_CACHE')) {
+	$cachedelay = getDolGlobalString('MAIN_FICHINTER_EXPORT_CACHE');
+}
+
+$exportholidays = GETPOSTINT('includeholidays');
+
+// Build file
+if ($format == 'ical' || $format == 'vcal') {
+	$result = build_exportfile($format, $type, $cachedelay, $filename, $filters);
+	if ($result >= 0) {
+		$attachment = true;
+		if (GETPOSTISSET("attachment")) {
+			$attachment = GETPOST("attachment");
+		}
+		//$attachment = false;
+		$contenttype = 'text/calendar';
+		if (GETPOSTISSET("contenttype")) {
+			$contenttype = GETPOST("contenttype");
+		}
+		//$contenttype='text/plain';
+		$outputencoding = 'UTF-8';
+
+		if ($contenttype) {
+			header('Content-Type: '.$contenttype.($outputencoding ? '; charset='.$outputencoding : ''));
+		}
+		if ($attachment) {
+			header('Content-Disposition: attachment; filename="'.$shortfilename.'"');
+		}
+
+		if ($cachedelay) {
+			header('Cache-Control: max-age='.$cachedelay.', private, must-revalidate');
+		} else {
+			header('Cache-Control: private, must-revalidate');
+		}
+
+		// By default, frames allowed only if on same domain (stop some XSS attacks)
+		header("X-Frame-Options: SAMEORIGIN");
+
+		// Clean parameters
+		$outputfile = $conf->agenda->dir_temp.'/'.$filename;
+		$result = readfile($outputfile);
+		if (!$result) {
+			print 'File '.$outputfile.' was empty.';
+		}
+
+		//header("Location: ".DOL_URL_ROOT.'/document.php?modulepart=agenda&file='.urlencode($filename));
+		exit;
+	} else {
+		top_httphead();
+
+		print 'Error '.$fichinterStatic->error;
+
+		exit;
+	}
+}
+
+if ($format == 'rss') {
+	$result = build_exportfile($format, $type, $cachedelay, $filename, $filters);
+	if ($result >= 0) {
+		$attachment = false;
+		if (GETPOSTISSET("attachment")) {
+			$attachment = GETPOST("attachment");
+		}
+		//$attachment = false;
+		$contenttype = 'application/rss+xml';
+		if (GETPOSTISSET("contenttype")) {
+			$contenttype = GETPOST("contenttype");
+		}
+		//$contenttype='text/plain';
+		$outputencoding = 'UTF-8';
+
+		if ($contenttype) {
+			header('Content-Type: '.$contenttype.($outputencoding ? '; charset='.$outputencoding : ''));
+		}
+		if ($attachment) {
+			header('Content-Disposition: attachment; filename="'.$filename.'"');
+		} else {
+			header('Content-Disposition: inline; filename="'.$filename.'"');
+		}
+
+		// Ajout directives pour resoudre bug IE
+		//header('Cache-Control: Public, must-revalidate');
+		//header('Pragma: public');
+		if ($cachedelay) {
+			header('Cache-Control: max-age='.$cachedelay.', private, must-revalidate');
+		} else {
+			header('Cache-Control: private, must-revalidate');
+		}
+
+		// By default, frames allowed only if on same domain (stop some XSS attacks)
+		header("X-Frame-Options: SAMEORIGIN");
+
+		// Clean parameters
+		$outputfile = $conf->agenda->dir_temp.'/'.$filename;
+		$result = readfile($outputfile);
+		if (!$result) {
+			print 'File '.$outputfile.' was empty.';
+		}
+
+		// header("Location: ".DOL_URL_ROOT.'/document.php?modulepart=agenda&file='.urlencode($filename));
+		exit;
+	} else {
+		top_httphead();
+
+		print 'Error '.$fichinterStatic->error;
+
+		exit;
+	}
+}
+
+
+top_httphead();
+
+print '<html><title>Export fichinter cal</title><body>';
+print '<div class="error">'.$fichinterStatic->error.'</div>';
+print '</body></html>';
+
+
+
+// phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
+/**
+ * Export events from database into a cal file.
+ *
+ * @param string    $format         			The format of the export 'vcal', 'ical/ics' or 'rss'
+ * @param string    $type           			The type of the export 'event' or 'journal'
+ * @param integer   $cachedelay     			Do not rebuild file if date older than cachedelay seconds
+ * @param string    $filename       			The name for the exported file.
+ * @param array<string,int|string>	$filters	Array of filters.
+ * @return int<-1,1>                			-1 = error on build export file, 0 = export okay
+ */
+function build_exportfile($format, $type, $cachedelay, $filename, $filters)
+{
+
+	// quelques filtres possible au nivau du tableau $filters
+	// logina : user login who is create interventional (author)
+	// logini : user login who make the intenventional
+	// loginr : user login who is responsible of interventional
+
+	global $hookmanager;
+	global $db;
+
+	// phpcs:enable
+	global $conf, $langs, $dolibarr_main_url_root, $mysoc;
+
+	require_once DOL_DOCUMENT_ROOT."/core/lib/xcal.lib.php";
+	require_once DOL_DOCUMENT_ROOT."/core/lib/date.lib.php";
+	require_once DOL_DOCUMENT_ROOT."/core/lib/files.lib.php";
+
+	dol_syslog("build_exportfile Build export file format=".$format.", type=".$type.", cachedelay=".$cachedelay.", filename=".$filename.", filters size=".count($filters), LOG_DEBUG);
+
+	// Check parameters
+	if (empty($format)) {
+		return -1;
+	}
+
+	// Clean parameters
+	if (!$filename) {
+		$extension = 'vcs';
+		if ($format == 'ical') {
+			$extension = 'ics';
+		}
+		$filename = $format.'.'.$extension;
+	}
+
+	// Create dir and define output file (definitive and temporary)
+	$result = dol_mkdir($conf->agenda->dir_temp);
+	$outputfile = $conf->agenda->dir_temp.'/'.$filename;
+
+	$result = 0;
+
+	$buildfile = true;
+	$login = '';
+	$logina = '';
+	$logini = '';
+	$loginr = '';
+
+	$eventorganization = '';
+
+	$now = dol_now();
+
+	if ($cachedelay) {
+		$nowgmt = dol_now();
+		include_once DOL_DOCUMENT_ROOT.'/core/lib/files.lib.php';
+		if (dol_filemtime($outputfile) > ($nowgmt - $cachedelay)) {
+			dol_syslog("build_exportfile file ".$outputfile." is not older than now - cachedelay (".$nowgmt." - ".$cachedelay."). Build is canceled");
+			$buildfile = false;
+		}
+	}
+
+	if ($buildfile) {
+		// Build event array
+		$eventarray = array();
+
+		$sql = "SELECT f.rowid,";
+		$sql .= " fd.date,"; // on récupère la date et la durée sur le détail d'inter pour avoir aussi l'heure
+		$sql .= " f.datee,"; // End ne sera pas utilisée
+		$sql .= " fd.duree,"; // durée de l'intervention
+		$sql .= " f.datec, f.tms as datem,";
+		$sql .= " f.ref, f.ref_client, fd.description, f.note_private, f.note_public,";
+		$sql .= " f.fk_soc,";
+		$sql .= " f.fk_user_author, f.fk_user_modif,";
+		$sql .= " f.fk_user_valid,";
+		$sql .= " u.firstname, u.lastname, u.email,";
+		$sql .= " p.ref as ref_project, c.ref as ref_contract,";
+		$sql .= " s.nom as socname, f.fk_statut";
+
+		$sql .= " FROM ".MAIN_DB_PREFIX."fichinter as f";
+		$sql .= " INNER JOIN ".MAIN_DB_PREFIX."fichinterdet as fd ON f.rowid = fd.fk_fichinter";
+		$sql .= " LEFT JOIN ".MAIN_DB_PREFIX."user as u on u.rowid = f.fk_user_author";
+
+		$sql .= " LEFT JOIN ".MAIN_DB_PREFIX."societe as s on s.rowid = f.fk_soc";
+		$sql .= " LEFT JOIN ".MAIN_DB_PREFIX."projet as p on p.rowid = f.fk_projet";
+		$sql .= " LEFT JOIN ".MAIN_DB_PREFIX."contrat as c on c.rowid = f.fk_contrat";
+
+		$parameters = array('filters' => $filters);
+		// Note that $action and $object may have been modified by hook
+		$reshook = $hookmanager->executeHooks('printFieldListFrom', $parameters);
+		$sql .= $hookmanager->resPrint;
+
+		$sql .= " WHERE f.entity IN (".getEntity('fichinter').")";
+
+		foreach ($filters as $key => $value) {
+			if ($key == 'notolderthan' && $value != '') {
+				$sql .= " AND fd.date >= '".$db->idate($now - ($value * 24 * 60 * 60))."'";
+			}
+			if ($key == 'year') {
+				$sql .= " AND fd.date BETWEEN '".$db->idate(dol_get_first_day($value, 1))."'";
+				$sql .= "     AND '".$db->idate(dol_get_last_day($value, 12))."'";
+			}
+			if ($key == 'id') {
+				$sql .= " AND f.rowid = ".(is_numeric($value) ? $value : 0);
+			}
+			if ($key == 'idfrom') {
+				$sql .= " AND f.rowid >= ".(is_numeric($value) ? $value : 0);
+			}
+			if ($key == 'idto') {
+				$sql .= " AND f.rowid <= ".(is_numeric($value) ? $value : 0);
+			}
+			if ($key == 'project') {
+				$sql .= " AND f.fk_project = ".(is_numeric($value) ? $value : 0);
+			}
+			if ($key == 'contract') {
+				$sql .= " AND f.fk_contract = ".(is_numeric($value) ? $value : 0);
+			}
+
+			if ($key == 'logina') {
+				$logina = $value;
+				$condition = '=';
+				if (preg_match('/^!/', $logina)) {
+					$logina = preg_replace('/^!/', '', $logina);
+					$condition = '<>';
+				}
+				$userforfilter = new User($db);
+				$result = $userforfilter->fetch(0, $logina);
+				if ($result > 0) {
+					$sql .= " AND a.fk_user_author ".$condition." ".$userforfilter->id;
+				} elseif ($result < 0 || $condition == '=') {
+					$sql .= " AND a.fk_user_author = 0";
+				}
+			}
+			if ($key == 'logini') {
+				$logini = $value;
+				$condition = '=';
+				if (preg_match('/^!/', $logini)) {
+					$logini = preg_replace('/^!/', '', $logini);
+					$condition = '<>';
+				}
+				$userforfilter = new User($db);
+				$result = $userforfilter->fetch(0, $logini);
+				$sql .= " AND EXISTS (SELECT ec.rowid FROM ".MAIN_DB_PREFIX."element_contact as ec";
+				$sql .= " WHERE ec.element_id = f.rowid";
+				$sql .= " AND ec.fk_c_type_contact = 26";
+				if ($result > 0) {
+					$sql .= " AND ec.fk_socpeople = ".((int) $userforfilter->id);
+				} elseif ($result < 0 || $condition == '=') {
+					$sql .= " AND ec.fk_socpeople = 0";
+				}
+				$sql .= ")";
+			}
+			if ($key == 'loginr') {
+				$loginr = $value;
+				$condition = '=';
+				if (preg_match('/^!/', $loginr)) {
+					$loginr = preg_replace('/^!/', '', $loginr);
+					$condition = '<>';
+				}
+				$userforfilter = new User($db);
+				$result = $userforfilter->fetch(0, $loginr);
+				$sql .= " AND EXISTS (SELECT ecr.rowid FROM ".MAIN_DB_PREFIX."element_contact as ecr";
+				$sql .= " WHERE ecr.element_id = f.rowid";
+				$sql .= " WHERE AND ecr.fk_c_type_contact = 27";
+				if ($result > 0) {
+					$sql .= " AND ecr.fk_socpeople = ".((int) $userforfilter->id);
+				} elseif ($result < 0 || $condition == '=') {
+					$sql .= " AND ecr.fk_socpeople = 0";
+				}
+				$sql .= ")";
+			}
+
+			if ($key == 'status') {
+				$sql .= " AND f.fk_statut = ".((int) $value);
+			}
+		}
+
+		// To exclude corrupted events and avoid errors in lightning/sunbird import
+		$sql .= " AND f.dateo IS NOT NULL";
+
+		$parameters = array('filters' => $filters);
+		// Note that $action and $object may have been modified by hook
+		$reshook = $hookmanager->executeHooks('printFieldListWhere', $parameters);
+		$sql .= $hookmanager->resPrint;
+
+		$sql .= " ORDER by fd.date";
+
+
+		if (!empty($filters['limit'])) {
+			$sql .= $db->plimit((int) $filters['limit']);
+		}
+
+		// print $sql;exit;
+
+		dol_syslog("build_exportfile select event(s)", LOG_DEBUG);
+
+		$resql = $db->query($sql);
+		if ($resql) {
+			$diff = 0;
+			while ($obj = $db->fetch_object($resql)) {
+				$qualified = true;
+
+				// 'eid','startdate','duration','enddate','title','summary','category','email','url','desc','author'
+				$event = array();
+				$event['uid'] = 'dolibarragenda-'.$db->database_name.'-'.$obj->id."@".$_SERVER["SERVER_NAME"];
+				$event['type'] = $type;
+
+				$datestart = $db->jdate($obj->date) - ((int) getDolGlobalString('MAIN_FICHINTER_EXPORT_FIX_TZ', 0) * 3600);
+
+				// fix for -> Warning: A non-numeric value encountered
+				// if (is_numeric($db->jdate($obj->datee))) {
+				// 	$dateend = $db->jdate($obj->datee) - ((int) getDolGlobalString('MAIN_FICHINTER_EXPORT_FIX_TZ', 0) * 3600);
+				// } else {
+				// 	// use start date as fall-back to avoid pb with empty end date on ICS readers
+				// 	$dateend = $datestart;
+				// }
+
+				$duration = $obj->duree;
+				$event['location'] = ($obj->socname ? $obj->socname : "");
+				$event['summary'] = $obj->ref." - ". $obj->description;
+				if ($obj->ref_client)
+				$event['summary'].= " (".$obj->ref_client.")";
+
+				$event['desc'] = $obj->description;
+
+				if ($obj->ref_project)
+					$event['desc'] .= " - ".$obj->ref_project;
+
+				if ($obj->ref_contract)
+					$event['desc'] .= " - ".$obj->ref_contract;
+
+				if ($obj->note_public)
+					$event['desc'].= " - ".$obj->note_public;
+
+				$event['startdate'] = $datestart;
+				$event['enddate'] = ''; // $dateend; // Not required with type 'journal'
+				$event['duration'] = $duration; // Not required with type 'journal'
+				$event['author'] = dolGetFirstLastname($obj->firstname, $obj->lastname);
+
+				// OPAQUE (busy) or TRANSPARENT (not busy)
+				//$event['transparency'] = (($obj->transparency > 0) ? 'OPAQUE' : 'TRANSPARENT');
+				//$event['category'] = $obj->type_label;
+				$event['email'] = $obj->email;
+
+				// Public URL of event
+				if ($eventorganization != '') {
+					$link_subscription = $dolibarr_main_url_root.'/public/eventorganization/attendee_new.php?id='.((int) $obj->id).'&type=global&noregistration=1';
+					$encodedsecurekey = dol_hash(getDolGlobalString('EVENTORGANIZATION_SECUREKEY').'conferenceorbooth'.((int) $obj->id), 'md5');
+					$link_subscription .= '&securekey='.urlencode($encodedsecurekey);
+
+					//$event['url'] = $link_subscription;
+				}
+
+				$event['created'] = $db->jdate($obj->datec) - ((int) getDolGlobalString('MAIN_FICHINTER_EXPORT_FIX_TZ', 0) * 3600);
+				$event['modified'] = $db->jdate($obj->datem) - ((int) getDolGlobalString('MAIN_FICHINTER_EXPORT_FIX_TZ', 0) * 3600);
+				// $event['num_vote'] = $this->num_vote;
+				// $event['event_paid'] = $this->event_paid;
+				$event['status'] = $obj->fk_statut;
+
+				// // TODO: find a way to call "$this->fetch_userassigned();" without override "$this" properties
+				// $this->id = $obj->rowid;
+				// $this->fetch_userassigned(false);
+
+				// $assignedUserArray = array();
+
+				// foreach ($this->userassigned as $key => $value) {
+				// 	$assignedUser = new User($db);
+				// 	$assignedUser->fetch($value['id']);
+
+				// 	$assignedUserArray[$key] = $assignedUser;
+				// }
+
+				// $event['assignedUsers'] = $assignedUserArray;
+
+				if ($qualified && $datestart) {
+					$eventarray[] = $event;
+				}
+				$diff++;
+			}
+
+			$parameters = array('filters' => $filters, 'eventarray' => &$eventarray);
+			// Note that $action and $object may have been modified by hook
+			$reshook = $hookmanager->executeHooks('addMoreEventsExport', $parameters);
+			if ($reshook > 0) {
+				$eventarray = $hookmanager->resArray;
+			}
+		} else {
+			print $db->lasterror();
+			return -1;
+		}
+
+		$langs->load("agenda");
+
+		// Define title and desc
+		$title = '';
+		$more = '';
+		if ($login) {
+			$more = $langs->transnoentities("User").' '.$login;
+		}
+		if ($logina) {
+			$more = $langs->transnoentities("ActionsAskedBy").' '.$logina;
+		}
+		if ($logini) {
+			$more = $langs->transnoentities("ActionsToDoBy").' '.$logini;
+		}
+		if ($eventorganization) {
+			$langs->load("eventorganization");
+			$title = $langs->transnoentities("OrganizedEvent").(empty($eventarray[0]['label']) ? '' : ' '.$eventarray[0]['label']);
+			$more = 'ICS file - '.$langs->transnoentities("OrganizedEvent").(empty($eventarray[0]['label']) ? '' : ' '.$eventarray[0]['label']);
+		}
+		if ($more) {
+			if (empty($title)) {
+				$title = 'Dolibarr actions '.$mysoc->name.' - '.$more;
+			}
+			$desc = $more;
+			$desc .= ' ('.$mysoc->name.' - built by Dolibarr)';
+		} else {
+			if (empty($title)) {
+				$title = 'Dolibarr actions '.$mysoc->name;
+			}
+			$desc = $langs->transnoentities('ListOfActions');
+			$desc .= ' ('.$mysoc->name.' - built by Dolibarr)';
+		}
+
+		// Create temp file
+		// Temporary file (allow call of function by different threads
+		$outputfiletmp = tempnam($conf->fichinter->dir_temp, 'tmp');
+		dolChmod($outputfiletmp);
+
+		// Write file
+		if ($format == 'vcal') {
+			$result = build_calfile($format, $title, $desc, $eventarray, $outputfiletmp);
+		} elseif ($format == 'ical') {
+			$result = build_calfile($format, $title, $desc, $eventarray, $outputfiletmp);
+		} elseif ($format == 'rss') {
+			$result = build_rssfile($format, $title, $desc, $eventarray, $outputfiletmp);
+		}
+
+		if ($result >= 0) {
+			if (dol_move($outputfiletmp, $outputfile, 0, 1, 0, 0)) {
+				$result = 1;
+			} else {
+				$error = 'Failed to rename '.$outputfiletmp.' into '.$outputfile;
+				dol_syslog("build_exportfile ".$error, LOG_ERR);
+				dol_delete_file($outputfiletmp, 0, 1);
+				$result = -1;
+			}
+		} else {
+			dol_syslog("build_exportfile build_xxxfile function fails to for format=".$format." outputfiletmp=".$outputfile, LOG_ERR);
+			dol_delete_file($outputfiletmp, 0, 1);
+			$langs->load("errors");
+			$error = $langs->trans("ErrorFailToCreateFile", $outputfile);
+		}
+	}
+	return $result;
+}