lainwir3d/dolibarr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Add attendee to ical export + cleanup

Browse Source
This commit is contained in:
Sekan, Tobias 2019-11-01 11:59:54 +01:00
parent 5b5a2e9804
commit 0bfff92032
2 changed files with 459 additions and 404 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
htdocs/comm/action/class/actioncomm.class.php
View File

@ -1579,6 +1579,22 @@ class ActionComm extends CommonObject
$event['created']=$this->db->jdate($obj->datec)-(empty($conf->global->AGENDA_EXPORT_FIX_TZ)?0:($conf->global->AGENDA_EXPORT_FIX_TZ*3600)); $event['created']=$this->db->jdate($obj->datec)-(empty($conf->global->AGENDA_EXPORT_FIX_TZ)?0:($conf->global->AGENDA_EXPORT_FIX_TZ*3600));
$event['modified']=$this->db->jdate($obj->datem)-(empty($conf->global->AGENDA_EXPORT_FIX_TZ)?0:($conf->global->AGENDA_EXPORT_FIX_TZ*3600)); $event['modified']=$this->db->jdate($obj->datem)-(empty($conf->global->AGENDA_EXPORT_FIX_TZ)?0:($conf->global->AGENDA_EXPORT_FIX_TZ*3600));
// TODO: find a way to call "$this->fetch_userassigned();" without override "$this" properties
$this->id = $obj->id;
$this->fetch_userassigned();
$assignedUserArray = array();
foreach($this->userassigned as $key => $value)
{
$assignedUser = new User($this->db);
$assignedUser->fetch($value['id']);
$assignedUserArray[$key]=$assignedUser;
}
$event['assignedUsers']=$assignedUserArray;
if ($qualified && $datestart) if ($qualified && $datestart)
{ {
$eventarray[]=$event; $eventarray[]=$event;

847
htdocs/core/lib/xcal.lib.php
View File

@ -12,7 +12,7 @@
* GNU General Public License for more details. * GNU General Public License for more details.
* *
* You should have received a copy of the GNU General Public License * You should have received a copy of the GNU General Public License
* along with this program. If not, see <https://www.gnu.org/licenses/>. * along with this program. If not, see <http://www.gnu.org/licenses/>.
*/ */
@ -25,499 +25,538 @@
* Build a file from an array of events * Build a file from an array of events
* All input params and data must be encoded in $conf->charset_output * All input params and data must be encoded in $conf->charset_output
* *
* @param string $format 'vcal' or 'ical' * @param string $format "vcal" or "ical"
* @param string $title Title of export * @param string $title Title of export
* @param string $desc Description of export * @param string $desc Description of export
* @param array $events_array Array of events ('eid','startdate','duration','enddate','title','summary','category','email','url','desc','author') * @param array $events_array Array of events ("uid","startdate","duration","enddate","title","summary","category","email","url","desc","author")
* @param string $outputfile Output file * @param string $outputfile Output file
* @return int <0 if ko, Nb of events in file if ok * @return int < 0 if ko, Nb of events in file if ok
*/ */
function build_calfile($format, $title, $desc, $events_array, $outputfile) function build_calfile($format, $title, $desc, $events_array, $outputfile)
{ {
global $conf,$langs; global $conf, $langs;
dol_syslog("xcal.lib.php::build_calfile Build cal file ".$outputfile." to format ".$format); dol_syslog("xcal.lib.php::build_calfile Build cal file ".$outputfile." to format ".$format);
if (empty($outputfile)) return -1; if (empty($outputfile))
{
// -1 = error
return -1;
}
// Note: A cal file is an UTF8 encoded file // Note: A cal file is an UTF8 encoded file
$calfileh=fopen($outputfile, 'w'); $calfileh = fopen($outputfile, "w");
if ($calfileh)
{
include_once DOL_DOCUMENT_ROOT.'/core/lib/date.lib.php';
$now=dol_now();
$encoding=''; if ($calfileh)
if ($format == 'vcal') $encoding='ENCODING=QUOTED-PRINTABLE:'; {
include_once DOL_DOCUMENT_ROOT."/core/lib/date.lib.php";
// Print header $now = dol_now();
fwrite($calfileh, "BEGIN:VCALENDAR\n"); $encoding = "";
fwrite($calfileh, "VERSION:2.0\n");
fwrite($calfileh, "METHOD:PUBLISH\n"); if ($format === "vcal")
//fwrite($calfileh,"PRODID:-//DOLIBARR ".DOL_VERSION."//EN\n"); {
fwrite($calfileh, "PRODID:-//DOLIBARR ".DOL_VERSION."\n"); $encoding = "ENCODING=QUOTED-PRINTABLE:";
fwrite($calfileh, "CALSCALE:GREGORIAN\n");
fwrite($calfileh, "X-WR-CALNAME:".$encoding.format_cal($format, $title)."\n");
fwrite($calfileh, "X-WR-CALDESC:".$encoding.format_cal($format, $desc)."\n");
//fwrite($calfileh,"X-WR-TIMEZONE:Europe/Paris\n");
if (! empty($conf->global->MAIN_AGENDA_EXPORT_CACHE)
&& $conf->global->MAIN_AGENDA_EXPORT_CACHE > 60){
$hh=convertSecondToTime($conf->global->MAIN_AGENDA_EXPORT_CACHE, 'hour');
$mm=convertSecondToTime($conf->global->MAIN_AGENDA_EXPORT_CACHE, 'min');
$ss=convertSecondToTime($conf->global->MAIN_AGENDA_EXPORT_CACHE, 'sec');
fwrite($calfileh, "X-PUBLISHED-TTL: P".$hh."H".$mm."M".$ss."S\n");
} }
foreach ($events_array as $key => $event) // Print header
{ fwrite($calfileh, "BEGIN:VCALENDAR\n");
$eventqualified=true;
if ($eventqualified)
{
// See http://fr.wikipedia.org/wiki/ICalendar for format
// See http://www.ietf.org/rfc/rfc2445.txt for RFC
$uid = $event['uid'];
$type = $event['type'];
$startdate = $event['startdate'];
$duration = $event['duration'];
$enddate = $event['enddate'];
$summary = $event['summary'];
$category = $event['category'];
$priority = $event['priority'];
$fulldayevent = $event['fulldayevent'];
$location = $event['location'];
$email = $event['email'];
$url = $event['url'];
$transparency = $event['transparency']; // OPAQUE (busy) or TRANSPARENT (not busy)
$description=preg_replace('/<br[\s\/]?>/i', "\n", $event['desc']);
$description=dol_string_nohtmltag($description, 0); // Remove html tags
$created = $event['created'];
$modified = $event['modified'];
// Uncomment for tests // version is always "2.0"
//$summary="Resume"; fwrite($calfileh, "VERSION:2.0\n");
//$description="Description";
//$description="MemberValidatedInDolibarr gd gdf gd gdff\nNom: tgdf g dfgdf gfd r ter\nType: gdfgfdf dfg fd gfd gd gdf gdf gfd gdfg dfg ddf\nAuteur: AD01fg dgdgdfg df gdf gd";
// Format fwrite($calfileh, "METHOD:PUBLISH\n");
$summary=format_cal($format, $summary); fwrite($calfileh, "PRODID:-//DOLIBARR ".DOL_VERSION."\n");
$description=format_cal($format, $description); fwrite($calfileh, "CALSCALE:GREGORIAN\n");
$category=format_cal($format, $category); fwrite($calfileh, "X-WR-CALNAME:".$encoding.format_cal($format, $title)."\n");
$location=format_cal($format, $location); fwrite($calfileh, "X-WR-CALDESC:".$encoding.format_cal($format, $desc)."\n");
//fwrite($calfileh,"X-WR-TIMEZONE:Europe/Paris\n");
// Output the vCard/iCal VEVENT object if (! empty($conf->global->MAIN_AGENDA_EXPORT_CACHE) && $conf->global->MAIN_AGENDA_EXPORT_CACHE > 60)
/* {
Example from Google ical export for a 1 hour event: $hh = convertSecondToTime($conf->global->MAIN_AGENDA_EXPORT_CACHE, "hour");
BEGIN:VEVENT $mm = convertSecondToTime($conf->global->MAIN_AGENDA_EXPORT_CACHE, "min");
DTSTART:20101103T120000Z $ss = convertSecondToTime($conf->global->MAIN_AGENDA_EXPORT_CACHE, "sec");
DTEND:20101103T130000Z
DTSTAMP:20101121T144902Z
UID:4eilllcsq8r1p87ncg7vc8dbpk@google.com
CREATED:20101121T144657Z
DESCRIPTION:
LAST-MODIFIED:20101121T144707Z
LOCATION:
SEQUENCE:0
STATUS:CONFIRMED
SUMMARY:Tâche 1 heure
TRANSP:OPAQUE
END:VEVENT
Example from Google ical export for a 1 day event: fwrite($calfileh, "X-PUBLISHED-TTL: P".$hh."H".$mm."M".$ss."S\n");
BEGIN:VEVENT }
DTSTART;VALUE=DATE:20101102
DTEND;VALUE=DATE:20101103
DTSTAMP:20101121T144902Z
UID:d09t43kcf1qgapu9efsmmo1m6k@google.com
CREATED:20101121T144607Z
DESCRIPTION:
LAST-MODIFIED:20101121T144607Z
LOCATION:
SEQUENCE:0
STATUS:CONFIRMED
SUMMARY:Tâche 1 jour
TRANSP:TRANSPARENT
END:VEVENT
*/
if ($type == 'event')
{
fwrite($calfileh, "BEGIN:VEVENT\n");
fwrite($calfileh, "UID:".$uid."\n");
if (! empty($email))
{
fwrite($calfileh, "ORGANIZER:MAILTO:".$email."\n");
fwrite($calfileh, "CONTACT:MAILTO:".$email."\n");
}
if (! empty($url))
{
fwrite($calfileh, "URL:".$url."\n");
};
if ($created) fwrite($calfileh, "CREATED:".dol_print_date($created, 'dayhourxcard', true)."\n"); foreach ($events_array as $key => $event)
if ($modified) fwrite($calfileh, "LAST-MODIFIED:".dol_print_date($modified, 'dayhourxcard', true)."\n"); {
fwrite($calfileh, "SUMMARY:".$encoding.$summary."\n"); // See http://fr.wikipedia.org/wiki/ICalendar for format
fwrite($calfileh, "DESCRIPTION:".$encoding.$description."\n"); // See http://www.ietf.org/rfc/rfc2445.txt for RFC
/* Other keys: // TODO: avoid use extra event array, use objects direct thahtwas created before
// Status values for a "VEVENT"
statvalue = "TENTATIVE" ;Indicates event is
;tentative.
/ "CONFIRMED" ;Indicates event is
;definite.
/ "CANCELLED" ;Indicates event was
// Status values for "VTODO".
statvalue =/ "NEEDS-ACTION" ;Indicates to-do needs action.
/ "COMPLETED" ;Indicates to-do completed.
/ "IN-PROCESS" ;Indicates to-do in process of
/ "CANCELLED" ;Indicates to-do was cancelled.
// Status values for "VJOURNAL".
statvalue =/ "DRAFT" ;Indicates journal is draft.
/ "FINAL" ;Indicates journal is final.
/ "CANCELLED" ;Indicates journal is removed.
*/
//fwrite($calfileh,"CLASS:PUBLIC\n"); // PUBLIC, PRIVATE, CONFIDENTIAL
//fwrite($calfileh,"X-MICROSOFT-CDO-BUSYSTATUS:1\n");
//ATTENDEE;CUTYPE=INDIVIDUAL;ROLE=REQ-PARTICIPANT;PARTSTAT=ACCEPTED;CN=Laurent Destailleur;X-NUM-GUESTS=0:mailto:eldy10@gmail.com
if (! empty($location)) fwrite($calfileh, "LOCATION:".$encoding.$location."\n"); $uid = $event["uid"];
if ($fulldayevent) fwrite($calfileh, "X-FUNAMBOL-ALLDAY:1\n"); $type = $event["type"];
$startdate = $event["startdate"];
$duration = $event["duration"];
$enddate = $event["enddate"];
$summary = $event["summary"];
$category = $event["category"];
$priority = $event["priority"];
$fulldayevent = $event["fulldayevent"];
$location = $event["location"];
$email = $event["email"];
$url = $event["url"];
$transparency = $event["transparency"];
$description = dol_string_nohtmltag(preg_replace("/<br[\s\/]?>/i", "\n", $event["desc"]), 0);
$created = $event["created"];
$modified = $event["modified"];
$assignedUsers = $event["assignedUsers"];
// see https://docs.microsoft.com/en-us/openspecs/exchange_server_protocols/ms-oxcical/0f262da6-c5fd-459e-9f18-145eba86b5d2 // Format
if ($fulldayevent) fwrite($calfileh, "X-MICROSOFT-CDO-ALLDAYEVENT:TRUE\n"); $summary = format_cal($format, $summary);
$description = format_cal($format, $description);
$category = format_cal($format, $category);
$location = format_cal($format, $location);
// Date must be GMT dates if ($type === "event")
// Current date {
fwrite($calfileh, "DTSTAMP:".dol_print_date($now, 'dayhourxcard', true)."\n"); fwrite($calfileh, "BEGIN:VEVENT\n");
// Start date fwrite($calfileh, "UID:".$uid."\n");
$prefix='';
$startdatef = dol_print_date($startdate, 'dayhourxcard', true);
if ($fulldayevent)
{
$prefix=';VALUE=DATE';
$startdatef = dol_print_date($startdate, 'dayxcard', false); // Local time
}
fwrite($calfileh, "DTSTART".$prefix.":".$startdatef."\n");
// End date
if ($fulldayevent)
{
if (empty($enddate)) $enddate=dol_time_plus_duree($startdate, 1, 'd');
}
else
{
if (empty($enddate)) $enddate=$startdate+$duration;
}
$prefix='';
$enddatef = dol_print_date($enddate, 'dayhourxcard', true);
if ($fulldayevent)
{
$prefix=';VALUE=DATE';
$enddatef = dol_print_date($enddate+1, 'dayxcard', false);
//$enddatef .= dol_print_date($enddate+1,'dayhourxcard',false); // Local time
}
fwrite($calfileh, "DTEND".$prefix.":".$enddatef."\n");
fwrite($calfileh, 'STATUS:CONFIRMED'."\n");
if (! empty($transparency)) fwrite($calfileh, "TRANSP:".$transparency."\n");
if (! empty($category)) fwrite($calfileh, "CATEGORIES:".$encoding.$category."\n");
fwrite($calfileh, "END:VEVENT\n");
}
// Output the vCard/iCal VTODO object if (! empty($email))
// ... {
//PERCENT-COMPLETE:39 fwrite($calfileh, "ORGANIZER:MAILTO:".$email."\n");
fwrite($calfileh, "CONTACT:MAILTO:".$email."\n");
}
// Output the vCard/iCal VJOURNAL object if (! empty($url))
if ($type == 'journal') {
{ fwrite($calfileh, "URL:".$url."\n");
fwrite($calfileh, "BEGIN:VJOURNAL\n"); }
fwrite($calfileh, "UID:".$uid."\n");
if (! empty($email))
{
fwrite($calfileh, "ORGANIZER:MAILTO:".$email."\n");
fwrite($calfileh, "CONTACT:MAILTO:".$email."\n");
}
if (! empty($url))
{
fwrite($calfileh, "URL:".$url."\n");
};
if ($created) fwrite($calfileh, "CREATED:".dol_print_date($created, 'dayhourxcard', true)."\n"); if (is_array($assignedUsers))
if ($modified) fwrite($calfileh, "LAST-MODIFIED:".dol_print_date($modified, 'dayhourxcard', true)."\n"); {
fwrite($calfileh, "SUMMARY:".$encoding.$summary."\n"); foreach($assignedUsers as $assignedUser)
fwrite($calfileh, "DESCRIPTION:".$encoding.$description."\n"); {
fwrite($calfileh, 'STATUS:CONFIRMED'."\n"); if($assignedUser->email === $email)
fwrite($calfileh, "CATEGORIES:".$category."\n"); {
fwrite($calfileh, "LOCATION:".$location."\n"); continue;
fwrite($calfileh, "TRANSP:OPAQUE\n"); }
fwrite($calfileh, "CLASS:CONFIDENTIAL\n");
fwrite($calfileh, "DTSTAMP:".dol_print_date($startdatef, 'dayhourxcard', true)."\n");
fwrite($calfileh, "END:VJOURNAL\n"); fwrite($calfileh,"ATTENDEE;RSVP=TRUE:mailto:".$assignedUser->email."\n");
} }
}
if ($created)
{
fwrite($calfileh, "CREATED:".dol_print_date($created, "dayhourxcard", true)."\n");
}
// Put other info in comment if ($modified)
/* {
$comment=array(); fwrite($calfileh, "LAST-MODIFIED:".dol_print_date($modified, "dayhourxcard", true)."\n");
$comment ['eid'] = $eid; }
$comment ['url'] = $linktoevent;
$comment ['date'] = dol_mktime($evttime,"Ymd");
$comment ['duration'] = $duration;
$comment ['startdate'] = $startdate;
$comment ['enddate'] = $enddate;
fwrite($calfileh,"COMMENT:" . serialize ($comment) . "\n");
*/
}
}
// Footer fwrite($calfileh, "SUMMARY:".$encoding.$summary."\n");
fwrite($calfileh, "END:VCALENDAR"); fwrite($calfileh, "DESCRIPTION:".$encoding.$description."\n");
fclose($calfileh); if (! empty($location))
if (! empty($conf->global->MAIN_UMASK)) {
@chmod($outputfile, octdec($conf->global->MAIN_UMASK)); fwrite($calfileh, "LOCATION:".$encoding.$location."\n");
} }
else
{ if ($fulldayevent)
dol_syslog("xcal.lib.php::build_calfile Failed to open file ".$outputfile." for writing"); {
return -2; fwrite($calfileh, "X-FUNAMBOL-ALLDAY:1\n");
} }
// see https://docs.microsoft.com/en-us/openspecs/exchange_server_protocols/ms-oxcical/0f262da6-c5fd-459e-9f18-145eba86b5d2
if ($fulldayevent)
{
fwrite($calfileh, "X-MICROSOFT-CDO-ALLDAYEVENT:TRUE\n");
}
// Date must be GMT dates
// Current date
fwrite($calfileh, "DTSTAMP:".dol_print_date($now, "dayhourxcard", true)."\n");
// Start date
$prefix = "";
$startdatef = dol_print_date($startdate, "dayhourxcard", true);
if ($fulldayevent)
{
// Local time
$prefix = ";VALUE=DATE";
$startdatef = dol_print_date($startdate, "dayxcard", false);
}
fwrite($calfileh, "DTSTART".$prefix.":".$startdatef."\n");
// End date
if ($fulldayevent)
{
if (empty($enddate))
{
$enddate = dol_time_plus_duree($startdate, 1, "d");
}
}
else
{
if (empty($enddate))
{
$enddate = $startdate+$duration;
}
}
$prefix = "";
$enddatef = dol_print_date($enddate, "dayhourxcard", true);
if ($fulldayevent)
{
$prefix = ";VALUE=DATE";
$enddatef = dol_print_date($enddate+1, "dayxcard", false);
// Local time
//$enddatef .= dol_print_date($enddate+1,"dayhourxcard",false);
}
fwrite($calfileh, "DTEND".$prefix.":".$enddatef."\n");
fwrite($calfileh, "STATUS:CONFIRMED"."\n");
if (! empty($transparency))
{
fwrite($calfileh, "TRANSP:".$transparency."\n");
}
if (! empty($category))
{
fwrite($calfileh, "CATEGORIES:".$encoding.$category."\n");
}
fwrite($calfileh, "END:VEVENT\n");
}
// Output the vCard/iCal VJOURNAL object
if ($type === "journal")
{
fwrite($calfileh, "BEGIN:VJOURNAL\n");
fwrite($calfileh, "UID:".$uid."\n");
if (! empty($email))
{
fwrite($calfileh, "ORGANIZER:MAILTO:".$email."\n");
fwrite($calfileh, "CONTACT:MAILTO:".$email."\n");
}
if (! empty($url))
{
fwrite($calfileh, "URL:".$url."\n");
}
if ($created)
{
fwrite($calfileh, "CREATED:".dol_print_date($created, "dayhourxcard", true)."\n");
}
if ($modified)
{
fwrite($calfileh, "LAST-MODIFIED:".dol_print_date($modified, "dayhourxcard", true)."\n");
}
fwrite($calfileh, "SUMMARY:".$encoding.$summary."\n");
fwrite($calfileh, "DESCRIPTION:".$encoding.$description."\n");
fwrite($calfileh, "STATUS:CONFIRMED"."\n");
fwrite($calfileh, "CATEGORIES:".$category."\n");
fwrite($calfileh, "LOCATION:".$location."\n");
fwrite($calfileh, "TRANSP:OPAQUE\n");
fwrite($calfileh, "CLASS:CONFIDENTIAL\n");
fwrite($calfileh, "DTSTAMP:".dol_print_date($startdatef, "dayhourxcard", true)."\n");
fwrite($calfileh, "END:VJOURNAL\n");
}
}
// Footer
fwrite($calfileh, "END:VCALENDAR");
fclose($calfileh);
if (! empty($conf->global->MAIN_UMASK))
{
@chmod($outputfile, octdec($conf->global->MAIN_UMASK));
}
}
else
{
dol_syslog("xcal.lib.php::build_calfile Failed to open file ".$outputfile." for writing");
return -2;
}
} }
/** /**
* Build a file from an array of events. * Build a file from an array of events.
* All input data must be encoded in $conf->charset_output * All input data must be encoded in $conf->charset_output
* *
* @param string $format 'rss' * @param string $format "rss"
* @param string $title Title of export * @param string $title Title of export
* @param string $desc Description of export * @param string $desc Description of export
* @param array $events_array Array of events ('uid','startdate','summary','url','desc','author','category') * @param array $events_array Array of events ("uid","startdate","summary","url","desc","author","category")
* @param string $outputfile Output file * @param string $outputfile Output file
* @param string $filter Filter * @param string $filter (optional) Filter
* @return int <0 if ko, Nb of events in file if ok * @return int < 0 if ko, Nb of events in file if ok
*/ */
function build_rssfile($format, $title, $desc, $events_array, $outputfile, $filter = '') function build_rssfile($format, $title, $desc, $events_array, $outputfile, $filter = "")
{ {
global $user,$conf,$langs; global $user, $conf, $langs;
global $dolibarr_main_url_root; global $dolibarr_main_url_root;
dol_syslog("xcal.lib.php::build_rssfile Build rss file ".$outputfile." to format ".$format); dol_syslog("xcal.lib.php::build_rssfile Build rss file ".$outputfile." to format ".$format);
if (empty($outputfile)) return -1; if (empty($outputfile))
{
// -1 = error
return -1;
}
$fichier=fopen($outputfile, 'w'); $fichier = fopen($outputfile, "w");
if ($fichier)
{
$date=date("r");
// Print header if ($fichier)
$form='<?xml version="1.0" encoding="'.$langs->charset_output.'"?>'; {
fwrite($fichier, $form); $date = date("r");
fwrite($fichier, "\n");
$form='<rss version="2.0">';
fwrite($fichier, $form);
fwrite($fichier, "\n");
$form="<channel>\n<title>".$title."</title>\n"; // Print header
fwrite($fichier, $form); fwrite($fichier, '<?xml version="1.0" encoding="".$langs->charset_output.""?>');
fwrite($fichier, "\n");
$form='<description><![CDATA['.$desc.'.]]></description>'."\n". fwrite($fichier, '<rss version="2.0">');
// '<language>fr</language>'."\n". fwrite($fichier, "\n");
'<copyright>Dolibarr</copyright>'."\n".
'<lastBuildDate>'.$date.'</lastBuildDate>'."\n".
'<generator>Dolibarr</generator>'."\n";
// Define $urlwithroot fwrite($fichier, "<channel>\n<title>".$title."</title>\n");
$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
$url=$urlwithroot.'/public/agenda/agendaexport.php?format=rss&exportkey='.urlencode($conf->global->MAIN_AGENDA_XCAL_EXPORTKEY);
$form.='<link><![CDATA['.$url.']]></link>'."\n";
//print $form; $form = "<description><![CDATA[".$desc.".]]></description>"."\n".
fwrite($fichier, $form); // "<language>fr</language>"."\n".
"<copyright>Dolibarr</copyright>"."\n".
"<lastBuildDate>".$date."</lastBuildDate>"."\n".
"<generator>Dolibarr</generator>"."\n";
// Define $urlwithroot
$urlwithouturlroot = preg_replace("/".preg_quote(DOL_URL_ROOT, "/")."$/i", "", trim($dolibarr_main_url_root));
foreach ($events_array as $key => $event) $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
$eventqualified=true;
if ($filter)
{
// TODO Add a filter
$eventqualified=false; $url=$urlwithroot."/public/agenda/agendaexport.php?format=rss&exportkey=".urlencode($conf->global->MAIN_AGENDA_XCAL_EXPORTKEY);
}
if ($eventqualified) fwrite($fichier, "<link><![CDATA[".$url."]]></link>"."\n");
{
$uid = $event['uid']; foreach ($events_array as $key => $event)
$startdate = $event['startdate']; {
$summary = $event['summary']; $eventqualified = true;
$url = $event['url'];
$author = $event['author']; if ($filter)
$category = $event['category']; {
/* No place inside a RSS // TODO Add a filter
$priority = $event['priority'];
$fulldayevent = $event['fulldayevent']; $eventqualified=false;
$location = $event['location']; }
$email = $event['email'];
if ($eventqualified)
{
$uid = $event["uid"];
$startdate = $event["startdate"];
$summary = $event["summary"];
$url = $event["url"];
$author = $event["author"];
$category = $event["category"];
/* No place inside a RSS
$priority = $event["priority"];
$fulldayevent = $event["fulldayevent"];
$location = $event["location"];
$email = $event["email"];
*/ */
$description=preg_replace('/<br[\s\/]?>/i', "\n", $event['desc']);
$description=dol_string_nohtmltag($description, 0); // Remove html tags
fwrite($fichier, "<item>\n"); $description = dol_string_nohtmltag(preg_replace("/<br[\s\/]?>/i", "\n", $event["desc"]), 0);
fwrite($fichier, "<title><![CDATA[".$summary."]]></title>\n");
fwrite($fichier, "<link><![CDATA[".$url."]]></link>\n");
fwrite($fichier, "<author><![CDATA[".$author."]]></author>\n");
fwrite($fichier, "<category><![CDATA[".$category."]]></category>\n");
fwrite($fichier, "<description><![CDATA[");
if ($description) fwrite($fichier, $description);
//else fwrite($fichier, 'NoDesc');
fwrite($fichier, "]]></description>\n");
fwrite($fichier, "<pubDate>".date("r", $startdate)."</pubDate>\n");
fwrite($fichier, "<guid isPermaLink=\"true\"><![CDATA[".$uid."]]></guid>\n");
fwrite($fichier, "<source><![CDATA[Dolibarr]]></source>\n");
fwrite($fichier, "</item>\n");
}
}
fwrite($fichier, '</channel>'); fwrite($fichier, "<item>\n");
fwrite($fichier, "\n"); fwrite($fichier, "<title><![CDATA[".$summary."]]></title>\n");
fwrite($fichier, '</rss>'); fwrite($fichier, "<link><![CDATA[".$url."]]></link>\n");
fwrite($fichier, "<author><![CDATA[".$author."]]></author>\n");
fwrite($fichier, "<category><![CDATA[".$category."]]></category>\n");
fwrite($fichier, "<description><![CDATA[");
fclose($fichier); if ($description)
if (! empty($conf->global->MAIN_UMASK)) fwrite($fichier, $description);
@chmod($outputfile, octdec($conf->global->MAIN_UMASK)); // else
} // fwrite($fichier, "NoDesc");
fwrite($fichier, "]]></description>\n");
fwrite($fichier, "<pubDate>".date("r", $startdate)."</pubDate>\n");
fwrite($fichier, "<guid isPermaLink=\"true\"><![CDATA[".$uid."]]></guid>\n");
fwrite($fichier, "<source><![CDATA[Dolibarr]]></source>\n");
fwrite($fichier, "</item>\n");
}
}
fwrite($fichier, "</channel>");
fwrite($fichier, "\n");
fwrite($fichier, "</rss>");
fclose($fichier);
if (! empty($conf->global->MAIN_UMASK))
{
@chmod($outputfile, octdec($conf->global->MAIN_UMASK));
}
}
} }
/** /**
* Encode for cal export * Encode for cal export
* *
* @param string $format vcal or ical * @param string $format "vcal" or "ical"
* @param string $string string to encode * @param string $string String to encode
* @return string string encoded * @return string String encoded
*/ */
function format_cal($format, $string) function format_cal($format, $string)
{ {
global $conf; global $conf;
$newstring=$string; $newstring = $string;
if ($format == 'vcal') if ($format === "vcal")
{ {
$newstring=quotedPrintEncode($newstring); $newstring = quotedPrintEncode($newstring);
} }
if ($format == 'ical')
{
// Replace new lines chars by '\n'
$newstring=preg_replace('/'."\r\n".'/i', "\n", $newstring);
$newstring=preg_replace('/'."\n\r".'/i', "\n", $newstring);
$newstring=preg_replace('/'."\n".'/i', '\n', $newstring);
// Must not exceed 75 char. Cut with "\r\n"+Space
$newstring=calEncode($newstring);
}
return $newstring; if ($format === "ical")
{
// Replace new lines chars by "\n"
$newstring = preg_replace("/"."\r\n"."/i", "\n", $newstring);
$newstring = preg_replace("/"."\n\r"."/i", "\n", $newstring);
$newstring = preg_replace("/"."\n"."/i", "\n", $newstring);
// Must not exceed 75 char. Cut with "\r\n"+Space
$newstring = calEncode($newstring);
}
return $newstring;
} }
/** /**
* Cut string after 75 chars. Add CRLF+Space. * Cut string after 75 chars. Add CRLF+Space.
* line must be encoded in UTF-8 * line must be encoded in UTF-8
* *
* @param string $line String to convert * @param string $line String to convert
* @return string String converted * @return string String converted
*/ */
function calEncode($line) function calEncode($line)
{ {
$out = ''; $out = "";
$newpara = "";
$newpara = ''; // If mb_ functions exists, it"s better to use them
if (function_exists("mb_strlen"))
{
$strlength = mb_strlen($line, "UTF-8");
// If mb_ functions exists, it's better to use them for ($j = 0; $j < $strlength; $j++)
if (function_exists('mb_strlen')) {
{ // Take char at position $j
$strlength=mb_strlen($line, 'UTF-8'); $char = mb_substr($line, $j, 1, "UTF-8");
for ($j = 0; $j <= ($strlength - 1); $j++)
{
$char = mb_substr($line, $j, 1, 'UTF-8'); // Take char at position $j
if ((mb_strlen($newpara, 'UTF-8') + mb_strlen($char, 'UTF-8')) >= 75) if ((mb_strlen($newpara, "UTF-8") + mb_strlen($char, "UTF-8")) >= 75)
{ {
$out .= $newpara . "\r\n "; // CRLF + Space for cal // CRLF + Space for cal
$newpara = ''; $out .= $newpara . "\r\n ";
}
$newpara .= $char;
}
$out .= $newpara;
}
else
{
$strlength=dol_strlen($line);
for ($j = 0; $j <= ($strlength - 1); $j++)
{
$char = substr($line, $j, 1); // Take char at position $j
if ((dol_strlen($newpara) + dol_strlen($char)) >= 75 ) $newpara = "";
{ }
$out .= $newpara . "\r\n "; // CRLF + Space for cal
$newpara = '';
}
$newpara .= $char;
}
$out .= $newpara;
}
return trim($out); $newpara .= $char;
}
$out .= $newpara;
}
else
{
$strlength = dol_strlen($line);
for ($j = 0; $j < $strlength; $j++)
{
// Take char at position $j
$char = substr($line, $j, 1);
if ((dol_strlen($newpara) + dol_strlen($char)) >= 75 )
{
// CRLF + Space for cal
$out .= $newpara . "\r\n ";
$newpara = "";
}
$newpara .= $char;
}
$out .= $newpara;
}
return trim($out);
} }
/** /**
* Encode into vcal format * Encode into vcal format
* *
* @param string $str String to convert * @param string $str String to convert
* @param int $forcal 1=For cal * @param int $forcal (optional) 1 = For cal
* @return string String converted * @return string String converted
*/ */
function quotedPrintEncode($str, $forcal = 0) function quotedPrintEncode($str, $forcal = 0)
{ {
$lines = preg_split("/\r\n/", $str); $lines = preg_split("/\r\n/", $str);
$out = ''; $out = "";
foreach ($lines as $line) foreach ($lines as $line)
{ {
$newpara = ''; $newpara = "";
$strlength=strlen($line); // Do not use dol_strlen here, we need number of bytes // Do not use dol_strlen here, we need number of bytes
for ($j = 0; $j <= ($strlength - 1); $j++) $strlength = strlen($line);
{
$char = substr($line, $j, 1);
$ascii = ord($char);
if ( $ascii < 32 || $ascii == 61 || $ascii > 126 ) for ($j = 0; $j < $strlength; $j++)
$char = '=' . strtoupper(sprintf("%02X", $ascii)); {
$char = substr($line, $j, 1);
$ascii = ord($char);
if ((strlen($newpara) + strlen($char)) >= 76 ) // Do not use dol_strlen here, we need number of bytes if ( $ascii < 32 || $ascii === 61 || $ascii > 126 )
{ {
$out .= $newpara . '=' . "\r\n"; // CRLF $char = "=" . strtoupper(sprintf("%02X", $ascii));
if ($forcal) $out .= " "; // + Space for cal }
$newpara = '';
} // Do not use dol_strlen here, we need number of bytes
$newpara .= $char; if ((strlen($newpara) + strlen($char)) >= 76 )
} {
$out .= $newpara; // New line with carray-return (CR) and line-feed (LF)
} $out .= $newpara . "=" . "\r\n";
return trim($out);
// extra space for cal
if ($forcal)
$out .= " ";
$newpara = "";
}
$newpara .= $char;
}
$out .= $newpara;
}
return trim($out);
} }
/** /**
* Decode vcal format * Decode vcal format
* *
* @param string $str String to convert * @param string $str String to convert
* @return string String converted * @return string String converted
*/ */
function quotedPrintDecode($str) function quotedPrintDecode($str)
{ {
$out = preg_replace('/=\r?\n/', '', $str); return trim(quoted_printable_decode(preg_replace("/=\r?\n/", "", $str)));
$out = quoted_printable_decode($out); // Available with PHP 4+
return trim($out);
} }