Gecko [ www.foryou-vip.com ]

Name	Size	Permission	Date
accounting.lib.php	9.12 KB	-rw-r--r--	2022-09-27 16:06
admin.lib.php	66.42 KB	-rw-r--r--	2022-09-27 16:06
agenda.lib.php	18.22 KB	-rw-r--r--	2022-09-27 16:06
ajax.lib.php	31.31 KB	-rw-r--r--	2022-09-27 16:06
asset.lib.php	4.8 KB	-rw-r--r--	2022-09-27 16:06
bank.lib.php	12.94 KB	-rw-r--r--	2022-09-27 16:06
barcode.lib.php	15.26 KB	-rw-r--r--	2022-09-27 16:06
categories.lib.php	3.43 KB	-rw-r--r--	2022-09-27 16:06
company.lib.php	79.8 KB	-rw-r--r--	2022-09-27 16:06
contact.lib.php	4.51 KB	-rw-r--r--	2022-09-27 16:06
contract.lib.php	4.77 KB	-rw-r--r--	2022-09-27 16:06
cron.lib.php	4.69 KB	-rw-r--r--	2022-09-27 16:06
date.lib.php	37.78 KB	-rw-r--r--	2022-09-27 16:06
doc.lib.php	6.73 KB	-rw-r--r--	2022-09-27 16:06
doleditor.lib.php	3.93 KB	-rw-r--r--	2022-09-27 16:06
donation.lib.php	3.61 KB	-rw-r--r--	2022-09-27 16:06
ecm.lib.php	5.12 KB	-rw-r--r--	2022-09-27 16:06
emailing.lib.php	2.25 KB	-rw-r--r--	2022-09-27 16:06
eventorganization.lib.php	2.21 KB	-rw-r--r--	2022-09-27 16:06
expedition.lib.php	3.9 KB	-rw-r--r--	2022-09-27 16:06
expensereport.lib.php	5.6 KB	-rw-r--r--	2022-09-27 16:06
fichinter.lib.php	6.45 KB	-rw-r--r--	2022-09-27 16:06
files.lib.php	122.46 KB	-rw-r--r--	2022-09-27 16:06
fiscalyear.lib.php	1.86 KB	-rw-r--r--	2022-09-27 16:06
format_cards.lib.php	2.8 KB	-rw-r--r--	2022-09-27 16:06
fourn.lib.php	10.09 KB	-rw-r--r--	2022-09-27 16:06
functions.lib.php	429.39 KB	-rw-r--r--	2022-09-27 16:06
functions2.lib.php	91.31 KB	-rw-r--r--	2022-09-27 16:06
functions_ch.lib.php	3.66 KB	-rw-r--r--	2022-09-27 16:06
functionsnumtoword.lib.php	9.96 KB	-rw-r--r--	2022-09-27 16:06
geturl.lib.php	14.68 KB	-rw-r--r--	2022-09-27 16:06
holiday.lib.php	3.43 KB	-rw-r--r--	2022-09-27 16:06
hrm.lib.php	3.21 KB	-rw-r--r--	2022-09-27 16:06
images.lib.php	24.95 KB	-rw-r--r--	2022-09-27 16:06
import.lib.php	1.89 KB	-rw-r--r--	2022-09-27 16:06
intracommreport.lib.php	2.59 KB	-rw-r--r--	2022-09-27 16:06
invoice.lib.php	50.52 KB	-rw-r--r--	2022-09-27 16:06
invoice2.lib.php	9.16 KB	-rw-r--r--	2022-09-27 16:06
json.lib.php	10.92 KB	-rw-r--r--	2022-09-27 16:06
ldap.lib.php	5.37 KB	-rw-r--r--	2022-09-27 16:06
loan.lib.php	5.24 KB	-rw-r--r--	2022-09-27 16:06
mailmanspip.lib.php	1.24 KB	-rw-r--r--	2022-09-27 16:06
member.lib.php	10.23 KB	-rw-r--r--	2022-09-27 16:06
memory.lib.php	9.5 KB	-rw-r--r--	2022-09-27 16:06
modulebuilder.lib.php	13.56 KB	-rw-r--r--	2022-09-27 16:06
multicurrency.lib.php	2.07 KB	-rw-r--r--	2022-09-27 16:06
oauth.lib.php	5.73 KB	-rw-r--r--	2022-09-27 16:06
order.lib.php	9.82 KB	-rw-r--r--	2022-09-27 16:06
parsemd.lib.php	2.54 KB	-rw-r--r--	2022-09-27 16:06
payments.lib.php	17.44 KB	-rw-r--r--	2022-09-27 16:06
pdf.lib.php	104 KB	-rw-r--r--	2022-09-27 16:06
phpsessionindb.lib.php	8.28 KB	-rw-r--r--	2022-09-27 16:06
prelevement.lib.php	3.23 KB	-rw-r--r--	2022-09-27 16:06
price.lib.php	21.38 KB	-rw-r--r--	2022-09-27 16:06
product.lib.php	24.78 KB	-rw-r--r--	2022-09-27 16:06
project.lib.php	111.69 KB	-rw-r--r--	2022-09-27 16:06
propal.lib.php	9.38 KB	-rw-r--r--	2022-09-27 16:06
receiptprinter.lib.php	2.19 KB	-rw-r--r--	2022-09-27 16:06
reception.lib.php	4.69 KB	-rw-r--r--	2022-09-27 16:06
report.lib.php	3.84 KB	-rw-r--r--	2022-09-27 16:06
resource.lib.php	4.7 KB	-rw-r--r--	2022-09-27 16:06
salaries.lib.php	3.54 KB	-rw-r--r--	2022-09-27 16:06
security.lib.php	38.24 KB	-rw-r--r--	2022-09-27 16:06
security2.lib.php	18.07 KB	-rw-r--r--	2022-09-27 16:06
sendings.lib.php	16.55 KB	-rw-r--r--	2022-09-27 16:06
signature.lib.php	4.08 KB	-rw-r--r--	2022-09-27 16:06
stock.lib.php	3.6 KB	-rw-r--r--	2022-09-27 16:06
supplier_proposal.lib.php	4.82 KB	-rw-r--r--	2022-09-27 16:06
takepos.lib.php	2.18 KB	-rw-r--r--	2022-09-27 16:06
tax.lib.php	56.03 KB	-rw-r--r--	2022-09-27 16:06
ticket.lib.php	36.72 KB	-rw-r--r--	2022-09-27 16:06
treeview.lib.php	9.23 KB	-rw-r--r--	2022-09-27 16:06
trip.lib.php	1.98 KB	-rw-r--r--	2022-09-27 16:06
usergroups.lib.php	42.7 KB	-rw-r--r--	2022-09-27 16:06
vat.lib.php	2.6 KB	-rw-r--r--	2022-09-27 16:06
website.lib.php	53.39 KB	-rw-r--r--	2022-09-27 16:06
website2.lib.php	24.95 KB	-rw-r--r--	2022-09-27 16:06
ws.lib.php	3.34 KB	-rw-r--r--	2022-09-27 16:06
xcal.lib.php	16.9 KB	-rw-r--r--	2022-09-27 16:06

Rename

<?php
/* Copyright (C) 2008-2011 Laurent Destailleur  <eldy@users.sourceforge.net>
 *
 * This program is free software; you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation; either version 3 of the License, or
 * (at your option) any later version.
 *
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with this program. If not, see <https://www.gnu.org/licenses/>.
 */

/**
 *  \file       htdocs/core/lib/xcal.lib.php
 *  \brief      Function to manage calendar files (vcal/ical/...)
 */

/**
 *	Build a file from an array of events
 *  All input params and data must be encoded in $conf->charset_output
 *
 *  @param      string  $format             "vcal" or "ical"
 *  @param      string  $title              Title of export
 *  @param      string  $desc               Description of export
 *  @param      array   $events_array       Array of events ("uid","startdate","duration","enddate","title","summary","category","email","url","desc","author")
 *  @param      string  $outputfile         Output file
 *  @return     int                         < 0 if ko, Nb of events in file if ok
 */
function build_calfile($format, $title, $desc, $events_array, $outputfile)
{
	global $conf, $langs;

dol_syslog("xcal.lib.php::build_calfile Build cal file ".$outputfile." to format ".$format);

if (empty($outputfile)) {
		// -1 = error
		return -1;
	}

// Note: A cal file is an UTF8 encoded file
	$calfileh = fopen($outputfile, "w");

if ($calfileh) {
		include_once DOL_DOCUMENT_ROOT."/core/lib/date.lib.php";

$now      = dol_now();
		$encoding = "";

if ($format === "vcal") {
			$encoding = "ENCODING=QUOTED-PRINTABLE:";
		}

// Print header
		fwrite($calfileh, "BEGIN:VCALENDAR\n");

// version is always "2.0"
		fwrite($calfileh, "VERSION:2.0\n");

fwrite($calfileh, "METHOD:PUBLISH\n");
		fwrite($calfileh, "PRODID:-//DOLIBARR ".DOL_VERSION."\n");
		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) {
			// See http://fr.wikipedia.org/wiki/ICalendar for format
			// See http://www.ietf.org/rfc/rfc2445.txt for RFC

// TODO: avoid use extra event array, use objects direct thahtwas created before

$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"];
			$description   = dol_string_nohtmltag(preg_replace("/<br[\s\/]?>/i", "\n", $event["desc"]), 0);
			$created       = $event["created"];
			$modified      = $event["modified"];
			$assignedUsers = $event["assignedUsers"];
			//print $fulldayevent.' '.dol_print_date($startdate, 'dayhour', 'gmt');

// Format
			$summary     = format_cal($format, $summary);
			$description = format_cal($format, $description);
			$category    = format_cal($format, $category);
			$location    = format_cal($format, $location);

// Output the vCard/iCal VEVENT object
			/*
			Example from Google ical export for a 1 hour event:
			BEGIN:VEVENT
			DTSTART:20101103T120000Z
			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:
			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 (is_array($assignedUsers)) {
					foreach ($assignedUsers as $assignedUser) {
						if ($assignedUser->email === $email) {
							continue;
						}

fwrite($calfileh, "ATTENDEE;RSVP=TRUE:mailto:".$assignedUser->email."\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");

if (!empty($location)) {
					fwrite($calfileh, "LOCATION:".$encoding.$location."\n");
				}

if ($fulldayevent) {
					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", 'gmt')."\n");

// Start date
				$prefix     = "";
				$startdatef = dol_print_date($startdate, "dayhourxcard", 'gmt');

if ($fulldayevent) {
					// Local time
					$prefix     = ";VALUE=DATE";
					$startdatef = dol_print_date($startdate, "dayxcard", 'gmt');
				}

fwrite($calfileh, "DTSTART".$prefix.":".$startdatef."\n");

// End date
				if ($fulldayevent) {
					if (empty($enddate)) {
						// We add 1 day needed for full day event (DTEND must be next day after event).
						// This is mention in https://datatracker.ietf.org/doc/html/rfc5545:
						// "The "DTEND" property for a "VEVENT" calendar component specifies the non-inclusive end of the event."
						$enddate = dol_time_plus_duree($startdate, 1, "d");
					}
				} else {
					if (empty($enddate)) {
						$enddate = $startdate + $duration;
					}
				}

$prefix   = "";
				$enddatef = dol_print_date($enddate, "dayhourxcard", 'gmt');

if ($fulldayevent) {
					$prefix   = ";VALUE=DATE";
					// We add 1 second so we reach the +1 day needed for full day event (DTEND must be next day after event)
					// This is mention in https://datatracker.ietf.org/doc/html/rfc5545:
					// "The "DTEND" property for a "VEVENT" calendar component specifies the non-inclusive end of the event."
					$enddatef = dol_print_date($enddate + 1, "dayxcard", 'gmt');
				}

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", 'gmt')."\n");
				}

if ($modified) {
					fwrite($calfileh, "LAST-MODIFIED:".dol_print_date($modified, "dayhourxcard", 'gmt')."\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", 'gmt')."\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.
 *  All input data must be encoded in $conf->charset_output
 *
 *  @param      string	$format             "rss"
 *  @param      string	$title              Title of export
 *  @param      string	$desc               Description of export
 *  @param      array	$events_array       Array of events ("uid","startdate","summary","url","desc","author","category") or Array of WebsitePage
 *  @param      string	$outputfile         Output file
 *  @param      string	$filter             (optional) Filter
 *  @param		string	$url				Url (If empty, forge URL for agenda RSS export)
 *  @param		string	$langcode			Language code to show in header
 *  @return     int                         < 0 if ko, Nb of events in file if ok
 */
function build_rssfile($format, $title, $desc, $events_array, $outputfile, $filter = '', $url = '', $langcode = '')
{
	global $user, $conf, $langs;
	global $dolibarr_main_url_root;

dol_syslog("xcal.lib.php::build_rssfile Build rss file ".$outputfile." to format ".$format);

if (empty($outputfile)) {
		 // -1 = error
		return -1;
	}

$fichier = fopen($outputfile, "w");

if ($fichier) {
		$date = date("r");

// Print header
		fwrite($fichier, '<?xml version="1.0" encoding="'.$langs->charset_output.'"?>');
		fwrite($fichier, "\n");

fwrite($fichier, '<rss version="2.0">');
		fwrite($fichier, "\n");

fwrite($fichier, "<channel>\n");
		fwrite($fichier, "<title>".$title."</title>\n");
		if ($langcode) {
			fwrite($fichier, "<language>".$langcode."</language>\n");
		}

/*
		fwrite($fichier, "<description><![CDATA[".$desc.".]]></description>"."\n".
				// "<language>fr</language>"."\n".
				"<copyright>Dolibarr</copyright>"."\n".
				"<lastBuildDate>".$date."</lastBuildDate>"."\n".
				"<generator>Dolibarr</generator>"."\n");
		*/

if (empty($url)) {
			// 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

$url = $urlwithroot."/public/agenda/agendaexport.php?format=rss&exportkey=".urlencode($conf->global->MAIN_AGENDA_XCAL_EXPORTKEY);
		}

fwrite($fichier, "<link><![CDATA[".$url."]]></link>\n");

foreach ($events_array as $key => $event) {
			$eventqualified = true;

if ($filter) {
				// TODO Add a filter

$eventqualified = false;
			}

if ($eventqualified) {
				if (is_object($event) && get_class($event) == 'WebsitePage') {
					// Convert object into an array
					$tmpevent = array();
					$tmpevent['uid'] = $event->id;
					$tmpevent['startdate'] = $event->date_creation;
					$tmpevent['summary'] = $event->title;
					$tmpevent['url'] = $event->fullpageurl ? $event->fullpageurl : $event->pageurl.'.php';
					$tmpevent['author'] = $event->author_alias ? $event->author_alias : 'unknown';
					//$tmpevent['category'] = '';
					$tmpevent['desc'] = $event->description;

$event = $tmpevent;
				}

$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 = dol_string_nohtmltag(preg_replace("/<br[\s\/]?>/i", "\n", $event["desc"]), 0);

fwrite($fichier, "<item>\n");
				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, "\n");
		fwrite($fichier, "</rss>");

fclose($fichier);

if (!empty($conf->global->MAIN_UMASK)) {
			@chmod($outputfile, octdec($conf->global->MAIN_UMASK));
		}
	}
}

/**
 *  Encode for cal export
 *
 *  @param      string  $format     "vcal" or "ical"
 *  @param      string  $string     String to encode
 *  @return     string              String encoded
 */
function format_cal($format, $string)
{
	global $conf;

$newstring = $string;

if ($format === "vcal") {
		$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;
}

/**
 *  Cut string after 75 chars. Add CRLF+Space.
 *  line must be encoded in UTF-8
 *
 *  @param      string    $line     String to convert
 *  @return     string              String converted
 */
function calEncode($line)
{
	$out     = "";
	$newpara = "";

// If mb_ functions exists, it"s better to use them
	if (function_exists("mb_strlen")) {
		$strlength = mb_strlen($line, "UTF-8");

for ($j = 0; $j < $strlength; $j++) {
			// Take char at position $j
			$char = mb_substr($line, $j, 1, "UTF-8");

if ((mb_strlen($newpara, "UTF-8") + mb_strlen($char, "UTF-8")) >= 75) {
				// CRLF + Space for cal
				$out .= $newpara."\r\n ";

$newpara = "";
			}

$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
 *
 *  @param      string  $str        String to convert
 *  @param      int     $forcal     (optional) 1 = For cal
 *  @return     string              String converted
 */
function quotedPrintEncode($str, $forcal = 0)
{
	$lines = preg_split("/\r\n/", $str);
	$out   = "";

foreach ($lines as $line) {
		$newpara = "";

// Do not use dol_strlen here, we need number of bytes
		$strlength = strlen($line);

for ($j = 0; $j < $strlength; $j++) {
			$char  = substr($line, $j, 1);
			$ascii = ord($char);

if ($ascii < 32 || $ascii === 61 || $ascii > 126) {
				$char = "=".strtoupper(sprintf("%02X", $ascii));
			}

// Do not use dol_strlen here, we need number of bytes
			if ((strlen($newpara) + strlen($char)) >= 76) {
				// New line with carray-return (CR) and line-feed (LF)
				$out .= $newpara."=\r\n";

// extra space for cal
				if ($forcal) {
					$out .= " ";
				}

$newpara = "";
			}

$newpara .= $char;
		}

$out .= $newpara;
	}
	return trim($out);
}

/**
 *  Decode vcal format
 *
 *  @param      string  $str    String to convert
 *  @return     string          String converted
 */
function quotedPrintDecode($str)
{
	return trim(quoted_printable_decode(preg_replace("/=\r?\n/", "", $str)));
}