agendaexport.php

<?php
/* Copyright (C) 2008-2024 Laurent Destailleur <eldy@users.sourceforge.net>
 * Copyright (C) 2024 Charlene Benke      <charlene@patas-monkey.com>
 * Copyright (C) 2024   Frédéric France     <frederic.france@free.fr>
 *
 * 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/>.
 */
 
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';
    // Only types that can not be rendered as HTML, else the labels of interventions would be interpreted by the browser
    if (GETPOSTISSET("contenttype") && in_array(GETPOST("contenttype"), array('text/calendar', 'text/plain'))) {
      $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) {
      dol_syslog("File ".$outputfile." was empty", LOG_WARNING);  // The path of the file is not shown on this public page
      print 'File 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';
    // Only types that can not be rendered as HTML, else the labels of interventions would be interpreted by the browser
    if (GETPOSTISSET("contenttype") && in_array(GETPOST("contenttype"), array('application/rss+xml', 'text/plain'))) {
      $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) {
      dol_syslog("File ".$outputfile." was empty", LOG_WARNING);  // The path of the file is not shown on this public page
      print 'File 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
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 = ".((int) $value);
      }
      if ($key == 'idfrom') {
        $sql .= " AND f.rowid >= ".((int) $value);
      }
      if ($key == 'idto') {
        $sql .= " AND f.rowid <= ".((int) $value);
      }
      if ($key == 'project') {
        $sql .= " AND f.fk_project = ".((int) $value);
      }
      if ($key == 'contract') {
        $sql .= " AND f.fk_contract = ".((int) $value);
      }
 
      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." ".((int) $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"; // FIXME do not use hardcoded ID
        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";  // FIXME do not use hardcoded ID
        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;
}