From 82589a49c6d03a9d49c6a9ef43d84fb439b83bbd Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Charl=C3=A8ne=20Benke?= <1179011+defrance@users.noreply.github.com> Date: Sun, 11 Aug 2024 12:07:48 +0200 Subject: [PATCH] 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 --- htdocs/admin/fichinter_xcal.php | 244 ++++++++ htdocs/core/lib/fichinter.lib.php | 10 +- htdocs/public/fichinter/agendaexport.php | 723 +++++++++++++++++++++++ 3 files changed, 975 insertions(+), 2 deletions(-) create mode 100644 htdocs/admin/fichinter_xcal.php create mode 100644 htdocs/public/fichinter/agendaexport.php diff --git a/htdocs/admin/fichinter_xcal.php b/htdocs/admin/fichinter_xcal.php new file mode 100644 index 00000000000..df02ac02a86 --- /dev/null +++ b/htdocs/admin/fichinter_xcal.php @@ -0,0 +1,244 @@ + + * Copyright (C) 2012-2013 Juanjo Menent + * Copyright (C) 2012 Regis Houssin + * Copyright (C) 2015 Jean-François Ferry + * Copyright (C) 2024 Charlene Benke + * + * 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 . + */ + +/** + * \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 = ''.$langs->trans("BackToModuleList").''; +print load_fiche_titre($langs->trans("AgendaSetup"), $linkback, 'title_setup'); + + +print '
'; +print ''; + +$head = fichinter_admin_prepare_head(); + +print dol_get_fiche_head($head, 'xcal', $langs->trans("Agenda"), -1, 'action'); + +print ''.$langs->trans("AgendaSetupOtherDesc")."
\n"; +print "
\n"; + +print '
'; // You can use div-table-responsive-no-min if you don't need reserved height for your table +print ''; + +print ''; +print ""; +print ""; +//print ""; +print ""; +print ""; + +print ''; +print '"; +print ''; +print ""; +print ""; + +print ''; +print ""; +print '"; +print ""; +print ""; + +print ''; +print ""; +print ''; +print ""; +print ""; + +print '
".$langs->trans("Parameter")."".$langs->trans("Value")."".$langs->trans("Examples")." 
'.$langs->trans("PasswordTogetVCalExport")."'; +if (!empty($conf->use_javascript_ajax)) { + print ' '.img_picto($langs->trans('Generate'), 'refresh', 'id="generate_token" class="linkobject"'); +} +print ' 
".$langs->trans("PastDelayVCalExport")." '.$langs->trans("days")." 
".$langs->trans("UseACacheDelay")." 
'; +print '
'; + +print '
'; + +print '
'; // You can use div-table-responsive-no-min if you don't need reserved height for your table +print ''; + +print ''; +print '"; +print ""; +print ""; +print ''; +print '"; +print ""; +print ""; + +print '
'.$langs->trans("Parameter")."".$langs->trans("Value")."
'.$langs->trans("FixTZ").""; +print ''; +print '   '.$langs->trans("FillThisOnlyIfRequired"); +print "
'; +print '
'; + +print dol_get_fiche_end(); + +print $form->buttonsSaveCancel("Save", ''); + +print "
\n"; + + +clearstatcache(); + +//if ($mesg) print "
$mesg
"; +print "
"; + + +// 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 = ''; +$urlvcal .= $urlwithroot.'/public/fichinter/agendaexport.php?format=vcal'.$getentity.'&exportkey='.($conf->global->MAIN_FICHINTER_XCAL_EXPORTKEY ? urlencode(getDolGlobalString('MAIN_FICHINTER_XCAL_EXPORTKEY')) : 'KEYNOTDEFINED').''; +$message .= img_picto('', 'globe').' '.str_replace('{url}', $urlvcal, ''.$langs->trans("WebCalUrlForVCalExport", 'vcal', '').''); +$message .= '
'; +$message .= ''; +if (getDolGlobalString('MAIN_FICHINTER_XCAL_EXPORTKEY')) { + $message .= ' '.img_picto('', 'download').''; +} +$message .= '
'; +$message .= ajax_autoselect('onlinepaymenturl1'); +$message .= '
'; + +$urlical = ''; +$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').''; +$message .= img_picto('', 'globe').' '.str_replace('{url}', $urlical, ''.$langs->trans("WebCalUrlForVCalExport", 'ical/ics', '').''); +$message .= '
'; +$message .= ''; +if (getDolGlobalString('MAIN_FICHINTER_XCAL_EXPORTKEY')) { + $message .= ' '.img_picto('', 'download').''; +} +$message .= '
'; +$message .= ajax_autoselect('onlinepaymenturl2'); +$message .= '
'; + +$urlrss = ''; +$urlrss .= $urlwithroot.'/public/fichinter/agendaexport.php?format=rss'.$getentity.'&exportkey='.($conf->global->MAIN_FICHINTER_XCAL_EXPORTKEY ? urlencode(getDolGlobalString('MAIN_FICHINTER_XCAL_EXPORTKEY')) : 'KEYNOTDEFINED').''; +$message .= img_picto('', 'globe').' '.str_replace('{url}', $urlrss, ''.$langs->trans("WebCalUrlForVCalExport", 'rss', '').''); +$message .= '
'; +$message .= ''; +if (getDolGlobalString('MAIN_FICHINTER_XCAL_EXPORTKEY')) { + $message .= ' '.img_picto('', 'download').''; +} +$message .= '
'; +$message .= ajax_autoselect('onlinepaymenturl3'); +$message .= '
'; + +print $message; + +$message = $langs->trans("AgendaUrlOptions1", $user->login, $user->login).'
'; +$message .= $langs->trans("AgendaUrlOptions3", $user->login, $user->login, $user->login).'
'; +$message .= $langs->trans("AgendaUrlOptions4", $user->login, $user->login).'
'; +$message .= $langs->trans("AgendaUrlOptionsProject", $user->login, $user->login).'
'; +$message .= $langs->trans("AgendaUrlOptionsType", 'systemauto|system').'
'; +$message .= $langs->trans("AgendaUrlOptionsCode", 'AC_COMPANY_CREATE,AC_PROPAL_VALIDATE,AC_CODE...').'
'; +$message .= $langs->trans("AgendaUrlOptionsIncludeHolidays", '1', '1').'
'; +//$defaultnotolderthan = getDolGlobalString('MAIN_FICHINTER_EXPORT_PAST_DELAY', 100); +//$message .= $langs->trans("AgendaUrlOptionsLimitDays", $defaultnotolderthan, $defaultnotolderthan, $defaultnotolderthan).'
'; +$message .= $langs->trans("AgendaUrlOptionsLimit", '1000').'
'; + +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(); diff --git a/htdocs/core/lib/fichinter.lib.php b/htdocs/core/lib/fichinter.lib.php index 90fe590aff4..43b6d112d45 100644 --- a/htdocs/core/lib/fichinter.lib.php +++ b/htdocs/core/lib/fichinter.lib.php @@ -3,8 +3,8 @@ * Copyright (C) 2007 Rodolphe Quiedeville * Copyright (C) 2012 Regis Houssin * Copyright (C) 2016 Gilles Poirier - * Copyright (C) 2018 charlene Benke - * Copyright (C) 2024 MDW + * Copyright (C) 2018-2024 Charlene Benke + * Copyright (C) 2024 MDW * * 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 diff --git a/htdocs/public/fichinter/agendaexport.php b/htdocs/public/fichinter/agendaexport.php new file mode 100644 index 00000000000..ec84ba705ca --- /dev/null +++ b/htdocs/public/fichinter/agendaexport.php @@ -0,0 +1,723 @@ + + * Copyright (C) 2024 Charlene Benke + * + * 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 . + */ + +/** + * \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: + * ¬olderthan=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 'Export fichinter cal'; + print '
Module Agenda was not configured properly.
'; + print ''; + 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 'Export fichinter cal'; + if (!empty($hookmanager->errors) && is_array($hookmanager->errors)) { + print '
'.implode('
', $hookmanager->errors).'
'; + } else { + print '
'.$hookmanager->error.'
'; + } + print ''; +} elseif (empty($reshook)) { + // Check exportkey + if (!GETPOST("exportkey") || getDolGlobalString('MAIN_FICHINTER_XCAL_EXPORTKEY') != GETPOST("exportkey")) { + top_httphead(); + + print 'Export fichinter cal'; + print '
Bad value for key.
'; + print ''; + 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 'Export fichinter cal'; + print '
'.$langs->trans("ErrorWrongValueForParameterX", 'format').'
'; + print ''; + 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 'Export fichinter cal'; +print '
'.$fichinterStatic->error.'
'; +print ''; + + + +// 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 $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; +}