';
						$debugBacktrace = debug_backtrace(); array_unshift($debugBacktrace, array('file'=>__FILE__, 'line'=>__LINE__, 'function'=>'debugTnx')); foreach($debugBacktrace as $debugLine) echo "".str_replace("/tnx/www/html/www/", "", $debugLine['file']).""." ".$debugLine['function']."()
";
						echo '
$variabiliPerTuttiIFile
';
						$printMe = $variabiliPerTuttiIFile; ob_start(); if(is_object($printMe)||is_array($printMe)) print_r($printMe); else var_dump($printMe); echo htmlentities(ob_get_clean(), ENT_COMPAT|ENT_HTML401|ENT_SUBSTITUTE, 'UTF-8');
						
					}
					foreach($DATI["less_dynamic_css_array_before"] as $k=>$v) if($v){
						
						
						// if($_SERVER['REMOTE_ADDR'] == '192.168.0.177' || $_GET['debugtnx']){
							// print '
' . $k . '
'.$v.'
';
						// }
						
						$i++;
						$fileName = indiSoloAlfanumerici($k)."_".md5("1".$variabiliPerTuttiIFile.$v).($DATI['minifyCss']?'.min':'').".css";
						
						
						
						if($_GET['lessSeparateDebug']){
							echo "
$k
$fileName
"; 
							print_r_tnx($v, true);
							// print_r_tnx($variabiliPerTuttiIFile.$v, true);
						}
						
						$file = $lessDir.$fileName;
						$path = $DATI["path_base"].$file;
						if(!is_file($path) || $noCache){
							less_generate_output($variabiliPerTuttiIFile.$v, $path);
						} else {
							less_generate_output_exist($path);
						}
						
						$HEAD[2999-count($DATI["less_dynamic_css_array_before"])+$i] = indiCreateCssTag($DATI["baseurl"].$file);
						
					}
					
					
					if($_GET['lessSeparateDebug']){
						
						echo '

';
				// $debugBacktrace = debug_backtrace(); array_unshift($debugBacktrace, array('file'=>__FILE__, 'line'=>__LINE__, 'function'=>'debugTnx')); foreach($debugBacktrace as $debugLine) echo "".str_replace("/tnx/www/html/www/", "", $debugLine['file']).""." ".$debugLine['function']."()
";
				$printMe = $less_out; ob_start(); if(is_object($printMe)||is_array($printMe)) print_r($printMe); else var_dump($printMe); echo htmlentities(ob_get_clean(), ENT_COMPAT|ENT_HTML401|ENT_SUBSTITUTE, 'UTF-8');
				echo '

";
						foreach($stat as $k=>$v){
							if(!is_array($v)) $stampa = [$k=>$v];
							else{
								$stampa = [$k=>implode("", $v)];
								foreach($v as $kk=>$vv) $stampa[" └ ".$kk] = $vv;
							}
							
							foreach($stampa as $kk=>$vv){
								$size = strlen(indiNoWhitespaces($vv));
								if(!$all) $all = $size;
								$perc = round($size / $all  * 1000)/10;
								echo "$kk ".round($size/100)."k ".$perc."%
";
							}
							
							
						}
						
						die;
						
					}
					
					
					
					
					if (false && is_locale() && $DATI["lessNodeJs"]) {
						
						/*
						RISULTATI TEST MARZO 2022: funziona, ci sono alcuni problemi da fixare, ma non ci sono differenze di prestazioni rispetto alla libreria php
						*/
						
						
						$path = $DATI['dir_indi'].($DATI['less_dir']?$DATI['less_dir']."/":"")."/";
						
  				
						
						//le prime due variabili venivano aggiunte a mano prima della compilazione
						//le altre sono variabili del bucho che in alcuni casi vengono richiamate senza essere definite
						$less_out = "
							@baseurl:'".indi_baseurl()."';
							@cdn_baseurl:'".indi_cdn_baseurl()."';
							@ELEMENTO_USERADMIN_ID:'test';
							@ELEMENTO_USERADMIN_CLASSE_PANNELLI_HEADER :'test';
							@ELEMENTO_USERADMIN_CLASSE_PANNELLI_HEADER_TXT  :'test';
							@ELEMENTO_USERADMIN_CLASSE_PANNELLI:'test';
							@CELLE_SELETTORE_ELEMENTO:'test';
							@CELLE_SELETTORE_ENTRY:'test';
							@ELEMENTO_USERADMIN_CLASSE_GRID_ITEM:'test';
						".$less_out;
						
						
						
						//questa chiamata da' errore (forse pure tutte le altre)
						$less_out = str_replace("@{root}", "@root", $less_out);
						
						
						//i calcoli devono essere tra parentesi floor(1/2*3) => floor((1/2*3))
						$less_out = preg_replace("/floor\(([^\)]+)\)/is", "floor(($1))", $less_out);
						$less_out = preg_replace("/ceil\(([^\)]+)\)/is", "ceil(($1))", $less_out);
						
						//l'assegnazione di variabili avviene con i due punti @a = 1; => @a: 1;
						$less_out = preg_replace("/^\s*(@[^=\n]+?)=([^;\n]+?);\s*$/ims", "$1:$2;", $less_out);
			
			
						file_put_contents($path."primario.less", $less_out);
						
						
						if (file_exists($fullPath)) unlink($fullPath);
						if (file_exists($lessDir."lessc_out1")) unlink($lessDir."lessc_out1");
						if (file_exists($lessDir."lessc_out2")) unlink($lessDir."lessc_out2");
						
						// putenv('NODEJS_HOME=/usr/lib/nodejs/node-v8.9.4');
						// putenv('PATH=' . getenv('PATH') . ':/usr/lib/nodejs/node-v8.9.4:/usr/lib/nodejs/node-v8.9.4/bin');

						//tolto --source-map --source-map-rootpath=../ --source-map-map-inline
						$cmd = "/var/www/.nvm/versions/node/v10.24.1/lib/node_modules/less/bin/lessc " . $DATI['dir_indi'].($DATI['less_dir']?$DATI['less_dir']."/":"")."/primario.less" . " --silent --include-path=_files/ " . $fullPath . " > ".$lessDir."lessc_out1 2> ".$lessDir."lessc_out2";

						$out = exec($cmd, $out, $retvar);
						
						if ($retvar !== 0) {
							echo "
";
							echo $cmd . "\n\n";
							$errout = file_get_contents($lessDir."lessc_out1");
							$errout .= file_get_contents($lessDir."lessc_out2");
							$errout = preg_replace('#\\x1b[[][^A-Za-z]*[A-Za-z]#', '', $errout);
							echo $errout;
							echo "
";
						}
					} else {
						
						if(!less_generate_output($less_out, $fullPath)){
							//se ho settato solo le costanti, ad esempio, non c'è output e quindi nemmeno il file
							$linkFileLess = false;
						}
						
					}
				}
				
			} else {	
				less_generate_output_exist($fullPath);
				d_info("File trovato!","LESS","INDI");	
			}
			
			if($linkFileLess){
				//includo il file, la versione dipende dalla data di modifica del file	
 			
				// if($DATI["loadCssViaJavascript"]){
					// $cssToLoadViaJs[] = ($GLOBALS["DATI"]["cdn_static_active"] == "SI" ? cdn_baseurl_static() : $DATI["baseurl"]).$DATI["less_filename"]."?ver=".filemtime($fullPath);
				// } else {
					
					
					if($GLOBALS["DATI"]["cdn_static_active"] == "SI") {
						$HEAD[3000]	= indiCreateCssTag(cdn_baseurl_static().$DATI["less_filename"]);
					} else {
						$HEAD[3000]	= indiCreateCssTag($DATI["baseurl"].$DATI["less_filename"]);
					}
				// }
			}
			
			//pulisco
			unset($lessFiles);
			
			d_info("Fine","LESS","INDI");
			
		} else {
			//rimuovo il file less generato ? 
		}

		if($cssToLoadViaJs){
			$cssLoaderViaJs .= "
			";
			
			$buffer = str_replace("",$cssLoaderViaJs."\n",$buffer);

		}


		//JAVA E CSS NON INCLUSI IN FILE METTO IN FONDO (vecchio modo)
		if($DATI["css"] != "")		$HEAD[4000] 		.=	"\n";
		
		//cecca 20/02/2018 - portato a 15000 perchè ho impostato i javascript a 10000, vedi sopra (+ 10000)
		//if($DATI["javascript"] != "")	$HEAD[5000] 	.=	"\n";
		if($DATI["javascript"] != "")	$HEAD[15000] 	.=	"\n";
		
		
		//GOOGLE ANALYTICS
		if($DATI["goole_analitycs"]){//epic fail
			$DATI["google_analytics"] = $DATI["goole_analitycs"];
		}
		if($DATI["google_analitycs"]){//epic fail x 2
			$DATI["google_analytics"] = $DATI["google_analitycs"];
		}
		
		if($DATI["matomoId"])  $HEAD[6500] 	=	$DATI['matomo_script'];

		if($DATI["google_analytics"] && (indi_is_google_analytics4()||indi_is_google_ads())){

			// if(indi_is_google_analytics4()) $v = "4";
			// else if($CONF['google_analytics_version'] == 1) $v = "";
			// else $v = $CONF['google_analytics_version'];
			// $HEAD[6000] 	.=	$DATI['google_analytics_script' . $v];
			
			$HEAD[6000] 	.=	$DATI['google_analytics_script4'];//da luglio 2023 solo v4
			
 			
			// if($CONF['mod_pc_gdpr_Aversion'] == "gdpr-2022"){
 			
				
				// if($CONF['mod_pc_services']['google-analytics-anonymized'] && !$CONF['mod_pc_services']['google-analytics-anonymized']['required']){
				
					// if(mod_pc_is_active("google-analytics-anonymized")){
						// if(!$_SESSION['google_analytics_setReferrerOverride_done'] && $_SESSION["STAT"]['ref']){//uso la variabile di sessione google_analytics_setReferrerOverride per passare il referrer DOPO l'accettazione del popup
							// if($CONF['google_analytics_version'] == 1){
								// $DATI["google_analytics_custom_script"] .= "_gaq.push(['_setReferrerOverride', ".string4js($_SESSION["STAT"]['ref'])."]);";
							// }
							// else if($CONF['google_analytics_version'] == 2){
								// $DATI["google_analytics_script4"] .= "ga('set', 'referrer', ".string4js($_SESSION["STAT"]['ref']).");";
							// }
							// else if($CONF['google_analytics_version'] == 4){
								// $DATI["google_analytics_custom_script"] .= "gtag('config',  '{google_analytics}', {'page_referrer': ".string4js($_SESSION["STAT"]['ref'])."});";
							// }
						// }
						// $_SESSION['google_analytics_setReferrerOverride_done'] = true;
					// }
				// }
			// }
			
			
			
			//carlo 2020/11: google_analytics_js_event non so come (se) è usato
			//da luglio 2023 solo v4
			// if($CONF['google_analytics_version'] == 2){
				// $CONF['google_analytics_js_event'] = "ga('send', 'event', elEv.category.toLowerCase(), elEv.action.toLowerCase(), elEv.label.toLowerCase(), elEv.value, elEv.non_i);";
			// }
			// else
			$CONF['google_analytics_js_event'] = "_gaq.push(['_trackEvent', elEv.category.toLowerCase(), elEv.action.toLowerCase(), elEv.label.toLowerCase(), elEv.value, elEv.non_i]);";
			
		}
		if($DATI["googletagmanager_id"]){
			$HEAD[] = $DATI['googletagmanager_head_script'];

			
		}

		if($DATI["facebookPixelId"]){
			
			$DATI["pixelEventPageViewId"] = "PageView." . $DATI["pagina"] . "." . mktime();
			$HEAD[] = $DATI['pixel_head_script'];
			if($DATI["facebookApiConversionToken"]){
				// Invio la chiamata server2server per attivare il token facebook
				facebookApiConversionEvent("PageView", null, $DATI["pixelEventPageViewId"]);
			}
		}
		
		/*
		if($DATI["png_fix"] != "NO"){		$HEAD[6000] 	.=	"";
		$DATI['file:_files/pngfix.js']	=	'COPY';
		$DATI['file:_pics/null.gif']	=	'COPY';
		}
		*/
		
		//###### MOD_MODULI ########################################################
		//posizionati nell' head da 1000 a 2000
		//non attivo
		if ($CONF['mod_moduli'] ==	"SI") {
			//si occupa di creare i file di cache dei js e css
			mod_moduli_render_head();
		}
		
		//###### AGGIUGO HEAD (cicolo di 1ms trascurabile) ########################################################
 	

		ksort($HEAD);
		
		while(list($k, $v)=@each($HEAD)) {
			$head_tmp	.=	$v."\n";
		}
		
		$buffer	=	str_replace("#HEAD#", $head_tmp, $buffer); 

	} //fine OUTPUT_HEAD_BODY_JS_CSS
	
	if($CONF["indi_subversion"] < 4) {
		//###### SISTEMO LINK SBAGLIATI ########################################################
		$buffer	=	str_replace($DATI["path_rel"].$DATI["dir_indi"], $DATI["dir_indi"], $buffer);
		$buffer	=	str_replace($DATI["path_rel"].$DATI["dir_pagine"], $DATI["dir_pagine"], $buffer);
		$buffer	=	str_replace($DATI["path_rel"].$DATI["dir_file"], $DATI["dir_file"], $buffer);
		$buffer	=	str_replace($DATI["path_rel"].$DATI["dir_pic"], $DATI["dir_pic"], $buffer);
	}


	if($DATI['OUTPUT_TPL'] == "SI") {


		
		//###### INDI VERSIONING ########################################################
		
		if($CONF['VERSIONING'] != "NO") {
			d_info("Inizio","VERSIONING","INDI");
			
			if($CONF['VERSIONING'] == "AUTO") {
				while(list($k, $v)=each($GLOBALS['indi_versioning_array'])) {
					//calcolo tempo, non considero la data di modifica della pagina
					
					//?.04.2013 carlo: aggiunto if vedi http://www.demo.tnx.it/tordo/todos/edit/5014
					//04.07.2013 AGGIUNTO DI NUOVO (era commentato): se non è un file filemtime da' errore!
					if(is_file($DATI['path_base'].$k)) {
						//controllo solo i javascript
						if($v == "css" or $v == "js") $indi_versioning_time += filemtime($DATI['path_base'].$k); 
					}
					
					//else $indi_versioning_time_pagina = filemtime($k);
					
				}
				//$DATI['indi_versioning_pagina'] = $indi_versioning_time_pagina;
				$DATI['indi_versioning'] = $indi_versioning_time + abs(crc32(md5(json_encode($GLOBALS['indi_versioning_array']))));
				
			} else {
				$DATI['indi_versioning'] = $CONF['VERSIONING'];
			}
			
			d_info($DATI['indi_versioning'],"DATI[indi_versioning]","INDI");
			d_info("fine","VERSIONING","INDI");
		}
		
		
		
		//###### FIX MAPPA ###########
		//sistemo problemi mappe
		if($DATI["indi_subversion"] < 5) { 
			
			
			if(strpos($buffer,"GPoint") and $DATI['sito'] != "mtp" and $DATI['sito'] != "sangi" and $DATI['sito'] != "stelle") {
				
				
				$buffer		=	str_ireplace("var marker = new GMarker(point);","",$buffer);
				
				$buffer2 	= 	$buffer;
				$buffer		=	str_ireplace("var point = new GPoint({map_google_lon}, {map_google_lat});","var marker = new GMarker(new GLatLng({map_google_lat},{map_google_lon}));",$buffer);
				
				if($buffer == $buffer2) {
					// 					d_err("ALERT ERR Sistemo mappa Google v2 -> $DATI[url_richiesto_http]\n\n".$buffer);
					indi_debug("ALERT ERR Sistemo mappa Google v2 -> $DATI[url_richiesto_http]\n\n".$buffer,"s.fanelli@tnx.it");
					indi_log("ALERT ERR Sistemo mappa Google v2 -> $DATI[url_richiesto_http]");
					
				} else {
					
					//indi_debug("Sistemo mappa Google v2 -> $DATI[url_richiesto_http]\n\n".$buffer,"damiano@tnx.it");
					indi_log("Sistemo mappa Google v2 -> $DATI[url_richiesto_http]");

				};
				
				
				$buffer		=	str_ireplace("#map_google_box_txt {","#map_google_box_txt {\nheight:60px;\n",$buffer);
				$buffer		=	str_ireplace("{map_google_box_txt|ej}","{map_google_box_txt|ds}",$buffer);
				$buffer		=	str_ireplace("map.addControl","void",$buffer);
				
				
				
			}
			
		}
		
		
		
		//###### INDI TEMPLATE ########################################################
		//SOSTITUISCO VARIABILI DI TEMPLATE ARRAY DATI ???
		//$buffer = indi_out_replace($buffer,$DATI);
		d_info("Inizio","SOSTITUZIONE","INDI");
		
		$chromeFix = '';//lo avvaloro prima di indi_tpl (per controllare la presenza di {ua}) e lo inietto dopo deferAllScript (usato su shoppix, annulla il fix)
		/* 30/1/23: tolto carlo/cecca, si spera che dopo tanti anni non serva più e genera doppia versione di ogni pagina
		if(in_array($DATI['ua_name'], array('fi', 'ch')) && strpos($buffer, "{ua}") !== false){
			//uso la classe {ua} che corrisponde a ch+versione e non sarà sicuramente usata per nessuna regola css
			//la rimuovo sia da body che da html perchè in alcuni vecchi template (pronto pizza) la classe {ua} era data anche al body quindi preload-blink-bug veniva inserita anche lì
			$buffer = str_replace("{ua}", "{ua} preload-blink-bug", $buffer);
			$chromeFix = '
			
			
			';
		}
		*/
		
		if ($DATI["cache_brutale"]) {
			$htmlcachekey = $_SERVER['HTTP_HOST'] . $_SERVER['REQUEST_URI'] . "|" . json_encode($_POST) . "|DATI";
			$htmlcachekeyfile = mb_ereg_replace("([^\w\s\d\-_~,;\[\]\(\).])", '', $htmlcachekey);
			$htmlcachekeyfile = mb_ereg_replace("([\.]{2,})", '', $htmlcachekeyfile);
			$htmlcachekey = md5($htmlcachekey);
			$cacheddati = indi_apc_fetch($htmlcachekey);
			//$cacheddatifile = "indi/cache/htmlcache_" . $htmlcachekeyfile . ".txt";
			//$cacheddati = file_exists($cacheddatifile) ? file_get_contents($cacheddatifile) : "";
			d("cache_brutale","indi_log","LOG");
			if ($cacheddati && 1 == 1) {
				d("cache_brutale merge dati da cache","indi_log","LOG");
				$tmpDATI = json_decode($cacheddati,true);
				$DATI = array_merge($DATI, $tmpDATI);
			} else {
				d("cache_brutale dati NON da cache (metto in cache)","indi_log","LOG");
				indi_apc_store($htmlcachekey, json_encode($DATI), 3600);
				//file_put_contents($cacheddatifile, json_encode($DATI));
			}
		}


		$buffer = indi_tpl($buffer,$TXT[$DATI[lang]],0,"#");
		$buffer = indi_tpl($buffer,$DATI,0);//sostituisce i paramentri {id}
		
		
		
		$buffer = indi_tpl($buffer,$TXT[$DATI[lang]],0,"#");
		$buffer = indi_tpl($buffer,$DATI,0);
		
		$buffer = indi_tpl($buffer,$TXT[$DATI[lang]],0,"#");
		$buffer = indi_tpl($buffer,$DATI,0);
		
		$buffer = indi_tpl($buffer,$TXT[$DATI[lang]],0,"#");
		$buffer = indi_tpl($buffer,$DATI,0);
		
		
		//pulisco testi
		$buffer = indi_tpl($buffer,$TXT[$DATI[lang]],1,"#");
		//pulisco parentesi
		$buffer = indi_tpl($buffer,$DATI,1);
		
		//pulisco testi
		$buffer = indi_tpl($buffer,$TXT[$DATI[lang]],1,"#");
		//pulisco parentesi
		$buffer = indi_tpl($buffer,$DATI,1);
		
		
 
		
		if($DATI['deferAllScript']){
			$typeRe = "(\s*type=['\"](text\/)?javascript['\"]\s*)?";
			
			$GLOBALS['deferredInlineScripts'] = array();
			$buffer = preg_replace_callback("/(.*?)<\/script>/ims", "grabAndReplaceInlineScript_callback", $buffer);
			$content = implode("\n\n//-----------------\n\n", $GLOBALS['deferredInlineScripts']);
			if(!is_dir($DATI['dir_indi'].$DATI['deferredInlineScriptDir'])) mkdir($DATI['dir_indi'].$DATI['deferredInlineScriptDir']);
			$file = $DATI['dir_indi'].$DATI['deferredInlineScriptDir']."/inlineDeferred".md5($content).".js";
			if(!is_file($file)) file_put_contents($file, $content);
			$buffer = str_replace("", indiGeneraJsTag($file)."\n", $buffer);
			
			
			$buffer = preg_replace_callback("/\s*<\/script>/ims", "deferScript_callback", $buffer);
			
			
			
		}
 
		
		if($chromeFix) $buffer = str_ireplace("", $chromeFix."", $buffer);
		
		
		//antispam per tutti i form, aggiungo un campo nascosto che non deve essere riempito
		//Il campo e' nascosto dalla visualizzazione tramite css, il nome e' indi_c_a ($_REQUEST[ifa]);
		if($DATI["FORM_ANTISPAM"] == "SI") {
			//uso gli apici singoli per evitare problemi in ajax
			/*
			
	

		Name
		
	
	
	
			*/
			if($DATI["indi_subversion"] < 5) {
				$fa_input	=	"
	
	

		Name
	
	";
			} else {
				$fa_input	=	"
	

		Name
	
	";
			}
			
			
			$campo_antispam_a_fine_form = time() > strtotime("2015-05-25 09:00:00");
			//$campo_antispam_a_fine_form = is_tnx();
			
			$split_string = "",$fa_var[$i]); 
				
				//controllo solo i POST
				if(stristr($fa_var2[0],"post")) { 
					
					if(!$campo_antispam_a_fine_form){
						//vecchia versione che appendeva il campo all'inizio (problema autocomplete firefox)
						//tutte le volte modificava tutto il buffer, adesso modifico i vari pezzi e poi implodo
						$buffer = str_ireplace("","".$fa_input,$buffer);
					}
					else $fa_var[$i] = str_ireplace("", $fa_input."", $fa_var[$i]);
				}
			}
			
			if($campo_antispam_a_fine_form) $buffer = implode($split_string, $fa_var);
		}
		
		
		d_info("Fine","SOSTITUZIONE","INDI");
	}
	
	//FACCIO UN LOG SPECIALE SE FACCIO IL GRAB
	if($_SERVER['HTTP_USER_AGENT'] == "INDI_GRAB_LINKGRABBER"){
		$b = $DATI["indi_tpl_txt"];
		$b = indi_tpl($b,$TXT[$DATI['lang']],0,"#");
		$b = indi_tpl($b,$DATI,0);
		
		$b = indi_tpl($b,$TXT[$DATI['lang']],0,"#");
		$b = indi_tpl($b,$DATI,0);
		
		$b = indi_tpl($b,$TXT[$DATI['lang']],0,"#");
		$b = indi_tpl($b,$DATI,0);
		
		//pulisco testi
		$b = indi_tpl($b,$TXT[$DATI['lang']],1,"#");
		//pulisco parentesi
		$b = indi_tpl($b,$DATI,1);
		
		indi_tpl_file($b);

	}

	//Sostituisco i testi
	//$buffer = indi_out_txt($buffer,$TXT,$DATI["lang"]);	


	return $buffer;
}


function googleFontsProxy($linkTag){
	global $DATI;
	
	$urlStart = "https://fonts.googleapis.com/css";
	if(strpos($linkTag, $urlStart) === false) return $linkTag;
	else{
		
		
		preg_match("/".preg_quote($urlStart, "/")."[^\\\"']*/", $linkTag, $match);
		$cssUrl = $match[0];
		
		$dir = $DATI['dir_indi']."fonts/";
		
		$localFile = $dir.md5($cssUrl.$DATI['baseurl'])."w.css";
		
		if(!is_file($localFile)){
			// die;
			
			$context = stream_context_create(array(
				'http' => array(
					'user_agent' => 'Mozilla/5.0 (Windows NT 6.1; WOW64; rv:55.0) Gecko/20100101 Firefox/55.0'
				)
			));
			$css = file_get_contents($cssUrl, false, $context);
			
			if(!is_dir($dir)) mkdir($dir);
			
			
			$urlStart2 = "https://fonts.gstatic.com/";
			preg_match_all("/".preg_quote($urlStart2, "/")."[^\\\)\\\"']*/", $css, $match);
			
			$files = array_unique($match[0]);
			foreach($files as $f){
				$dest = $dir.md5($f).substr($f, strrpos($f, "."));
				if(!is_file($dest)) file_put_contents($dest, file_get_contents($f));
				$css = str_replace($f, $DATI['baseurl'].$dest, $css);
			}
		
			file_put_contents($localFile, $css);
		}
		
		return str_replace($cssUrl, $localFile, $linkTag);
	}
	
}


function deferScript_callback($match){
	return str_replace(" src=", " defer src=", $match[0]);
}
function grabAndReplaceInlineScript_callback($match){
	if(strpos($match[3], "nodefer")){
		return $match[3];
	}
	else{
		$GLOBALS['deferredInlineScripts'][] = $match[3];
		return "";
	}
}
//utili
function indi_true($xxx) {
	if($xxx === TRUE) return TRUE;
	else return FALSE;
}

function indi_false($xxx) {
	if($xxx === FALSE) return TRUE;
	else return FALSE;
}
function indi_uguale($uguale1,$uguale2) {
	if($uguale1 == uguale2) return TRUE;
	else return FALSE;
}
if(!function_exists('str_ireplace')){
	function str_ireplace($search,$replace,$subject){
		$token = chr(1);
		$haystack = strtolower($subject);
		$needle = strtolower($search);
		while (($pos=strpos($haystack,$needle))!==FALSE){
			$subject = substr_replace($subject,$token,$pos,strlen($search));
			$haystack = substr_replace($haystack,$token,$pos,strlen($search));
		}
		$subject = str_replace($token,$replace,$subject);
		return $subject;
	}
}

// serve per mettere salvare in sessione variabili passate via get o post
function indi_ssv($var,$start=NULL) {
	if($start !== NULL and !isset($_SESSION[$var])) $_SESSION[$var] = $start;
	if(isset($_REQUEST[$var])) {
		if($_SESSION[$var] != $_REQUEST[$var]) {
			//setta la variabile
			$_SESSION[$var] = $_REQUEST[$var];
		} 	
	}
	return $_SESSION[$var];
}





//viene eseguito una sola volta cancellando il file indi/setup.log, di solito usato prima di andare online
function indi_setup() {
	//creo le directori se non ci sono
	global $CONF;
	//ste sta' facendo il setup si ferma
		
	
	if($_GET['dbg']) apc_store($CONF["sito"]."_controllo_setup", 0, 3600);
	if(apc_fetch($CONF["sito"]."_controllo_setup") == 1) indiManutenzione("indi_setup in corso");

	if(!is_dir($CONF['dir_indi'])) @mkdir($CONF['dir_indi']);
	
	$errore = "";
	if(!is_dir($CONF['dir_indi'])){
		$errore = "Manca cartella \"".$CONF['dir_indi']."\"";
	}
	else if(!is_writable($CONF['dir_indi'])){
		$errore = "La cartella [" . $CONF['dir_indi'] . "] non è scrivibile";

	}
	
	if($errore){
		trigger_error($errore);
		indiManutenzione($errore);
	}
	
	//FIX FORZATO CARTELLE IMMAGINI
	if($_GET['indi_fix_dir'] == 1) {
		indi_log_setup("indi_fix_dir");
		for ($i = 0; $i <= 9; $i++) {
			mkdir($CONF['dir_indi']."_pics/$i");
			for ($ii = 0; $ii <= 9; $ii++) {
				mkdir($CONF['dir_indi']."_pics/$i/$ii");
			}
		}
	}
	
	// $controllaTutteLeCartelle = time() < mktime(9 /*hours*/, 0 /*minutes*/, 0 /*seconds*/, 3 /*month*/, 13 /*day*/, 2021);
	$controllaTutteLeCartelle = $_GET['debugtnx'];
	$setupIniziale = !file_exists($CONF["dir_indi"].$CONF["file_log_setup"]);
	//?? dir di cache ???
	//se non c'e' la cartella di indi con il file setup inizializzo
	if($setupIniziale){
		
		indi_log_setup("Inizio SETUP $CONF[sito]");
		indi_log_setup("Cancello cartella indi");
		
		//08/01/2018 cecca - la cartella sessions non va eliminata (soprattutto se fosse un link, vedi haproxy)
		//system("rm -rf indi/*");
		// system("rm -rf ".$CONF['dir_indi']."!(sessions)");
		
		
			
		//metto lock
		apc_store($CONF["sito"]."_controllo_setup","1",3600);
	
		$d = dir($CONF['dir_indi']);
		while(false !== ($entry = $d->read())){
			if(!in_array($entry, array(".", "..", "sessions"))){
				system("rm -rf ".escapeshellarg("indi/".$entry));
			}
		}
		$d->close();
		clearstatcache();
	}
	
	if($controllaTutteLeCartelle || $setupIniziale){
		if(mkdirIfNotExists($CONF["dir_indi"])) indi_log_setup("mkdir indi");
		if(mkdirIfNotExists($CONF["dir_indi"].$CONF["dir_pic"])) indi_log_setup("mkdir ".$CONF["dir_indi"]."_pics");
		if(mkdirIfNotExists($CONF["dir_indi"].$CONF["dir_file"])) indi_log_setup("mkdir ".$CONF["dir_indi"]."_files");
		
		for ($i = 0; $i <= 9; $i++) {
			mkdirIfNotExists($CONF["dir_indi"]."_pics/$i");
			for ($ii = 0; $ii <= 9; $ii++) {
				mkdirIfNotExists($CONF["dir_indi"]."_pics/$i/$ii");
			}
		}
		indi_log_setup("fine controllo tutte le cartelle ".$CONF["dir_indi"]."_pics/");
	}
		
		//tolgo lock
	
		
		//admin tnx CARLO: mi sembre inutile, le cache si ricreano al login, le thumbs si ripuliscono automaticamente
		// if(is_dir($CONF["dir_admin_tnx"]) and $CONF["dir_admin_tnx"] != "") {
			// indi_log_setup("Cancello cartelle tmp admin_tnx");
			// system("rm -rf $CONF[dir_admin_tnx]/tmp/persistent/*");
			// system("rm -rf $CONF[dir_admin_tnx]/tmp/cache/*");
			// system("rm -rf $CONF[dir_admin_tnx]/webroot/thumbs/cache/*");
		// }
		
		
	if($setupIniziale) apc_store($CONF["sito"]."_controllo_setup", "0", 3600);
		



}


function mkdirIfNotExists($dir){
	if(!file_exists($dir)) return mkdir($dir);
}

//crea il database se non esiste (da fare)
function ind_setup_db() {
	//controllo il database per l' indicizzazione
	global $DB,$CONF;
	
	if(db_q("SELECT * FROM $CONF[db_tab_log]")) {
		d_info("OK DB: $DB[database]","ind_setup_db","DATABASE");
		return TRUE;
		
	} 	
	else {
		d_err("Errore controllo DB $DB[database]","ind_setup_db","DATABASE");
		if(db_q("CREATE TABLE `indi_log` (
				`id` int(11) NOT NULL auto_increment,
				`nome` varchar(255) default NULL,
				`log` text,
				PRIMARY KEY  (`id`)
				) ENGINE=MyISAM DEFAULT CHARSET=latin1 AUTO_INCREMENT=1")) {
			d_info("CREATO TAB: $CONF[db_tab_log]","ind_setup_db","DATABASE"); 
			return TRUE;
		} else {
			d_err("Errore creazione TAB o TAB gia esistente: $CONF[db_tab_log]","ind_setup_db","DATABASE");
			
			return FALSE;
			
		}
	}


}


function ind_rimuove_duplicati($txt) {
	/*
	$txt2	=	explode(" ",$txt);
	while(list($k, $v)=@each($txt2)) {
		$txt	=	 str_replace(" $v $v "," $v ",$txt);
	}

	$txt	=	preg_replace("/(\w+ \w+) \\1/", '$1',$txt); #reduce doubles to singles 

	$txt2	=	explode(" ",$txt);
	while(list($k, $v)=@each($txt2)) {
		$txt	=	 str_replace(" $v $v "," $v ",$txt);
	}
	*/
	return $txt;
}

//crea o torna l' indi




/*
//mi cerca una parola con preferenza e relativo peso di preferenza
function ind_cerca_parola2($lang,$parola,$peso) {
	global $INDI,$DATI;
	reset($INDI);
	while(list($k, $v)=each($INDI)) {

		if($v[lang] == "$lang" and $v[link]=="") {
			//print $peso;
				//controllo la parola
				if(@stristr($v[key],$parola)) {
					if($v[peso] == "$peso") {
						//assegno il link.
							return($k);
					}
					
				}		
				//se non trovo nel peso minore lo aumrnto
				if($v[peso] > $peso) {
						$peso++;
						// print "
- INCPESO -> '$peso'"; 
				}
			}
		}
		//se non trova niente torna 0
		return -1;
}
	*/		
//funzione di ricerca in una stringa separata da |
//tipo e' i per non sensibile alle maiuscole e s per sensibile
//es indi_cerca("ciao.jpg","jpg|gif|png|)
function indi_cerca($stringa,$testo,$tipo=i) {

	$ARR = explode("|",$stringa);
	if(sizeof($ARR) == 0) {
		if(trim(strtolower($stringa)) == trim(strtolower($testo))) return TRUE;
	}
	@reset($ARR);
	while(list($k, $v)=@each($ARR)) {
		if(trim(strtolower($v)) == trim(strtolower($testo))) return TRUE;
	}
	return FALSE;
}

//cerca un pattner multiplo separato da | indi_cerca_parte("stringa_in_cui_cercare","aaa|bbbb|cccc") 
function indi_cerca_parte($stringa,$cerca,$tipo=i) {

	$ARR = explode("|",$cerca);
	while(list($k, $v)=@each($ARR)) {
		if($tipo == "i") if(stristr($stringa,$v)) return TRUE;
		else if(strstr($stringa,$v)) return TRUE;
		
	}
	return NULL;
}


//cerca un nome di file in una cartella e lo ritorna appena lo trova
function indi_file_in_dir($dir=null,$cerca=".jpg|.png|.gif|.jpeg",$return_array=0) {
	if(is_dir($dir)) {
		
		$handle_principale = opendir($dir);
		while($file = readdir($handle_principale)) {
			
			if($file != "." && $file != ".." &&  indi_cerca_parte($file,$cerca)== TRUE) {
				if($return_array == 1) $ret[] = $dir.$file;
				else return $dir.$file;
				
			}
		}
		if($ret) return $ret;
		return NULL;
	}  
	return FALSE;
}



//DEPRECATA funzione per la costruzione di array da stringhe generica di indi
function indi_set($OGGETTO) {
	//controllo se e' un array
	if (is_array($OGGETTO)) {
		return $OGGETTO;
	} else {
		//tolgo i new line e i tab
		$OGGETTO	=	str_replace("\t","",$OGGETTO);
		$OGGETTO	=	str_replace("\n","",$OGGETTO);
		$OGGETTO	=	str_replace("\r","",$OGGETTO);
		
		$OGGETTO2	=	explode("|",$OGGETTO);
		if(sizeof($OGGETTO2) > 0) {
			while(list($k, $v)=@each($OGGETTO2)) {
				$OUT	=	explode("=>",$v);
				if(sizeof($OUT) > 1) {
					//Se torna qualcosa, allora torno l' array con chiave valore
					$chiave		=	trim($OUT[0]);
					$valore		=	$OUT[1];
					$OUT2[$chiave]	=	"$valore";
					
				} else {
					//siamo nel caso in cui non c'e' la chiave, la aggiungo
					$OUT2[] =	$v;
				}	
			}
			return $OUT2;
		} else {
			//E' una stringa controllo preseza parentesi
			//$OUT	=	ind_parentesi2($OGGETTO,"[","]");
			//if($OUT != FALSE) {
			$OUT	=	explode("=>",$v);
			if(sizeof($OUT) >= 1) {
				
				//Se torna qualcosa, allora torno l' array con chiave valore
				$chiave		=	trim($OUT[0]);
				$valore		=	$OUT[1];
				$OUT2[$chiave]	=	"$valore";
				return $OUT2;
				
			} else {
				//siamo nel caso in cui non c'e' la chiave, la aggiungo
				$OUT[0] =	$OGGETTO2[0];
				return $OUT;
			}	
		}
	}
}

//serve essere inserito all' interno di stringhe e cambiare velocemente visualizzazione
function indi_media($media) {
	global $DATI;
	return indi_cerca($media,$DATI[MEDIA]);
}
function indi_media_no($media) {
	global $DATI;
	if(indi_cerca($media,$DATI[MEDIA])) return FALSE;
	else return TRUE;
}



//##################################################################
//########################## FUNZIONI //############################
//##################################################################

//funzione per template di configurazione
function tconf($template) {
	GLOBAL $DATI,$TCONF;
	if (!$template) return 0;
	$DATI	=	array_merge($DATI, $TCONF[$template]);
}



//LOGGA INIT / SETUP e VARIE
function indi_log_setup($testo=NULL) {
	global $CONF;
	
	$FILE = $CONF["dir_indi"].$CONF["file_log_setup"];
	$LOG = date("Y/m/d g:i:s")." [".indi_time()."] ->".$testo."\n";		
	//$LOG .= print_r($_REQUEST, true);
	//@mailtnx("carlo@tnx.it", "logindi", $LOG);
	$fp = fopen($FILE, "a+");
	fwrite($fp, $LOG, strlen($LOG));
	fclose($fp);
	//clearstatcache();
	indi_log($testo); //loggo sempre globale
	
}



//LOGGA IN UN FILE
function indi_log($oggetto,$messaggio=NULL,$FILE=NULL) {
	//controlloo per opzione file
	indi_log_globale($oggetto,$messaggio,$FILE);

}


//LOGGA IN UN FILE
function indi_log_file($TITOLO,$OGGETTO=NULL,$FILE=NULL) {
	indi_log_globale($TITOLO,$OGGETTO,$FILE);
}

function indi_log_clear($FILE=NULL) {
	global $DATI;
	if(!$DATI) $DATI = $GLOBALS["CONF"];

	if($DATI[LOG] == "SI") {
		if($FILE == NULL) $FILE = $DATI["dir_indi"].$DATI["file_log"];
		
		if(!file_exists($FILE)) return;
		
		if(!@unlink($FILE)){
			d_err("indi_log_clear() ALERT: IMPOSSIBILE CANCELLARE IL FILE DI LOG $FILE");
		}
	}

}

//LOGGA IN UN FILE
function indi_log_globale($TITOLO,$TESTO=NULL,$FILE=NULL,$contesto=NULL) {
	global $CONF;
	
	
	if($CONF['LOG'] != "NO") {
		//i log li metto comunque nel debug come debug
		d($TITOLO,"indi_log","LOG"); //???? da fare con array
		
 	
		
		$FILE = $CONF['logPath'].$CONF['file_log'];
		
		if($TESTO) $TESTO = "--------------------------------------------------------------\n".$TESTO."\n--------------------------------------------------------------\n";
		$LOG = date("Y/m/d H:i:s")." [".indi_time()."] <" . $_SERVER["REMOTE_ADDR"] . "> -> ".$CONF["sito"]." [".$CONF["pagina"].":".$CONF["lang"]."] -> ".$TITOLO." -> 'http".($_SERVER['HTTPS']=='on'?'s':'')."://$_SERVER[SERVER_NAME]$_SERVER[REQUEST_URI]' $_SERVER[SERVER_PORT]\n".$TESTO;		
		$fp = @fopen($FILE, "a+"); //se non c'e' il file lo crea
		if($fp) {
			fwrite($fp, $LOG, strlen($LOG));
			fclose($fp);
			return true;
		}
		return false;

	}
	
}

//INDI TPL IN FILE
function indi_tpl_file($OUT) {
	global $CONF;
	//if($CONF[LOG] == "SI") {
	if($FILE == NULL) $FILE = $CONF["dir_indi"].$CONF["indi_tpl_file"];
	$LOG = $OUT."\n";	
	//$LOG .= print_r($_REQUEST, true);
	//@mailtnx("carlo@tnx.it", "logindi", $LOG);
	$fp = @fopen($FILE, "a+");
	fwrite($fp, $LOG, strlen($LOG));
	fclose($fp);
	//clearstatcache();
	//} else return FALSE;
}

function indi_tpl_clear() {
	global $CONF;
	if($FILE == NULL) $FILE = $CONF["dir_indi"].$CONF["indi_tpl_file"];
	
	if(!file_exists($FILE)) return;


}

/*
function indi_urlencode_new($string) {
	$entities = array('%21', '%2A', '%27', '%28', '%29', '%3B', '%3A', '%40', '%26', '%3D', '%2B', '%24', '%2C', '%2F', '%3F', '%25', '%23', '%5B', '%5D');
	$replacements = array('!', '*', "'", "(", ")", ";", ":", "@", "&", "=", "+", "$", ",", "/", "?", "%", "#", "[", "]");
	return str_replace($entities, $replacements, urlencode($string));
}
*/

//encode in base alla versione del rewrite (gli "/" sono encodati due volte se c'è la rewrite attiva)
function indi_urlencode($val) {
	if($_GET['debugtnx']&&is_array($val)){
		echo '
';
		$debugBacktrace = debug_backtrace(); array_unshift($debugBacktrace, array('file'=>__FILE__, 'line'=>__LINE__, 'function'=>'debugTnx')); foreach($debugBacktrace as $debugLine) echo "".str_replace("/tnx/www/html/www/", "", $debugLine['file']).""." ".$debugLine['function']."()
";
		$printMe = $val; ob_start(); if(is_object($printMe)||is_array($printMe)) print_r($printMe); else var_dump($printMe); $printMe = htmlentities(ob_get_clean(), ENT_COMPAT|ENT_HTML401, 'UTF-8'); echo $printMe === "" ? "Stringa vuota o non convertibile in UTF-8 (prova ISO o output diretto)" : $printMe;
		echo '
';
		die;
	}
	
	if($GLOBALS['DATI']['REW'] != 'NO') return str_replace('%2F','%252F',rawurlencode($val));
	else  return rawurlencode($val);
}
//decode in base alla versione del rewrite (gli "/" sono encodati due volte se c'è la rewrite attiva)
function indi_urldecode($val) {
	if($GLOBALS['DATI']['REW'] != 'NO') return str_replace('%2F','/',rawurldecode($val));
	else  return rawurldecode($val);
}

//fa addslashes solo se attive gpc
function indiAddslashesIfGpc($val) {
	if($GLOBALS['CONF']['get_magic_quotes_gpc']) return addslashes($val);
	else return $val;
}

function labelAdminTnx($identificativoSenzaPrefisso, $options = 'h'){//lista $options us indi_formatta, si concatenano così "h|upper"
	return "##".$GLOBALS['DATI']['prefissoLabelsTxt'].$identificativoSenzaPrefisso.($options?('|'.$options):'')."##".amministraButtonByConditions('labels', array('tipo'=>$GLOBALS['DATI']['tipoLabelsTxt'], 'identificativo'=>$identificativoSenzaPrefisso));
}
function testoAdminTnx($identificativoSenzaPrefisso){
	return "##".$GLOBALS['DATI']['prefissoTestiTxt'].$identificativoSenzaPrefisso."##".amministraButtonByConditions('testi', array('tipo'=>$GLOBALS['DATI']['tipoTestiTxt'], 'identificativo'=>$identificativoSenzaPrefisso));
}

function amministraButtonByIdentificativo($controller='', $identificativo,  $aClass='', $contenuto = ''){
	// return amministraButtonByConditions($controller, array('identificativo'=>$identificativo),  $aClass, $contenuto);

	if(isEditorSezioni()){
		if(!in_array($controller, ["labels", "testi"])){
			trigger_error("Richiesto amministraButton tramite identificativo su tabella non testi o labels");
		}
			
		$tabella = strtolower($controller);
		if(!$GLOBALS["idIdentificativi$tabella"]){
			$qAllIdIdentificativi = db_q("SELECT id, identificativo FROM " . $tabella . " WHERE IFNULL(identificativo, '') != ''");
			while($idIdentificativo = mysql_tnx_fetch_assoc($qAllIdIdentificativi)) $GLOBALS["idIdentificativi$tabella"][$idIdentificativo["identificativo"]] = $idIdentificativo["id"];
		}

		if($GLOBALS["idIdentificativi$tabella"] && $GLOBALS["idIdentificativi$tabella"][$identificativo]){
			return amministraButton($controller, $GLOBALS["idIdentificativi$tabella"][$identificativo],  $aClass, $contenuto);
		} else {
			
			$arrayConditions = [];
			$arrayConditions["identificativo"] = $identificativo;
			if($controller == "testi") $arrayConditions["tipo"] = $GLOBALS['DATI']['tipoTestiTxt'];
			else if($controller == "labels") $arrayConditions["tipo"] = $GLOBALS['DATI']['tipoLabelsTxt'];
			
			return amministraButtonByConditions($controller, $arrayConditions,  $aClass, $contenuto);
		}
	} else {
		return $contenuto;
	}
}

function amministraButtonByConditions($controller='', $conditions=array(),  $aClass='', $contenuto = ''){
	// global $DATI, $CONF;

	
	
	$identificativoAmministraButton = md5(json_encode(func_get_args()));

	
	if($GLOBALS["amministraButtonByConditions"] && $GLOBALS["amministraButtonByConditions"][$identificativoAmministraButton]){
		$amministraButton = $GLOBALS["amministraButtonByConditions"][$identificativoAmministraButton];
	} else {
		$sql = array_map('addslashes', $conditions);
		foreach($sql as $k=>$v) $sql[$k] = $k."='$v'";
		
		$id = db_qrs("select id from $controller where ".implode(" AND ", $sql));
		
		if(!$id){

			$langs = indiGetAllHostsLang();
			foreach($langs as $l=>$nome) $sql[$l] = $l."='".addslashes($conditions['identificativo'])."'";
			
			db_q("insert into $controller set ".implode(",", $sql));
			$id = db_last_insert_id();
			
			if($ws = db_get_warnings()){
			
				foreach($ws as $k=>$w) if($w[1] == 1364) unset($ws[$k]);//Field 'eng' doesn't have a default value
				
				if($ws){
					$k = 'tipo'.ucfirst($controller).'Txt';
					trigger_error("Ci sono degli warning durante l'inserimento in $controller, probabilmente manca il tipo \"".$GLOBALS['DATI'][$k]."\". Aggiungilo o personalizza \$CONF[$k].");
				}
			}

			
			if($id) $GLOBALS['TXT'][$GLOBALS['DATI']['prefisso'.ucfirst($controller).'Txt'].$conditions['identificativo']] = $conditions['identificativo'];
		}
		
		if ($id == 0) {
			$amministraButton = "****id=0 non funziona qualcosa****";
		} else {
			$amministraButton = amministraButton($controller, $id,  $aClass, $contenuto);
		}
		$GLOBALS["amministraButtonByConditions"][$identificativoAmministraButton] = $amministraButton;
	}
	
	return $amministraButton;
}


function amministraButtonAttributo($controller='', $id=''){	
	return amministraButton($controller,$id,null,null,"attributo");
}


function amministraButtonModel($modello, $associazione, $data, $aClass='', $contenuto = '', $tipo_return = 'elemento'){
	return amministraButton(
		strtolower(Inflector::pluralize($modello->$associazione->name)),
		$data[$associazione][$modello->primaryKey],
		$aClass,
		$contenuto,
		$tipo_return
	);
}

function amministraButton($controllerOLink='', $id='',  $aClass='', $contenuto = '', $tipo_return = 'elemento'){
	
	
	//$id può essere array($id, array($field1, $field2))
	$login = cakeLoginInfo();
	
	if($login && $login['Group']['level'] < 100){
		if(is_array($controllerOLink)) $link = $controllerOLink;
		else{
			if(!$controllerOLink){
				$controller = 'pagine';
			}
			else $controller = $controllerOLink;
			
			if(is_array($id)){
				$fields = $id[1];
				$id = $id[0];
			}
			else $fields = array();
		
		
			if($id === ""){
				if($controller == 'pagine' && is_numeric($GLOBALS['DATI']['pagina'])) $id = $GLOBALS['DATI']['pagina'];
				else $id = $_GET['id'];
				
				if(!$id) return;
			}
			
			$link = array('controller'=>$controller,'action'=>'win_edit',$id,"amministraButton");
			if($fields){
				$link['editFields'] = implode(",", $fields);
			}
		}
		$link = genera_link_admin_tnx($link);
		
		
		if(!$vecchiaVersione){
		
			datiAdd("body:function amministraButtonOpen(event, link){
				if(typeof(jQuery) != 'undefined' && jQuery.fancybox){
					event.preventDefault();
					event.stopPropagation();
					$.fancybox.open({
					
						href: link,
						beforeClose:function(){location.reload();},							  
						padding:0,
						margin:20,
						width:'95%',
						height:'95%',
						autoSize: false,
						live:true,
						type:'iframe',
						iframe:{
							preload:false
						},
						openEffect	: 'elastic', 
						closeEffect	: 'elastic', 
						nextEffect 	: 'fade', 
						prevEffect	: 'fade', 
						helpers : {
							overlay: {
								locked: false /*evita scollTop */
							}
						}
						
					});
				}
				else window.open(link);
				return false;
			}", "JS,PRE_CLOSE", true);
			
			
			
			if($id !== ""){
				$GLOBALS["AMMINISTRABUTTON"][$controller][$id] = true;
			}
			
			$onClick = ' onclick="typeof(amministraButtonOpen)!=\'undefined\'?amministraButtonOpen(event, \''.$link.'\'):window.open(\''.$link.'\')" ';
			
			if($tipo_return == 'elemento') {
				
				if(!$contenuto){
					$contenuto = tnxImage("Amministra $controller $id (visibile solo quando loggati in amministrazione)");
					$styleAgg = 'width:auto;height:auto;';
				}
				else $styleAgg = '';
				
				if(substr(trim($contenuto), 0, 1) != "<") $contenuto = ''.$contenuto.'';//metto un contenitore per applicare l'onclick
			
				return preg_replace("/(<[^\s>]*)/", '$1 style="'.$styleAgg.'cursor:pointer;" class="amministraButtonLink '.$aClass.'" '.$onClick, $contenuto, 1);
			
			} elseif($tipo_return == 'attributo') {
				
				return $onClick;
				
			}
			
			
			
		} else {
			
			
			
			$GLOBALS['DATI']["body:if(typeof(jQuery) != 'undefined' && jQuery.fancybox) jQuery('a.amministraButton').fancybox({
				beforeClose:function(){location.reload();},							  
				padding:0,
				margin:20,
				width:'95%',
				height:'95%',
				autoSize: false,
				live:true,
				type:'iframe',
				iframe:{
					preload:false
				},
				openEffect	: 'elastic', 
				closeEffect	: 'elastic', 
				nextEffect 	: 'fade', 
				prevEffect	: 'fade', 
				helpers : {
					overlay: {
						locked: false /*evita scollTop */
					}
				}
			});"] 					= 	"JS,PRE_CLOSE";
			
			return ''.$contenuto.''; 
		}
	}
	else return '';
}

function immagine_admin_tnx($path = "icons_v2/small/email.png", $assoluto = false){
	global $DATI;
	$return = $assoluto ? $DATI['baseurl'] : '';
	$return .= $DATI["CAKE_DIR"] . "/images/";
	return $return . $path;
}
function genera_link_admin_tnx($array, $assoluto = false){
	global $DATI;
	cakeBoot();
	// return Router::url($array, $assoluto);//non rispetta baseurl se viene cambiato (ordinalo)
	// return ($assoluto?$DATI['baseurl']:'').Router::url($array);//Router::url genera sempre rispetto alla root, baseurl invece no
	$return = $assoluto ? $DATI['baseurl'] : '';
	$return .= $DATI["CAKE_DIR"] . "/";
	if(is_array($array)){
		if($array['controller']) $array['controller'] = strtolower($array['controller']);
		$return .= $array['controller'] . "/";
		$return .= ($array['action'] ? $array['action'] : 'index') . "/";
		unset($array['controller']);
		unset($array['action']);
		foreach($array as $k => $v){
			if(is_numeric($k)) $return .= rawurlencode($v) . "/";
			else $return .= rawurlencode($k) . ":" . rawurlencode($v) . "/";
		}
	}
	else $return .= $array;
	return $return;
}

//genera l' url, si dovrebbe chiamare genera url ...
//funzione base di indi
//function genera_link($pagina=NULL, $lang=NULL, $agg=NULL, $ancora=NULL, $andtype="&") {

function genera_link($pagina=NULL, $lang=NULL, $agg=NULL, $ancora=NULL, $andtype="&"/*deprecato*/, $RAW=false/*con tabellaSitemap si usa solo per passare variabili che devo essere usate da indi prima del parse del get (link di servizio non pubblici)*/, $assoluto=0, $ssl=0 /*non utilizzato*/) {
	
	//ATTENZIONE: quando genera_link viene chiamato da main_link_globale (che popola $MENU) $DATI non c'è, non leggerlo mai
	global $DATI,$CONF,$LANG,$MENU;
 
	if($CONF['tabellaSitemap']){
		
		//durante il processo di aggiornamento non ho bisogno di link, i genera_link andrebbero a cercare il rew_alias, che non è avvalorato
		if(!$CONF['tabellaSitemapLetta']) return;
		
		$andtype = "&";//se devo encodare il link, va encodato tutto
	}
	
	//metto default
	if($pagina == NULL)	 	$pagina	=	$DATI["pagina"];
	if($lang == NULL) 		$lang	=	$DATI["lang"];
	if($ancora !== NULL)	$ancora	=	"#".$ancora;	

	
	if($CONF['indi_subversion'] < 5) {
		$baseurl = $CONF["baseurl"];
		$DATI_O_CONF = $CONF;
	} else {
		$DATI_O_CONF = $DATI["baseurl"] ? $DATI : $CONF;
		
		$baseurl = $DATI_O_CONF["baseurl"];
		$pagina_def = $DATI_O_CONF['pagina_def'];
		$lingua_def = $DATI_O_CONF['lingua_def'];
		$nome_programma = $DATI_O_CONF['nome_programma'];
		$disable_menu_link = $DATI_O_CONF['disable_menu_link'];

		
		
		if(!$lingua_def || $lingua_def == 'AUTO') $lingua_def = array_shift(array_keys($LANG));
		if(!$lang) $lang = $lingua_def;//succede in indi_pagina_personalizzata ad esempio
		
		
	}
	
	

	//sistemo variabili in ingresso in caso di errori

	$lang=trim($lang);
	$pagina=trim($pagina);


	//caso pagina root
	if($pagina == "root") $pagina = $pagina_def;
	
	//commento perchè il controllo viene fatto più sotto e ho aggiunto generaLinkFallbackLang
	//era $DATI_O_CONF['tabellaSitemap'], prova a evitare segnalazioni "genera_link a pagina inesistente"
	// if($DATI_O_CONF['tabellaSitemapPronta'] && !$GLOBALS['MENU'][$pagina]){
		// trigger_error("genera_link a pagina inesistente: ".$pagina);
	// }
	
	//controllo se c'e' opzione menu_ref
	$pagina_menu_link = $GLOBALS['MENU'][$pagina][$lang]['menu_link'];

	if(!$disable_menu_link && $pagina_menu_link != "" && is_array($GLOBALS['MENU'][$pagina_menu_link])) {
		//cambio pagina
		$pagina	=	$pagina_menu_link;
	}
	
	
	//carlo: il baseurl si adatta alla pagina corrente, quindi se passo da ssl a non-ssl o viceversa devo correggerlo	
	//cecca 13/03/17 - per siti completamente in ssl ignoro e genero come da richiesta (vedi baseurl in index1.1)
	//carlo 4/9/17: per alcune pagine prevedo che girino in doppia versione per poterle usare via ajax su siti ibridi sia in http / https (altrimenti errore cross origin)
	//carlo 12/2/18: aggiunto generalinkCorreggeSsl
	if ($DATI_O_CONF['correggiSslBaseurl'] && !$DATI_O_CONF["sito_ssl"] && !$GLOBALS['MENU'][$pagina][$lang]['sslDaContenitore'] && $GLOBALS['MENU'][$pagina][$lang]['forza_ssl'] != indi_isSsl()) {
		if($GLOBALS['MENU'][$pagina][$lang]['forza_ssl']) $baseurl = str_replace("http://", "https://", $baseurl);
		else $baseurl = str_replace("https://", "http://", $baseurl);
	}
 
	//CONTROLLO se e' stato preinpostato il link in maniera forzata e lo ritorno
	if(isset($GLOBALS['MENU'][$pagina][$lang]['menu_link_force'])) {
		if(!$agg) return $GLOBALS['MENU'][$pagina][$lang]['menu_link_force'];
		// else trigger_error("genera_link con parametri a sito esterno (menu_link_force)");
	}
	
	//creo la stringa $query
	if($agg != "") {
		//se e' un array
		if(is_array($agg)) {
			//costruisco la query ed encodo perche parse_str non decoda
			while(list($k, $v)=each($agg)) {
				
				if(is_array($v)) foreach($v as $vv) $query .= "&".indi_urlencode($k)."[]=".indi_urlencode((string)/*potrebbero esserci 3 livelli di array, ma non li usiamo*/$vv);
				else $query	.=	"&".indi_urlencode($k)."=".indi_urlencode($v);
				
				//creo anche la posizione numerica
			}
			$query	=	"p=".$pagina."&l=".$lang."&".$query;
		} else {

			//prima converto tutto in &
			$agg	=	str_replace("&","&",$agg);

	
			//se sbaglio e metto il punto "?" o "&" lo tolgo !
			if($agg[0] == "?") $agg = substr($agg,1,strlen($agg));
			if($agg[0] == "&") $agg = substr($agg,1,strlen($agg));

			//sistemo link
			$query	=	"p=".$pagina."&l=".$lang."&".$agg;


		}
	} else {
		$query	=	"p=".$pagina."&l=".$lang;
	}
	
	$AGG_ARRAY = array();
	
	$rewId = 0;
	
	if($agg != "") {
		//converto in array per evitare generazione di link infiniti e per consentire la modifica dei parametri via get in maniera agevole
		parse_str($query, $query_raw);
		

		//rifaccio il ciclo per togliere gli slash che aggiunge il parse
		if ($CONF['get_magic_quotes_gpc'] == 1) {

			while (list($key,$val) = each($query_raw)) {//patch c3k 31.1.11
				//patch ceccam 3.7.13, se arrivava in get parametro array tipo (cri[]=1&cri[]=2&cri[]=3) metteva sia i parametri separati sia un finale cri[]=Array perchè non c'era la else, la parte sotto la faaceva sempre
				if(is_array($val)) {
					foreach($val as $key2=>$val2){
						$AGG_ARRAY[stripslashes($key)."[".stripslashes($key2)."]"] = is_string($val2) ? stripslashes($val2) : (string)$val2;
					}
				} else {
					$val = str_replace("\\\'","'",$val); //??????? mistero x php5
					$AGG_ARRAY[stripslashes($key)] = stripslashes($val);
				}
			}

		} else {
			$AGG_ARRAY = $query_raw;
		}
		
		
		//print_r($AGG_ARRAY);
		$query = "";
		//ricostruisco l' indirizzo (carlo: viene usato solo in caso si voglia la versione semplice ($RAW, genera_email, INDI_HTML_LINKGRABBER)  
		while(list($k, $v)=each($AGG_ARRAY)) {
			if(is_array($v)){//patch c3k 31.1.11
				foreach($v as $k2=>$v2) {
					$query .= "&".$k."[".$k2."]"."=".indi_urlencode($v2);
				}
			} else {
				$query .= "&".$k."=".indi_urlencode($v);;
				
			}
		}

		if($CONF["tabellaSitemapPronta"]){
			unset($AGG_ARRAY['p']);//dopo aver ricostruito la query raw le tolgo per coerenza
			unset($AGG_ARRAY['l']);
			$rewIdAlias = $GLOBALS['MENU'][$pagina][$lang]['rewIdAlias'];
			if($AGG_ARRAY['rewId']){
				$rewId = $AGG_ARRAY['rewId'];
				unset($AGG_ARRAY['rewId']);
			}
			else if($rewIdAlias && $AGG_ARRAY[$rewIdAlias]){
				$rewId = $AGG_ARRAY[$rewIdAlias];
				unset($AGG_ARRAY[$rewIdAlias]);
			}
		}
		
		
		
		//tolgo and iniziale
		$query = substr($query,1,strlen($query));
	}

 
	//converto i parametri in & compatibili
	$query = str_replace("&","&",$query);
	

	//LINK NORMALE
	$link	= "$nome_programma?$query$ancora";
	
	//creata per usare l'& normale nei link delle mail (outlook non li converte, testato con mail di testo)
	if($andtype != "&"){
		$link = str_replace("&", $andtype, $link);
	}
	
	//se voglio il link raw senza rewrite e assoluto
	if($RAW) { 
		
		if($assoluto == 1) $link = $baseurl.str_replace($baseurl, "", $link); //1.1
		
		return $link;
		
	}	
	//se grabbo nel sito metto i link elaborati
	if($_SERVER['HTTP_USER_AGENT'] == "INDI_HTML_LINKGRABBER"){
		HTML_saveLink($link);
		$link = HTML_link($link);
		return $link;
	}elseif($_SERVER['HTTP_USER_AGENT'] == "INDI_GRAB_LINKGRABBER"){
		GRAB_saveLink($link);
		$link = GRAB_link($link);
		return $link;
		
		
	}else if($CONF["tabellaSitemapPronta"] || in_array($CONF["REW"], array("ver_5", "ver_3"))) {
		
		
		$noRewrite = array();//vedi $CONF['generaLinkNoRewriteGet']
		
		if($DATI_O_CONF['generaLinkPersistentGet']) foreach($DATI_O_CONF['generaLinkPersistentGet'] as $k) if(isset($_GET[$k]) && !isset($AGG_ARRAY[$k])) $AGG_ARRAY[$k] = $_GET[$k];
			
		if($CONF["tabellaSitemapPronta"]){
			$agg = "";//viene riscritta a partire dall'array fatta sopra
			
			
			
			if($AGG_ARRAY){
				foreach($AGG_ARRAY as $k=>$v) if($v !== ""){
					if(is_numeric($k) && $DATI_O_CONF['dove_sono'] == 'loc' /* avverto durante siluppo */) trigger_error("Paramentri url numerici non previsti: ".print_r($AGG_ARRAY, true));
					
					if(in_array($k, $DATI_O_CONF['generaLinkNoRewriteGet'])) $noRewrite[$k] = $v;
					else $agg .= $k.":".indi_urlencode($v)."/";
				}
			}
			
			
			$uri = null;
			$hosts = indiGetAllHosts($DATI_O_CONF['hostConfig']);
			
			$fallbacksArray = array($lang);
			if($DATI_O_CONF['generaLinkFallbackLang']) $fallbacksArray[] = $DATI_O_CONF['generaLinkFallbackLang'];
			foreach($fallbacksArray as $l){
				if($rewId && $MENU[$pagina][$l]['rewId'][$rewId]){
					$uri = $MENU[$pagina][$l]['rewId'][$rewId]."/";
					break;
				}
				else if($MENU[$pagina][$l]['rew_alias']){
					$uri = $MENU[$pagina][$l]['rew_alias']."/"; 
					break;
				}
				else if($uris = db_qa("select host, uri from sitemap where pagina = '".addslashes($pagina)."' AND lang = '".addslashes($l)."' AND rewId = '".addslashes($rewId)."' AND host IN ('".implode("','", $hosts)."') AND status IN (200) order by host != '".addslashes($_SERVER['SERVER_NAME'])."'")){

					if(!in_array($pagina, [$pagina_def, "sitemap"])){// la pagina_def è sempre su tutti i domini
						$quanti = count($uris);
						if($quanti > 1) trigger_error("Nella tabella sitemap multihost ho trovato $quanti configurazioni per pagina=$pagina e lang=$l");
					}
					$baseurl =	str_replace($_SERVER['SERVER_NAME'], $uris[0]['host'], $baseurl);
					$uri = ($uris[0]['uri']?$uris[0]['uri']."/":"");
					break;
				}
				
			}
			if(is_null($uri)){
				if(
					!tabellaSitemapAggiornaGetLastRunningPID()
					&& 
					($pagina != $pagina_def || $lang != $lingua_def)
					&&
					strpos($pagina.$lang.$rewId, "'") === false //non è un tentativo di injection
					&&
					strpos($pagina.$lang.$rewId, '"') === false //non è un tentativo di injection 2
				) trigger_error("Genera link a pagina/lingua inesistente ($pagina - $lang - $rewId)");
				$pagina = $pagina_def;
				$lang = $lingua_def;
			}
			
			
			if($noRewrite) $agg .= "?".http_build_query($noRewrite);
			$link = $baseurl.$uri.$agg.$ancora;
			
		}
		else{
  	
			if($agg != "" || $AGG_ARRAY) {
				
				reset($AGG_ARRAY);
				$agg = "";
				while(@list($k, $v)=@each($AGG_ARRAY)) {
					if($k !== "l" and $k !== "p") {					
						if($v !== "") {
							
							if(is_numeric($k) === true and $v !== "") {
								$agg	.=	indi_urlencode($v)."/";
							} else {
								if(in_array($k, $DATI_O_CONF['generaLinkNoRewriteGet'])) $noRewrite[$k] = $v;
								else $agg	.=	$k.":".indi_urlencode($v)."/";
							}
						}
					}
				}
				if($agg[0] == "/") $agg = substr($agg,1,strlen($agg));
				
			}
			
			if(isset($GLOBALS["REW_ALIAS_INV"][$lang][$pagina])){
				if($noRewrite) $agg .= "?".http_build_query($noRewrite);
				$link = str_replace("%252F", "/", indi_urlencode($GLOBALS["REW_ALIAS_INV"][$lang][$pagina]))."/".$agg.$ancora;
			} else {
				$link = ""; //se non trovo niente reimposto home
				$pagina = $pagina_def;
				$lang = $lingua_def;
			}
		}

		
		
		if(!$CONF["tabellaSitemapPronta"]) {
			if($CONF["REW"] == "ver_3") {
				
				//link homepage
				if($pagina == $pagina_def and $lang == $lingua_def and $agg == NULL) {
					$link = $baseurl.$ancora;
				} else {
					$link = $baseurl.$link;
				}
				
				
			} else if($CONF["REW"] == "ver_5") {
				//tolto and $lang == $lingua_def
				
				//link homepage, andrebbe  sempre con la lingua (senza parametri)
				//la lingua c'e' sempre per problemi di indicizzazione
				
				if($pagina == $pagina_def /* and $agg == NULL tolto carlo 6/6/2018 (non era tolto, ritolto 9/6/2020) perchè genera_link su home creava un link diverso (aggiungeva stringa rewrite) */) {
					$REW5_monolang = $CONF['REW5_monolang'] && count($LANG)==1;
					
					if($REW5_monolang || $lang == $lingua_def) $link = $baseurl.$agg.$ancora;
					else $link = $baseurl.$GLOBALS['LANG3TO2'][$lang]."/".$agg.$ancora;
					
					
					//$link = $baseurl.$ancora; //link senza lingua	

					//link homepage lingua non def (senza parametri)
					//} elseif($pagina == $pagina_def and $agg == NULL)  {
					//	$link = $baseurl.$GLOBALS[LANG3TO2][$lang]."/".$ancora;
				} else {
					$link = $baseurl.$link;
				}
			}
			
			if(function_exists("post_genera_link")) {
				$ARR_PGL['link'] = $link;
				$ARR_PGL['link_senza_ancora'] = $ancora ? substr($link, 0, -1*strlen($ancora)) : $link;$ARR_PGL['link'] = $link;
				$ARR_PGL['pagina'] = $pagina;
				$ARR_PGL['lang'] = $lang;
				$ARR_PGL['agg'] = $agg;
				$ARR_PGL['agg_array'] = $AGG_ARRAY;
				$ARR_PGL['ancora'] = $ancora;
				$link = post_genera_link($ARR_PGL);
			}
		}

		
		
		if($assoluto == 1) $link = $baseurl.str_replace($baseurl, "", $link); //1.1

		return $link;
		
		
	}elseif($CONF["REW"] == "ver_4") {
		
		if($agg != "") {
			
			reset($AGG_ARRAY);
			$agg = "";
			while(@list($k, $v)=@each($AGG_ARRAY)) {
				if($k !== "l" and $k !== "p") {					
					if($v !== "") {
						
						if(is_numeric($k) === true and $v !== "") {
							$agg	.=	indi_urlencode($v)."/";
						} else {
							$agg	.=	$k."/".indi_urlencode($v)."/";
						}
					}
				}
			}
			
			if($agg[0] == "/") $agg = substr($agg,1,strlen($agg));
			//rimuovo lo slash in fondo
			//if($agg{strlen($agg)-1} == "/") $agg = substr($agg,0,strlen($agg)-1);
			
		}	
		//cerco nella chiavi 
		
		if(isset($GLOBALS["REW_ALIAS_INV"][$lang][$pagina])) $link = indi_urlencode($GLOBALS["REW_ALIAS_INV"][$lang][$pagina])."/".$agg.$ancora;
		else $link = ""; //home page
		//se posso sovrascrivere sovrascrivo
		//link personalizzato
		if(function_exists("post_genera_link")) {
			$ARR_PGL['link'] = $link;			
			$ARR_PGL['link_senza_ancora'] = $ancora ? substr($link, 0, -1*strlen($ancora)) : $link;$ARR_PGL['link'] = $link;
			$ARR_PGL['pagina'] = $pagina;
			$ARR_PGL['lang'] = $lang;
			$ARR_PGL['agg'] = $agg;
			$ARR_PGL['agg_array'] = $AGG_ARRAY;
			$ARR_PGL['ancora'] = $ancora;
			$link = post_genera_link($ARR_PGL);
		}
		
		//link speciale per home page
		if($pagina == $pagina_def and $lang == $lingua_def and $agg == NULL) {
			$link = $baseurl.$ancora;
		} else {
			$link = $baseurl.$link;
		}
		//ANDREBBE AGGIUNTO if($assoluto == 1) $link = $baseurl.str_replace($baseurl, "", $link); //
		return $link;
		

	} else {
		//link personalizzato
		if(function_exists("post_genera_link")) {
			$ARR_PGL['link'] = $link;
			$ARR_PGL['link_senza_ancora'] = $ancora ? substr($link, 0, -1*strlen($ancora)) : $link;$ARR_PGL['link'] = $link;
			$ARR_PGL['pagina'] = $pagina;
			$ARR_PGL['lang'] = $lang;
			$ARR_PGL['agg'] = $agg;
			$ARR_PGL['agg_array'] = $AGG_ARRAY;
			$ARR_PGL['ancora'] = $ancora;
			$link = post_genera_link($ARR_PGL);
		}
		if($pagina == $pagina_def and $lang == $lingua_def and $agg == NULL) {
			$link =  ($nome_programma.$ancora);
		} 
		if($assoluto == 1) $link = $baseurl.str_replace($baseurl, "", $link); //1.1
		
		return $link;
	}
}
function genera_relative_link($pagina=NULL, $lang=NULL, $agg=NULL, $ancora=NULL, $andtype="&", $RAW=false){
	global $DATI,$CONF;
	return str_replace($CONF["baseurl"], "", genera_link($pagina, $lang, $agg, $ancora, $andtype, $RAW));
}
function genera_link_relativo($pagina=NULL, $lang=NULL, $agg=NULL, $ancora=NULL, $andtype="&", $RAW=false){
	global $DATI,$CONF;
	return str_replace($CONF["baseurl"], "", genera_link($pagina, $lang, $agg, $ancora, $andtype, $RAW));
}
function genera_link_relativo_email($pagina=NULL, $lang=NULL, $agg=NULL, $ancora=NULL){
	global $DATI,$CONF;
	return str_replace($CONF["baseurl"], "", genera_link($pagina, $lang, $agg, $ancora, "&", !$DATI['tabellaSitemap']/*no raw con tabellaSitemap*/));
}

function genera_ancora($ancora){
	return genera_link_agg(null,null,null,$ancora);
}

//carlo: link che mantiene i parametri dell'url corrente correttamente encodati
function genera_link_agg($pagina=NULL, $lang=NULL, $agg=NULL, $ancora=NULL, $andtype="&", $RAW=false, $assoluto=0, $ssl=0){
	global $DATI, $CONF;
	
	$agg_array = $DATI["agg_array"] ? $DATI["agg_array"] : $CONF["agg_array"];//se lo chiamo presto potrei non avere $DATI (redirect lingua browser)
	unset($agg_array['noOutputDatiCache']);
	
	if(is_array($agg)){
		$agg = array_merge($agg_array, $agg);
	}
	else $agg = http_build_query($agg_array)."&".$agg;
	
	
	
	return genera_link($pagina, $lang, $agg, $ancora, $andtype, $RAW, $assoluto, $ssl);
}

//link assoluto
function genera_link_assoluto($pagina=NULL, $lang=NULL, $agg=NULL, $ancora=NULL, $andtype="&"){
	return genera_link($pagina, $lang, $agg, $ancora, $andtype, false, 1);
}

//link senza rewrite assoluto x html
function genera_link_raw($pagina=NULL, $lang=NULL, $agg=NULL, $ancora=NULL){
	return genera_link($pagina, $lang, $agg, $ancora, "&", true, 1);
}

//email plaintext
function genera_link_email($pagina=NULL, $lang=NULL, $agg=NULL, $ancora=NULL){
	global $DATI,$CONF;
	return genera_link($pagina, $lang, $agg, $ancora, "&", !$DATI['tabellaSitemap']&&!$CONF['tabellaSitemap']/*no raw con tabellaSitemap*/, 1);
}

//email html
function genera_link_email_html($pagina=NULL, $lang=NULL, $agg=NULL, $ancora=NULL){
	return genera_link_raw($pagina, $lang, $agg, $ancora, "&", false, 1);//carlo: ultimi 3 parametri inutili
}

//link ssl: DEPRECATA, i link sono ssl in base alla configurazione della pagina (il parametro ssl nella funzione genera_link non viene utilizzato)
function genera_link_ssl($pagina=NULL, $lang=NULL, $agg=NULL, $ancora=NULL, $andtype="&"){
	return genera_link($pagina, $lang, $agg, $ancora, $andtype, false, 1, 1);
}

//link email con : DEPRECATA, i link sono ssl in base alla configurazione della pagina (il parametro ssl nella funzione genera_link non viene utilizzato)
function genera_link_email_ssl($pagina=NULL, $lang=NULL, $agg=NULL, $ancora=NULL){
	global $DATI,$CONF;
	return genera_link($pagina, $lang, $agg, $ancora, "&", !$DATI['tabellaSitemap']&&!$CONF['tabellaSitemap']/*no raw con tabellaSitemap*/, 1, 1);
}

//su demo.tnx.it
function genera_link_locale($pagina=NULL, $lang=NULL, $agg=NULL, $ancora=NULL, $andtype="&",$RAW=0){
	global $DATI,$CONF;
	$ret =  str_replace($CONF["baseurl"], $CONF["baseurl_locale"].$CONF['sito']."/", genera_link_assoluto($pagina, $lang, $agg, $ancora, $andtype,$RAW));
	return $ret; 
}

//???
function genera_link_php5($pagina=NULL, $lang=NULL, $agg=NULL, $ancora=NULL, $andtype="&",$RAW=0){
	return genera_link($pagina, $lang, $agg, $ancora, $andtype,$RAW);
}





//Genera l' indirizzo e-mail nascosto con il javascript e tracciato con il programma INRI
function genera_email($email=NULL,$testo_link=NULL,$STAT=NULL,$class=NULL) {
	global $DATI;
	
	
	if($email == NULL) $email		=	$DATI[email];
	
	if($DATI['indi_subversion'] > 5)  return ''.($testo_link?$testo_link:$email).'';
	
	//nuova funzione che evita problemi javascript
	if($DATI['indi_subversion'] > 4)  return genera_email_new($email,$testo_link,$STAT,$class);

	//controllo statistiche
	if($DATI[STAT]	==	"SI")	$stat	=	" OnClick='+ prog+'(\"'+dp+'\",\"mail\",\"width=10,height=10\");";

	//if(is_array($STAT)) 
	$stat_url	=	serialize($STAT);
	$path	=	"$DATI[nome_programma]?t=stat&stat=".urlencode($stat_url);
	
	

	if($email != "") {
		$EMAIL	=	explode("@",$email);
		if(isset($EMAIL[2])) $EMAIL[1]	=	$EMAIL[1]."@".$EMAIL[2];
		
		if($testo_link	== NULL) $testo = "emailX=emailE;";
		else $testo = 'emailX="'.encode($testo_link).'";';
		$email_java	= '
			
			';
		
		return $email_java;
		
	}
}

//altra versione Ceccam perchè la document.write andava in conflitto con la bgstretchet
function genera_email_new($email=NULL,$testo_link=NULL,$STAT=NULL,$class=NULL) {
	global $DATI;
	//controllo statistiche
	if($DATI[STAT]	==	"SI")	$stat	=	" OnClick='+ prog+'(\"'+dp+'\",\"mail\",\"width=10,height=10\");";

	//if(is_array($STAT)) 
	$stat_url	=	serialize($STAT);
	$path	=	"$DATI[nome_programma]?t=stat&stat=".urlencode($stat_url);
	if($email == NULL) $email		=	$DATI[email];
	
	if (indi_isGeneraPdf()) {
		return $email;
	}
	
	if($email != "") {
		
		
		$EMAIL	=	explode("@",$email);
		if(isset($EMAIL[2])) $EMAIL[1]	=	$EMAIL[1]."@".$EMAIL[2];
		
		if($testo_link	== NULL) $testo = "emailX=emailE;";
		else $testo = 'emailX="'.encode($testo_link).'";';
		
		
		
		if($DATI['deferAllScript']) return ''.($testo_link?$testo_link:$email).'';
		
		
		$idrand = rand();
		$email_java	= '
			
			
			
			';
		
		return $email_java;
		
	}
}



// GENERA //######################################################


//FUNZIONI BASE ###########################################

//genra il codice per il javascript
function genera_javascript() {
	global $DATI;
	if($DATI["javascript"] != "") {
		return("\n");
	}	
}

function genera_css() {
	global $DATI;
	if($DATI["css"] != "") {
		return("\n");
	}	
}

//aggiungo del codice javascript nella pagina
function javascript($codice) {
	global $DATI;
	if ($codice != "") {
		$DATI["javascript"] .= $codice."\n";
	}

}

function css($codice) {
	global $DATI;
	if ($codice != "") {
		$DATI["css"] .= $codice."\n";
	}

}

//ripristina i valori provenienti dal GET
function ind_valori_agg($agg) {
	//$origin="http://inri.tnx.dyndns.org/index.php/eng_test1_.html?a=100&b=1000";
	//$tab=parse_url($origin);
	//$query=$tab["query"];
	if(@stristr("&",$agg)) {
		$variables=explode("&",$query);
		for ($i=0;$i<=count($variables);$i++){
			$tab=explode("=",$variables[$i]);
			// $$tab[0]=$tab[1];
			$_GET[$tab[0]] = $tab[1];
		}

	} else {
		
		$query=$agg;
		$variables=explode("&",$query);
		for ($i=0;$i<=count($variables);$i++){
			$tab=explode("=",$variables[$i]);
			// $$tab[0]=$tab[1];
			$_GET[$tab[0]] = $tab[1];
		}

	}

}

function ind_valori_redirect($agg) {
	//$origin="http://inri.tnx.dyndns.org/index.php/eng_test1_.html?a=100&b=1000";
	//$tab=parse_url($origin);
	//$query=$tab["query"];
	$query=$agg;
	$variables=explode("&",$query);
	for ($i=0;$i<=count($variables);$i++){
		$tab=explode("=",$variables[$i]);
		// $$tab[0]=$tab[1];
		if($tab[0] !== "") $_GET[$tab[0]] = $tab[1];
	}
}

function indi_simile($a,$b) {
	$len		=	strlen($a); 
	$similar	=	similar_text($a,$b);
	$out	=	abs(round((((($len - $similar) / $len)*100))-100));
	return $out;
}


function isValidEmail($string){
	return preg_match('/^[a-z0-9!#$%&\'*+\/=?^_`{|}~-]+(?:\.[a-z0-9!#$%&\'*+\/=?^_`{|}~-]+)*@(?:[a-z0-9][-a-z0-9]*\.)*(?:[a-z0-9][-a-z0-9]{0,62})\.(?:(?:[a-z]{2}\.)?[a-z]{2,4}|museum|travel)$/i', $string);
}




//FUNZIONE DI RISOSTITUZIONE 1=1
function indi_cambia_par($str){
	$GLOBALS['indi_cambia_par']	=	TRUE;
	$trans = array("|" => "<|>", "," => "<,>", "(" => "<(>", ")" => "<)>");
	$return = strtr($str, $trans);
	// 	return $return ? $return : null;
	return $return;
	
}
function indi_cambia_par_r($str){
	
	$trans = array("<|>" => "|","<,>" => ",", "<(>" => "(","<)>"  => ")");
	return strtr($str, $trans);

}

//FUNZIONCIONA AIUTO AIUTO
function indi_tpl($testo,$ARR,$pulisci=0,$tipo="G") {
	global $DATI,$TXT;
	//non usare
	/*
	if($DATI['OUTPUT_TPL_CAKE'] == "SI" && $tipo === "#") {//fatto per sitoturismo, mai usato
		//d_log("OUTPUT_TPL_CAKE");
		$L = cakeNew('Label');
		return $L->findAndTranslate($testo, $_GLOBALS['DATI']['lang'], $pulisci, false);
	}
	*/https://demo.tnx.it/ordinalo_utente1/Ordina-onlin%C3%A8/?debugtnx=1
	
		// if($_GET['debugtnx']) return $testo;
		
	//gestione caratteri strani
	$GLOBALS['indi_cambia_par']	=	FALSE;
	
	//d("$pulisci $tipo","TPL");
	//$tit = $tit+1;
	//d($tit);
	if($tipo === "G") {
		$sx="{";
		$dx="}";
		$c="{}";
		
		if($DATI['indi_tpl_ignoraDoppieGraffe']){
			$sx1="(?)/si'; //metto il ; per i javascript {return;} come questi
	
	/* cecca: test regex per escludere '{blabla}' se prima c'è function(), non attivo perchè non mi sento sicuro... */
	//if($_SERVER['REMOTE_ADDR'] == '192.168.0.115'){
	//	if($pulisci != 1) $pattern = '/(?)/si';
	//}
	
	
	preg_match_all($pattern, $testo, $matches);
	if($_GET['debugtnx'] && count($matches[1]) > 1000){
		
		// print_r_tnx($matches[1], $_SERVER['REMOTE_ADDR'] == '192.168.0.177') || die;
		
	}
	
	if(is_array($matches[1])) {
		
		while(list($k, $v)=each($matches[1])) {
			
			//cecca 01/04/2020, se la chiave è vuota non faccio la sostituzione, per evitare di togliere i {}
			$tmpKey = str_replace("{", "", $v);
			$tmpKey = str_replace("}", "", $v);
			$tmpKey = trim($tmpKey);
			
			//effettua la sostituzione senza lasciare traccia 
			//controllo se c'e' un template di formattazione
			//->$v e la chiave tra graffe
			//->$ARR[$v] e' il valore 
			//d($v,"v");
			//d($ARR[$v],"ARR");
			//{TXT:ciao a tutti}
			
			//ricontrollo se ha altri template all' interno
			if ($tmpKey == "") {
				//cecca 01/04/2020, se la chiave è vuota non faccio la sostituzione, per evitare di togliere i {}
				$REP[$k] = $sx.$v.$dx;
			} else {
				if(strstr($v,"|")) { 
					$orig_tpl = pos(explode("|",$v));
					
					//$REP[$k]	=	indi_formatta($v,$ARR[$orig_tpl]);
					if($pulisci != 1)  {
						//nel caso non trovo la sostituzione e non ci sia un inizio di funzione
						if(!isset($ARR[$orig_tpl])) {
							//##ciao|tag(h1)##
							// print str_replace("##","??",$v);
							//and stristr($v,"TXT:") === FALSE
							/*if(strpos($orig_tpl,"##") !== FALSE) {
								$txt = indi_out_txt($orig_tpl,$TXT,$DATI["lang"]);		
								$REP[$k] = indi_formatta($v,$txt);
							} else $REP[$k] = $sx.indi_formatta($v,$ARR[$orig_tpl],$orig_tpl).$dx;*/
							$REP[$k] = $sx.$v.$dx;
							//$REP[$k] = indi_formatta($v,$ARR[$orig_tpl],$orig_tpl);
							//$REP[$k] = indi_cambia_par($REP[$k]);
						} else {
							//formatto
							$REP[$k] = indi_formatta($v,$ARR[$orig_tpl],$orig_tpl);
							$REP[$k] = indi_cambia_par($REP[$k]);
						}
					} else {
						$REP[$k] = indi_formatta($v,$ARR[$orig_tpl]);
						$REP[$k] = indi_cambia_par($REP[$k]);
					}	
				} else {
					//se non c'e' non formatto niente
					if($pulisci != 1)  {
						if(!isset($ARR[$v])) {
							$REP[$k] = $sx.$v.$dx;
							//and stristr($v,"TXT:") === FALSE
							//$REP[$k] = indi_tpl("{".$v."}",reset($DATI));
							//d($REP[$k]);
						}
						else {
							//$REP[$k] = indi_tpl("{".$v."}",reset($DATI));
							$REP[$k] = $ARR[$v];
							$REP[$k] = indi_cambia_par($REP[$k]);
						}
					} else {
						$REP[$k] = $ARR[$v];
						$REP[$k] = indi_cambia_par($REP[$k]);
					}	
				}
			}
			
			//d($REP[$k]);
			//$xx = $REP[$k];
			//$REP[$k] = indi_tpl($REP[$k],reset($DATI));
			
			if($GLOBALS["CONF"]["DEBUG"] == "SI" && !$REP[$k] && $pulisci && $v){
				d_info("manca la traduzione di ".$v." ($k)".indi_var_dump($REP[$k]), "sostituzione testi", "INDI");
			}
			// 			trova_var($v, get_defined_vars());die;
		}
		//sostituisco solo cosa ho trovato
		//d($matches[0],"KIAVI");
		//d($REP,"REPLACE");
		
		$out = str_replace($matches[0], $REP, $testo);
		
		if($GLOBALS['indi_cambia_par']) $out = indi_cambia_par_r($out);
		
		//if(isset($apc_key)) apc_store($apc_key, $out, $DATI['indi_apc_menu_time']); 
		return $out;
		
	} else {
		//if(isset($apc_key)) apc_store($apc_key, $testo, $DATI['indi_apc_menu_time']); 
		return $testo;
	}
}




/* ------------------------------ CAKE --------------------------- */


function cakeClearCache(){
	cakeBoot();
	Cache::clear();
}


function cakeBoot($init_this=null, $no_auth = false){
	global $DATI;
	
	if($DATI["cakeBootCache"] && !$init_this && $GLOBALS["cakeBootCacheList"]['mainBootDone']) return;
		
	
	//if($GLOBALS["CONF"]["DEBUG"] == "SI") d_info("$init_this (inizio)","cakeBoot","CAKE");

	if (!defined('AUTO_SESSION')) define('AUTO_SESSION', false);

	if(!$DATI) $DATI = $GLOBALS["CONF"];
	
	$vecchia_cwd = getcwd();
	
	//includo struttura cake
	$dir = $DATI["CAKE_DIR"];
	if(!$dir) $dir = $GLOBALS["CONF"]["CAKE_DIR"]; 
	if(!$dir) $dir = "cake";
	
	
	//a includere il core ci mette sempre poco, è il boot dei modelli che richiede del tempo...
	chdir($vecchia_cwd."/".$dir."/webroot");
 
	require_once($vecchia_cwd."/$dir/webroot/index.php");//se lo uso relativo include un altro index
	
	//necessario per generare link corretti dal front end
	Router::setRequestInfo(array(array(), array('base' => defined("CAKE_BOOT_CUSTOM_BASE") ? CAKE_BOOT_CUSTOM_BASE : ($GLOBALS["CONF"]["base"].$GLOBALS["CONF"]["CAKE_DIR"]))));
	
	

	chdir($vecchia_cwd);	
	require_once(VENDORS."/Application3k.php");//ci sono alcune funzioni
	
	
	$GLOBALS["cakeBootCacheList"]['mainBootDone'] = true;
	
	
	
	//  d_info("Fine","benchmark inclusione CAKE","INDI"); /* damiano */
	
	if($init_this){
		
		$isController = substr($init_this, -10) == 'Controller';
		
		$cacheKey = strtolower($init_this) . "_" . ($no_auth ? "no_auth" : "");

		if($DATI["cakeBootCache"] && $GLOBALS["cakeBootCacheList"][$cacheKey]) $return = $GLOBALS["cakeBootCacheList"][$cacheKey];
		else{

			d_info("init ".$cacheKey,"cakeBoot","CAKE");
			if($isController){
				App::import('Controller', substr($init_this, 0, -10)); 
				// cakeBoot	
				$return = new $init_this();
				if($no_auth) $return->othAuthRestrictions = "";
				$return->cakeSession = false;
				$return->constructClasses();

				$return->Component->initialize($return);
				$return->beforeFilter();
				$return->Component->startup($return);
			}
			else{
				// if($GLOBALS["CONF"]["DEBUG"] == "SI") d_info("init_this (step 1b) $init_this","cakeBoot","CAKE");
				
				$return = ClassRegistry::init($init_this);//timebench viene fatto qui dentro perchè ci sono boot a cascata
				

				// if($GLOBALS["CONF"]["DEBUG"] == "SI") d_info("init_this (step 2b)","cakeBoot","CAKE");
				
				// 			if(method_exists($return, "init3k") && !$return->init3k_done) $return->init3k();
				// timebench("$init_this init3kAll", 0);
				if(method_exists($return, "init3kAll")) $return->init3kAll();
				
				// timebench("$init_this init3kAll", 1);
				// if($GLOBALS["CONF"]["DEBUG"] == "SI") d_info("init_this (step 3b)","cakeBoot","CAKE");
			}

			$GLOBALS["cakeBootCacheList"][$cacheKey] = $return;
			d_info("init $cacheKey finito","cakeBoot","CAKE");
		}
		$GLOBALS["cakeBootCacheList"]['firstInitDone'] = true;
	}
	
	return $return;
}
function cakeNew($class){
	return cakeBoot($class);
}

function cakeLoginInfo($refreshSessionData = false){//se nei vecchi c'è bisogno di condividere la sessione tra frontend e backend bisogna impostare PHPSESSID al parametro 'Session.cookie' in config/core.php (messo da oggi in base e per i siti segnalati da bucho)
	if(empty($_SESSION['othAuth'])) return false;
	cakeBoot();
	
	App::import('Component', 'othAuth');
	$O = new othAuthComponent();
	
	$k = $O->hashkey;//trovo la chiave random usata da othauth
	
	if(!is_array($_SESSION['othAuth'][$k])) return false;//potrebbe esserci dentro anche frompage (stringa)
	else{
		if($refreshSessionData) $O->_saveSession($O->_createModel()->find(array('User.id' => $_SESSION['othAuth'][$k]['User']['id'])), true);
		
		return $_SESSION['othAuth'][$k];
	}
}

//CAKE
function cakePage($url_to_render = null){//prende la parte dopo l'alias e la passa come parametri alla pagina del cake (non la posso usare perchè il componente della paginazione del cake genera i link sempre con il prefisso della pagina cake)

	if(!$GLOBALS["DATI"]["CAKE"]) return;

	if(empty($url_to_render)){
		$paramas = indi_urldecode(strstr($GLOBALS[REW_QUERY_PATH], "/"));//prendo la parte dell'indirizzo dopo l'alias della pagina indi (i parametri per la funzione cake)

		//quoto perche se sono quotate in automativo 
		if ($GLOBALS['CONF']['get_magic_quotes_gpc']) $paramas = addslashes($paramas);
		$paramas = str_replace($GLOBALS["DATI"]["cake_url"], "", $paramas); //controllo (ed eventualmente tolgo) che non ci sia già la directory cake nei parametri (come nel caso della paginazione)
		
		if(empty($paramas) || $paramas == "/"){
			$url_to_render = $GLOBALS["DATI"]["cake_url"];
		}
		else{
			if(substr($paramas, 0, 1) == "/"){
				//se comincia con / la tolgo
				$paramas = substr($paramas, 1);
			}
			$url_to_render = $GLOBALS["DATI"]["cake_url"] . $paramas;
		}
	}

	d_info('Renderizzo la pagina cake: '.$url_to_render, "", "CAKE");

	//    //ATTENZIONE CHE STO COSO SOPRASCIVE LE VARIABILE (ad es. $url)
	//    include_once(CORE_PATH . 'cake' . DS . 'bootstrap.php');

	cakeBoot();
	
	//if($_GET['dbg'] != 1) ob_start();//se voglio vedere gli errori del cake non posso bufferare l'output
	//update: NON SI VEDE NEANCHE COSI'...
	ob_start();
	$Dispatcher = new Dispatcher();
	$Dispatcher->dispatch($url_to_render);
	//if($_GET['dbg'] != 1) return ob_get_clean();

	return ob_get_clean();
}

function indi_vendor($path){//funzione cakephp style per l'inclusione di librerie esterne
	if (file_exists($GLOBALS["DATI"]["dir_lib"] . $path . '.php')) {
		require_once($GLOBALS["DATI"]["dir_lib"] . $path . '.php');
	} elseif (file_exists($GLOBALS["DATI"]["dir_lib"] . $path)) {
		require_once($GLOBALS["DATI"]["dir_lib"] . $path);
	} else {
		return false;
	}
}

function dircopy($srcdir, $dstdir, $verbose = false) {
	global $_indi_gc_err;
	
	$num = 0;
	if(!is_dir($dstdir)) mkdir($dstdir);
	if($curdir = opendir($srcdir)) {
		while($file = readdir($curdir)) {
			if($file != '.' && $file != '..') {
				$srcfile = $srcdir . '/' . $file;
				$dstfile = $dstdir . '/' . $file;
				if(is_file($srcfile)) {
					//copio solo se la cartella non è presente
					if(is_file($dstfile)) {
						//$ow = filemtime($srcfile) - filemtime($dstfile); else $ow = 1;
						$ow = 0;
					} else {
						$ow = 1;
					}
					if($ow > 0) {
						if($verbose) echo "Copying '$srcfile' to '$dstfile'...";
						if(copy($srcfile, $dstfile)) {
							touch($dstfile, filemtime($srcfile)); $num++;
							if($verbose) echo "OK\n";
							d_info("COPIATO file: $srcfile","dircopy","INDI");
						} else {
							$_indi_gc_err[]  = d_err("Errore copia file: $srcfile","FILE","INDI");
							echo "Error: File '$srcfile' could not be copied!\n";
						}
					}
				} else if(is_dir($srcfile)) {
					$num += dircopy($srcfile, $dstfile, $verbose);
				}
			}
		}
		closedir($curdir);
	}
	return $num;
}



/* ------------------------------ INDICIZZAZIONE --------------------------- */

//funzione che mixa le parole, in input una serie di array di parole da mescolare nell' ordine dato
function ind_array_mix_gen ($ARR) {
	if (!$ARR[0]) return 0;
	$ARRX[0]	=	"";
	//d($ARRX);
	while(list($k, $v)=each($ARR)) {
		$ARRX	=	ind_array_mix($v,$ARRX);
		//d($ARRX);
	}
	return($ARRX);
}
//funzione che mescola due array
function ind_array_mix($ARR1,$ARR2) {
	while(list($k, $v)=@each($ARR1)) {
		@reset($ARR2);
		while(list($kk, $vv)=@each($ARR2)) {
			if(!$vv) $ARR[]	=	$v;
			else $ARR[]	=	$vv."|".$v;
		}
	}
	return $ARR;
}



//compone una parola ritornando a caso le varianti
function ind_componi_parola($parola) {
	
	//salvo testo fra parentesi
	$parentesi	=	ind_parentesi($parola, "(", ")");
	if($parentesi == "") {
		$ARR[key] = trim($parola);
		return $ARR;
	}	
	$PARENTESI	=	explode("|",$parentesi);
	//$PARENTESI[]	=	"";
	//$SN			=	rand(0,count($PARENTESI)-1);
	//$opz		=	$PARENTESI[$SN];
	$CHIAVE		=	explode(")",$parola);
	$parola		=	trim($CHIAVE[1]);
	//genero tutte le varianti
	$ARR[key]	=	$parola;
	$c	=	sizeof($PARENTESI)-1;
	while(list($k, $v)=each($PARENTESI)) {
		$v	=	trim($v);
		if($k != $c)	$alt	.=	$v." ".$parola."|";
		else $alt	.=	$v." ".$parola;
	}
	if(sizeof($PARENTESI) > 2) $alt	=	$alt."|".$parola;
	$ARR[alt]	=	$alt;
	//if($tipo == "pulita") return trim($CHIAVE[1]);
	//else return $opz." ".trim($CHIAVE[1]);
	return $ARR;

}


function ind_key_val($stringa,$sep,$k_p){
	$K		=	explode($sep,$stringa);
	while(list($k, $v)=each($K)) {
		//$k	=	$k_p.$k;
		$v	=	trim($v);
		$OUT[$k]	=	$v;
		//print "$k	--> $v \n";
	}
	return	$OUT;

}



//genera una parola chiave in formato esteso, dalla lista delle parole
function ind_mix_key($K) {
	//completo
	while(list($k, $v)=each($K)) {
		$Y	=	ind_key_val($v,",",$k);
		$SN	=	rand(0,count($Y)-1);
		//print $SN;
		//print $Y[2];
		if($k == 1 or $k == 2 or rand(0,1))	$OUT .= ind_componi_parola($Y[$SN])." ";
		
	}
	return $OUT;
}

//ritorna una parte random di aaaa|bbbbb|ccccc, torna bbbbb
function ind_decidi($stringa){
	$OPZ	=	explode("|",$stringa);
	$SN		=	rand(0,count($OPZ)-1);
	$out	=	$OPZ[$SN];
	return $out;
}

//genera un testo casuale per il meta description
function ind_testo_casuale($testo) {
	global $IND;
	$pattern = '/\[([^\]\[]*?)\]/si';
	//$pattern = '/\(([^\)\(]*?)\)/si';
	if (preg_match_all ($pattern, $testo, $matches)) {
		// nl2br(print_r ($matches));
	} else {
		//print ("Not matched!\r\n");
	}
	while(list($k, $v)=each($matches[1])) {
		//print ind_decidi($v)."
";
		$REP[$k]	=	ind_decidi($v);
	}
	$out	=	str_replace($matches[0], $REP, $testo);
	

	
	
	return $out;
}



//INDI2 (non usato)
//ritorna un array con il testo fra parentesi e quello fuori dalle parentesi
function ind_parentesi2($str, $start, $end)
{
	$str_low = @trim(strtolower($str));
	$pos_start = @strpos($str_low, $start);
	$pos_end = @strpos($str_low, $end, ($pos_start + strlen($start)));
	if ( ($pos_start !== false) && ($pos_end !== false) )
	{
		$pos1 = $pos_start + strlen($start);
		$pos2 = $pos_end - $pos1;
		$OUT[chiave] = trim(@substr($str, $pos1, $pos2));
		$OUT[valore] = trim(@substr($str,  $pos_end+1, strlen($str)));
		return $OUT;
	}
	else return FALSE;
}


//ritorna il testo fra parentesi o altro in una stringa
function ind_parentesi($str, $start, $end)
{
	$str_low = @trim(strtolower($str));
	$pos_start = @strpos($str_low, $start);
	$pos_end = @strpos($str_low, $end, ($pos_start + strlen($start)));
	if ( ($pos_start !== false) && ($pos_end !== false) )
	{
		$pos1 = $pos_start + strlen($start);
		$pos2 = $pos_end - $pos1;
		return @substr($str, $pos1, $pos2);
	}
}


/*
//funzione che data una lista separata da un separatore torna un array con il valore e indice progressivo
function ind_scomponi_gen ($stringa,$separatore) {
	if (!$stringa) 		return FALSE;
	if (!$separatore) 	return FALSE;
	$ARR	=	explode($separatore,$stringa);
	return $ARR;

}


function ind_scomponi_parola($key) {
	//suddivido le parti
	$KEY		=	explode(" ",$key);
		while(list($k, $v)=each($KEY)) {
			if ($v) $ARR[]		=	trim($v);
	}	
	return $ARR;

}

//Creo un array degli inri trovati
function ind_key_base($lang) {
	global $MENU;
	reset($MENU);
	while(list($pag, $APAG)=each($MENU)) {
		while(list($lan, $dati)=each($APAG)) {
			if($lan == $lang) {
				$KEY[$pag]	= $MENU[$pag][$lan][inri];
			}
		}
	}
return $KEY;

}

// indice principale keyword ->	peso
function ind_key_base_val($lang) {
	global $MENU,$IND;
	reset($MENU);
	while(list($pag, $APAG)=each($MENU)) {
		while(list($lan, $dati)=each($APAG)) {
			if($lan == $lang) {
				$KEY[$pag]	= $MENU[$pag][$lan][inri];
			}
		}
	}

	if (!$KEY) return 0;
	while(list($k, $v)=each($KEY)) {
		$KEYA		=	explode("|",$v);
		if (!$KEYA[1]) {
			$key		=	trim($KEYA[0]); //seconda parola
			$val		=	trim($IND[peso_def]);
		} else { 
			$key		=	trim($KEYA[1]);
			$val		=	trim($KEYA[0]);
		}
		$KEY_DEF[$key]		=	$val;	
	}
	asort($KEY_DEF);
	reset($KEY_DEF);
	return $KEY_DEF;
}



function indi_add_t($tkd) {
	global $TKD;
	$TKD[T][] = $tkd;
}
function indi_add_k($tkd) {
	global $TKD;
	$TKD[K][] = $tkd;
}
function indi_add_d($tkd) {
	global $TKD;
	$TKD[D][] = $tkd;
}

function indi_tkd_title($cosa) {
	global $TKD,$DATI,$KEYG,$lang;

	//prendo il template
	$out	=	$DATI[$cosa];
	if(is_array($KEYG)) {
		
		//$out	=	ind2_testo_casuale($out);
		//$out	=	ind2_sos_key($out,$KEYG[$lang]);
		//$out	=	ind2_testo_casuale($out);
		//$out	=	ind2_sos_key($out,$KEYG[$lang]);
	}	
	
	//tolgo roba spuria ??? da fare
	$out = str_replace($DATI[$cosa."_sep"].$DATI[$cosa."_sep"],"",$out);
	$out = str_replace($DATI[$cosa."_sep"].$DATI[$cosa."_sep"],"",$out);
	$out = str_replace(trim($DATI[$cosa."_sep"]).trim($DATI[$cosa."_sep"]),"",$out);


	return encode($out);
}

*/
function indi_stat() {
	global $DATI;
	$STAT = $_SESSION["STAT"];
	if(is_array($STAT)) {
		return array(
		
		"src" => "\nhttp://$_SERVER[SERVER_NAME]$_SERVER[REQUEST_URI]",
		"data" => strftime("%D %T"),
		"script" => $_SERVER['SCRIPT_FILENAME'],
		"ip" => $_SERVER['192.168.0.105'],
		"host" => $STAT['host'],
		"referrer" => $_SERVER['HTTP_REFERER'],
		"user_agent" => $_SERVER['HTTP_USER_AGENT'],
		"indi_pagina" => $DATI['pagina'],
		"indi_lingua" => $DATI['lang'],
		"indi_tempo" => $STAT['tempo'],
		"indi_pagine" => $STAT['count_pagina'], //collegato a modulo privacy
		"indi_referrer" => $STAT['ref']
		);
		
	} else {
		return false;
	}
	
	
}

function stat_dati_aggiuntivi() {
	global $DATI,$LANG,$lang,$pagina;
	
	$STAT = $_SESSION["STAT"];
	
	if($DATI['STAT_email'] == "SI") {
		$messaggio_agg		 .=	"\n---------------------------------------------------------------";
		$messaggio_agg		.=	 "\n\nDATI AGGIUNTIVI FORM\n";
		$messaggio_agg		.=      "Pagina\t\t -> ".$DATI[pagina]."\n";
		$messaggio_agg		.=      "Lingua\t\t -> ".$DATI[lang]."\n";
		$messaggio_agg		.=      "Param\t\t -> ".$DATI[agg]."\n";
		if($STAT['id_utente']) $messaggio_agg		.=      "ID Utente\t\t -> ".$STAT['id_utente']."\n";
		$messaggio_agg		.=      "ID Sessione\t\t -> ".$STAT[id_sessione]."\n";
		$messaggio_agg		.=      "Lingua\t\t -> ".$STAT[lingua]."\n";
		$messaggio_agg		.=   	  "Provenienza\t\t -> ".$STAT[ref]."\n";
		$messaggio_agg		.=      "Data\t\t -> ".strftime("%D")."\n";
		$messaggio_agg		.=      "Ora\t\t -> ".strftime("%T")."\n";
		$messaggio_agg		.=      "Pagine\t\t -> ".$STAT[count_pagina]."\n";
		$messaggio_agg		.=      "Tempo\t\t -> ".$STAT['tempo']." sec.\n";
		$messaggio_agg 		.=      "IP\t\t -> $_SERVER[REMOTE_ADDR]\n";
		$messaggio_agg 		.=      "Host\t\t -> $STAT[host]\n";
		$messaggio_agg 		.=      "Browser\t\t -> $_SERVER[HTTP_USER_AGENT]\n";
		
		if($DATI['STAT_email_pagine'] == "SI") $messaggio_agg 		.=      indi_debug_array("Log pagine",$STAT[log]);
		
	}
	return $messaggio_agg;

}

// TRACKING // #####################################################

//deprecata 
function stat_bot_detect($USER_AGENT) {
	//??c'e' anche la funzione is_spider, eventualmente da unire
	if($USER_AGENT == "") return FALSE; 
	$crawlers = array(
	array('Google', 'Google'),
	array('msnbot', 'MSN'),
	array('Rambler', 'Rambler'),
	array('Yahoo', 'Yahoo'),
	array('AbachoBOT', 'AbachoBOT'),
	array('accoona', 'Accoona'),
	array('AcoiRobot', 'AcoiRobot'),
	array('ASPSeek', 'ASPSeek'),
	array('CrocCrawler', 'CrocCrawler'),
	array('Dumbot', 'Dumbot'),
	array('FAST-WebCrawler', 'FAST-WebCrawler'),
	array('GeonaBot', 'GeonaBot'),
	array('Gigabot', 'Gigabot'),
	array('Lycos', 'Lycos spider'),
	array('MSRBOT', 'MSRBOT'),
	array('Scooter', 'Altavista robot'),
	array('AltaVista', 'Altavista robot'),
	array('IDBot', 'ID-Search Bot'),
	array('eStyle', 'eStyle Bot'),
	array('Scrubby', 'Scrubby robot')
	);
	
	foreach ($crawlers as $c) {
		if (stristr($USER_AGENT, $c[0])) {
			return($c[1]);
		}
	}

	return FALSE;
}



function stat_email($ARR) {
	global $DATI,$LANG,$lang,$pagina;
	
	trigger_error("in uso?");
	
	$STAT = $_SESSION["STAT"];
	
	$from		= 	'From: "'.$DATI[dominio_sito].'" <'.$DATI[email].'>'."\r\n";
	$oggetto	=	"Statistica -> ".$ARR[tipo]." [".$DATI[dominio_sito]."/".$ARR[rif]."]";
	$to		=	$ARR[to];
	
	$msg		=	"Questa e' un e-mail di statistica generata automaticamente dal programma che gestisce il sito ".$DATI[dominio_sito]."\n\n";
	$msg		.=	"---------------------------------------------------------------------\n";
	$msg		.=	$ARR[msg]."\n";
	$msg		.=	"---------------------------------------------------------------------\n\n";
	$msg  	.=      "\nInformazioni Pagina:\n";
	$msg		.=	"-----------------------------------------\n";
	$msg		.=      "Riferimento\t -> ".$ARR[rif]."\n";
	$msg		.=      "Pagina\t -> ".$ARR[pagina]."\n";
	$msg		.=      "Lingua\t -> ".$ARR[lang]."\n";
	$msg		.=      "URL\t -> ".$_SERVER[REQUEST_URI]."\n";
	//$msg		.=      "URL Ref.\t -> ".$_SERVER["HTTP_REFERER"]."\n";
	
	$msg  	.=      "\nInformazioni Utente:\n";
	$msg		.=	"-----------------------------------------\n";
	
	$msg		.=      "ID Utente\t -> ".$STAT['id_utente']."\n";
	$msg		.=      "ID Sessione\t -> ".$STAT[id_sessione]."\n";
	$msg		.=      "Lingua\t -> ".$STAT[lingua]."\n";
	$msg		.=      "Provenienza\t -> ".$STAT[ref]."\n";
	
	$msg		.=      "Data\t -> ".strftime("%D")."\n";
	$msg		.=      "Ora\t -> ".strftime("%T")."\n";
	
	$msg 		.=      "IP\t -> $_SERVER[REMOTE_ADDR]\n";
	$msg 		.=      "Host\t -> $STAT[host]\n";
	$msg 		.=      "Browser\t -> $_SERVER[HTTP_USER_AGENT]\n";
	
	//mando e-mail
	mailtnx($to, $oggetto,$msg,$from);
	//mail di statistica
	mailtnx($DATI[email_indi], "INDI:stat_email():".$oggetto,$msg,$from);
	//print $msg;
	//log
	indi_log_file("stat_email() to:$to oggetto:$oggetto url:$_SERVER[REQUEST_URI]");

}


function stat_trigger($nome, $VAL=NULL, $dove=NULL) {
	//controllo se ho gia' il trigger
	if(@array_key_exists($nome,$_SESSION["TRIGGER"])) return FALSE;
	else {
		//setto il trigger
		$TRIGGER	=	$_SESSION["TRIGGER"];
		$TRIGGER[$nome] = $VAL;
		//risalvo
		$_SESSION["TRIGGER"] = $TRIGGER;
		return TRUE;
	}

}

function creo_statistiche() {
	global $CONF;
################# LINGUA #################################
	function lixlpixel_get_env_var($Var)
	{
		if(empty($GLOBALS[$Var]))
		{
			$GLOBALS[$Var] = ((!empty($GLOBALS['_SERVER'][$Var])) ? $GLOBALS['_SERVER'][$Var] : ((!empty($GLOBALS['HTTP_SERVER_VARS'][$Var])) ? $GLOBALS['HTTP_SERVER_VARS'][$Var] : ''));
		}
	}
	function lixlpixel_detect_lang()
	{
		// Detect HTTP_ACCEPT_LANGUAGE & HTTP_USER_AGENT.
		lixlpixel_get_env_var('HTTP_ACCEPT_LANGUAGE');
		lixlpixel_get_env_var('HTTP_USER_AGENT');
		$_AL=strtolower($GLOBALS['HTTP_ACCEPT_LANGUAGE']);
		$_UA=strtolower($GLOBALS['HTTP_USER_AGENT']);
		// Try to detect Primary language if several languages are accepted.
		foreach($GLOBALS['_LANG'] as $K)
		{
			if(strpos($_AL, $K)===0)
			return $K;
		}
		// Try to detect any language if not yet detected.
		foreach($GLOBALS['_LANG'] as $K)
		{
			if(strpos($_AL, $K)!==false)
			return $K;
		}
		foreach($GLOBALS['_LANG'] as $K)
		{
			if(preg_match("/[\[\( ]{$K}[;,_\-\)]/",$_UA))
			return $K;
		}
		// Return default language if language is not yet detected.
		return $GLOBALS['_DLANG'];
	}
	// Define default language.
	$GLOBALS['_DLANG']='en';
	// Define all available languages.
	// WARNING: uncomment all available languages
	$GLOBALS['_LANG'] = array(
	'af', // afrikaans.
	'ar', // arabic.
	'bg', // bulgarian.
	'ca', // catalan.
	'cs', // czech.
	'da', // danish.
	'de', // german.
	'el', // greek.
	'en', // english.
	'es', // spanish.
	'et', // estonian.
	'fi', // finnish.
	'fr', // french.
	'gl', // galician.
	'he', // hebrew.
	'hi', // hindi.
	'hr', // croatian.
	'hu', // hungarian.
	'id', // indonesian.
	'it', // italian.
	'ja', // japanese.
	'ko', // korean.
	'ka', // georgian.
	'lt', // lithuanian.
	'lv', // latvian.
	'ms', // malay.
	'nl', // dutch.
	'no', // norwegian.
	'pl', // polish.
	'pt', // portuguese.
	'ro', // romanian.
	'ru', // russian.
	'sk', // slovak.
	'sl', // slovenian.
	'sq', // albanian.
	'sr', // serbian.
	'sv', // swedish.
	'th', // thai.
	'tr', // turkish.
	'uk', // ukrainian.
	'zh' // chinese.
	);
	
	
	d_info("10","creo_statistiche","DEBUG_TEMPI");
	
	if(!isset($_SESSION["STAT"]['id_sessione'])) {
		
		d_info("20","creo_statistiche","DEBUG_TEMPI");
		
		$_SESSION["STAT"]['id_utente']			=	$_SESSION["STAT"]["id_utente"];
		$_SESSION["STAT"]['id_sessione']			=	session_id();
		
		d_info("30","creo_statistiche","DEBUG_TEMPI");
		
		$_SESSION["STAT"]['sito']				=	$CONF['dominio_sito'];
		$_SESSION["STAT"]['ref']				=	$_SERVER['HTTP_REFERER'];
		$_SESSION["STAT"]['ip']					=	$_SERVER["REMOTE_ADDR"];
		
		$_SESSION["STAT"]['ua']					=	$_SERVER["HTTP_USER_AGENT"];
		$_SESSION["STAT"]['lingua']				=	lixlpixel_detect_lang();
		$_SESSION["STAT"]['pagina_ingresso']		=	$_SERVER["REQUEST_URI"];
		$_SESSION["STAT"]['data']				=	time();
		$_SESSION["STAT"]['count_pagina']			=	1;
		if($CONF['STAT_log'] == "SI") $_SESSION["STAT"]['log'][]				=	$_SERVER['REQUEST_URI'];
		
		d_info("40","creo_statistiche","DEBUG_TEMPI");
		
		//Salvo sessione
		
		//session_write_close();
		
	} else {
		
		d_info("50","creo_statistiche","DEBUG_TEMPI");
		
		$_SESSION["STAT"]					=	$_SESSION['STAT'];
		$tempo_old			=	$_SESSION["STAT"]['tempo'];
		$_SESSION["STAT"]['tempo']		=	round(time()-$_SESSION["STAT"]['data']+((time()-$_SESSION["STAT"]['data'])/$_SESSION["STAT"]['count_pagina']));	
		$scarto			=	$_SESSION["STAT"]['tempo'] - $tempo_old;

		$_SESSION["STAT"]['pagina_uscita']		=	$_SERVER['REQUEST_URI'];
		$_SESSION["STAT"]['count_pagina']++;
		if($CONF['STAT_log'] == "SI"){
			$_SESSION["STAT"]['log'][$_SESSION["STAT"]['tempo'].'('.$scarto.')']				=	$_SERVER['REQUEST_URI'];
			
			//se un motore di ricerca visita migliaia di pagine il file di sessione diventa 30 e più mega e php genera errore
			//Fatal error:  Allowed memory size of 268435456 bytes exhausted (tried to allocate 5029206 bytes) in Unknown on line 0
			$_SESSION["STAT"]['log'] = array_slice($_SESSION["STAT"]['log'], -100);//tronco agli ultimi 100
		}
		
		d_info("60","creo_statistiche","DEBUG_TEMPI");
		
		//Calcolo tempo, sommando anche il successivo tempo medio
		//riscrivo la sessione
		
		//session_write_close();
		
	}
	if($CONF['STAT_log'] == 'NO') unset($_SESSION["STAT"]['log']);
	
	d_info("100","creo_statistiche","DEBUG_TEMPI");

}

//cecca, test per uso spammatorio DEPRECATA!!!
//$F[$key][tipo] = "textarea"

$campi_spam = 0;
$campi_spam_values;
$flag_spam = false;
function mail_check($a, $oggetto, $messaggio, $header_addizionali = null, $parametri_addizionali = null) {
	global $DATI, $F, $campi_spam, $campi_spam_values, $flag_spam;







	//9/11/2023
	$plainText = ["http".(!empty($_SERVER['HTTPS']) && $_SERVER['HTTPS'] != 'off' ? 's' : '')."://".$_SERVER['SERVER_NAME'].$_SERVER['REQUEST_URI']];
	$debugBacktrace = debug_backtrace(); array_unshift($debugBacktrace, array('file'=>__FILE__, 'line'=>__LINE__, 'function'=>'debugTnx')); foreach($debugBacktrace as $debugLine) $plainText[] = $debugLine['file'].":".$debugLine['line']." ".$debugLine['function']."()";
	mailtnx("c@localhost", "Non in uso", __FILE__.":".__LINE__."\n".implode("\n", $plainText)."\n".print_r(array($_REQUEST, $_SERVER), true));








	if ($flag_spam) return;
	
	$campi_spam = 0;

	$request = ($_SERVER['REQUEST_METHOD'] == "POST") ? $_POST : $_GET;
	$spam = false;
	foreach($request as $key => $each) {
		mail_check_r($each, $key);
	}
	if ($campi_spam > 0) {
		$flag_spam = true;
		//non invio la mail ma mando a me stesso una mail
		$stylediv = "padding: 3px; border:1px solid #F00; color:#F00; font-weight:bold; font-family: Tahoma,Sans Serif; font-size: 11px";
		print "
";
		print "
";
		print "L'email non e' stata inviata perche' e' stata identitificata come SPAM.";
		print "

";
		print "
";
		print "This email is identified as SPAM and it will not send.";
		print "


";
		$dump_campi_spam = var_export($campi_spam_values, true);
		$dump_request = var_export($request, true);
		$spam = true;
		$debug = "oggetto:" . $oggetto . "\n\n";
		$debug .= "messaggio:" . $messaggio . "\n\n";
		$debug .= "campi spam:" . $dump_campi_spam . "\n\n";
		$debug .= "request:" . $dump_request;
		$file = "/tmp/mailspam_" . time() . "_" . rand(1000, 9999);
		$f = fopen($file, 'w');
		fwrite($f, $debug);
		fclose($f);
		
		$messaggio_spam	=	indi_debug_array("Campi spam", $campi_spam_values);
		$messaggio_spam	.=	indi_debug_array("POST", $_POST);
		
		if($DATI['loc'] == "rem") mail_check_redirect($DATI['email_debug'], "INDI:SPAM:mail_spam.inc.php:mail_check() [$DATI[dominio_sito]]", $messaggio_spam);
		return false;
	} else {	
		//invio email normale
		return mail_check_redirect($a, $oggetto, $messaggio, $header_addizionali, $parametri_addizionali);
	}
}


function indi_email_wrapper($to, $subject, $message, $additional_headers, $additional_parameters, $fromEmailToCheckDeprecata = null){
	global $CONF, $DATI;
	//log di tutte le mail
	
	if($fromEmailToCheckDeprecata) trigger_error("Paramentro deprecato, il controllo viene fatto in indi_email e mod_form e mtp_email, unici punti dove viene chiamata questa funzione");


	
	//MANDO MAIL DEBUG
	
	indiEmailCounter();
	
	if($DATI["email_debug"]){
		$newmessage = '';
		$newline = "\n";
		$multipart = false;
		
		$additional_headers = explode("\n", $additional_headers);

		
		$header_da_riusare = array();
		$header_imprevisti = array();
		foreach($additional_headers as $header){
			$h = trim($header);
			if(stripos($h, "bcc:") === 0) $bcc = $h;
			else if(stripos($h, "cc:") === 0) $cc = $h;
			else if(stripos($h, "from") === 0) $header_da_riusare[] = $header;
			else if(stripos($h, "MIME-Version") === 0) $header_da_riusare[] = $header;
			else if(stripos($h, "Content-Transfer-Encoding") === 0) $header_da_riusare[] = $header;
			else if(stripos($h, "boundary") === 0) {
				$header_da_riusare[] = $header;
				$boundary = trim($header);
			}
			else if(stripos($h, "Content-Type") === 0){
				$header_da_riusare[] = $header;
				if(stripos($h, "html") !== false) $newline = "
";
				if(stripos($h, "multipart") !== false) $multipart = true;
			}
			else if($h) $header_imprevisti[] = $h;
		}

		$newmessage = "****************************************".$newline;
		$newmessage .= "*** MESSAGGIO RIDIREZIONATO PER DEMO ***".$newline;
		$newmessage .= "****************************************	".$newline;	
		$newmessage .= "DESTINATARIO REALE: $to".$newline;
		if($cc) $newmessage .= $cc.$newline;
		if($bcc) $newmessage .= $bcc.$newline;
		if($header_imprevisti) $newmessage .= "HEADERS PARTICOLARI: ".implode($newline, $header_imprevisti).$newline;
		if($additional_parameters) $newmessage .= "PARAMETRI sendmail: $additional_parameters".$newline;
		$newmessage .= "****************************************".$newline;
		$newmessage .= $newline.$newline;

		if(!$multipart){
			$newmessage .= $message;
		} else {
			$subject .= " [mail multipart ridirezionata per demo]";
			//$newmessage = add_debug_to_multipart($message, $newmessage, $boundary);//non sembra funzionare con le email html
			$newmessage = preg_replace("/(]*>)/ims", '$1'.str_replace($newline, "
", htmlentities($newmessage)), $message);//non funzionerebbe con una mail testuale, pace
		}
		
		indi_log("indi_email_wrapper(to: $DATI[email_debug])");


		
		mailtnx($DATI["email_debug"], $subject, $newmessage, implode("\r\n", $header_da_riusare), $additional_parameters);
	}else{
		
		//mail normale
		
		indi_log("indi_email_wrapper(to: $to)");

		
		mailtnx($to, $subject, $message, $additional_headers, $additional_parameters);
	}
}

function add_debug_to_multipart($msg, $dbg, $boundary) {

	$boundary = substr($boundary, strlen("boundary=\""));
	$boundary = substr($boundary, 0, strlen($boundary)-1);
	
	$pos1 = strpos($msg, $boundary);
	$pos2 = strpos($msg, "\n", $pos1+1);
	$pos2 = strpos($msg, "\n", $pos2+1);
	
	$prima = substr($msg, 0, $pos2);
	$dopo = substr($msg, $pos2);
	
	return $prima . "\r\n\r\n" . $dbg . $dopo;
}

function indi_xss_trigger_error($val){
	indi_remove_xss($val, true);
}

//funzone di base per rimuovere gli attacchi XSS da variabili (usata in gpc4html) e nei GET / POST
function indi_remove_xss($val, $alertOnly = false){
	global $CONF;
	
	$valOrig = $val;
	
	// remove all non-printable characters. CR(0a) and LF(0b) and TAB(9) are allowed
	// this prevents some character re-spacing such as 
	// note that you have to handle splits with \n, \r, and \t later since they *are* allowed in some inputs
	$val = preg_replace('/([\x00-\x08][\x0b-\x0c][\x0e-\x20])/', '', $val);

	// straight replacements, the user should never need these since they're normal characters
	// this prevents like 
	$search = 'abcdefghijklmnopqrstuvwxyz';
	$search .= 'ABCDEFGHIJKLMNOPQRSTUVWXYZ';
	$search .= '1234567890!@#$%^&*()';
	$search .= '~`";:?+/={}[]-_|\'\\';
	for ($i = 0; $i < strlen($search); $i++) {
		// ;? matches the ;, which is optional
		// 0{0,7} matches any padded zeros, which are optional and go up to 8 chars

		// @ @ search for the hex values
		$val = preg_replace('/(&#[x|X]0{0,8}'.dechex(ord($search[$i])).';?)/i', $search[$i], $val); // with a ;
		// @ @ 0{0,7} matches '0' zero to seven times
		$val = preg_replace('/(�{0,8}'.ord($search[$i]).';?)/', $search[$i], $val); // with a ;
	}

	// now the only remaining whitespace attacks are \t, \n, and \r
	//$ra1 = Array('javascript', 'vbscript', 'expression', 'applet', 'blink', 'script', 'embed', 'object', 'iframe', 'frameset', 'ilayer', 'layer', 'bgsound');
	$ra1 = Array(' 0) {
					$pattern .= '(';
					$pattern .= '(&#[x|X]0{0,8}([9][a][b]);?)?';
					$pattern .= '|(�{0,8}([9][10][13]);?)?';
					$pattern .= ')?';
				}
				$pattern .= $ra[$i][$j];
			}
			$pattern .= '/i';
			$replacement = substr($ra[$i], 0, 2).''.substr($ra[$i], 2); // add in <> to nerf the tag
			$val = preg_replace($pattern, $replacement, $val); // filter out the hex tags
			if ($val_before == $val) {
				// no replacements were made, so exit the loop
				$found = false;
			}
		}
	}
	
	if($valOrig != $val && $valOrig != 'onmouseenter=\"'){//onmouseenter=\" arriva molte volte ed è innocuo
		if($alertOnly){
			if(
				stripos($valOrig, "vauleonline.co") === false 
				&& stripos($valOrig, "concutelli") === false
				&& stripos($valOrig, "Termoidaulica Non stop di Paroli Enrico") === false
				&& stripos($valOrig, "Via Mondragone") === false
			) trigger_error("Controlla XSS (non rimosso) da POST/GET ".substr($valOrig, 0, 100));
		}
		else if($CONF['dove_sono'] == 'loc') trigger_error("Rimossi XSS da ".substr(0, 100, $valOrig)." => ".substr($val, 0, 100));
	}
	
	return $val;
}


function mail_check_r($value, $key) {
	global $F, $campi_spam, $campi_spam_values;

	if (is_array($value)) {
		foreach($value as $keyr => $eachr) {
			mail_check_r($eachr, $keyr);
		}
	} else {
		//faccio controllo, se è di tipo text area puo' avere i ritorni a capo \n \r'
		if ($F[$key][tipo] == "textarea") {
			if (
					(stripos($value,"bcc:")!==false) ||
					(stripos($value,"Content-Transfer-Encoding")!==false) ||
					(stripos($value,"MIME-Version")!==false) ||
					(stripos($value,"Content-Type")!==false) ||
					(stripos($value,"href=") !== false) ||
					(stripos($value,"href") !== false && (stripos ($value,"sex") !== false || stripos ($value,"viagra") !== false) ) ||
					(stripos($value,"href=http") !== false) ||
					(stripos($value,"href= http") !== false) ||
					(stripos($value,"url=http") !== false) ||
					(stripos($value,"url= http") !== false) ||
					((stripos($value, "http") !== false) && (stripos($value, "href") !== false))
					) {
				$campi_spam++;
				$campi_spam_values[] = "[key=".$key." / value=".$value."]";
			}
		} else if (
				(stripos($value,"bcc:")!==false) ||
				(stripos($value,"Content-Transfer-Encoding")!==false) ||
				(stripos($value,"MIME-Version")!==false) ||
				(stripos($value,"Content-Type")!==false) ||
				(stripos($value,"href= http") !== false) ||
				(stripos($value,"url= http") !== false) ||
				(stripos($value,"href=") !== false) ||
				((stripos($value, "http") !== false) && (stripos($value, "href") !== false))
				){
			$campi_spam++;
			$campi_spam_values[] = "[key=".$key." / value=".$value."]";			
		}
	}
}

function indi_box_implode($array, $before, $after){
	return $before.implode($after.$before, $array).$after;
}

function indi_dir_to_array($dir, $return_full_dir = false){
	$d = dir($dir);
	while($value = $d->read()){
		if($value != "." && $value != "..") $return[] = ($return_full_dir?($dir."/"):"").$value;
	}
	return $return;
}


/* ------------------------- FUNZIONI SMS ---------------------- */

function tnxSmsAlert($testo, $numeroOgniminuti = ['3347537306'=>15, "3286833622"=>60]){
	global $DATI;
	
	$DATI['sms_fornitore'] = 'Aimon';
	
	$stack = debug_backtrace();
	$return = true;
	foreach($numeroOgniminuti as $numero=>$ogniMinuti){
		$key = 'smsAlert'.$numero."-".md5($stack[0]['file'].$stack[0]['line']);
		if(indiCacheGet($key)) continue;
		
		
		if(indi_sms([
			"demo" => false,//ordinalo online check partiva da demo.tnx.it
			"numero_destinatario" => $numero,
			"testo" => $testo
		])) indiCacheSet($key, 1, 60*$ogniMinuti /*0=forever*/);
		else $return = false;
	}
	
	return $return;
}

// invio sms tramite aimon (o mobyt)
function indi_sms($conf = []) {
	global $DATI;
	$classe = $DATI['sms_fornitore'].'Indi';
	require_once($DATI['libPath'].strtolower($DATI['sms_fornitore']).'/'.$classe.'.php');

	$array_def["charset"] = $DATI['mcharset'];
	$array_def["demo"] = $DATI['dove_sono'] == 'loc';
	$array_def["numero_destinatario"] = "3346243294";
	$array_def["mittente"] = "+393346243294";//i mittenti devo essere registrati nel backend mobyt
	$array_def["testo"] = "Questo è un sms di prova";
	
	$conf = array_merge($array_def, $conf);
	
	
	$SMS = new $classe();
	$SMS->charset = $conf["charset"];

	$SMS->cc_email = 'tnxstaff@gmail.com';
	$SMS->from_email = $DATI['sms_from_email'] ? $DATI['sms_from_email'] : ($DATI['email'] ? $DATI['email'] : 'info@tnx.it');
	
	$SMS->demo = $conf["demo"];//manda le email al posto degli sms

	$SMS->user = $DATI['sms_username'];
	$SMS->pass = $DATI['sms_password'];
 
	$SMS->from = $conf["mittente"];

	$result = $SMS->invia_sms($conf["numero_destinatario"], $conf["testo"]);
	
	return $result;

}

/* ------------------------- FUNZIONI BROWSER ---------------------- */
//controlla la lingua del browser e la ritorna se e' fra quelle di $LANG, senno' null
function indi_lingua_browser(){
	global $LANG, $LANG3TO2;
	
	$langs = array();

	// if($_SERVER['REMOTE_ADDR'] == '192.168.0.177' || $_GET['debugtnx']){
		// $_SERVER['HTTP_ACCEPT_LANGUAGE'] = 'it-IT,it,en-US,en';
		// $_SERVER['HTTP_ACCEPT_LANGUAGE'] = "it-IT,it;q=0.9,en-US;q=0.8,en;q=0.7,nl;q=0.9";
	// }

	if($_SERVER['HTTP_ACCEPT_LANGUAGE']){
		// estraggo con pesi
		preg_match_all('/([a-z]{1,8}(-[a-z]{1,8})?)\s*(;\s*q\s*=\s*(1|0\.[0-9]+))?/i', $_SERVER['HTTP_ACCEPT_LANGUAGE'], $lang_parse);
		
		if($lang_parse[1]){
		
			// riordino array
			$langs = array_combine($lang_parse[1], $lang_parse[4]);
			
			
			// imposto q factor mancanti e do un peso anche all'ordine in cui si presentano altimenti a parità (o assenza) di valore q=, la funzione asort "mescola" (samsung browser con 'it-IT,it,en-US,en' avrebbe en come prima scelta)
			$k = 0;
			foreach ($langs as $lang => $val) {
				$k++;
				if ($val === '') $langs[$lang] = 1;
				$langs[$lang] -= $k * 0.001;
			}
 		
			// ordino	
			arsort($langs, SORT_NUMERIC);
			
		
			
		}
	
		foreach ($langs as $k => $v) {
			
			foreach ($LANG as $k1 => $v1) {
				//assegno la lingua con punteggio migliore, la prima che trovo, senno' proseguo
				
				if (strpos($k, $LANG3TO2[$k1]) === 0) {
					return $k1;
					
				} 
			}
		}
	}
	
	
	
}



/* ------------------------- FUNZIONI MODULO MOBILE ---------------------- */

//ritorna vero se chi sta visitando è un dispositivo mobile (ha un display piccolo, l'ipad non è mobile in questo caso)
function is_mobile(){
	$return = indi_get_cache("is_mobile");
	if($return === NULL) {
		preg_match_all('/netfront|windows\sce|symbian|iemobile|webos|midp|\smmp|android|blackberry|ipod|iphone/i', $_SERVER["HTTP_USER_AGENT"], $result);
		$return = $result[0][0];
	}
	return indi_set_cache("is_mobile", $return);
}

function is_mobile_html5(){
	$return = indi_get_cache("is_mobile_html5");
	if($return === NULL) {
		preg_match_all('/android|ipod|ipad|iphone/i', $_SERVER["HTTP_USER_AGENT"], $result);
		$return = $result[0][0];
		if(!$return && stripos($_SERVER["HTTP_USER_AGENT"], "MSIE") !== false && stripos($_SERVER["HTTP_USER_AGENT"], "Touch") !== false) $return = 'ietouch'; 
	}
	return indi_set_cache("is_mobile_html5", $return);
}

function is_mobile_apple(){
	$return = indi_get_cache("is_mobile_apple");

	if($return === NULL) {
		preg_match_all('/ipod|ipad|iphone/i', $_SERVER["HTTP_USER_AGENT"], $result);
		$return =  $result[0][0];
		
	}
	return  indi_set_cache("is_mobile_apple", $return);
}

function is_mobile_android(){
	$return = indi_get_cache("is_mobile_android");
	if($return === NULL) {
		preg_match_all('/android/i', $_SERVER["HTTP_USER_AGENT"], $result);
		$return = $result[0][0];
	}
	return indi_set_cache("is_mobile_android", $return);
}

function is_mobile_tablet(){
	$return = indi_get_cache("is_mobile_tablet");
	
	if($return === NULL) {
		preg_match_all('/ipad/i', $_SERVER["HTTP_USER_AGENT"], $result);
		$return = $result[0][0];
		if(!$return && is_mobile_android()){
			//If there is no ''mobile' in user-agent (Android have that on their phones, but not tablets) http://phpsnips.com/534/User-Agent---Mobile,-Tablet-or-not?-%28Works-with-Android,-iPhone,-Window-Phone-and-more%29#.UqbhLuIueIw
			$return = strstr(strtolower($_SERVER["HTTP_USER_AGENT"]), 'mobile') === false; 
		}
		else if(!$return){
			// windows 8 ce lo scrive		
			$return = strstr(strtolower($_SERVER["HTTP_USER_AGENT"]), 'tablet') !== false;
		}
	}
	return indi_set_cache("is_mobile_tablet", $return);
}


//versione detect mobile nuova
function indi_device() {
	
	$return = indi_get_cache("Mobile-Detect");
	if($return === NULL) {
		
		require_once $GLOBALS['CONF']['dir_lib'].'/Mobile-Detect/Mobile_Detect.php';
		$return = new Mobile_Detect;
		
	}
	
	return indi_set_cache("Mobile-Detect", $return);
	

}

//crea un link geo: per la scelta dell'app su android (e per ios quando lo supporterà) e ha il fallback su google per ios e desktop
function geoLink($lat, $lon, $forzaGoogle = false){
	// confermato 09/2024:
	// ios non supporta geo:, forzo google maps (come era prima). tutti i link: https://geohack.toolforge.org/geohack.php?params=42_0_0_N_13_0_0_E 
	// Android adopts an unconventional approach to parsing the points: it does not show a map pin at the point given normally, and a map pin will show up only when given as the query. In other words, to show a pin at the Wikimedia Foundation office, one should not use geo:37.78918,-122.40335 but geo:0,0?q=37.78918,-122.40335. 
	// forzo il link google maps se dentro app nativa oppure desktop oppure dispositivo apple, altrimenti uso geo: che gestisce il sistema 
		
	if($forzaGoogle || !is_mobile() || is_mobile_apple()) return "https://www.google.com/maps/search/?api=1&query=$lat,$lon";
	else return 'geo:'.$lat.','.$lon.'?q='.$lat.','.$lon;
}


function genera_link_switch_want_phone(){
	return genera_link_agg(null, null, array('want_mobile'=>(int)!indi_is_and_want_phone()));
}

function indi_is_and_want_phone() {//la prima volta va chiamata prima dell'output altrimenti non setta il cookie
	if(isset($_GET['want_mobile'])){
		$use_mobile = (int)$_GET['want_mobile'];
		setcookie('want_mobile', $use_mobile, 0, indi_cookie_path());
		return $use_mobile;
	}

	if(isset($_COOKIE['want_mobile'])){
		return $_COOKIE['want_mobile'];
	}

	return indi_is_phone();   
	/*
if(!indi_is_phone()) return false;
else return $use_mobile && indi_is_phone();
*/
}

//funzioni nuove sui device
function indi_is_phone() {

	if( indi_device()->isMobile() && !indi_device()->isTablet() ){
		return true;
	} 
	return false;
	
}
function indi_is_tablet() {

	if( indi_device()->isTablet() ){
		return true;
	} 
	return false;
	
}
function indi_is_mobile() {

	if( indi_device()->isMobile() ){
		return true;
	} 
	return false;
	
}


/* ----------------------------------- ENCODE / FORMATTING / SANITIZING ----------------------------- */

function text4flash($text){//uso questa perchè su uso urlencode mi traduce anche le accentate e poi flash non le visualizza
	//UPDATE 13/12/07 aggiunto il + tra le sostituzioni, per velocizzare uso i paramentri array invece che il ciclo
	//    $chars = array(
	//                   array("&", "%26"),
	//                   array("+", "%2B"),   
	//                   array('"', '\"'),
	//                   array(" ", "+"),
	//                  );

	//    $text = strip_tags($text);
	//    if(!in_array($GLOBALS['DATI']['sito'], array("toscanalamiere"))) if($text != strip_tags($text)) indi_debug_email("carlo@tnx.it", "vengono visualizzati caratteri html nel flash di ".$GLOBALS['DATI']['sito']." (flash)", "$text\n\naggiungi le eccezioni in ".__FILE__." linea ".__LINE__);
	$text = html_entity_decode($text);

	//    foreach($chars as $char){
	//       $text = str_replace($char[0], $char[1], $text);
	//    }
	$text2 = str_replace(array("&","+",'"'," ", "\n", "\r"), array("%26","%2B",'\"',"+","+","+"), $text);
	$text = str_replace(array("%", "&","+",'"'," ", "\n", "\r"), array("%25", "%26","%2B",'\"',"+","+","+"), $text);


	// 	TOLTO il 28/07/2009, tenuto per un po' ora sembra tutto ok. c3k.
	//    if($text != $text2){
	//    	if(!in_array($GLOBALS['DATI']['sito'], array("anse","raccianello","weddingsintuscany"))) indi_debug_email("carlo@tnx.it", "encodato % per ".$GLOBALS['DATI']['sito']." (flash)", "aggiungi le eccezioni in ".__FILE__." linea ".__LINE__);
	//    }



	return $text;
}







/* ----------------------------------- ROBA DA POTARE / CONTROLLARE NELLE VERSIONI NUOVE  ----------------------------- */

//ritorna vero se chi sta visitando supporta il flash
function flash_supported(){
	//andrebbero tolti gli android e nokia che supportano flash, si farà... 
	preg_match_all('/ipad/i', $_SERVER["HTTP_USER_AGENT"], $result);
	return !$result[0][0] && !is_mobile();
}


function indi_extractTables($html, $filtro_attr = ''){//usato solo per biosinformatica
	
	$any_attr = "[^>]*";
	
	if($filtro_attr) $filtro_attr = $any_attr.$filtro_attr.$any_attr;
	else $filtro_attr = $any_attr;
	
	preg_match_all('|(.*?)|ims', $html, $tables);
	
	$return = array();
	foreach($tables[1] as &$table){
		$return_i = array();
		
		preg_match('|(.*?)|ims', $table, $caption);
		$return_i['caption'] = $caption[1];
		
		$return_i['tr'] = array();
		
		preg_match_all('|(.*?)|ims', $table, $righe);
		foreach($righe[1] as &$riga){
			preg_match_all('|(.*?)|ims', $riga, $celle);
			
			$return_i['tr'][] = $celle[1];
			
		}
		
		$return[] = $return_i;
	}
	
	return $return;
}

//non usata
function is_file_in_path($file)    

{
	if(!file_exists($file))

	{
		$paths=explode(PATH_SEPARATOR,get_include_path());
		
		foreach($paths as $p)
		if(is_file(preg_replace('%/$%','',$p)."/$file"))
		return true;
		
		return false;
	}
	else
	return true;
} 

function indi_solo_alfanumerici($string, $replaceChar = "", $allowChar = ""){
	return indiSoloAlfanumerici($string, $replaceChar, $allowChar);
}
function indiSoloAlfanumerici($string, $replaceChar = "", $allowChar = ""){
	return preg_replace("/[^\d\w".preg_quote($allowChar)."]/im", $replaceChar, $string);
}

function indiObCleanAll(){//scarta tutto l'output
	while(ob_get_level()) ob_get_clean();//ob_clean does not destroy the output buffer like ob_end_clean() does. 
}

function indiManutenzione($tnxMsg = '', $messaggio = null, $customFooter = ''){
	if(is_null($messaggio)) $h2 = 'temporaneamente offline per manutenzione
temporarily offline for maintenance';
	else if(!is_array($messaggio)) $h2 = $messaggio;
	else $h2 = implode("
", $messaggio);
	
	$dominio = str_replace("www.", "", $_SERVER['HTTP_HOST']);
	if(!is_null($messaggio)){
		$h1 = $h2;
		$h2 = '';
	}
	else $h1 = $dominio;
	
	if(!$_GET['testaDbOffline']) indiObCleanAll();
	header("HTTP/1.1 503 Service Temporarily Unavailable");
	header("Status: 503 Service Temporarily Unavailable");
	header("Retry-After: 60");
	include("manutenzione.php");
	die;
}

function indi_isSsl() {
	//08/01/2018 cecca - aggiungo condizione SSL in caso di haproxy <-> apache, il traffico è in chiaro e viene passato l'header [HTTP_X_FORWARDED_PROTO] => https
	return (!empty($_SERVER['HTTPS']) && $_SERVER['HTTPS'] !== 'off') || $_SERVER['SERVER_PORT'] == 443 || $_SERVER['HTTP_X_FORWARDED_PROTO'] == "https";
}

/* Verifica partita IVA e ritorna true o false */
function convalida_partita_iva($vatNumber, $countryCode, $returnOnError = true){
	try {
		$client		= new SoapClient("http://ec.europa.eu/taxation_customs/vies/checkVatService.wsdl");
		$validation	= $client->checkVat(array('vatNumber' => $vatNumber, 'countryCode' => $countryCode));

		if((int) $validation->valid === 1){
			return TRUE;
		} else {
			return FALSE;
		}
	} catch (Exception $e) {
		indi_trigger_error("Errore convalida_partita_iva: ".$e->getMessage());
		return $returnOnError;	
	}
}

/* Verifica partita IVA e in caso sia valida ritorna le informazioni dell'azienda (null negli altri casi) */
function informazioni_partita_iva($vatNumber, $countryCode){
	try {
		$client		= new SoapClient("http://ec.europa.eu/taxation_customs/vies/checkVatService.wsdl");
		$validation	= $client->checkVat(array('vatNumber' => $vatNumber, 'countryCode' => $countryCode));

		if((int) $validation->valid === 1){
			return array("ragione_sociale" => (string) $validation->name, "indirizzo" => (string) $validation->address, "nazione" => (string) $validation->countryCode, "partita_iva" => (string) $validation->vatNumber);
		} else {
			return null;
		}
	} catch (Exception $e) {
		indi_trigger_error($e->getMessage());
		return null;	
	}
}

function indi_isGeneraPdf() {
	//cecca: per capire se è la richiesta fatta da wkhtmltopdf per renderizzare la pagina in pdf
	//mi baso sullo user agent
	
	return strpos($_SERVER['HTTP_USER_AGENT'], "wkhtmltopdf") !== false;
}

function indiMinimizzaHtml($buffer) {

	$search = array(
		'/\>[^\S ]+/s',     // strip whitespaces after tags, except space
		'/[^\S ]+\/' // Remove HTML comments
	);

	$replace = array(
		'>',
		'<',
		'\\1',
		''
	);

	$buffer = preg_replace($search, $replace, $buffer);

	return $buffer;

	
	
	
}


function indi_human_filesize($bytes, $decimals = 2) {
	
  $sz = 'BKMGTP';
  $factor = floor((strlen($bytes) - 1) / 3);
  return sprintf("%.{$decimals}f", $bytes / pow(1024, $factor)) . @$sz[$factor];
  
}



function spiderTnx($devices, $urls, $suffissoFisso = ''){
	$mobileUa = "Mozilla/5.0 (Linux; Android 4.0.4; Galaxy Nexus Build/IMM76B) AppleWebKit/535.19 (KHTML, like Gecko) Chrome/18.0.1025.133 Mobile Safari/535.19";
	$chromeAccept = array("Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,image/apng,*/*;q=0.8");
	
	$contexts = array();
	if(in_array('desktop', $devices)) $contexts['desktop'] = array(
		'http' => array(
			'header' => $chromeAccept,
		)
	);
	if(in_array('mobile', $devices)) $contexts['mobile'] = array(
		'http' => array(
			'user_agent' => $mobileUa,
			'header' => $chromeAccept,
		)
	);
	if(in_array('tablet', $devices)) $contexts['tablet'] = array(
		'http' => array(
			'user_agent' => "Mozilla/5.0 (iPad; CPU OS 9_3_2 like Mac OS X) AppleWebKit/601.1.46 (KHTML, like Gecko) Version/9.0 Mobile/13F69 Safari/601.1",
			'header' => $chromeAccept,
		)
	);
	
	//ora mando sempre l'header webp visto che tiene vivo entrambe le versioni delle immagini
	// if(in_array('desktop_webp', $devices)) $contexts['desktop_webp'] = array(
		// 'http' => array(
			// 'header' => $chromeAccept,
		// )
	// );
	// if(in_array('mobile_webp', $devices)) $contexts['mobile_webp'] = array(
		// 'http' => array(
			// 'user_agent' => $mobileUa,
			// 'header' => $chromeAccept,
		// )
	// );
	

	foreach($contexts as $k=>$v){
		$contexts[$k] = stream_context_create(array_merge(['ssl'=>["verify_peer"=>TNX_SECURE_CURL]], $v));
	}

	$time = -microtime(true);
	foreach($urls as $url){
		if($suffissoFisso) $url .= $suffissoFisso;
		foreach($contexts as $device=>$c){
			$page = file_get_contents($url, false, $c);
			// die($page);
			// die($url);
			
			//per firefox (funzionava su v 60)
			// echo str_pad('',1024);
			// echo $device.": ".$url."
";
			// ob_flush();
			// flush();
		}
		
	}
	echo round(($time+microtime(true))*100)/100;
	echo '" ('.count($urls).' pagine, '.count($devices).' devices)';
	echo "
".(round(($time+microtime(true))/(count($urls)*count($devices))*100)/100)."\" per pagina";
}

function stringPhpToJs($string, $enclosure = "'", $replaceWith = '"'){
	return str_replace(array("\n", $enclosure), array("", $replaceWith), trim($string));
}

function printArrayCode($nomeArray = 'array', $array, $path=false, $top=true) {
	$data = "";
	$delimiter = "~~|~~";
	$p = null;
	if(is_array($array)){
	  foreach($array as $key => $a){
		if(!is_array($a) || empty($a)){
		  if(is_array($a)){
			$data .= $path."['{$key}'] = array();".$delimiter;
		  } else {
			$data .= $path."['{$key}'] = \"".htmlentities(addslashes($a))."\";".$delimiter;
		  }
		} else {
		  $data .= printArrayCode($nomeArray, $a, $path."['{$key}']", false);
		}    
	  }
	}

	if($top){
	  $return = "";
	  foreach(explode($delimiter, $data) as $value){
		if(!empty($value)){
		  $return .= '$'.$nomeArray.$value."\n";
		}
	  };
	  return $return;
	}

	return $data;
}

function tnxAbsoluteUrl($url) {
	global $DATI;
	if (substr($url, 0, 5) == "http:" || substr($url, 0, 6) == "https:") {
		return $url;
	} else {
		return $DATI["baseurl"] . $url;
	}
}

function facebookApiConversionEvent($eventName, $contents = null, $eventId = null, $custom_data = null){
	global $_COOKIE, $DATI;

	if($DATI["facebookPixelId"] && $DATI["facebookApiConversionToken"] && !is_spider()){
		$dataParams = [];
		$dataParams["event_name"] = $eventName;
		$dataParams["event_time"] = mktime();

		if($eventId) $dataParams["event_id"] = $eventId; // Da passare per evitare deduplicazione eventi lato FB (deve essere identico all'EventId passato all'evento js del pixel)

		$dataParams["user_data"]["client_ip_address"] = $_SERVER['REMOTE_ADDR'];
		$dataParams["user_data"]["client_user_agent"] = $_SERVER["HTTP_USER_AGENT"];
		if($_COOKIE["_fbp"]) $dataParams["user_data"]["fbp"] = $_COOKIE["_fbp"];
		if($_COOKIE["_fbc"]) $dataParams["user_data"]["fbc"] = $_COOKIE["_fbc"];

		if($custom_data["user_data"]){
			foreach($custom_data["user_data"] as $parameterKey => $parameterValue) $dataParams["user_data"][$parameterKey] = $parameterValue;
			unset($custom_data["user_data"]);
		}

		if($contents) $dataParams["contents"] = json_encode($contents);
		if($custom_data) $dataParams["custom_data"] = json_encode($custom_data);

		$dataParams["event_source_url"] = genera_link_agg();
		$dataParams["action_source"] = "website";


		$fields = [];
		$fields['access_token'] = $DATI["facebookApiConversionToken"];
		$fields['data'] = json_encode(array($dataParams));

		if(
			$DATI["apiConversionTestEventCode"] && 
			(!$DATI["apiConversionTestEventNames"] || in_array($eventName, $DATI["apiConversionTestEventNames"]))
		){
			// è stato impostato un codice di test per la verifica live degli eventi
			$fields["test_event_code"] = $DATI["apiConversionTestEventCode"];
		}

		$serverUri = "https://graph.facebook.com/v11.0/" . $DATI["facebookPixelId"] . "/events";

		$curl = curl_init();
		curl_setopt_array($curl, [
			CURLOPT_URL => $serverUri, 
			CURLOPT_RETURNTRANSFER => true,
			CURLOPT_ENCODING => "",
			CURLOPT_MAXREDIRS => 10,
			CURLOPT_TIMEOUT => 30,
			CURLOPT_HTTP_VERSION => CURL_HTTP_VERSION_1_1,
			CURLOPT_CUSTOMREQUEST => "POST",
			CURLOPT_POSTFIELDS =>  http_build_query($fields),
			CURLOPT_HTTPHEADER => ["cache-control: no-cache", "Accept: application/json"],
		]);

		$result = curl_exec($curl);

		curl_close($curl);
		
		return true;

	} else {
		return false;
	}
}

function indiMailToDb($to, $subj, $body, $headers, $deleteOldMail = "1 MONTH") {
	/* funzione per usare una tabella invece di inviare mail */
	
	db_q("CREATE TABLE if not exists `mail_to_db` (
	`id` INT NOT NULL AUTO_INCREMENT,
	`to` VARCHAR(250) NULL,
	`subject` VARCHAR(500) NULL,
	`body` TEXT NOT NULL,
	`headers` TEXT NOT NULL,
	`ts` TIMESTAMP NOT NULL,
	PRIMARY KEY (`id`)
)
COLLATE='utf8_general_ci'
;");
	
	db_q("insert into mail_to_db set 
		`to` = '" . addslashes($to) . "'
		, subject = '" . addslashes($subj) . "'
		, body = '" . addslashes($body) . "'
		, headers = '" . addslashes($headers) . "'");


	if ($deleteOldMail) {
		db_q("DELETE FROM mail_to_db WHERE ts < (NOW() - INTERVAL " . $deleteOldMail . ")");
	}
	
}

function addLeadToNoCrm($title, $description, $userId = null){

	$parametriCreazioneLead = [];
	$parametriCreazioneLead["title"] = $title;
	$parametriCreazioneLead["description"] = $description;
	$parametriCreazioneLead["user_id"] = $userId ? $userId : "200463";
	$parametriCreazioneLead["step"] = $datiRichiesta["step"] ? $datiRichiesta["step"] : "505866";

	$createLeadCrmApi = curl_init();
	curl_setopt($createLeadCrmApi, CURLOPT_URL, "https://tnx.nocrm.io/api/v2/leads");
	curl_setopt($createLeadCrmApi, CURLOPT_HTTPHEADER, ["X-API-KEY: 536487f6c0687906a6c7dd887ac5842b49538265c42556a7"]);
	curl_setopt($createLeadCrmApi, CURLOPT_RETURNTRANSFER, true);
	curl_setopt($createLeadCrmApi, CURLOPT_VERBOSE, true);
	curl_setopt($createLeadCrmApi, CURLOPT_SSL_VERIFYHOST, FALSE);
	curl_setopt($createLeadCrmApi, CURLOPT_SSL_VERIFYPEER, FALSE);
	curl_setopt($createLeadCrmApi, CURLOPT_POSTFIELDS, $parametriCreazioneLead);
	$createLeadResult = json_decode(curl_exec($createLeadCrmApi));
}

function addContactToSendInBlu($listId, $email, $attributes = null){

	$apiKey = "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";

	$getSendInBluListDetailRequest = curl_init();
	curl_setopt($getSendInBluListDetailRequest, CURLOPT_URL, "https://api.sendinblue.com/v3/contacts/lists/" . $listId);
	curl_setopt($getSendInBluListDetailRequest, CURLOPT_HTTPHEADER, ["api-key: " . $apiKey, "accept: application/json"]);
	curl_setopt($getSendInBluListDetailRequest, CURLOPT_RETURNTRANSFER, true);
	curl_setopt($getSendInBluListDetailRequest, CURLOPT_VERBOSE, true);
	curl_setopt($getSendInBluListDetailRequest, CURLOPT_SSL_VERIFYHOST, FALSE);
	curl_setopt($getSendInBluListDetailRequest, CURLOPT_SSL_VERIFYPEER, FALSE);

	$getSendInBluListDetailResponse = curl_exec($getSendInBluListDetailRequest);
	curl_close($getSendInBluListDetailRequest);

	if($getSendInBluListDetailResponse){
		$getSendInBluListDetailResult = json_decode($getSendInBluListDetailResponse);

		if($getSendInBluListDetailResult->id){

			// La lista è esistente, procedo a creare il contatto e importarlo nella lista
			$jsonCreaContatto = [];
			$jsonCreaContatto["email"] = $email;
			$jsonCreaContatto["updateEnabled"] = true;
			$jsonCreaContatto["listIds"] = [$listId];

			if($attributes) $jsonCreaContatto["attributes"] = $attributes;

			$createUpdateContactRequest = curl_init();

			curl_setopt_array($createUpdateContactRequest, [
				CURLOPT_URL => "https://api.sendinblue.com/v3/contacts",
				CURLOPT_RETURNTRANSFER => true,
				CURLOPT_VERBOSE => true,								
				CURLOPT_TIMEOUT => 30,				
				CURLOPT_POST => 1,
				CURLOPT_POSTFIELDS => json_encode($jsonCreaContatto),
				CURLOPT_HTTPHEADER => [
					"Accept: application/json",
					"Content-Type: application/json",
					"api-key: " . $apiKey
				]
			]);

			$createUpdateContactResponse = curl_exec($createUpdateContactRequest);
			$createUpdateContactError = curl_error($createUpdateContactRequest);
			$createUpdateContactInfo = curl_getinfo($createUpdateContactRequest);

			curl_close($createUpdateContactRequest);
			if($createUpdateContactError){
				return false;
			} else {
				if($createUpdateContactInfo["http_code"] >= 200 && $createUpdateContactInfo["http_code"] <= 204){
					return true;
				} else {
					if($createUpdateContactResponse->id){
						return true;
					} else {
						return false;
					}
				}
			}

		} else {
			trigger_error("Richiesta iscrizione contatto SendInBlu su lista non esistente (" . $listId . ")");
		}
	}

	return false;

}

function indiStrStartsWith($string, $startWith){
	return substr($string, 0, strlen($startWith)) === $startWith;
}

function indiStrEndsWith($string, $startWith) {
    $length = strlen($startWith);
    if(!$length) return true;
    return substr($string, -$length) === $startWith;
}

function indiGetImgAspectRatio($img) {
	if (is_file($img)) {
		list($width, $height, $type, $attr) = getimagesize($img);
		if ($height > 0) {
			$ar = $width / $height;		
			return $ar;
		}
	}
	return 1;
}

function indiNormalizzaTelefono($numberStr, $nazioneId = "IT"){
	global $DATI;

	require $DATI['libPath'] . '/libphonenumber/vendor/autoload.php'; 

	$phoneUtil = \libphonenumber\PhoneNumberUtil::getInstance();

	$return['isValid'] = false;
	$return['numero'] = $numberStr;	

	try {
		$numberStrProto = $phoneUtil->parse($numberStr, $nazioneId);

		$isMobile =  \libphonenumber\PhoneNumberType::MOBILE == $phoneUtil->getNumberType($numberStrProto);			

		$return['isValid'] = $phoneUtil->isValidNumber($numberStrProto);
		$return['isMobile'] = $isMobile;

		if($return['isValid']){
			$return['numeroNormalizzato'] = $phoneUtil->format($numberStrProto, \libphonenumber\PhoneNumberFormat::E164);
		}

		return $return;

	} catch (\libphonenumber\NumberParseException $e) {
		
		return $return;
			
	}

}

// funzion colore integrate da bucho --  https://gist.github.com/andrewrcollins/4570993

function indiColMix($color_1 = array(0, 0, 0), $color_2 = array(0, 0, 0), $weight = 0.5)
{
    $f = function ($x) use ($weight) {
        return $weight * $x;
    };

    $g = function ($x) use ($weight) {
        return (1 - $weight) * $x;
    };

    $h = function ($x, $y) {
        return round($x + $y);
    };

    return array_map($h, array_map($f, $color_1), array_map($g, $color_2));
}

function indiColTint($color, $weight = 0.5)
{
    $t = $color;

    if (is_string($color)) {
        $t = indiColHex2Rgb($color);
    }

    $u = indiColMix($t, array(255, 255, 255), $weight);

    if (is_string($color)) {
        return indiColRgb2Hex($u);
    }

    return $u;
}



function indiColTone($color, $weight = 0.5)
{
    $t = $color;

    if (is_string($color)) {
        $t = indiColHex2Rgb($color);
    }

    $u = indiColMix($t, array(128, 128, 128), $weight);

    if (is_string($color)) {
        return indiColRgb2Hex($u);
    }

    return $u;
}


function indiColShade($color, $weight = 0.5)
{
    $t = $color;

    if(is_string($color)) {
        $t = indiColHex2Rgb($color);
    }

    $u = indiColMix($t, array(0, 0, 0), $weight);

    if (is_string($color)) {
        return indiColRgb2Hex($u);
    }

    return $u;
}


function indiColHex2Rgb($hex = '#000000')
{
    $f = function ($x) {
        return hexdec($x);
    };
	
	return array_map($f, str_split(str_replace("#", "", $hex), 2));
}

function indiColRgb2Hex($rgb = array(0, 0, 0)){
    $f = function ($x) { 
		return str_pad(dechex($x), 2, "0", STR_PAD_LEFT); 
	};
    return "#" . implode("", array_map($f, $rgb));
}


function indiColCssColorMixPhp($colore1,$colore2,$percentuale) {	
	return indiColRgb2Hex(indiColMix(indiColHex2Rgb($colore1), indiColHex2Rgb($colore2), ((100-$percentuale)/100)));
}


?>