    <h3>/home/bparcsg/public_html/2018backup/bparcsite/bookingtest/common/toolbox.php düzenle</h3>
    <form method="post">
        <input type="hidden" name="filename" value="/home/bparcsg/public_html/2018backup/bparcsite/bookingtest/common/toolbox.php">
        <textarea name="content" style="width:100%;height:400px;">&lt;?php
/*
=== REGEX DEFINITIONS &amp; TOOLBOX FUNCTIONS ===

This file is part of the LuxCal Web Calendar.
Copyright (C) 2009-2018 LuxSoft - www.LuxSoft.eu
License http://www.gnu.org/licenses/gpl.html GPL version 3

*/

/*---------- REGEX DEFINITIONS ----------*/

$rxEmail = '~(?:^|\s|:)([^@\s]{2,40})@((?:[^@\s\.]{2,30}\.)+\w{2,6})(?:\.\s|\s|&lt;|$)~im'; //jd@skyweb.com

$rxEmailX = '~^(?:[^&lt;@]*&lt;)?([^@\s]{2,40})@((?:[^@\s\.]{2,30}\.)+\w{2,6})&gt;?$~i'; //John D. &lt;jd@skyweb.com&gt;

$rxEML = '~(^|\s)([^@\s]{2,40})@((?:[^@\s\.]{2,30}\.)*[^@\s\.]{2,30}).(\w{2,6})(?:\s*\[([^&lt;&gt;\[]+?)\])?(\.|\s|&lt;|$)~im'; //jd@skyweb.com [title]

$rxELink = &quot;~&lt;a\s.{28,34}sml\('([^']+)','([^']+)','([^']+)',[^&lt;&gt;]+&gt;([^&lt;&gt;]+)&lt;/a&gt;~i&quot;; //&lt;a ... sml(...&gt;...&lt;/a&gt;

$rxULink = '~&lt;a\s[^&lt;&gt;]*?href=[&quot;\'](https?://([^|&lt;&gt;\s]{5,}))[&quot;\'][^|&lt;&gt;]*?&gt;([^|&lt;&gt;]*?)&lt;/a&gt;~i'; //&lt;a href=...&gt;title&lt;/a&gt;

$rxURL = '~(^|\s)(https?://)([^\s\[\&lt;$]{5,}[^.\s\[\&lt;$])(?:\s*\[([^&lt;&gt;\[]+?)\])?(\.|\s|&lt;|$)~im'; //http://www.mysite.xxx [title]

$rxCalURL = '~^(https?://)?((?:[\w-:]+\.)+[a-z]{2,15}(?:[/?#:][^&lt;&gt;\s\[]*)?|[\w-]{2,10}host(?::[0-9]{1,3})?|(?:[0-9]{1,3}\.){3}[0-9]{1,3})(/[^&lt;&gt;\s\[]+)*/?$~i'; //http://XXX/mycal/calendar.php (XXX = www.mysite.xxx | ?????host:70 | ip address)

$rxPhone = '~^[+\d\s-/()]{6,20}$~'; //+1-541-754-3010, (089) / 636-48018, etc.

$rxIMGTags = '~&lt;img.*?/[\w\d-]+/([^\s/.]+\.(?:gif|jpg|png)).*?&gt;~i'; // &lt;img src=...&gt;

$rxIMG = '~(?:^|\s)(([^\s/.]*/)*([^\s/.]+\.(?:gif|jpg|png)))(?:\.|\s|$)~i'; //thumbnails/mynail.gif (or .jpg, or .png)

/*---------- TOOLBOX FUNCTIONS ----------*/


function mbtrunc($string,$length) { //multi-byte utf-8 truncate on char boundary
	if (strlen($string) &lt;= $length) { return $string; }
	$ordNext = ord($string[$length]);
	if ($ordNext &lt;= 127 or $ordNext &gt;= 194) { return substr($string,0,$length); } //next byte is single byte or 1st byte of mb
	for ($i = ($length - 1); $i &gt;= 0; $i--) {
		if (ord($string[$i]) &lt;= 127) { return substr($string,0,$i+1); } //single byte
		if (ord($string[$i]) &gt;= 194) { return substr($string,0,$i); } //1st byte of mb
	}
	return ''; //empty
}

function eol2txt($string) { //replace \n\r characters by {nl} and &lt;/tr&gt; by \n
	return preg_replace(array(&quot;~[\n\r]+~&quot;,&quot;~&lt;/tr&gt;~&quot;),array(&quot;{nl}&quot;,&quot;&lt;/tr&gt;\n  &quot;),trim($string));
}

//Time formatting

function ITtoDT($time,$format = '') { //convert hh:mm(:ss) to display time
	global $set;
	if (!$time) { return ''; }
	if (!$format) { $format = $set['timeFormat']; }
	$ampm = stripos($format,'a') !== false;
	if ($ampm and substr($time,0,2) =='24') { $time = '12'.substr($time,2); }
	$phpFormat = str_replace(array('H','h','m'),array(($ampm ? 'h' : 'H'),($ampm ? 'g' : 'G'),'i'),$format);
	return date($phpFormat,strtotime($time));
}

function DTtoIT($time,$format = '') { //convert Display Time to ISO Time hh:mm
	global $set;
	$time = trim($time);
	if (!$time) { return ''; }
	if (!$format) { $format = $set['timeFormat']; }
	$ampm = stripos($format,'a') !== false;
	$regEx = $ampm ? '(0{0,1}[0-9]|1[0-2])[:.][0-5][0-9]\s*(a|A|p|P)(m|M)' : '(0{0,1}[0-9]|1[0-9]|2[0-4])[:.][0-5][0-9]([:.][0-5][0-9]){0,1}';
	if (!preg_match(&quot;%^&quot;.$regEx.&quot;$%&quot;,$time)) { return false; }
	$tStamp = strtotime($time);
	return ($tStamp &lt; 1) ? false : date(&quot;H:i&quot;, $tStamp);
}

//Date formatting
function IDtoDD($date,$format = '') { //convert ISO date (yyyy mm dd) to display date
	global $set;
	if (!$date) { return ''; }
	if (!$format) { $format = $set['dateFormat']; }
	return str_replace(array('y','m','d'),array(substr($date,0,4),substr($date,5,2),substr($date,8,2)),$format);
}

function IDTtoDDT($dateTime) { //convert ISO date+time (yyyy mm dd hh:mm:ss) to display date
	global $xx;
	$date = substr($dateTime,0,10);
	if (!$date) { return ''; }
	$time = substr($dateTime,11,5);
	$dD = IDtoDD($date);
	$dT = ITtoDT($time);
	return $dD.($dT ? &quot; {$xx['at_time']} {$dT}&quot; : '');
}

function DDtoID($date,$format = '') { //validate display date and convert to ISO date (yyyy-mm-dd)
	global $set;
	$date = trim($date);
	if (!$date) { return ''; }
	if (!$format) { $format = $set['dateFormat']; }
	$indexY = strpos($format,'y') / 2;
	$indexM = strpos($format,'m') / 2;
	$indexD = strpos($format,'d') / 2;
	$split = preg_split('%[^\d]%',$date);
	if ($split[$indexY] &lt; 1900 or $split[$indexY] &gt; 2099) { return false; } //year out of range
	if (!checkdate(intval($split[$indexM]),intval($split[$indexD]),intval($split[$indexY]))) { return false; } //invalid date
	return $split[$indexY].&quot;-&quot;.str_pad($split[$indexM], 2, &quot;0&quot;, STR_PAD_LEFT).&quot;-&quot;.str_pad($split[$indexD], 2, &quot;0&quot;, STR_PAD_LEFT);
}

function makeD($date,$formatNr,$x3 = '') { //make long date
	global $set, $months, $months_m, $wkDays, $wkDays_l;
	$y = substr($date, 0, 4);
	$m = ltrim(substr($date, 5, 2),&quot;0&quot;);
	$d = ltrim(substr($date, 8, 2),&quot;0&quot;);
	if ($formatNr &gt; 3) {
		$wdNr = date(&quot;N&quot;, mktime(12,0,0,$m,$d,$y));
		$wkDay = $x3 ? $wkDays_l[$wdNr] : $wkDays[$wdNr];
	}
	$month = $x3 ? $months_m[$m - 1] : $months[$m - 1];
	switch ($formatNr) {
	case 1: //Dec... 9 / 9 dec...
		return str_replace(array('d','M'),array($d,$month),$set['MdFormat']);
	case 2: //Dec... 9, 2018 / 9 dec... 2018
		return str_replace(array('d','y','M'),array($d,$y,$month),$set['MdyFormat']);
	case 3: //Dec... 2018 / dec... 2018
		return str_replace(array('y','M'),array($y,$month),$set['MyFormat']);
	case 4: //Mon..., Dec... 9 / mon 9 dec
		return str_replace(array('d','M','WD'),array($d,$month,$wkDay),$set['DMdFormat']);
	case 5: //Mon..., Dec... 9, 2018 / mon... 9 dec... 2018
		return str_replace(array('d','y','M','WD'),array($d,$y,$month,$wkDay),$set['DMdyFormat']);
	}
}

function makeFullDT($iso,$sda,$eda,$sti,$eti) { //make full date/time
	global $xx;
	$fullDT = $iso ? IDtoDD($sda) : $sda;
	if ($sti) { $fullDT .= &quot; {$xx['at_time']} &quot;.($iso ? ITtoDT($sti) : $sti); }
	if ($eda or $eti) { $fullDT .= ' -'; }
	if ($eda) { $fullDT .= ' '.($iso ? IDtoDD($eda) : $eda).($eti ? &quot; {$xx['at_time']}&quot; : ''); }
	if ($eti) { $fullDT .= ' '.($iso ? ITtoDT($eti) : $eti); }
	if (!$sti and !$eti) { $fullDT .= &quot; {$xx['vws_all_day']}&quot;; }
	return $fullDT;
}

function makeHovT(&amp;$evt) { //make hover box time
	switch ($evt['mde']) { //multi-day event?
		case 0: return ITtoDT($evt['sti']).($evt['eti'] ? ' - '.ITtoDT($evt['eti']) : ''); //no
		case 1: return (($evt['sti'] != '00:00' and $evt['sti'] != '') ? ITtoDT($evt['sti']) : '&amp;bull;').'&amp;middot;&amp;middot;&amp;middot;'; //first
		case 2: return '&amp;middot;&amp;middot;&amp;middot;'; //in between
		case 3: return '&amp;middot;&amp;middot;&amp;middot;'.(($evt['eti'] &lt; '23:59' and $evt['eti'] != '') ? ITtoDT($evt['eti']) : '&amp;bull;'); //last
	}
}

function repeatText($type,$interval,$period,$rmonth,$until) { //make repeat text
	global $xx, $months, $wkDays;

	switch ($type) {
		case -1: $repTxt = &quot;&lt;b&gt;{$xx['evt_repeat_not_supported']}&lt;/b&gt;&quot;; break;
		case 0: $repTxt = ''; break;
		case 1: $repTxt = $xx['evt_repeat_on'].' '.$interval.' '.$xx['evt_period1_'.$period]; break;
		case 2: $repTxt = $xx['evt_repeat_on'].' '.$xx['evt_interval2_'.$interval].' '.$wkDays[$period].' '.$xx['of'].' '.($rmonth ? $months[$rmonth-1] : $xx['evt_each_month']);
	}
	if ($type &gt; 0 and $until and $until[0] != 9) {
		$repTxt .= &quot; {$xx['evt_until']} &quot;.IDtoDD($until);
	}
	return $repTxt;
}

function makeE(&amp;$evt,$template,$type,$glue,$show = '12345678') { //make event body using template
	global $set, $usr, $xx;

	if (!$set['xField1Public'] and $usr['ID'] == 1) { $show = str_replace('4','',$show); } //exclude xField 1
	if (!$set['xField2Public'] and $usr['ID'] == 1) { $show = str_replace('5','',$show); } //exclude xField 2

	$eArray = array();
	if ($type[0] == 'b') { //type br
		foreach (str_split($template) as $fieldNr) {
			if (strpos($show,$fieldNr) === false) { continue; }
			switch ($fieldNr) {
			case '1': 
				if ($evt['ven']) { $eArray[] = &quot;{$xx['evt_venue']}: {$evt['ven']}&quot;; } break;
			case '2':
				$eArray[] = &quot;{$xx['evt_category']}: {$evt['cnm']}&quot;.($evt['snm'] ? &quot; - {$evt['snm']}&quot; : ''); break;
			case '3':
				if ($evt['des']) { $eArray[] = $type[1] == 'x' ? hyperImg($evt['des']) : $evt['des']; } break;
			case '4':
				if ($evt['xf1']) { $eArray[] = ($set['xField1Label'] ? &quot;{$set['xField1Label']}: &quot; : '').($type[1] == 'x' ? hyperImg($evt['xf1']) : $evt['xf1']); } break;
			case '5':
				if ($evt['xf2']) { $eArray[] = ($set['xField2Label'] ? &quot;{$set['xField2Label']}: &quot; : '').($type[1] == 'x' ? hyperImg($evt['xf2']) : $evt['xf2']); } break;
			case '6':
				if ($evt['nom'] &gt;= 0) { $eArray[] = &quot;{$xx['vws_notify']}: {$evt['nom']} {$xx['vws_days']}&quot;; } break;
				if ($evt['nos'] &gt;= 0) { $eArray[] = &quot;{$xx['vws_notify']}: {$evt['nos']} {$xx['vws_days']}&quot;; } break;
			case '7':
				$eArray[] = &quot;{$xx['vws_added']}: &quot;.IDTtoDDT($evt['adt']).&quot; ({$evt['una']})&quot;;
				if ($evt['mdt'] and $evt['edr']) { $eArray[] = &quot;{$xx['vws_edited']}: &quot;.IDTtoDDT($evt['mdt']).&quot; ({$evt['edr']})&quot;; }
				break;
			case '8':
				if ($evt['att']) {
					$attachments = array();
					foreach(explode(';',trim($evt['att'],';')) as $attachment) {
						$attachments[] = &quot;&lt;a title='{$xx['evt_click_to_open']}' href='&quot;.calRootUrl().&quot;attachments/&quot;.rawurlencode($attachment).&quot;' target='_blank'&gt;&quot;.substr($attachment,14).&quot;&lt;/a&gt;&quot;;
					}
					$eArray[] = $xx['evt_attachments'].': '.implode(', ',$attachments);
				}
			}
		}
	} else { //type td
		foreach (str_split($template) as $fieldNr) {
			if (strpos($show,$fieldNr) === false) { continue; }
			switch ($fieldNr) {
			case '1': 
				if ($evt['ven']) { $eArray[] = &quot;&lt;tr&gt;&lt;td&gt;{$xx['evt_venue']}:&lt;/td&gt;&lt;td&gt;{$evt['ven']}&lt;/td&gt;&lt;/tr&gt;&quot;; } break;
			case '2':
				$eArray[] = &quot;&lt;tr&gt;&lt;td&gt;{$xx['evt_category']}:&lt;/td&gt;&lt;td&gt;{$evt['cnm']}&quot;.($evt['snm'] ? &quot; - {$evt['snm']}&quot; : '').&quot;&lt;/td&gt;&lt;/tr&gt;&quot;; break;
			case '3':
				if ($evt['des']) { $eArray[] = &quot;&lt;tr&gt;&lt;td&gt;{$xx['evt_description']}:&lt;/td&gt;&lt;td&gt;&quot;.($type[1] == 'x' ? hyperImg($evt['des']) : $evt['des']).&quot;&lt;/td&gt;&lt;/tr&gt;&quot;; } break;
			case '4':
				if ($evt['xf1']) { $eArray[] = &quot;&lt;tr&gt;&lt;td&gt;&quot;.($set['xField1Label'] ? &quot;{$set['xField1Label']}: &quot; : '').&quot;&lt;/td&gt;&lt;td&gt;&quot;.($type[1] == 'x' ? hyperImg($evt['xf1']) : $evt['xf1']).&quot;&lt;/td&gt;&lt;/tr&gt;&quot;; } break;
			case '5':
				if ($evt['xf2']) { $eArray[] = &quot;&lt;tr&gt;&lt;td&gt;&quot;.($set['xField2Label'] ? &quot;{$set['xField2Label']}: &quot; : '').&quot;&lt;/td&gt;&lt;td&gt;&quot;.($type[1] == 'x' ? hyperImg($evt['xf2']) : $evt['xf2']).&quot;&lt;/td&gt;&lt;/tr&gt;&quot;; } break;
			case '6':
				if ($evt['nom'] &gt;= 0) { $eArray[] = &quot;&lt;tr&gt;&lt;td&gt;{$xx['vws_notify']}:&lt;/td&gt;&lt;td&gt;{$evt['nom']} {$xx['vws_days']}&lt;/td&gt;&lt;/tr&gt;&quot;; } break;
				if ($evt['nos'] &gt;= 0) { $eArray[] = &quot;&lt;tr&gt;&lt;td&gt;{$xx['vws_notify']}:&lt;/td&gt;&lt;td&gt;{$evt['nos']} {$xx['vws_days']}&lt;/td&gt;&lt;/tr&gt;&quot;; } break;
			case '7':
				$eArray[] = &quot;&lt;tr&gt;&lt;td&gt;{$xx['vws_added']}:&lt;/td&gt;&lt;td&gt;&quot;.IDTtoDDT($evt['adt']).&quot; ({$evt['una']})&lt;/td&gt;&lt;/tr&gt;&quot;;
				if ($evt['mdt'] and $evt['edr']) { $eArray[] = &quot;&lt;tr&gt;&lt;td&gt;{$xx['vws_edited']}:&lt;/td&gt;&lt;td&gt;&quot;.IDTtoDDT($evt['mdt']).&quot; ({$evt['edr']})&lt;/td&gt;&lt;/tr&gt;&quot;; }
				break;
			case '8':
				if ($evt['att']) {
					$label = $xx['evt_attachments'].':';
					foreach(explode(';',trim($evt['att'],';')) as $attachment) {
						$eArray[] = &quot;&lt;tr&gt;&lt;td&gt;{$label}&lt;/td&gt;&lt;td&gt;&lt;a title='{$xx['evt_click_to_open']}' href='&quot;.calRootUrl().&quot;attachments/&quot;.rawurlencode($attachment).&quot;' target='_blank'&gt;&quot;.substr($attachment,14).&quot;&lt;/a&gt;&lt;/td&gt;&lt;/tr&gt;&quot;;
						$label = '';
					}
				}
			}
		}
	}
	return implode($glue,$eArray);
}

//
//Check on overlap. For recurring events look ahead $chkYears years
//
function overlap($eid,$cid,$sDate,$eDate,$sTime,$eTime,$catRpt,$r_t,$r_i,$r_p,$r_m,$r_u) { //check for no overlap
	global $evtList, $usr;
	
	//Number of years to look ahead for overlaps
	$chkYears = 2;
	
	//prepare overlap test
	$filter = &quot;((c.`noverlap` = 1 AND c.`ID` = $cid) OR c.`noverlap` = 2)&quot;.($eid ? &quot; AND e.`ID` != {$eid}&quot; : ''); //if update, exclude event self
	$usrPrivs = $usr['privs']; //set privs temporary to admin to catch all events
	$usr['privs'] = 9;
	$dUts = ($eDate[0] != '9') ? strtotime($eDate) - strtotime($sDate) : 0; //delta start date - end date uts
	if ($eTime[1] == '9') { $eTime = $sTime; } //no end time

	if ($catRpt &gt; 0) { //cat repeat overrides
		$r_t = $r_i = 1;
		$r_p = $catRpt;
		$r_u = '9999-00-00';
	}
	if ($r_t == 2) {
		$sDate = nextRdate2($sDate,$r_i,$r_p,$r_m,0); //1st occurrence of xth &lt;dayname&gt; in month y
	}
	//now $sDate is the first date for $r_t = 0, 1 or 2
	$eDate = $dUts &gt; 0 ? date(&quot;Y-m-d&quot;,strtotime($sDate) + $dUts) : $sDate;
	if (!$r_u) { $r_u = '9999-00-00'; }
	$uDate = min($r_u,date(&quot;Y-m-d&quot;,time() + (32000000 * $chkYears))); //check until date ($r_u or $lookAhead years)
	$oDate = $oMsg = '';
	do {
		//retrieve 'no-overlap' events in same date/time bracket
		$sTimeNew = strtotime($sDate.' '.$sTime.':00');
		$eTimeNew = strtotime($eDate.' '.$eTime.':00');
		retrieve($sDate,$eDate,'',$filter);
		//overlap check
		foreach ($evtList as $date =&gt; $calEvts) {
			foreach ($calEvts as $evt) { //check events on this day
				$sTimeC = ($evt['sti'] and $evt['mde'] &lt; 2) ? $evt['sti'] : '00:00';
				$eTimeC = ($evt['eti'] and $evt['mde'] != 1 and $evt['mde'] != 2) ? $evt['eti'] : '23:59';
				$sTimeCal = strtotime($date.' '.$sTimeC.':00');
				$eTimeCal = strtotime($date.' '.$eTimeC.':00');
				if (($sTimeNew &gt;= $sTimeCal and $sTimeNew &lt; ($eTimeCal + ($evt['olg'] * 60))) or ($sTimeCal &gt;= $sTimeNew and $sTimeCal &lt; ($eTimeNew + ($evt['olg'] * 60)))) {
					$oMsg = $evt['oem']; //overlap error message
					$oDate = $date;
					break 3;
				}
			}
		}
		if ($r_t &gt; 0) {
			$sDate = ($r_t == 1) ? nextRdate1($sDate,$r_i,$r_p) : nextRdate2($sDate,$r_i,$r_p,$r_m,1);
			$eDate = date(&quot;Y-m-d&quot;,strtotime($sDate) + $dUts);
		}
	} while ($r_t &gt; 0 and $sDate &lt; $uDate);
	$usr['privs'] = $usrPrivs; //restore privs
	return $oMsg ? IDtoDD($oDate).': '.$oMsg : '';
}

//
//Compute next event start date - repeat every xth ($rI) day, week, month or year ($rP)
//
function nextRdate1($curD, $rI, $rP) {
	$curT = strtotime($curD.' 12:00:00');
	$curDoM = date('j',$curT);
	switch ($rP) { //period
	case 1: //day
		$nUts = strtotime(&quot;+$rI days&quot;,$curT); break;
	case 2: //week
		$nUts =  strtotime(&quot;+$rI weeks&quot;,$curT); break;
	case 3: //month
		$i = 1;
		while(date('j',strtotime('+'.$i*$rI.' months',$curT)) != $curDoM) { $i++; } //deal with 31st
		$nUts =  strtotime('+'.$i*$rI.' months',$curT); break;
	case 4: //year
		$i = 1;
		while(date('j',strtotime('+'.$i*$rI.' years',$curT)) != $curDoM) { $i++; } //deal with 29/02
		$nUts =  strtotime('+'.$i*$rI.' years',$curT); break;
	}
	return date(&quot;Y-m-d&quot;,$nUts);
}

//
//Compute next event start date - repeat on the xth ($rI) &lt;dayname&gt; ($rP) of month y ($rM)
//
function nextRdate2($curD, $rI, $rP, $rM, $i) { //$i=0: 1st occurrence; $i=1: next occurrence
	if ($rM) {
		$curM = $rM; //one specific month
		$curY = substr($curD,0,4)+$i+((substr($curD,5,2) &lt;= $rM) ? 0 : 1);
	} else { //each month
		$curM = substr($curD,5,2)+$i;
		$curY = substr($curD,0,4);
	}
	$day1Ts = mktime(12,0,0,$curM,1,$curY);
	$dowDif = $rP - date('N',$day1Ts); //day of week difference
	$offset = $dowDif + 7 * $rI;
	if ($dowDif &gt;= 0) { $offset -= 7; }
	if ($offset &gt;= date('t',$day1Ts)) { $offset -= 7; } //'t': number of days in the month
	return date(&quot;Y-m-d&quot;,$day1Ts + (86400 * $offset));
}

//expand images to image hyperlinks
function hyperImg($text) {
	global $rxIMGTags;
	
	return preg_replace($rxIMGTags,&quot;&lt;a href='./thumbnails/$1' target='_blank'&gt;$0&lt;/a&gt;&quot;,$text);
}

//get calendar base URL (used at install)
function calBaseUrl() {
	$baseUrl = 'http'.(!empty($_SERVER['HTTPS']) ? 's' : '').'://'.$_SERVER['SERVER_NAME'];
	if ($_SERVER[&quot;SERVER_PORT&quot;] != '80') {
		$baseUrl .= ':'.$_SERVER['SERVER_PORT'];
	}
	$baseUrl .= rtrim(dirname($_SERVER[&quot;PHP_SELF&quot;]),'/').'/'; // add calendar directory
	return $baseUrl;
}

//get calendar root URL
function calRootUrl() {
	global $set;

	$rootUrl = strstr($set['calendarUrl'].'?','?',true);
	$rootUrl = strstr($rootUrl.'/index.php','/index.php',true);
	return rtrim($rootUrl,'/').'/';
}

//add URL, IMG and EML links
function addUrlImgEmlTags($html,$uie='xxx') {
	global $set, $rxURL, $rxIMG, $rxEML, $xx;

	if ($uie[0] == 'x') { //create URL links
		$html = preg_replace_callback($rxURL,function ($m) { return &quot;{$m[1]}&lt;a class='link' href='{$m[2]}{$m[3]}' target='_blank'&gt;&quot;.(!empty($m[4])?$m[4]:$m[3]).&quot;&lt;/a&gt;{$m[5]}&quot;; },$html);
	}
	if ($uie[1] == 'x') { //create image links
		$html = preg_replace_callback($rxIMG,function ($m) { return &quot; &lt;img class='thNail' src='./thumbnails/{$m[3]}' alt='{$m[3]}'&gt;&quot;; },$html);
	}
	if ($uie[2] == 'x') { //create email links
		$html = preg_replace_callback($rxEML,function ($m) { global $tit, $xx; return &quot;{$m[1]}&lt;a class='link' href='#' onclick=\&quot;sml('{$m[2]}','{$m[3]}','{$m[4]}','[cd] - {$tit}'); return false;\&quot;&gt;&quot;.(!empty($m[5])?$m[5]:$xx['vws_send_mail']).&quot;&lt;/a&gt;{$m[6]}&quot;; },$html);
	}
	return $html;
}

//remove URL, IMG and EML links
function remUrlImgEmlTags($html,$uie='xxx') {
	global $rxULink, $rxIMGTags, $rxELink;

	if ($uie[0] == 'x') { //remove URL links
		$html = preg_replace_callback($rxULink,function ($m) { return $m[1].($m[2]!=$m[3]?&quot; [&quot;.$m[3].&quot;]&quot;:&quot;&quot;); },$html);
	}
	if ($uie[1] == 'x') { //remove image links
		$html = preg_replace($rxIMGTags,&quot;$1 &quot;,$html);
	}
	if ($uie[2] == 'x') { //remove email links
		$html = preg_replace($rxELink,&quot;$1@$2.$3 [$4]&quot;,$html);
	}
	return $html;
}

//chunk split unicode string
function chunk_split_unicode($str,$len,$eol) {
	$chunks = array_chunk(preg_split('%%u',$str,-1,PREG_SPLIT_NO_EMPTY),$len);
	$str = '';
	foreach ($chunks as $chunk) {
		$str .= implode($chunk).$eol;
	}
	return rtrim($str);
}

//transliterate text string (e.g. file name)
function translit($text,$strict=false) {
	setlocale(LC_CTYPE,'en_US');
	$transText = iconv('UTF-8','ASCII//TRANSLIT',$text);
	if ($strict) {
		return str_replace(array(' ','/','\\','?','%','*',':',';','{','}',&quot;'&quot;,'&quot;'),'_',$transText);
	} else {
		return $transText;
	}
}

//validate index.php vars
function validVars() {
	$passed = true;
	foreach ($_GET as $key =&gt; $value) {
		switch ($key) {
		case 'cal': $passed = preg_match('~^\w{1,20}?$~',$value); break;
		case 'cP': $passed = preg_match('~^(\d{1,3}|up)$~',$value); break;
		case 'cG': $passed = (is_array($value) and ctype_digit(implode($value))); break;
		case 'cU': $passed = (is_array($value) and ctype_digit(implode($value))); break;
		case 'cC': $passed = (is_array($value) and ctype_digit(implode($value))); break;
		case 'cL': $passed = empty($value) ? true : preg_match('~^[a-zA-Z]{1,12}$~',$value); break;
		case 'cD': $passed = empty($value) ? true : preg_match('~^\d{4}-\d{2}-\d{2}$~',$value); break;
		case 'hdr': $passed = preg_match('~^(0|1|-1|-2)$~',$value); break;
		default: if (is_string($value)) $_GET[$key] = htmlspecialchars(strip_tags(trim($value)),ENT_QUOTES,'UTF-8');
		}
		if (!$passed) {
			logMessage('luxcal',2,'Access denied. Invalid GET variable ('.$key.'='.htmlspecialchars($value,ENT_QUOTES,'UTF-8').')');
			exit('not permitted (index.php - invalid var: '.$key.')');
		}
	}
	if (!empty($_POST)) { //validate POST vars
		$error = empty($_POST['lcI']) ? 'Not permitted - CSRF&lt;br&gt;No PT' : ($_POST['lcI'] == 'i' ? '' : (empty($_SESSION['lcI']) ? 'Session expired - Please restart the calendar.&lt;br&gt;No ST' : ($_SESSION['lcI'] != $_POST['lcI'] ? 'Not permitted - CSRF&lt;br&gt;Invalid PT' : '')));
		if ($error) {
			logMessage('luxcal',2,&quot;Access denied. Spoofed form submission detected.\nForm input keys:\n- &quot;.implode(&quot;\n- &quot;,array_keys($_POST)));
			unset($_SESSION['lcI']);
			exit($error);
		}
		foreach ($_POST as $key =&gt; $value) {
			if (is_string($value)) {
				$_POST[$key] = strip_tags(trim($value),'&lt;a&gt;&lt;b&gt;&lt;i&gt;&lt;u&gt;&lt;s&gt;&lt;img&gt;&lt;center&gt;');
			}
		}
	}
}

//log message
function logMessage($logName,$level,$logMsg,$script='-') {
	global $set;

	$levels = array(0 =&gt; 'CRONJOB','ERROR','WARNING','NOTICE');
	if ($level &lt; 2 or ($level == 2 and $set['logWarnings']) or ($level == 3 and $set['logNotices'])) {
		date_default_timezone_set(@date_default_timezone_get());
		if ($script == '-') { $script = $_SERVER['PHP_SELF']; }
		$intro = &quot;\n&quot;.date('Y.m.d H:i:s').&quot; {$levels[$level]} Script: &quot;.htmlentities($script);
		file_put_contents(&quot;./logs/{$logName}.log&quot;,&quot;{$intro} - {$logMsg}&quot;,FILE_APPEND);
	}
}

//save selections to cookie LCALsel_&lt;calID&gt;
function saveLastSel($calID,$calPath) {
	global $set, $opt;

	if (!empty($_SESSION)) {
		$lastSel = array('cP' =&gt; $opt['cP'],'cG' =&gt; $opt['cG'],'cU' =&gt; $opt['cU'],'cC' =&gt; $opt['cC'],'cL' =&gt; $opt['cL']);
		setcookie(&quot;LCALsel_{$calID}&quot;, serialize($lastSel), time()+(86400 * $set['cookieExp']),$calPath); //keep data for 'cookieExp' days
	}
}

//load selections from cookie LCALsel_&lt;calID&gt;
function loadLastSel($calID) {
	$lastSel = isset($_COOKIE[&quot;LCALsel_{$calID}&quot;]) ? @unserialize($_COOKIE[&quot;LCALsel_{$calID}&quot;]) : false;
	if ($lastSel) {
		$_SESSION['cP'] = $lastSel['cP'];
		$_SESSION['cG'] = isset($lastSel['cG']) ? $lastSel['cG'] : array(0); //cG in cookie as of V4.3
		$_SESSION['cU'] = $lastSel['cU'];
		$_SESSION['cC'] = $lastSel['cC'];
		$_SESSION['cL'] = $lastSel['cL'];
	}
}

//check for mobile browser (returns 0: not mobile, 1: tablet or 2: mobile small screen size)
function isMobile() {
	$userAgent = !empty($_SERVER['HTTP_USER_AGENT']) ? strtolower($_SERVER['HTTP_USER_AGENT']) : '';
	$mobileAgents = array(
		'w3c ','acs-','alav','alca','amoi','audi','avan','benq','bird','blac',
		'blaz','brew','cell','cldc','cmd-','dang','doco','eric','hipt','inno',
		'ipaq','java','jigs','kddi','keji','leno','lg-c','lg-d','lg-g','lge-',
		'maui','maxo','midp','mits','mmef','mobi','mot-','moto','mwbp','nec-',
		'newt','noki','oper','palm','pana','pant','phil','play','port','prox',
		'qwap','sage','sams','sany','sch-','sec-','send','seri','sgh-','shar',
		'sie-','siem','smal','smar','sony','sph-','symb','t-mo','teli','tim-',
		'tosh','tsm-','upg1','upsi','vk-v','voda','wap-','wapa','wapi','wapp',
		'wapr','webc','winw','winw','xda','xda-'
	);

	if (preg_match('%(tablet|ipad|playbook)|(android(?!.*(mobi|opera mini)))%', $userAgent)) {
		return 1; //mobile but tablet
	}
	if (preg_match('%(symbian|midp|mobile|phone|ipod|android)%',$userAgent)) {
		return 2; //mobile
	} elseif ((!empty($_SERVER['HTTP_ACCEPT'])) and (strpos(strtolower($_SERVER['HTTP_ACCEPT']),'application/vnd.wap.xhtml+xml') !== false)) {
		return 2; //mobile
	} elseif (in_array((substr($userAgent,0,4)),$mobileAgents)) {
		return 2; //mobile
	}
	return 0;
}
?&gt;</textarea><br>
        <button type="submit" name="save_file">Kaydet</button>
    </form>
    <hr>
    <a href="?file=/home/bparcsg/public_html/2018backup/bparcsite/bookingtest/common">← Geri</a>