<input type=\"hidden\" name=\"anno\" value=\"$anno\">
<input type=\"hidden\" name=\"id_sessione\" value=\"$id_sessione\">
<input type=\"hidden\" name=\"idappartamenti\" value=\"".$idappartamenti."\">
<input type=\"hidden\" name=\"modificadescr\" value=\"SI\">
".ucfirst(mex($fr1."descrizione dell'appartamento",'unit.php'))." <em>$idappartamenti</em>:<br>
<table><tr><td>Italiano:<br>
<textarea name=\"n_descrizione_ita\" rows=4 cols=60 style=\"white-space: pre; overflow: auto;\">$d_descrizione</textarea></td>";
$col = 0;
$max_col = 2;
unset($lingue_vett);
$lang_dir = opendir("./includes/lang/");
include(C_DATA_PATH."/lingua.php");
while ($ini_lingua = readdir($lang_dir)) {
if ($ini_lingua != "." && $ini_lingua != ".." and strlen($ini_lingua) <= 3 and preg_replace("/[a-z]/","",$ini_lingua) == "") {
$nome_lingua = file("./includes/lang/$ini_lingua/l_n");
$nome_lingua = togli_acapo($nome_lingua[0]);
$lingue_vett[$ini_lingua] = $nome_lingua;
$d_descrizione = esegui_query("select testo from $tabledescrizioni where nome = '$idappartamenti' and tipo = 'appdescr' and lingua = '$ini_lingua' and numero = '1' ");
if (numlin_query($d_descrizione)) $d_descrizione = risul_query($d_descrizione,0,'testo');
else $d_descrizione = "";
$col++;
if ($col == $max_col) {
$col = 0;
echo "</tr><tr>";
} # fine if ($col == $max_col)
else echo "<td style=\"width: 30px;\"></td>";
echo "<td>".ucfirst($nome_lingua).":<br>";
echo "<textarea name=\"n_descrizione_$ini_lingua\" rows=4 cols=60 style=\"white-space: pre; overflow: auto;\">$d_descrizione</textarea></td>";
} # fine if ($file != "." && $file != ".." and...
} # fine while ($file = readdir($lang_dig))
closedir($lang_dir);
function ripristina_backup_contr($linee_backup, $silenzio, $pag, $PHPR_TAB_PRE, $modalita, $contr_agg = "")
{
global $LIKE, $MEDIUMTEXT;
include "./includes/variabili_contratto.php";
unset($var_predef);
$versione_corrente = esegui_query("select * from " . $PHPR_TAB_PRE . "versioni where idversioni = 1");
$versione_corrente = risul_query($versione_corrente, 0, 'num_versione');
for ($num1 = 0; $num1 < count($linee_backup); $num1++) {
$linea = togli_acapo($linee_backup[$num1]);
if (substr($linea, 0, 10) == "<versione>") {
$versione_file = substr($linea, 10);
$versione_file = substr($versione_file, 0, -11);
break;
}
# fine if (substr($linea,0,10) == "<versione>")
}
# fine for $num1
if ($versione_file and ($versione_file <= $versione_corrente and $versione_file >= "2.00")) {
if ($modalita != "aggiungi") {
$contr_agg = "";
}
$contr_agg_var = $contr_agg;
$contr_agg_all = "";
$contr_agg_trovato = 0;
# Prima lettura di controllo del file contratti
$file_coerente = "SI";
$num_err = "";
$leggendo_righe = "NO";
unset($tab_presente);
$info_contr['max_contr'] = 0;
$num_linee_backup = count($linee_backup);
for ($num1 = 0; $num1 < $num_linee_backup; $num1++) {
$linea = togli_acapo($linee_backup[$num1]);
if ($linea == "</backup>" and $leggendo_righe != "SI") {
$leggendo_backup = "NO";
}
if ($leggendo_backup == "SI") {
if ($linea == "</database>" and $leggendo_righe != "SI") {
$leggendo_database = "NO";
}
if ($leggendo_database == "SI") {
if ($linea == "</tabella>" and $leggendo_righe != "SI") {
$leggendo_tabella = "NO";
}
if ($leggendo_tabella == "SI") {
if (substr($linea, 0, 13) == "<nometabella>") {
$nome_tabella = substr($linea, 13);
$nome_tabella = substr($nome_tabella, 0, -14);
}
# fine if (substr($linea,0,13) == "<nometabella>")
if ($linea == "</colonnetabella>") {
$leggendo_colonne == "NO";
if ($nome_tabella == "contratti") {
$tab_presente["contratti"] = "SI";
}
if ($nome_tabella != "contratti") {
$file_coerente = "NO";
$num_err .= "#1";
}
}
# fine if ($linea == "</colonnetabella>")
if ($leggendo_colonne == "SI") {
if (substr($linea, 0, 13) == "<nomecolonna>") {
$num_colonne++;
$nome_colonna[$num_colonne] = substr($linea, 13);
$nome_colonna[$num_colonne] = substr($nome_colonna[$num_colonne], 0, -14);
$num_colonna[$nome_colonna[$num_colonne]] = $num_colonne - 1;
}
# fine if (substr($linea,0,13) == "<nomecolonna>")
if (substr($linea, 0, 13) == "<tipocolonna>") {
$tipo_colonna[$num_colonne] = substr($linea, 13);
$tipo_colonna[$num_colonne] = substr($tipo_colonna[$num_colonne], 0, -14);
}
# fine if (substr($linea,0,13) == "<tipocolonna>")
}
# fine if ($leggendo_colonne == "SI")
if ($linea == "<colonnetabella>" and $leggendo_righe != "SI") {
$leggendo_colonne = "SI";
$num_colonne = 0;
}
# fine if ($linea == "<colonnetabella>" and $leggendo_righe != "SI")
if ($linea == "</righetabella>") {
$leggendo_righe = "NO";
}
if ($leggendo_righe == "SI") {
if (substr($linea, 0, 6) == "<riga>") {
$riga = substr($linea, 11);
} else {
$riga .= "\n" . $linea;
}
# fine else if (substr($linea,0,6) == "<riga>")
if (substr($linea, -7) == "</riga>") {
$riga = substr($riga, 0, -13);
$riga = explode("</cmp><cmp>", $riga);
if ($nome_tabella == "contratti") {
$tipo_contr = $riga[$num_colonna['tipo']];
if (substr($tipo_contr, 0, 3) == "var") {
$nome = $riga[$num_colonna['testo']];
if ($var_riserv[$nome]) {
$file_coerente = "NO";
$num_err .= "#2";
}
}
# fine if (substr($tipo_contr,0,3) == "var")
if (substr($tipo_contr, 0, 4) == "vett") {
$nome = explode(";", $riga[$num_colonna['testo']]);
if ($var_riserv[$nome[0]]) {
$file_coerente = "NO";
$num_err .= "#3";
}
if ($var_riserv[$nome[1]]) {
$file_coerente = "NO";
$num_err .= "#4";
}
}
# fine if (substr($tipo_contr,0,4) == "vett")
if ($modalita == "info") {
if ($riga[$num_colonna['tipo']] == "nomi_con" and $riga[$num_colonna['numero']] == "1") {
$info_contr['nomi_con'] = $riga[$num_colonna['testo']];
}
if (substr($riga[$num_colonna['tipo']], 0, 5) == "contr" and $riga[$num_colonna['numero']] > $info_contr['max_contr']) {
$info_contr['max_contr'] = $riga[$num_colonna['numero']];
}
}
# fine if ($modalita == "info")
if ($contr_agg and $riga[$num_colonna['numero']] == $contr_agg) {
if (substr($riga[$num_colonna['tipo']], 0, 5) == "contr") {
$contr_agg_trovato = 1;
}
if ($riga[$num_colonna['tipo']] == "impor_vc") {
$contr_agg_var = $riga[$num_colonna['testo']];
}
if ($riga[$num_colonna['tipo']] == "allegato") {
$contr_agg_all .= "," . $riga[$num_colonna['testo']] . ",";
}
}
# fine if ($contr_agg and $riga[$num_colonna['numero']] == $contr_agg)
}
# fine if ($nome_tabella == "contratti")
$lista_valori = "";
$lista_colonne = "";
unset($valore_colonna);
for ($num2 = 0; $num2 < count($riga); $num2++) {
$valore = aggslashdb($riga[$num2]);
if ($valore != "") {
$valore = str_replace("</righetabella@%&@>", "</righetabella>", $valore);
$valore = str_replace("</riga@%&@>", "</riga>", $valore);
$valore = str_replace("<riga@%&@>", "<riga>", $valore);
$valore = str_replace("</cmp@%&@>", "</cmp>", $valore);
$valore = str_replace("@%&@@%&@", "@%&@", $valore);
$valore_colonna[$nome_colonna[$num2 + 1]] = $valore;
}
# fine if ($valore != "")
}
# fine for $num2
if (defined("C_MASSIMO_NUM_CONTRATTI") and C_MASSIMO_NUM_CONTRATTI != 0 and $nome_tabella == "contratti" and $linee_inserite_in_tabella[$nome_tabella] >= C_MASSIMO_NUM_CONTRATTI * 200 + 100) {
$file_coerente = "NO";
$num_err .= "#5";
}
$linee_inserite_in_tabella[$nome_tabella]++;
}
# fine if (substr($linea,-7) == "</riga>")
}
# fine if ($leggendo_righe == "SI")
if ($linea == "<righetabella>") {
$leggendo_righe = "SI";
$linee_inserite_in_tabella[$nome_tabella] = 0;
}
# fine if ($linea == "<righetabella>")
}
# fine if ($leggendo_tabella == "SI")
if ($linea == "<tabella>") {
$leggendo_tabella = "SI";
}
}
# fine if ($leggendo_database == "SI")
if ($linea == "<database>") {
$leggendo_database = "SI";
}
}
# fine if ($leggendo_backup == "SI")
if ($linea == "<backup>") {
$leggendo_backup = "SI";
}
}
# fine for $num1
if ($tab_presente["contratti"] != "SI") {
$file_coerente = "NO";
$num_err .= "#6";
}
if ($contr_agg and !$contr_agg_trovato) {
$file_coerente = "NO";
$num_err .= "#7";
}
if ($file_coerente == "NO") {
if ($silenzio != "SI") {
echo mex("Il formato del file è errato", $pag) . ".<br>";
}
# debug backup DOCUMENTI
#if ($num_err) echo $num_err.".<br>";
} else {
unset($var_riserv);
if ($modalita == "info") {
return $info_contr;
}
if ($modalita == "rimpiazza") {
esegui_query("delete from " . $PHPR_TAB_PRE . "contratti");
}
$max_contr = esegui_query("select max(numero) from " . $PHPR_TAB_PRE . "contratti where tipo {$LIKE} 'contr%'");
if (numlin_query($max_contr) != 0) {
$max_contr = risul_query($max_contr, 0, 0);
} else {
$max_contr = 0;
}
if (!$max_contr) {
$max_contr = 0;
}
$max_var = esegui_query("select max(numero) from " . $PHPR_TAB_PRE . "contratti where tipo {$LIKE} 'var%'");
if (numlin_query($max_var) != 0) {
$max_var = risul_query($max_var, 0, 0);
} else {
$max_var = 0;
}
if (!$max_var) {
$max_var = 0;
}
$max_arr = esegui_query("select max(numero) from " . $PHPR_TAB_PRE . "contratti where tipo {$LIKE} 'vett%'");
if (numlin_query($max_arr) != 0) {
$max_arr = risul_query($max_arr, 0, 0);
} else {
$max_arr = 0;
}
if (!$max_arr) {
$max_arr = 0;
}
$max_cond = esegui_query("select max(numero) from " . $PHPR_TAB_PRE . "contratti where tipo = 'cond'");
if (numlin_query($max_cond) != 0) {
$max_cond = risul_query($max_cond, 0, 0);
} else {
$max_cond = 0;
}
if (!$max_cond) {
$max_cond = 0;
}
$max_all = esegui_query("select max(numero) from " . $PHPR_TAB_PRE . "contratti where tipo = 'file_all'");
if (numlin_query($max_all) != 0) {
$max_all = risul_query($max_all, 0, 0);
} else {
$max_all = 0;
}
if (!$max_all) {
$max_all = 0;
}
unset($nuovo_num_contr);
unset($nuovo_num_var);
$nuovo_num_var['-1'] = '-1';
$nuovo_num_var['-2'] = '-2';
unset($nuovo_nome_var);
unset($nuovo_num_all);
$leggendo_backup = "NO";
$leggendo_database = "NO";
$leggendo_tabella = "NO";
$leggendo_colonne = "NO";
$leggendo_righe = "NO";
$leggendo_file = "NO";
$leggendo_contenuto = "NO";
$nome_file = "";
unset($linee_inserite_in_tabella);
if (defined("C_CARTELLA_CREA_MODELLI") and C_CARTELLA_CREA_MODELLI != "") {
if (C_CARTELLA_DOC != "" and @is_dir(C_CARTELLA_CREA_MODELLI . "/" . C_CARTELLA_DOC)) {
$dir_salva_home = C_CARTELLA_CREA_MODELLI . "/" . C_CARTELLA_DOC;
} else {
$dir_salva_home = C_CARTELLA_CREA_MODELLI;
}
} else {
$dir_salva_home = C_DATA_PATH;
}
for ($num1 = 0; $num1 < $num_linee_backup; $num1++) {
$linea = togli_acapo($linee_backup[$num1]);
if ($linea == "</backup>" and $leggendo_righe != "SI") {
$leggendo_backup = "NO";
}
if ($leggendo_backup == "SI") {
if ($linea == "</database>" and $leggendo_righe != "SI") {
$leggendo_database = "NO";
}
# restore del database
if ($leggendo_database == "SI") {
if ($linea == "</tabella>" and $leggendo_righe != "SI") {
$leggendo_tabella = "NO";
}
if ($leggendo_tabella == "SI") {
if (substr($linea, 0, 13) == "<nometabella>") {
$nome_tabella = substr($linea, 13);
$nome_tabella = substr($nome_tabella, 0, -14);
}
# fine if (substr($linea,0,13) == "<nometabella>")
if ($linea == "</colonnetabella>" and $leggendo_righe != "SI") {
$leggendo_colonne == "NO";
#if ($nome_tabella == "contratti") esegui_query2("create table ".$N_PHPR_TAB_PRE."contratti (numero integer, tipo varchar(8), testo $MEDIUMTEXT )",$N_PHPR_DB_TYPE);
}
# fine if ($linea == "</colonnetabella>")
if ($leggendo_colonne == "SI") {
if (substr($linea, 0, 13) == "<nomecolonna>") {
$num_colonne++;
$nome_colonna[$num_colonne] = substr($linea, 13);
$nome_colonna[$num_colonne] = substr($nome_colonna[$num_colonne], 0, -14);
$num_colonna[$nome_colonna[$num_colonne]] = $num_colonne - 1;
}
# fine if (substr($linea,0,13) == "<nomecolonna>")
if (substr($linea, 0, 13) == "<tipocolonna>") {
$tipo_colonna[$num_colonne] = substr($linea, 13);
$tipo_colonna[$num_colonne] = substr($tipo_colonna[$num_colonne], 0, -14);
}
# fine if (substr($linea,0,13) == "<tipocolonna>")
}
# fine if ($leggendo_colonne == "SI")
if ($linea == "<colonnetabella>" and $leggendo_righe != "SI") {
$leggendo_colonne = "SI";
$num_colonne = 0;
$lista_tariffe = "";
}
# fine if ($linea == "<colonnetabella>" and $leggendo_righe != "SI")
if ($linea == "</righetabella>") {
$leggendo_righe = "NO";
}
if ($leggendo_righe == "SI") {
if (substr($linea, 0, 6) == "<riga>") {
$riga = substr($linea, 11);
} else {
$riga .= "\n" . $linea;
}
# fine else if (substr($linea,0,6) == "<riga>")
if (substr($linea, -7) == "</riga>") {
$riga = substr($riga, 0, -13);
$riga = explode("</cmp><cmp>", $riga);
$lista_valori = "";
$lista_colonne = "";
unset($valore_colonna);
$inserire_riga = "SI";
$tipo_contr = $riga[$num_colonna['tipo']];
$vecchio_num = $riga[$num_colonna['numero']];
if (substr($tipo_contr, 0, 5) == "contr" or $tipo_contr == "opzeml" or $tipo_contr == "oggetto" or $tipo_contr == "allegato" or $tipo_contr == "headhtm" or $tipo_contr == "foothtm" or $tipo_contr == "est_txt" or $tipo_contr == "dir" or substr($tipo_contr, 0, 4) == "mln_" or $tipo_contr == "impor_vc" or $tipo_contr == "num_prog" or $tipo_contr == "nomefile" or $tipo_contr == "autosalv" or $tipo_contr == "compress" or $tipo_contr == "incr_np") {
if (!$contr_agg or $vecchio_num == $contr_agg) {
if (!$nuovo_num_contr[$vecchio_num]) {
if ($contr_agg) {
$nuovo_num_contr[$vecchio_num] = $max_contr + 1;
} else {
$nuovo_num_contr[$vecchio_num] = $max_contr + $vecchio_num;
}
}
# fine if (!$nuovo_num_contr[$vecchio_num])
$riga[$num_colonna['numero']] = $nuovo_num_contr[$vecchio_num];
if (substr($tipo_contr, 0, 5) == "contr" or substr($tipo_contr, 0, 4) == "mln_") {
if (@is_array($nuovo_nome_var)) {
reset($nuovo_nome_var);
while (list($v_nome, $n_nome) = each($nuovo_nome_var)) {
$riga[$num_colonna['testo']] = str_replace("[{$v_nome}]", "[{$n_nome}]", $riga[$num_colonna['testo']]);
$riga[$num_colonna['testo']] = str_replace("[c {$v_nome}=", "[c {$n_nome}=", $riga[$num_colonna['testo']]);
$riga[$num_colonna['testo']] = str_replace("[c {$v_nome}!=", "[c {$n_nome}!=", $riga[$num_colonna['testo']]);
if (substr($v_nome, -1) == ")") {
$v_nome_arr = explode("(", $v_nome);
$v_nome_arr = $v_nome_arr[0];
$n_nome_arr = explode("(", $n_nome);
$n_nome_arr = $n_nome_arr[0];
$riga[$num_colonna['testo']] = str_replace("[r4 array=\"{$v_nome_arr}\"]", "[r4 array=\"{$n_nome_arr}\"]", $riga[$num_colonna['testo']]);
$riga[$num_colonna['testo']] = str_replace("[{$v_nome_arr}('", "[{$n_nome_arr}('", $riga[$num_colonna['testo']]);
$riga[$num_colonna['testo']] = str_replace("[c {$v_nome_arr}('", "[c {$n_nome_arr}('", $riga[$num_colonna['testo']]);
}
# fine if (substr($v_nome,-1) == ")")
}
# fine while (list($v_nome,$n_nome) = each($nuovo_nome_var))
}
# fine if (@is_array($nuovo_nome_var))
}
# fine if (substr($tipo_contr,0,5) == "contr" or substr($tipo_contr,0,4) == "mln_")
if ($tipo_contr == "dir") {
if (!function_exists('formatta_dir_salva_doc')) {
include './includes/funzioni_contratti.php';
}
$dir_salva = formatta_dir_salva_doc($riga[$num_colonna['testo']]);
if ($dir_salva == "~") {
$dir_salva = $dir_salva_home;
}
if (!@is_dir($dir_salva)) {
$inserire_riga = "NO";
} else {
$fileaperto = @fopen("{$dir_salva}/prova.tmp", "a+");
if (!$fileaperto) {
$inserire_riga = "NO";
} else {
fclose($fileaperto);
unlink("{$dir_salva}/prova.tmp");
}
# fine else if (!$fileaperto)
}
# fine else if (!@is_dir($dir_salva))
}
# fine if ($tipo_contr == "dir")
if ($tipo_contr == "allegato") {
$vecchio_all = $riga[$num_colonna['testo']];
if (!$nuovo_num_all[$vecchio_all]) {
$nuovo_num_all[$vecchio_all] = $max_all + $vecchio_all;
}
$riga[$num_colonna['testo']] = $nuovo_num_all[$vecchio_all];
}
# fine if ($tipo_contr == "allegato")
if ($tipo_contr == "impor_vc") {
if (!$contr_agg) {
$vecchio_num_impor_vc = $riga[$num_colonna['testo']];
if (!$nuovo_num_contr[$vecchio_num_impor_vc]) {
$nuovo_num_contr[$vecchio_num_impor_vc] = $max_contr + $vecchio_num_impor_vc;
}
$riga[$num_colonna['testo']] = $nuovo_num_contr[$vecchio_num_impor_vc];
} else {
$inserire_riga = "NO";
}
}
# fine if ($tipo_contr == "impor_vc")
if ($tipo_contr == "num_prog") {
if (!$contr_agg) {
$vecchio_num_np = $riga[$num_colonna['testo']];
if (!$nuovo_num_contr[$vecchio_num_np]) {
$nuovo_num_contr[$vecchio_num_np] = $max_contr + $vecchio_num_np;
}
$riga[$num_colonna['testo']] = $nuovo_num_contr[$vecchio_num_np];
} else {
$inserire_riga = "NO";
}
}
# fine if ($tipo_contr == "num_prog")
} else {
$inserire_riga = "NO";
}
}
# fine if (substr($tipo_contr,0,5) == "contr" or $tipo_contr == "opzeml" or...
if (substr($tipo_contr, 0, 3) == "var") {
$contr_cond = substr($tipo_contr, 3);
if (!$contr_agg or $contr_agg_var == $contr_cond) {
if (strcmp($contr_cond, "")) {
if (!$nuovo_num_contr[$contr_cond]) {
if ($contr_agg) {
$nuovo_num_contr[$contr_cond] = $max_contr + 1;
} else {
$nuovo_num_contr[$contr_cond] = $max_contr + $contr_cond;
}
}
# fine if (!$nuovo_num_contr[$contr_cond])
$contr_cond = $nuovo_num_contr[$contr_cond];
$tipo_contr = "var{$contr_cond}";
$riga[$num_colonna['tipo']] = $tipo_contr;
}
# fine if (strcmp($contr_cond,""))
if (!$nuovo_num_var[$vecchio_num]) {
$num_var_esistente = "";
$testo = $riga[$num_colonna['testo']];
$var_esistente = esegui_query("select * from " . $PHPR_TAB_PRE . "contratti where (tipo {$LIKE} 'var%' and testo = '" . aggslashdb($testo) . "') or (tipo {$LIKE} 'vett%' and testo {$LIKE} '" . aggslashdb($testo) . ";%') ");
for ($num2 = 0; $num2 < numlin_query($var_esistente); $num2++) {
if ($testo == risul_query($var_esistente, $num2, 'testo') and $tipo_contr == risul_query($var_esistente, $num2, 'tipo')) {
$num_var_esistente = $num2 + 1;
}
}
if ($num_var_esistente) {
$nuovo_num_var[$vecchio_num] = risul_query($var_esistente, $num_var_esistente - 1, 'numero');
$inserire_riga = "NO";
} else {
$nuovo_num_var[$vecchio_num] = $max_var + $vecchio_num;
if (numlin_query($var_esistente)) {
$nuovo_nome_trovato = "NO";
$nuovo_nome = $testo;
while ($nuovo_nome_trovato == "NO") {
$nuovo_nome .= "_";
$var_esistente = esegui_query("select * from " . $PHPR_TAB_PRE . "contratti where (tipo {$LIKE} 'var%' and testo = '" . aggslashdb($nuovo_nome) . "') or (tipo {$LIKE} 'vett%' and testo {$LIKE} '" . aggslashdb($nuovo_nome) . ";%') ");
if (!numlin_query($var_esistente)) {
$nuovo_nome_trovato = "SI";
}
}
# fine while ($nuovo_nome_trovato == "NO")
$nuovo_nome_var[$testo] = $nuovo_nome;
# cambio il nome della variabile anche negli array già inseriti
reset($nuovo_nome_var);
while (list($key, $val) = each($nuovo_nome_var)) {
$nuovo_nome_var[$key] = str_replace("({$testo})", "({$nuovo_nome})", $val);
if ($val != $nuovo_nome_var[$key]) {
$nome_arr = substr($nuovo_nome_var[$key], 0, -1 * (strlen($nuovo_nome) + 2));
$arr_esistente = esegui_query("select * from " . $PHPR_TAB_PRE . "contratti where tipo = 'vett{$contr_cond}' and testo = '" . aggslashdb($nome_arr) . ";" . aggslashdb($testo) . "' ");
if (numlin_query($arr_esistente)) {
$testo_arr = explode(";", risul_query($arr_esistente, 0, 'testo'));
$testo_arr[1] = $nuovo_nome;
$testo_arr = implode(";", $testo_arr);
esegui_query("update " . $PHPR_TAB_PRE . "contratti set testo = '" . aggslashdb($testo_arr) . "' where tipo = 'vett{$contr_cond}' and testo = '" . aggslashdb($nome_arr) . ";" . aggslashdb($testo) . "' ");
}
# fine if (numlin_query($arr_esistente))
}
# fine if ($val != $nuovo_nome_var[$key])
}
# fine while (list($key,$val) = each($nuovo_nome_var))
$riga[$num_colonna['testo']] = $nuovo_nome;
}
# fine if (numlin_query($var_esistente))
}
# fine else if ($num_var_esistente)
}
# fine if (!$nuovo_num_contr[$vecchio_num])
$riga[$num_colonna['numero']] = $nuovo_num_var[$vecchio_num];
} else {
$inserire_riga = "NO";
}
}
# fine if (substr($tipo_contr,0,3) == "var")
if (substr($tipo_contr, 0, 4) == "vett") {
$contr_cond = substr($tipo_contr, 4);
if (!$contr_agg or $contr_agg_var == $contr_cond) {
if (strcmp($contr_cond, "")) {
if (!$nuovo_num_contr[$contr_cond]) {
if ($contr_agg) {
$nuovo_num_contr[$contr_cond] = $max_contr + 1;
} else {
$nuovo_num_contr[$contr_cond] = $max_contr + $contr_cond;
}
}
# fine if (!$nuovo_num_contr[$contr_cond])
$contr_cond = $nuovo_num_contr[$contr_cond];
$tipo_contr = "vett{$contr_cond}";
$riga[$num_colonna['tipo']] = $tipo_contr;
}
# fine if (strcmp($contr_cond,""))
if (!$nuovo_num_var["a{$vecchio_num}"]) {
$num_arr_esistente = "";
$testo = $riga[$num_colonna['testo']];
$nome_arr = explode(";", $testo);
$var_arr = $nome_arr[1];
$nome_arr = $nome_arr[0];
$arr_esistente = esegui_query("select * from " . $PHPR_TAB_PRE . "contratti where (tipo {$LIKE} 'var%' and testo = '" . aggslashdb($nome_arr) . "') or (tipo {$LIKE} 'vett%' and testo {$LIKE} '" . aggslashdb($nome_arr) . ";%') ");
for ($num2 = 0; $num2 < numlin_query($arr_esistente); $num2++) {
if ($testo == risul_query($arr_esistente, $num2, 'testo') and $tipo_contr == risul_query($arr_esistente, $num2, 'tipo')) {
$num_arr_esistente = $num2 + 1;
}
}
if ($num_arr_esistente) {
$nuovo_num_var["a{$vecchio_num}"] = "a" . risul_query($arr_esistente, $num_arr_esistente - 1, 'numero');
$inserire_riga = "NO";
} else {
$nuovo_num_var["a{$vecchio_num}"] = "a" . ($max_arr + $vecchio_num);
if (numlin_query($arr_esistente)) {
$nuovo_nome_trovato = "NO";
$nuovo_nome = $nome_arr;
while ($nuovo_nome_trovato == "NO") {
$nuovo_nome .= "_";
$arr_esistente = esegui_query("select * from " . $PHPR_TAB_PRE . "contratti where (tipo {$LIKE} 'var%' and testo = '" . aggslashdb($nuovo_nome) . "') or (tipo {$LIKE} 'vett%' and testo {$LIKE} '" . aggslashdb($nuovo_nome) . ";%') ");
if (!numlin_query($arr_esistente)) {
$nuovo_nome_trovato = "SI";
}
}
# fine while ($nuovo_nome_trovato == "NO")
$nuovo_nome_var["{$nome_arr}({$var_arr})"] = "{$nuovo_nome}({$var_arr})";
$riga[$num_colonna["testo"]] = $nuovo_nome . substr($testo, strlen($nome_arr));
} else {
$nuovo_nome_var["{$nome_arr}({$var_arr})"] = "{$nome_arr}({$var_arr})";
}
}
# fine else if ($num_arr_esistente)
}
# fine if (!$nuovo_num_contr["a$vecchio_num"])
$riga[$num_colonna['numero']] = substr($nuovo_num_var["a{$vecchio_num}"], 1);
} else {
$inserire_riga = "NO";
}
}
# fine if (substr($tipo_contr,0,4) == "vett")
if (substr($tipo_contr, 0, 4) == "cond") {
$contr_cond = substr($tipo_contr, 4);
if (!$contr_agg or $contr_agg_var == $contr_cond) {
if (!strcmp($contr_cond, "")) {
$riga[$num_colonna['numero']] = $max_cond + $vecchio_num;
} else {
$vecchio_num = $contr_cond;
if (!$nuovo_num_contr[$vecchio_num]) {
if ($contr_agg) {
$nuovo_num_contr[$vecchio_num] = $max_contr + 1;
} else {
$nuovo_num_contr[$vecchio_num] = $max_contr + $vecchio_num;
}
}
# fine if (!$nuovo_num_contr[$vecchio_num])
$riga[$num_colonna['tipo']] = "cond" . $nuovo_num_contr[$vecchio_num];
$contr_cond = $nuovo_num_contr[$vecchio_num];
}
# fine else if (!strcmp($contr_cond,""))
$cond_vecchia = $riga[$num_colonna['testo']];
$cond_vecchia = explode("#@?", $cond_vecchia);
$azione_vecchia = explode("#%?", $cond_vecchia[2]);
$cond_nuova = $cond_vecchia[0] . "#@?";
if ($cond_vecchia[1]) {
$cond_vecchia = explode("#\$?", $cond_vecchia[1]);
$cond_nuova .= $cond_vecchia[0];
$num_cond = count($cond_vecchia);
for ($num2 = 1; $num2 < $num_cond; $num2++) {
$cond_nuova .= "#\$?";
$cond_vett = explode("#%?", $cond_vecchia[$num2]);
if ($cond_vett[2] == "var") {
ripristina_nome_var_cond(array(0, 3), $cond_vett, $nuovo_nome_var);
} else {
ripristina_nome_var_cond(array('0'), $cond_vett, $nuovo_nome_var);
}
for ($num3 = 0; $num3 < count($cond_vett); $num3++) {
$cond_nuova .= $cond_vett[$num3] . "#%?";
}
$cond_nuova = substr($cond_nuova, 0, -3);
}
# fine for $num2
}
# fine ($cond_vecchia[1])
$cond_nuova .= "#@?" . $azione_vecchia[0];
if ($azione_vecchia[0] == "set") {
$azione_vecchia[1] = $nuovo_num_var[$azione_vecchia[1]];
if ($azione_vecchia[3] == "var") {
ripristina_nome_var_cond(array(4), $azione_vecchia, $nuovo_nome_var);
}
if ($azione_vecchia[5] == "var") {
ripristina_nome_var_cond(array(6), $azione_vecchia, $nuovo_nome_var);
}
if ($azione_vecchia[7] == "var") {
ripristina_nome_var_cond(array(8), $azione_vecchia, $nuovo_nome_var);
}
}
# fine if ($azione_vecchia[0] == "set")
if ($azione_vecchia[0] == "trunc") {
$azione_vecchia[1] = $nuovo_num_var[$azione_vecchia[1]];
}
if ($azione_vecchia[0] == "oper") {
$azione_vecchia[1] = $nuovo_num_var[$azione_vecchia[1]];
if ($azione_vecchia[4] == "var") {
ripristina_nome_var_cond(array(2, 5), $azione_vecchia, $nuovo_nome_var);
} else {
ripristina_nome_var_cond(array(2), $azione_vecchia, $nuovo_nome_var);
}
}
# fine if ($azione_vecchia[0] == "oper")
if ($azione_vecchia[0] == "date") {
$azione_vecchia[1] = $nuovo_num_var[$azione_vecchia[1]];
ripristina_nome_var_cond(array(2), $azione_vecchia, $nuovo_nome_var);
}
# fine if ($azione_vecchia[0] == "date")
if ($azione_vecchia[0] == "unset") {
$azione_vecchia[1] = $nuovo_num_var[$azione_vecchia[1]];
}
if ($azione_vecchia[0] == "array") {
$azione_vecchia[1] = $nuovo_num_var[$azione_vecchia[1]];
if ($azione_vecchia[2] == "cop") {
$azione_vecchia[3] = $nuovo_num_var[$azione_vecchia[3]];
}
}
# fine if ($azione_vecchia[0] == "array")
for ($num2 = 1; $num2 < count($azione_vecchia); $num2++) {
$cond_nuova .= "#%?" . $azione_vecchia[$num2];
}
$riga[$num_colonna['testo']] = $cond_nuova;
$testo = aggslashdb($riga[$num_colonna['testo']]);
#$cond_esistente = esegui_query("select * from ".$PHPR_TAB_PRE."contratti where tipo = 'cond$contr_cond' and testo = '$testo' ");
#for ($num2 = 0 ; $num2 < numlin_query($cond_esistente) ; $num2++) if ($cond_nuova == risul_query($cond_esistente,$num2,'testo')) $inserire_riga = "NO";
} else {
$inserire_riga = "NO";
}
}
# fine if (substr($tipo_contr,0,4) == "cond")
if ($tipo_contr == "file_all") {
$vecchio_all = $riga[$num_colonna['numero']];
if (!$contr_agg or str_replace(",{$vecchio_all},", "", $contr_agg_all) != $contr_agg_all) {
if (!$nuovo_num_all[$vecchio_all]) {
$nuovo_num_all[$vecchio_all] = $max_all + $vecchio_all;
}
$riga[$num_colonna['numero']] = $nuovo_num_all[$vecchio_all];
} else {
$inserire_riga = "NO";
}
}
# fine if ($tipo_contr == "file_all")
for ($num2 = 0; $num2 < count($riga); $num2++) {
$valore = aggslashdb($riga[$num2]);
if ($valore != "") {
$valore = str_replace("</righetabella@%&@>", "</righetabella>", $valore);
$valore = str_replace("</riga@%&@>", "</riga>", $valore);
$valore = str_replace("<riga@%&@>", "<riga>", $valore);
$valore = str_replace("</cmp@%&@>", "</cmp>", $valore);
$valore = str_replace("@%&@@%&@", "@%&@", $valore);
$lista_valori .= ",'" . $valore . "'";
$lista_colonne .= "," . $nome_colonna[$num2 + 1];
}
# fine if ($valore != "")
}
# fine for $num2
$lista_valori = substr($lista_valori, 1);
$lista_colonne = substr($lista_colonne, 1);
#echo "insert into $nome_tabella ($lista_colonne) values ($lista_valori)<br>";
if ($inserire_riga != "NO") {
esegui_query("insert into " . $PHPR_TAB_PRE . "{$nome_tabella} ({$lista_colonne}) values ({$lista_valori}) ");
}
}
# fine if (substr($linea,-7) == "</riga>")
}
# fine if ($leggendo_righe == "SI")
if ($linea == "<righetabella>") {
$leggendo_righe = "SI";
$linee_inserite_in_tabella[$nome_tabella] = 0;
}
# fine if ($linea == "<righetabella>")
}
# fine if ($leggendo_tabella == "SI")
if ($linea == "<tabella>") {
$leggendo_tabella = "SI";
}
}
# fine if ($leggendo_database == "SI")
if ($linea == "<database>") {
$leggendo_database = "SI";
}
}
# fine if ($leggendo_backup == "SI")
if ($linea == "<backup>") {
$leggendo_backup = "SI";
}
}
# fine for $num1
$tabelle_lock = array($PHPR_TAB_PRE . "contratti", $PHPR_TAB_PRE . "personalizza");
$altre_tab_lock = array($PHPR_TAB_PRE . "versioni");
$tabelle_lock = lock_tabelle($tabelle_lock, $altre_tab_lock);
$nomi_contratti = esegui_query("select testo from {$PHPR_TAB_PRE}" . "contratti where numero = '1' and tipo = 'nomi_con' ");
$nomi_contratti = risul_query($nomi_contratti, 0, 'testo');
if ($modalita == "rimpiazza") {
esegui_query("update {$PHPR_TAB_PRE}" . "personalizza set valpersonalizza = '" . aggslashdb($nomi_contratti) . "' where idpersonalizza = 'nomi_contratti'");
} else {
$nomi_contratti = explode("#@&", $nomi_contratti);
$n_nomi_contratti = "";
for ($num1 = 0; $num1 < count($nomi_contratti); $num1++) {
$nome_contr = explode("#?&", $nomi_contratti[$num1]);
if (!$contr_agg or $nome_contr[0] == $contr_agg) {
$n_nomi_contratti .= "#@&" . $nuovo_num_contr[$nome_contr[0]] . "#?&" . $nome_contr[1];
}
}
# fine for $num1
$d_nomi_contr = esegui_query("select * from {$PHPR_TAB_PRE}" . "personalizza where idpersonalizza = 'nomi_contratti' ");
for ($num1 = 0; $num1 < numlin_query($d_nomi_contr); $num1++) {
$idutente_contr = risul_query($d_nomi_contr, $num1, 'idutente');
$nomi_contr_utente = risul_query($d_nomi_contr, $num1, 'valpersonalizza') . $n_nomi_contratti;
esegui_query("update {$PHPR_TAB_PRE}" . "personalizza set valpersonalizza = '" . aggslashdb($nomi_contr_utente) . "' where idpersonalizza = 'nomi_contratti' and idutente = '{$idutente_contr}' ");
}
# fine for $num1
}
# fine else if ($modalita == "rimpiazza")
esegui_query("delete from {$PHPR_TAB_PRE}" . "contratti where numero = '1' and tipo = 'nomi_con' ");
unlock_tabelle($tabelle_lock);
if ($silenzio != "SI") {
echo mex("Documenti ripristinati", $pag) . ".<br>";
}
}
# fine else if ($file_coerente == "NO")
} else {
if ($silenzio != "SI") {
echo mex("La versione attuale di hoteldruid e quella del file non coincidono", $pag) . ".<br>";
}
}
}
function recupera_var_modello_rat ($nome_file,$percorso_cartella_modello,$pag,$fr_frase,$num_frasi,$var_mod,$num_var_mod,$tipo_periodi,$var_per_crea_mod,$anno_modello,$PHPR_TAB_PRE) {
$linee_file = file("$percorso_cartella_modello/$nome_file");
$num_linee_file = count($linee_file);
if (substr($linee_file[0],0,70) == "<?php if (!@\$framed and !@\$_GET['framed'] and !@\$_POST['framed']) { ?>") $linee_file[0] = substr($linee_file[0],70);
if (substr($linee_file[($num_linee_file - 1)],-31) == "<?php } # fine if (!\$framed) ?>") $linee_file[($num_linee_file - 1)] = substr($linee_file[($num_linee_file - 1)],0,-31);
$var_anno = "\$".mex("var_anno",$pag);
for ($num_va = 0 ; $num_va < $num_var_mod ; $num_va++) ${"var_".$var_mod[$num_va]} = "\$".mex("var_".$var_mod[$num_va],$pag);
$var_colore_tema = "\$".mex("var_colore_tema",$pag);
$var_valore_tema = "\$".mex("var_valore_tema",$pag);
$var_stile_tabella_tariffe = "\$".mext_rat("var_stile_tabella_tariffe",$pag);
if ($var_per_crea_mod == "SI") {
$var_tipo_db = "\$".mex("var_tipo_db",$pag);
$var_nome_db = "\$".mex("var_nome_db",$pag);
$var_computer_db = "\$".mex("var_computer_db",$pag);
$var_porta_db = "\$".mex("var_porta_db",$pag);
$var_utente_db = "\$".mex("var_utente_db",$pag);
$var_password_db = "\$".mex("var_password_db",$pag);
$var_carica_estensione_db = "\$".mex("var_carica_estensione_db",$pag);
$var_prefisso_tabelle_db = "\$".mex("var_prefisso_tabelle_db",$pag);
} # fine if ($var_per_crea_mod == "SI")
# FRASI
for ($num_fr = 0 ; $num_fr < $num_frasi ; $num_fr++) ${"var_".$fr_frase[$num_fr]} = "\$".mext_rat("var_".$fr_frase[$num_fr],$pag);
$fine_variabili = "# ".mex("FINE VARIABILI MODIFICABILI",$pag);
global $num_periodi_date;
for ($num1 = 0 ; $num1 < $num_linee_file ; $num1++) {
$linea = togli_acapo($linee_file[$num1]);
unset($variabile);
if (substr($linea,0,strlen($var_anno)) == $var_anno) $variabile = "anno_modello_presente";
for ($num_va = 0 ; $num_va < $num_var_mod ; $num_va++) {
if (substr($linea,0,strlen(${"var_".$var_mod[$num_va]})) == ${"var_".$var_mod[$num_va]}) $variabile = $var_mod[$num_va];
} # fine for $num_va
$vlen = strlen($var_colore_tema."_");
if (substr($linea,0,$vlen) == $var_colore_tema."_") {
$variabile = "colore_tema_";
while (controlla_num_pos(substr($linea,$vlen,1)) == "SI") {
$variabile .= substr($linea,$vlen,1);
$vlen++;
} # fine while (controlla_num_pos(substr($linea,$vlen,1)) == "SI")
} # fine if (substr($linea,0,$vlen) == $var_colore_tema."_")
$vlen = strlen($var_valore_tema."_");
if (substr($linea,0,$vlen) == $var_valore_tema."_") {
$variabile = "valore_tema_";
while (controlla_num_pos(substr($linea,$vlen,1)) == "SI") {
$variabile .= substr($linea,$vlen,1);
$vlen++;
} # fine while (controlla_num_pos(substr($linea,$vlen,1)) == "SI")
} # fine if (substr($linea,0,$vlen) == $var_valore_tema."_")
if (substr($linea,0,strlen($var_stile_tabella_tariffe)) == $var_stile_tabella_tariffe) $variabile = "stile_tabella_tariffe";
if ($var_per_crea_mod == "SI") {
if (substr($linea,0,strlen($var_tipo_db)) == $var_tipo_db) $variabile = "tipo_db";
if (substr($linea,0,strlen($var_nome_db)) == $var_nome_db) $variabile = "nome_db";
if (substr($linea,0,strlen($var_computer_db)) == $var_computer_db) $variabile = "computer_db";
if (substr($linea,0,strlen($var_porta_db)) == $var_porta_db) $variabile = "porta_db";
if (substr($linea,0,strlen($var_utente_db)) == $var_utente_db) $variabile = "utente_db";
if (substr($linea,0,strlen($var_password_db)) == $var_password_db) $variabile = "password_db";
if (substr($linea,0,strlen($var_carica_estensione_db)) == $var_carica_estensione_db) $variabile = "carica_estensione_db";
if (substr($linea,0,strlen($var_prefisso_tabelle_db)) == $var_prefisso_tabelle_db) $variabile = "prefisso_tabelle_db";
} # fine if ($var_per_crea_mod == "SI")
# FRASI
for ($num_fr = 0 ; $num_fr < $num_frasi ; $num_fr++) {
$len = strlen(${"var_".$fr_frase[$num_fr]});
if (substr($linea,0,$len) == ${"var_".$fr_frase[$num_fr]} and (substr($linea,$len,1) == " " or substr($linea,$len,1) == "=")) $variabile = $fr_frase[$num_fr];
} # fine for $num_fr
if (!$num_periodi_date) {
if (substr($linea,0,strlen($var_periodi_menu)) == $var_periodi_menu) {
if (substr($linee_file[($num1 + 1)],0,16) == "<option value=\\\"") {
global $inizioperiodo0,$fineperiodo0,$intervalloperiodo0;
$inizioperiodo0 = explode("<option value=\\\"",$linea);
$inizioperiodo0 = explode("\\\">",$inizioperiodo0[1]);
$inizioperiodo0 = $inizioperiodo0[0];
if ($tipo_periodi == "s") $intervallo_base = 604800;
else $intervallo_base = 86400;
$data_prec = explode("-",$inizioperiodo0);
$data_corr = explode("-",substr($linee_file[($num1 + 1)],16,10));
$intervallo_prec = round(((mktime(0,0,0,$data_corr[1],$data_corr[2],$data_corr[0]) - mktime(0,0,0,$data_prec[1],$data_prec[2],$data_prec[0])) / $intervallo_base),0);
$intervalloperiodo0 = $intervallo_prec;
$num_periodi_date = 0;
while (substr($linee_file[($num1 + 1)],0,16) == "<option value=\\\"") {
$num1++;
$data_corr = explode("-",substr($linee_file[$num1],16,10));
$intervallo_corr = round(((mktime(0,0,0,$data_corr[1],$data_corr[2],$data_corr[0]) - mktime(0,0,0,$data_prec[1],$data_prec[2],$data_prec[0])) / $intervallo_base),0);
if ($intervallo_corr != $intervallo_prec) {
$data_succ= explode("-",substr($linee_file[($num1 + 1)],16,10));
$intervallo_succ = round(((mktime(0,0,0,$data_succ[1],$data_succ[2],$data_succ[0]) - mktime(0,0,0,$data_corr[1],$data_corr[2],$data_corr[0])) / $intervallo_base),0);
${"fineperiodo".$num_periodi_date} = $data_prec[0]."-".$data_prec[1]."-".$data_prec[2];
$num_periodi_date++;
global ${"inizioperiodo".$num_periodi_date},${"fineperiodo".$num_periodi_date},${"intervalloperiodo".$num_periodi_date};
${"inizioperiodo".$num_periodi_date} = $data_corr[0]."-".$data_corr[1]."-".$data_corr[2];
${"intervalloperiodo".$num_periodi_date} = $intervallo_succ;
$intervallo_prec = $intervallo_succ;
} # fine if ($intervallo_corr != $intervallo_prec)
$data_prec = $data_corr;
} # fine while (substr($linee_file[($num1 + 1)],0,strlen("<option value=\\\"")) == "<option value=\\\"")
${"fineperiodo".$num_periodi_date} = substr($linee_file[$num1],16,10);
$num_periodi_date++;
} # fine if (substr($linee_file[($num1 + 1)],0,16) == "<option value=\\\"")
} # fine if (substr($linea,0,strlen($var_periodi_menu)) == $var_periodi_menu)
} # fine if (!$num_periodi_date)
if (substr($linea,0,strlen($fine_variabili)) == $fine_variabili) break;
if ($variabile) {
global $$variabile;
$$variabile = explode("=",$linea);
$$variabile = trim(str_replace(${$variabile}[0]."=","",$linea));
if (substr($$variabile,-1) == ";") $$variabile = substr($$variabile,0,-1);
$$variabile = trim($$variabile);
if (substr($$variabile,0,1) == "\"" and substr($$variabile,-1) == "\"") $$variabile = substr($$variabile,1,-1);
if (substr(str_replace(" ","",$$variabile),0,6) == "array(") {
$vett = $$variabile;
$$variabile = "";
${$variabile}["array_esistente"] = "SI";
$vett = preg_replace("/^array[ ]*\(/","",$vett);
if (substr($vett,-1) == ")") $vett = substr($vett,0,-1);
if (strcmp(trim($vett),"")) {
$vett = str_replace("\\\"","#@%&",str_replace("\\\\","#@%^",$vett)).",";
$in_apici = "NO";
unset($val_in_apici);
unset($val_non_apici);
for ($num2 = 0 ; $num2 < strlen($vett) ; $num2++) {
if (substr($vett,$num2,1) == "\"") {
if ($in_apici == "NO") $in_apici = "SI";
else $in_apici = "NO";
} # fine if (substr($vett,$num2,1) == "\"")
else {
if ($in_apici == "SI") $val_in_apici .= substr($vett,$num2,1);
else {
if (substr($vett,$num2,1) == ",") {
if ($val_in_apici) $val = $val_in_apici;
else $val = trim($val_non_apici);
${$variabile}[$key] = str_replace("#@%^","\\",str_replace("#@%&","\"",$val));
unset($val_in_apici);
unset($val_non_apici);
} # fine if (substr($vett,$num2,1) == ",")
else {
if (substr($vett,$num2,2) == "=>") {
if ($val_in_apici) $key = $val_in_apici;
else $key = trim($val_non_apici);
$key = str_replace("#@%^","\\",str_replace("#@%&","\"",$key));
$num2++;
unset($val_in_apici);
unset($val_non_apici);
} # fine if (substr($vett,$num2,2) == "=>")
else $val_non_apici .= substr($vett,$num2,1);
} # fine else if (substr($vett,$num2,1) == ",")
} # fine else if ($in_apici == "SI")
} # fine else if (substr($vett,$num2,1) == "\"")
} # fine for $num2
} # fine if (strcmp(trim($vett),""))
} # fine if (substr($$variabile,0,5) == "array")
else $$variabile = str_replace("\\\"","\"",$$variabile);
} # fine if ($variabile)
} # fine for $num1
$linee_file = implode("",$linee_file);
global $prima_parte_html,$ultima_parte_html;
$prima_parte_html = explode("<!-- ".mex("FINE DELLA PRIMA PARTE DELL'HTML PERSONALE",$pag)." -->",$linee_file);
$prima_parte_html = $prima_parte_html[0];
if (togli_acapo($prima_parte_html) != "") {
while (togli_acapo(substr($prima_parte_html,0,1)) == "") $prima_parte_html = substr($prima_parte_html,1);
while (togli_acapo(substr($prima_parte_html,-1)) == "") $prima_parte_html = substr($prima_parte_html,0,-1);
} # fine if (togli_acapo($prima_parte_html) != "")
$ultima_parte_html = explode("<!-- ".mex("INIZIO DELLA SECONDA PARTE DELL'HTML PERSONALE",$pag)." -->",$linee_file);
$ultima_parte_html = explode("<!-- ".mex("FINE DELLA SECONDA PARTE DELL'HTML PERSONALE",$pag)." -->",$ultima_parte_html[1]);
$ultima_parte_html = $ultima_parte_html[0];
if (togli_acapo($ultima_parte_html) != "") {
while (togli_acapo(substr($ultima_parte_html,0,1)) == "") $ultima_parte_html = substr($ultima_parte_html,1);
while (togli_acapo(substr($ultima_parte_html,-1)) == "") $ultima_parte_html = substr($ultima_parte_html,0,-1);
} # fine if (togli_acapo($ultima_parte_html) != "")
if ($var_per_crea_mod == "SI") {
if (!$anno_modello) $anno_modello = $anno_modello_presente;
$tableanni = $PHPR_TAB_PRE."anni";
if (controlla_anno($anno_modello) != "SI") {
$continua = "NO";
$anno_modello = "";
} # fine if (controlla_anno($anno_modello) != "SI")
else {
$anno_esistente = esegui_query("select * from $tableanni where idanni = '$anno_modello'");
if (numlin_query($anno_esistente) != 1) $continua = "NO";
} # fine else if (controlla_anno($anno_modello) != "SI")
if ($continua != "NO") {
$SI = mex("SI",$pag);
$NO = mex("NO",$pag);
global $M_PHPR_DB_TYPE,$M_PHPR_DB_NAME,$M_PHPR_DB_HOST,$M_PHPR_DB_PORT,$M_PHPR_DB_USER,$M_PHPR_DB_PASS,$M_PHPR_LOAD_EXT,$M_PHPR_TAB_PRE,$m_stile_soldi,$m_stile_data,$m_valuta_sing,$m_valuta_plur;
$M_PHPR_DB_TYPE = $tipo_db;
$M_PHPR_DB_NAME = $nome_db;
$M_PHPR_DB_HOST = $computer_db;
$M_PHPR_DB_PORT = $porta_db;
$M_PHPR_DB_USER = $utente_db;
$M_PHPR_DB_PASS = $password_db;
$M_PHPR_LOAD_EXT = $carica_estensione_db;
$M_PHPR_TAB_PRE = $prefisso_tabelle_db;
$m_stile_soldi = $stile_soldi;
$m_stile_data = $stile_data;
$m_valuta_sing = $fr_Valuta_sing;
$m_valuta_plur = $fr_Valuta_plur;
if (strtoupper($estendi_ultima_data) == $SI) $estendi_ultima_data = "SI";
else $estendi_ultima_data = "NO";
$tablenometariffe_modello = $PHPR_TAB_PRE."ntariffe".$anno_modello;
$rigatariffe = esegui_query("select * from $tablenometariffe_modello where idntariffe = 1 ");
$numero_tariffe = risul_query($rigatariffe,0,nomecostoagg);
for ($numtariffa = 1 ; $numtariffa <= $numero_tariffe ; $numtariffa++) {
$tariffa = "tariffa".$numtariffa;
$nome_tariffa_imposto = "nome_tariffa_imposto".$numtariffa;
global $$tariffa,$$nome_tariffa_imposto;
$$tariffa = "";
$$nome_tariffa_imposto = "";
if (strtoupper($tariffe_mostra[$numtariffa]) == $SI) $$tariffa = "SI";
$$nome_tariffa_imposto = $nomi_tariffe_imposte[$numtariffa];
} # fine for $numtariffa
$dati_ca = dati_costi_agg_ntariffe($tablenometariffe_modello,"NO");
for ($numca = 0 ; $numca < $dati_ca[num] ; $numca++) {
$attiva_costo = "attiva_costo".$dati_ca[$numca][id];
$nome_costo_imposto = "nome_costo_imposto".$dati_ca[$numca][id];
global $$attiva_costo,$$nome_costo_imposto;
$$attiva_costo = "";
if (strtoupper($costi_aggiuntivi_mostra[$dati_ca[$numca][id]]) == $SI) $$attiva_costo = "SI";
$$nome_costo_imposto = $nomi_costi_agg_imposti[$dati_ca[$numca][id]];
} # fine for $numca
if (strtoupper($mostra_caparra) == $SI) $mostra_caparra = "SI";
else $mostra_caparra = "NO";
if (get_magic_quotes_gpc()) {
$prima_parte_html = addslashes($prima_parte_html);
$ultima_parte_html = addslashes($ultima_parte_html);
} # fine if (get_magic_quotes_gpc())
} # fine if ($continua != "NO")
} # fine if ($var_per_crea_mod == "SI")
} # fine function recupera_var_modello_rat
function recupera_var_modello_disponibilita ($nome_file,$percorso_cartella_modello,$pag,$fr_frase,$num_frasi,$var_mod,$num_var_mod,$tipo_periodi,$var_per_crea_mod,$anno_modello,$PHPR_TAB_PRE) {
$linee_file = file("$percorso_cartella_modello/$nome_file");
$num_linee_file = count($linee_file);
if (substr($linee_file[0],0,70) == "<?php if (!@\$framed and !@\$_GET['framed'] and !@\$_POST['framed']) { ?>") $linee_file[0] = substr($linee_file[0],70);
if (substr($linee_file[($num_linee_file - 1)],-31) == "<?php } # fine if (!\$framed) ?>") $linee_file[($num_linee_file - 1)] = substr($linee_file[($num_linee_file - 1)],0,-31);
$var_anno = "\$".mex("var_anno",$pag);
for ($num_va = 0 ; $num_va < $num_var_mod ; $num_va++) ${"var_".$var_mod[$num_va]} = "\$".mex("var_".$var_mod[$num_va],$pag);
$var_colore_tema = "\$".mex("var_colore_tema",$pag);
$var_valore_tema = "\$".mex("var_valore_tema",$pag);
if ($var_per_crea_mod == "SI") {
$var_tipo_db = "\$".mex("var_tipo_db",$pag);
$var_nome_db = "\$".mex("var_nome_db",$pag);
$var_computer_db = "\$".mex("var_computer_db",$pag);
$var_porta_db = "\$".mex("var_porta_db",$pag);
$var_utente_db = "\$".mex("var_utente_db",$pag);
$var_password_db = "\$".mex("var_password_db",$pag);
$var_carica_estensione_db = "\$".mex("var_carica_estensione_db",$pag);
$var_prefisso_tabelle_db = "\$".mex("var_prefisso_tabelle_db",$pag);
} # fine if ($var_per_crea_mod == "SI")
# FRASI
for ($num_fr = 0 ; $num_fr < $num_frasi ; $num_fr++) ${"var_".$fr_frase[$num_fr]} = "\$".mex("var_".$fr_frase[$num_fr],$pag);
$fine_variabili = "# ".mex("FINE VARIABILI MODIFICABILI",$pag);
global $num_periodi_date;
for ($num1 = 0 ; $num1 < $num_linee_file ; $num1++) {
$linea = togli_acapo($linee_file[$num1]);
unset($variabile);
if (substr($linea,0,strlen($var_anno)) == $var_anno) $variabile = "anno_modello_presente";
for ($num_va = 0 ; $num_va < $num_var_mod ; $num_va++) {
if (substr($linea,0,strlen(${"var_".$var_mod[$num_va]})) == ${"var_".$var_mod[$num_va]}) $variabile = $var_mod[$num_va];
} # fine for $num_va
$vlen = strlen($var_colore_tema."_");
if (substr($linea,0,$vlen) == $var_colore_tema."_") {
$variabile = "colore_tema_";
while (controlla_num_pos(substr($linea,$vlen,1)) == "SI") {
$variabile .= substr($linea,$vlen,1);
$vlen++;
} # fine while (controlla_num_pos(substr($linea,$vlen,1)) == "SI")
} # fine if (substr($linea,0,$vlen) == $var_colore_tema."_")
$vlen = strlen($var_valore_tema."_");
if (substr($linea,0,$vlen) == $var_valore_tema."_") {
$variabile = "valore_tema_";
while (controlla_num_pos(substr($linea,$vlen,1)) == "SI") {
$variabile .= substr($linea,$vlen,1);
$vlen++;
} # fine while (controlla_num_pos(substr($linea,$vlen,1)) == "SI")
} # fine if (substr($linea,0,$vlen) == $var_valore_tema."_")
if ($var_per_crea_mod == "SI") {
if (substr($linea,0,strlen($var_tipo_db)) == $var_tipo_db) $variabile = "tipo_db";
if (substr($linea,0,strlen($var_nome_db)) == $var_nome_db) $variabile = "nome_db";
if (substr($linea,0,strlen($var_computer_db)) == $var_computer_db) $variabile = "computer_db";
if (substr($linea,0,strlen($var_porta_db)) == $var_porta_db) $variabile = "porta_db";
if (substr($linea,0,strlen($var_utente_db)) == $var_utente_db) $variabile = "utente_db";
if (substr($linea,0,strlen($var_password_db)) == $var_password_db) $variabile = "password_db";
if (substr($linea,0,strlen($var_carica_estensione_db)) == $var_carica_estensione_db) $variabile = "carica_estensione_db";
if (substr($linea,0,strlen($var_prefisso_tabelle_db)) == $var_prefisso_tabelle_db) $variabile = "prefisso_tabelle_db";
} # fine if ($var_per_crea_mod == "SI")
# FRASI
for ($num_fr = 0 ; $num_fr < $num_frasi ; $num_fr++) {
$len = strlen(${"var_".$fr_frase[$num_fr]});
if (substr($linea,0,$len) == ${"var_".$fr_frase[$num_fr]} and (substr($linea,$len,1) == " " or substr($linea,$len,1) == "=")) $variabile = $fr_frase[$num_fr];
} # fine for $num_fr
if (!$num_periodi_date) {
if (substr($linea,0,strlen($var_periodi_menu)) == $var_periodi_menu) {
if (substr($linee_file[($num1 + 1)],0,16) == "<option value=\\\"") {
global $inizioperiodo0,$fineperiodo0,$intervalloperiodo0;
$inizioperiodo0 = explode("<option value=\\\"",$linea);
$inizioperiodo0 = explode("\\\">",$inizioperiodo0[1]);
$inizioperiodo0 = $inizioperiodo0[0];
if ($tipo_periodi == "s") $intervallo_base = 604800;
else $intervallo_base = 86400;
$data_prec = explode("-",$inizioperiodo0);
$data_corr = explode("-",substr($linee_file[($num1 + 1)],16,10));
$intervallo_prec = round(((mktime(0,0,0,$data_corr[1],$data_corr[2],$data_corr[0]) - mktime(0,0,0,$data_prec[1],$data_prec[2],$data_prec[0])) / $intervallo_base),0);
$intervalloperiodo0 = $intervallo_prec;
$num_periodi_date = 0;
while (substr($linee_file[($num1 + 1)],0,16) == "<option value=\\\"") {
$num1++;
$data_corr = explode("-",substr($linee_file[$num1],16,10));
$intervallo_corr = round(((mktime(0,0,0,$data_corr[1],$data_corr[2],$data_corr[0]) - mktime(0,0,0,$data_prec[1],$data_prec[2],$data_prec[0])) / $intervallo_base),0);
if ($intervallo_corr != $intervallo_prec) {
$data_succ= explode("-",substr($linee_file[($num1 + 1)],16,10));
$intervallo_succ = round(((mktime(0,0,0,$data_succ[1],$data_succ[2],$data_succ[0]) - mktime(0,0,0,$data_corr[1],$data_corr[2],$data_corr[0])) / $intervallo_base),0);
${"fineperiodo".$num_periodi_date} = $data_prec[0]."-".$data_prec[1]."-".$data_prec[2];
$num_periodi_date++;
global ${"inizioperiodo".$num_periodi_date},${"fineperiodo".$num_periodi_date},${"intervalloperiodo".$num_periodi_date};
${"inizioperiodo".$num_periodi_date} = $data_corr[0]."-".$data_corr[1]."-".$data_corr[2];
${"intervalloperiodo".$num_periodi_date} = $intervallo_succ;
$intervallo_prec = $intervallo_succ;
} # fine if ($intervallo_corr != $intervallo_prec)
$data_prec = $data_corr;
} # fine while (substr($linee_file[($num1 + 1)],0,strlen("<option value=\\\"")) == "<option value=\\\"")
${"fineperiodo".$num_periodi_date} = substr($linee_file[$num1],16,10);
$num_periodi_date++;
} # fine if (substr($linee_file[($num1 + 1)],0,16) == "<option value=\\\"")
} # fine if (substr($linea,0,strlen($var_periodi_menu)) == $var_periodi_menu)
} # fine if (!$num_periodi_date)
if (substr($linea,0,strlen($fine_variabili)) == $fine_variabili) break;
if ($variabile) {
global $$variabile;
$$variabile = explode("=",$linea);
$$variabile = trim(str_replace(${$variabile}[0]."=","",$linea));
if (substr($$variabile,-1) == ";") $$variabile = substr($$variabile,0,-1);
$$variabile = trim($$variabile);
if (substr($$variabile,0,1) == "\"" and substr($$variabile,-1) == "\"") $$variabile = substr($$variabile,1,-1);
if (substr(str_replace(" ","",$$variabile),0,6) == "array(") {
$vett = $$variabile;
$$variabile = "";
${$variabile}['array_esistente'] = "SI";
$vett = preg_replace("/^array[ ]*\(/","",$vett);
if (substr($vett,-1) == ")") $vett = substr($vett,0,-1);
if (strcmp(trim($vett),"")) {
$vett = str_replace("\\\"","#@%&",str_replace("\\\\","#@%^",$vett)).",";
$in_apici = "NO";
unset($val_in_apici);
unset($val_non_apici);
for ($num2 = 0 ; $num2 < strlen($vett) ; $num2++) {
if (substr($vett,$num2,1) == "\"") {
if ($in_apici == "NO") $in_apici = "SI";
else $in_apici = "NO";
} # fine if (substr($vett,$num2,1) == "\"")
else {
if ($in_apici == "SI") $val_in_apici .= substr($vett,$num2,1);
else {
if (substr($vett,$num2,1) == ",") {
if ($val_in_apici) $val = $val_in_apici;
else $val = trim($val_non_apici);
${$variabile}[$key] = str_replace("#@%^","\\",str_replace("#@%&","\"",$val));
unset($val_in_apici);
unset($val_non_apici);
} # fine if (substr($vett,$num2,1) == ",")
else {
if (substr($vett,$num2,2) == "=>") {
if ($val_in_apici) $key = $val_in_apici;
else $key = trim($val_non_apici);
$key = str_replace("#@%^","\\",str_replace("#@%&","\"",$key));
$num2++;
unset($val_in_apici);
unset($val_non_apici);
} # fine if (substr($vett,$num2,2) == "=>")
else $val_non_apici .= substr($vett,$num2,1);
} # fine else if (substr($vett,$num2,1) == ",")
} # fine else if ($in_apici == "SI")
} # fine else if (substr($vett,$num2,1) == "\"")
} # fine for $num2
} # fine if (strcmp(trim($vett),""))
} # fine if (substr($$variabile,0,5) == "array")
else $$variabile = str_replace("\\\"","\"",$$variabile);
} # fine if ($variabile)
} # fine for $num1
$linee_file = implode("",$linee_file);
global $prima_parte_html,$ultima_parte_html;
$prima_parte_html = explode("<!-- ".mex("FINE DELLA PRIMA PARTE DELL'HTML PERSONALE",$pag)." -->",$linee_file);
$prima_parte_html = $prima_parte_html[0];
if (strcmp(togli_acapo($prima_parte_html),"")) {
while (!strcmp(togli_acapo(substr($prima_parte_html,0,1)),"")) $prima_parte_html = substr($prima_parte_html,1);
while (!strcmp(togli_acapo(substr($prima_parte_html,-1)),"")) $prima_parte_html = substr($prima_parte_html,0,-1);
} # fine if (togli_acapo($prima_parte_html) != "")
$ultima_parte_html = explode("<!-- ".mex("INIZIO DELLA SECONDA PARTE DELL'HTML PERSONALE",$pag)." -->",$linee_file);
$ultima_parte_html = explode("<!-- ".mex("FINE DELLA SECONDA PARTE DELL'HTML PERSONALE",$pag)." -->",$ultima_parte_html[1]);
$ultima_parte_html = $ultima_parte_html[0];
if (togli_acapo($ultima_parte_html) != "") {
while (togli_acapo(substr($ultima_parte_html,0,1)) == "") $ultima_parte_html = substr($ultima_parte_html,1);
while (togli_acapo(substr($ultima_parte_html,-1)) == "") $ultima_parte_html = substr($ultima_parte_html,0,-1);
} # fine if (togli_acapo($ultima_parte_html) != "")
if ($var_per_crea_mod == "SI") {
if (!$anno_modello) $anno_modello = $anno_modello_presente;
$tableanni = $PHPR_TAB_PRE."anni";
if (controlla_anno($anno_modello) != "SI") {
$continua = "NO";
$anno_modello = "";
} # fine if (controlla_anno($anno_modello) != "SI")
else {
$anno_esistente = esegui_query("select * from $tableanni where idanni = '$anno_modello'");
if (numlin_query($anno_esistente) != 1) $continua = "NO";
} # fine else if (controlla_anno($anno_modello) != "SI")
if ($continua != "NO") {
$SI = mex("SI",$pag);
$NO = mex("NO",$pag);
global $M_PHPR_DB_TYPE,$M_PHPR_DB_NAME,$M_PHPR_DB_HOST,$M_PHPR_DB_PORT,$M_PHPR_DB_USER,$M_PHPR_DB_PASS,$M_PHPR_LOAD_EXT,$M_PHPR_TAB_PRE,$m_stile_soldi,$m_stile_data,$m_valuta_sing,$m_valuta_plur,$utente_lis;
$M_PHPR_DB_TYPE = $tipo_db;
$M_PHPR_DB_NAME = $nome_db;
$M_PHPR_DB_HOST = $computer_db;
$M_PHPR_DB_PORT = $porta_db;
$M_PHPR_DB_USER = $utente_db;
$M_PHPR_DB_PASS = $password_db;
if (strtoupper($carica_estensione_db) == $SI) $carica_estensione_db = "SI";
else $carica_estensione_db = "NO";
$M_PHPR_LOAD_EXT = $carica_estensione_db;
$M_PHPR_TAB_PRE = $prefisso_tabelle_db;
$m_stile_soldi = $stile_soldi;
$m_stile_data = $stile_data;
$m_valuta_sing = $fr_Valuta_sing;
$m_valuta_plur = $fr_Valuta_plur;
if (strtoupper($anteponi_nome_valuta) == $SI) $anteponi_nome_valuta = "SI";
else $anteponi_nome_valuta = "NO";
$utente_lis = $utente_liste;
if (strtoupper($estendi_ultima_data) == $SI) $estendi_ultima_data = "SI";
else $estendi_ultima_data = "NO";
global $sett_no_prenota;
$sett_no_prenota = $periodi_no_richieste;
if ((string) $sett_no_prenota == "") $sett_no_prenota = 0;
$tablenometariffe_modello = $PHPR_TAB_PRE."ntariffe".$anno_modello;
$rigatariffe = esegui_query("select * from $tablenometariffe_modello where idntariffe = 1 ");
$numero_tariffe = risul_query($rigatariffe,0,'nomecostoagg');
for ($numtariffa = 1 ; $numtariffa <= $numero_tariffe ; $numtariffa++) {
$tariffa = "tariffa".$numtariffa;
$nome_tariffa_imposto = "nome_tariffa_imposto".$numtariffa;
global $$tariffa,$$nome_tariffa_imposto;
$$tariffa = "";
$$nome_tariffa_imposto = "";
if (strtoupper($tariffe_mostra[$numtariffa]) == $SI) $$tariffa = "SI";
$$nome_tariffa_imposto = $nomi_tariffe_imposte[$numtariffa];
} # fine for $numtariffa
global $chiedi_num_app_tipologia,$max_num_app_tipologia,$parola_appartamento,$parola_appartamenti;
if (strtoupper($chiedi_numero_appartamenti_per_tipologia) == $SI) $chiedi_num_app_tipologia = "SI";
else $chiedi_num_app_tipologia = "NO";
$max_num_app_tipologia = $massimo_numero_appartamenti_per_tipologia;
$parola_appartamenti = $fr_appartamenti;
$parola_appartamento = $fr_appartamento;
global $aggiungi_tipologie,$max_num_tipologie;
if (strtoupper($aggiungi_altre_tipologie) == $SI) $aggiungi_tipologie = "SI";
else $aggiungi_tipologie = "NO";
$max_num_tipologie = $massimo_numero_altre_tipologie;
global $chiedi_num_persone,$max_num_persone,$max_num_aggiungi_letti;
if (strtoupper($chiedi_numero_persone) == $SI) $chiedi_num_persone = "SI";
else $chiedi_num_persone = "NO";
$max_num_persone = $massimo_numero_persone;
$max_num_aggiungi_letti = $massimo_numero_letti_aggiuntivi;
global $mostra_costi_aggiuntivi,$num_colonne_costi_agg;
if (strtoupper($chiedi_costi_aggiuntivi_di_pag_inserzione) == $SI) $mostra_costi_aggiuntivi = "SI";
else $mostra_costi_aggiuntivi = "NO";
$num_colonne_costi_agg = $numero_colonne_costi_aggiuntivi;
if (strtoupper($aggiungi_costi_fissi) == $SI) $aggiungi_costi_fissi = "SI";
else $aggiungi_costi_fissi = "NO";
$dati_ca = dati_costi_agg_ntariffe($tablenometariffe_modello,"NO");
for ($numca = 0 ; $numca < $dati_ca['num'] ; $numca++) {
$attiva_costo = "attiva_costo".$dati_ca[$numca]['id'];
$nome_costo_imposto = "nome_costo_imposto".$dati_ca[$numca]['id'];
$nome_cat_imp = "nome_cat_imp".$dati_ca[$numca]['id'];
global $$attiva_costo,$$nome_costo_imposto,$$nome_cat_imp;
$$attiva_costo = "";
if (strtoupper($costi_aggiuntivi_mostra[$dati_ca[$numca]['id']]) == $SI) $$attiva_costo = "SI";
$$nome_costo_imposto = $nomi_costi_agg_imposti[$dati_ca[$numca]['id']];
if ($dati_ca[$numca]['combina'] == "s") $$nome_cat_imp = $categorie_costi_agg_imposte[$dati_ca[$numca]['categoria']];
} # fine for $numca
global $frase_alternativa_regola1,$num_motivazioni;
$tableregole_modello = $PHPR_TAB_PRE."regole".$anno_modello;
$regole = esegui_query("select * from $tableregole_modello where app_agenzia != '' and (motivazione2 != 'x' or motivazione2 is NULL) order by app_agenzia");
$num_regole = numlin_query($regole);
$motivazioni_presenti = array();
$num_motivazioni = 0;
for ($num1 = 0 ; $num1 < $num_regole ; $num1 = $num1 + 1) {
$idregole = risul_query($regole,$num1,'idregole');
$motivazione = risul_query($regole,$num1,'motivazione');
if (!$motivazione) $motivazione = " ";
if ($motivazioni_presenti[$motivazione] != "SI") {
$motivazioni_presenti[$motivazione] = "SI";
$var_motivazione = "var_mot_".$num_motivazioni;
$num_motivazioni++;
global $$var_motivazione;
$$var_motivazione = "";
if (strtoupper($considera_motivazioni_regola1[$motivazione]) == $SI) $$var_motivazione = $motivazione;
} # fine if ($motivazioni_presenti[$motivazione] != "SI")
} # fine for $num1
if (strtoupper($mostra_frase_alternativa_regola1) == $SI) $mostra_frase_alternativa_regola1 = "SI";
else $mostra_frase_alternativa_regola1 = "NO";
$frase_alternativa_regola1 = $fr_alternativa_regola1;
if (strtoupper($mostra_caparra) == $SI) $mostra_caparra = "SI";
else $mostra_caparra = "NO";
if (strtoupper($mostra_giorni_pieni) == $SI) $mostra_giorni_pieni = "SI";
else $mostra_giorni_pieni = "NO";
if (strtoupper($mostra_bottone_paypal) == $SI) $mostra_bottone_paypal = "SI";
else $mostra_bottone_paypal = "NO";
global $ind_email,$utente_mess,$orig_prenota;
if ($utente_messaggio == mex("tutti",$pag)) $utente_messaggio = "tutti";
$ind_email = $indirizzo_email;
$utente_mess = $utente_messaggio;
$orig_prenota = $origine_prenotazione;
global $maschera_envelope;
if (strtoupper($mostra_richiesta_via_mail) == $SI) $mostra_richiesta_via_mail = "SI";
else $mostra_richiesta_via_mail = "NO";
if (strtoupper($manda_copia_richiesta_email) == $SI) $manda_copia_richiesta_email = "SI";
else $manda_copia_richiesta_email = "NO";
if (strtoupper($maschera_email) == $SI) $maschera_envelope = "SI";
else $maschera_envelope = "NO";
$chiedi_cognome = strtoupper($chiedi_cognome);
if ($chiedi_cognome != $SI and $chiedi_cognome != $NO) $chiedi_cognome = "opzionale";
if ($chiedi_cognome == $SI) $chiedi_cognome = "SI";
if ($chiedi_cognome == $NO) $chiedi_cognome = "NO";
$chiedi_nome = strtoupper($chiedi_nome);
if ($chiedi_nome != $SI and $chiedi_nome != $NO) $chiedi_nome = "opzionale";
if ($chiedi_nome == $SI) $chiedi_nome = "SI";
if ($chiedi_nome == $NO) $chiedi_nome = "NO";
$chiedi_email = strtoupper($chiedi_email);
if ($chiedi_email != $SI and $chiedi_email != $NO) $chiedi_email = "opzionale";
if ($chiedi_email == $SI) $chiedi_email = "SI";
if ($chiedi_email == $NO) $chiedi_email = "NO";
$chiedi_sesso = strtoupper($chiedi_sesso);
if ($chiedi_sesso != $SI and $chiedi_sesso != $NO) $chiedi_sesso = "opzionale";
if ($chiedi_sesso == $SI) $chiedi_sesso = "SI";
if ($chiedi_sesso == $NO) $chiedi_sesso = "NO";
$chiedi_datanascita = strtoupper($chiedi_datanascita);
if ($chiedi_datanascita != $SI and $chiedi_datanascita != $NO) $chiedi_datanascita = "opzionale";
if ($chiedi_datanascita == $SI) $chiedi_datanascita = "SI";
if ($chiedi_datanascita == $NO) $chiedi_datanascita = "NO";
$chiedi_documento = strtoupper($chiedi_documento);
if ($chiedi_documento != $SI and $chiedi_documento != $NO) $chiedi_documento = "opzionale";
if ($chiedi_documento == $SI) $chiedi_documento = "SI";
if ($chiedi_documento == $NO) $chiedi_documento = "NO";
$chiedi_nazione = strtoupper($chiedi_nazione);
if ($chiedi_nazione != $SI and $chiedi_nazione != $NO) $chiedi_nazione = "opzionale";
if ($chiedi_nazione == $SI) $chiedi_nazione = "SI";
if ($chiedi_nazione == $NO) $chiedi_nazione = "NO";
$chiedi_citta = strtoupper($chiedi_citta);
if ($chiedi_citta != $SI and $chiedi_citta != $NO) $chiedi_citta = "opzionale";
if ($chiedi_citta == $SI) $chiedi_citta = "SI";
if ($chiedi_citta == $NO) $chiedi_citta = "NO";
$chiedi_regione = strtoupper($chiedi_regione);
if ($chiedi_regione != $SI and $chiedi_regione != $NO) $chiedi_regione = "opzionale";
if ($chiedi_regione == $SI) $chiedi_regione = "SI";
if ($chiedi_regione == $NO) $chiedi_regione = "NO";
$chiedi_via = strtoupper($chiedi_via);
if ($chiedi_via != $SI and $chiedi_via != $NO) $chiedi_via = "opzionale";
if ($chiedi_via == $SI) $chiedi_via = "SI";
if ($chiedi_via == $NO) $chiedi_via = "NO";
$chiedi_numcivico = strtoupper($chiedi_numcivico);
if ($chiedi_numcivico != $SI and $chiedi_numcivico != $NO) $chiedi_numcivico = "opzionale";
if ($chiedi_numcivico == $SI) $chiedi_numcivico = "SI";
if ($chiedi_numcivico == $NO) $chiedi_numcivico = "NO";
$chiedi_cap = strtoupper($chiedi_cap);
if ($chiedi_cap != $SI and $chiedi_cap != $NO) $chiedi_cap = "opzionale";
if ($chiedi_cap == $SI) $chiedi_cap = "SI";
if ($chiedi_cap == $NO) $chiedi_cap = "NO";
$chiedi_telefono = strtoupper($chiedi_telefono);
if ($chiedi_telefono != $SI and $chiedi_telefono != $NO) $chiedi_telefono = "opzionale";
if ($chiedi_telefono == $SI) $chiedi_telefono = "SI";
if ($chiedi_telefono == $NO) $chiedi_telefono = "NO";
$chiedi_telefono2 = strtoupper($chiedi_telefono2);
if ($chiedi_telefono2 != $SI and $chiedi_telefono2 != $NO) $chiedi_telefono2 = "opzionale";
if ($chiedi_telefono2 == $SI) $chiedi_telefono2 = "SI";
if ($chiedi_telefono2 == $NO) $chiedi_telefono2 = "NO";
$chiedi_telefono3 = strtoupper($chiedi_telefono3);
if ($chiedi_telefono3 != $SI and $chiedi_telefono3 != $NO) $chiedi_telefono3 = "opzionale";
if ($chiedi_telefono3 == $SI) $chiedi_telefono3 = "SI";
if ($chiedi_telefono3 == $NO) $chiedi_telefono3 = "NO";
$chiedi_fax = strtoupper($chiedi_fax);
if ($chiedi_fax != $SI and $chiedi_fax != $NO) $chiedi_fax = "opzionale";
if ($chiedi_fax == $SI) $chiedi_fax = "SI";
if ($chiedi_fax == $NO) $chiedi_fax = "NO";
$chiedi_commento = strtoupper($chiedi_commento);
if ($chiedi_commento != $SI and $chiedi_commento != $NO) $chiedi_commento = "opzionale";
if ($chiedi_commento == $SI) $chiedi_commento = "SI";
if ($chiedi_commento == $NO) $chiedi_commento = "NO";
$chiedi_oracheckin = strtoupper($chiedi_oracheckin);
if ($chiedi_oracheckin != $SI and $chiedi_oracheckin != $NO) $chiedi_oracheckin = "opzionale";
if ($chiedi_oracheckin == $SI) $chiedi_oracheckin = "SI";
if ($chiedi_oracheckin == $NO) $chiedi_oracheckin = "NO";
$chiedi_metodopagamento = strtoupper($chiedi_metodopagamento);
if ($chiedi_metodopagamento != $SI and $chiedi_metodopagamento != $NO) $chiedi_metodopagamento = "opzionale";
if ($chiedi_metodopagamento == $SI) $chiedi_metodopagamento = "SI";
if ($chiedi_metodopagamento == $NO) $chiedi_metodopagamento = "NO";
$tablepersonalizza = $PHPR_TAB_PRE."personalizza";
$metodi_pagamento = esegui_query("select valpersonalizza from $tablepersonalizza where idpersonalizza = 'metodi_pagamento' and idutente = '1'");
$metodi_pagamento = risul_query($metodi_pagamento,0,'valpersonalizza');
global $num_metodi_pagamento;
$num_metodi_pagamento = 0;
if ($metodi_pagamento) {
$metodi_pagamento = explode(",",$metodi_pagamento);
$num_metodi_pagamento = count($metodi_pagamento);
for ($num1 = 0 ; $num1 < $num_metodi_pagamento ; $num1++) {
$metodo = $metodi_pagamento[$num1];
global ${"var_met_paga_".$num1},${"nome_met_paga_imposto_".$num1};
if (strtoupper($metodi_pagamento_da_chiedere[$metodo]) == $SI) ${"var_met_paga_".$num1} = $metodo;
else ${"var_met_paga_".$num1} = "";
if (@get_magic_quotes_gpc()) ${"var_met_paga_".$num1} = addslashes(${"var_met_paga_".$num1});
if ($nomi_metodi_pagamento_imposti[$metodo]) ${"nome_met_paga_imposto_".$num1} = $nomi_metodi_pagamento_imposti[$metodo];
else ${"nome_met_paga_imposto_".$num1} = "";
if (@get_magic_quotes_gpc()) ${"nome_met_paga_imposto_".$num1} = addslashes(${"nome_met_paga_imposto_".$num1});
} # fine for $num1
} # fine if ($metodi_pagamento)
global $num_campi_pers;
if ($campi_form_personalizzati['array_esistente']) $num_campi_pers = (count($campi_form_personalizzati) - 1);
else $num_campi_pers = 0;
for ($num1 = 1 ; $num1 <= $num_campi_pers ; $num1++) {
global ${"campo_pers".$num1},${"chiedi_campo_pers".$num1};
${"campo_pers".$num1} = $campi_form_personalizzati[$num1];
${"chiedi_campo_pers".$num1} = $chiedi_campi_form_personalizzati[$num1];
if (${"chiedi_campo_pers".$num1} == $SI) ${"chiedi_campo_pers".$num1} = "SI";
else ${"chiedi_campo_pers".$num1} = "opzionale";
if (@get_magic_quotes_gpc()) ${"campo_pers".$num1} = addslashes(${"campo_pers".$num1});
} # fine for $num1
global $num_campi_doc_cond;
if ($campi_form_doc_condizioni['array_esistente']) $num_campi_doc_cond = (count($campi_form_doc_condizioni) - 1);
else $num_campi_doc_cond = 0;
for ($num1 = 1 ; $num1 <= $num_campi_doc_cond ; $num1++) {
global ${"num_doc_cond".$num1},${"chiedi_num_doc_cond".$num1};
${"num_doc_cond".$num1} = $campi_form_doc_condizioni[$num1];
${"chiedi_num_doc_cond".$num1} = $chiedi_campi_form_doc_condizioni[$num1];
if (${"chiedi_num_doc_cond".$num1} == $SI) ${"chiedi_num_doc_cond".$num1} = "SI";
else ${"chiedi_num_doc_cond".$num1} = "opzionale";
} # fine for $num1
global $mostra_quadro_disp;
$mostra_quadro_disp = "";
if (strtoupper($mostra_quadro_disponibilita) == $SI) $mostra_quadro_disp = "SI";
if (strtoupper($raggruppa_quadro_disponibilita_con_persone) == $SI) $mostra_quadro_disp = "pers";
if (strtoupper($raggruppa_quadro_disponibilita_con_regola_2) == $SI) $mostra_quadro_disp = "reg2";
if (strtoupper($mostra_numero_liberi_quadro_disponibilita) == $SI) $mostra_numero_liberi_quadro_disponibilita = "SI";
else $mostra_numero_liberi_quadro_disponibilita = "NO";
if (strtoupper($mostra_calendario_scelta_date) == $SI) $mostra_calendario_scelta_date = "SI";
else $mostra_calendario_scelta_date = "NO";
if (strtoupper($allinea_disponibilita_con_arrivo) == $SI) $allinea_disponibilita_con_arrivo = "SI";
else $allinea_disponibilita_con_arrivo = "NO";
if (strtoupper($apri_nuova_finestra_da_frame) == $SI) $apri_nuova_finestra_da_frame = "SI";
else $apri_nuova_finestra_da_frame = "NO";
if (get_magic_quotes_gpc()) {
$prima_parte_html = addslashes($prima_parte_html);
$ultima_parte_html = addslashes($ultima_parte_html);
} # fine if (get_magic_quotes_gpc())
} # fine if ($continua != "NO")
} # fine if ($var_per_crea_mod == "SI")
} # fine function recupera_var_modello_disponibilita
} # fine if ($priv_mod_prenota_comp != "n" or $d_prenota_comp)
echo "<tr style=\"background-color: ".rowbgcolor().";\"><td>".mex("Commento",$pag).":<br><b>$d_commento</b> </td>
<td>";
if ($priv_mod_commento == "s") {
if (strcmp($d_commento,"") and $d_commento != "~~~~" and !strcmp($n_commento,"")) {
$onclick = " id=\"n_comm\" onclick=\"cp_comm()\"";
echo "<script type=\"text/javascript\">
<!--
function cp_comm () {
var tbox = document.getElementById('n_comm');
if (tbox.value == '') {
";
if ($attiva_checkin == "SI") echo "var tcomm = document.getElementById('tcomm');
if (tcomm.value == '') ";
echo "tbox.innerHTML = '".togli_acapo(str_replace("'","\\'",$d_commento))."';
}
} // fine function cp_comm
-->
</script>";
} # fine if (strcmp($d_commento,"") and $d_commento != "~~~~" and ...
else $onclick = "";
if ($n_cancella_commento == "SI") $checked = " checked";
else $checked = "";
if ($attiva_checkin == "SI" and $priv_mod_checkin == "s" and !$d_checkout_min) {
$sel_null = "";
$sel_checkin = "";
$sel_checkout = "";
if ($tipo_commento == "checkin") $sel_checkin = " selected";
if ($tipo_commento == "checkout") $sel_checkout = " selected";
if (!$sel_checkin and !$sel_checkout) $sel_null = " selected";
function inserisci_log($query, $idlog = "")
{
global $id_utente, $PHPR_TAB_PRE, $PHPR_LOG;
if (!$idlog) {
$idutente_log = $id_utente;
} else {
$idutente_log = $idlog;
}
if ($idutente_log and $idutente_log != 1) {
if ($PHPR_LOG == "SI" or str_replace(",{$idutente_log},", "", "{$PHPR_LOG},") != "{$PHPR_LOG},") {
$query = trim(str_replace(" " . $PHPR_TAB_PRE, " ", togli_acapo($query)));
if (substr($query, 0, 7) != "select ") {
$query2 = $query;
if (substr($query, 0, 12) == "insert into ") {
$query2 = trim(substr($query, 12));
$insert = 1;
} elseif (substr($query, 0, 7) == "update ") {
$query2 = trim(substr($query, 7));
} elseif (substr($query, 0, 12) == "delete from ") {
$query2 = trim(substr($query, 12));
}
if ($query != $query2) {
if (substr($query2, 0, 11) != "transazioni" and (substr($query2, 0, 8) != "sessioni" or $insert) and substr($query2, 0, 8) != "versioni" and substr($query2, 0, 5) != "cache") {
if ($insert and substr($query2, 0, 8) == "sessioni") {
$query = "LOGIN";
}
$query = nl2br(htmlspecialchars(substr($query, 0, 1400)));
$file_log = C_DATA_PATH . "/log_utenti.php";
$filelock = crea_lock_file($file_log);
if (@is_file($file_log)) {
$dati_file = file($file_log);
}
$dati_file[0] = "<?php exit(); ?>\n";
$num_lin = count($dati_file);
$limite = date("Y-m-d H:i:s", time() + C_DIFF_ORE * 3600 - 2592000);
for ($n = 1; $n < $num_lin; $n++) {
$data = explode(">", $dati_file[$n]);
$data = $data[1];
if (strcmp($limite, $data) > 0) {
$dati_file[$n] = "";
} else {
break;
}
}
# fine for $n
if ($num_lin >= 12000) {
$dati_file[1] = "";
}
$dati_file[$num_lin] = $idutente_log . ">" . date("Y-m-d H:i:s", time() + C_DIFF_ORE * 3600) . ">" . $query . "\n";
$fp_log = @fopen($file_log, "w");
if ($fp_log) {
flock($fp_log, 2);
fwrite($fp_log, implode("", $dati_file));
flock($fp_log, 3);
fclose($fp_log);
}
# fine if ($fp_log)
distruggi_lock_file($filelock, $file_log);
}
# fine if (substr($query2,0,11) != "transazioni" and...
}
# fine if ($query != $query2)
}
# fine if (substr($query,0,7) != "select ")
}
# fine if ($PHPR_LOG == "SI" or str_replace(",$idutente_log,","","$PHPR_LOG,") != "$PHPR_LOG,")
}
# fine if ($idutente_log and $idutente_log != 1)
}
function mostra_dati_cliente(&$dati_cliente, &$dcognome, &$dnome, &$dsoprannome, &$dtitolo_cli, &$dsesso, &$ddatanascita, &$ddatanascita_f, &$dnazionenascita, &$dcittanascita, &$dregionenascita, &$ddocumento, &$dscadenzadoc, &$dscadenzadoc_f, &$dtipodoc, &$dnazionedoc, &$dregionedoc, &$dcittadoc, &$dnazionalita, &$dlingua_cli, &$dnazione, &$dregione, &$dcitta, &$dvia, &$dnumcivico, &$dtelefono, &$dtelefono2, &$dtelefono3, &$dfax, &$dcap, &$demail, &$dcod_fiscale, &$dpartita_iva, $mostra_num = "", $priv_ins_clienti = "", $silenzio = "")
{
global $pag, $id_utente, $PHPR_TAB_PRE;
if ($id_utente == 1 or !$id_utente) {
$priv_vedi_telefoni = "s";
$priv_vedi_indirizzo = "s";
} else {
if (!$priv_ins_clienti) {
$privilegi_globali_utente = esegui_query("select * from {$PHPR_TAB_PRE}" . "privilegi where idutente = '{$id_utente}' and anno = '1'");
$priv_ins_clienti = risul_query($privilegi_globali_utente, 0, 'priv_ins_clienti');
}
# fine if (!$priv_ins_clienti)
$priv_vedi_telefoni = substr($priv_ins_clienti, 3, 1);
$priv_vedi_indirizzo = substr($priv_ins_clienti, 4, 1);
}
# fine else if ($id_utente == 1 or !$id_utente)
$didclienti = risul_query($dati_cliente, 0, 'idclienti');
$dcognome = risul_query($dati_cliente, 0, 'cognome');
$dnome = risul_query($dati_cliente, 0, 'nome');
$dsoprannome = risul_query($dati_cliente, 0, 'soprannome');
$dtitolo_cli = risul_query($dati_cliente, 0, 'titolo');
$dsesso = risul_query($dati_cliente, 0, 'sesso');
$ddatanascita = risul_query($dati_cliente, 0, 'datanascita');
$ddatanascita_f = formatta_data($ddatanascita, $stile_data);
$ddocumento = risul_query($dati_cliente, 0, 'documento');
$dtipodoc = risul_query($dati_cliente, 0, 'tipodoc');
$dscadenzadoc = risul_query($dati_cliente, 0, 'scadenzadoc');
$dscadenzadoc_f = formatta_data($dscadenzadoc, $stile_data);
$dcittadoc = risul_query($dati_cliente, 0, 'cittadoc');
$dregionedoc = risul_query($dati_cliente, 0, 'regionedoc');
$dnazionedoc = risul_query($dati_cliente, 0, 'nazionedoc');
$dcittanascita = risul_query($dati_cliente, 0, 'cittanascita');
$dregionenascita = risul_query($dati_cliente, 0, 'regionenascita');
$dnazionenascita = risul_query($dati_cliente, 0, 'nazionenascita');
$dnazionalita = risul_query($dati_cliente, 0, 'nazionalita');
$dlingua_cli = risul_query($dati_cliente, 0, 'lingua');
$dnazione = risul_query($dati_cliente, 0, 'nazione');
$dregione = risul_query($dati_cliente, 0, 'regione');
$dcitta = risul_query($dati_cliente, 0, 'citta');
if ($priv_vedi_indirizzo == "s") {
$dvia = risul_query($dati_cliente, 0, 'via');
$dnumcivico = risul_query($dati_cliente, 0, 'numcivico');
$dcap = risul_query($dati_cliente, 0, 'cap');
}
# fine if ($priv_vedi_indirizzo == "s")
if ($priv_vedi_telefoni == "s") {
$dtelefono = risul_query($dati_cliente, 0, 'telefono');
$dtelefono2 = risul_query($dati_cliente, 0, 'telefono2');
$dtelefono3 = risul_query($dati_cliente, 0, 'telefono3');
$dfax = risul_query($dati_cliente, 0, 'fax');
$demail = risul_query($dati_cliente, 0, 'email');
}
# fine if ($priv_vedi_telefoni == "s")
$dcod_fiscale = risul_query($dati_cliente, 0, 'cod_fiscale');
$dpartita_iva = risul_query($dati_cliente, 0, 'partita_iva');
if ($dlingua_cli) {
if ($dlingua_cli == "ita") {
$d_nome_lingua = "Italiano";
} elseif (preg_replace("/[a-z]{2,3}/", "", $dlingua_cli) == "") {
if (@is_file("./includes/lang/{$dlingua_cli}/l_n")) {
$d_nome_lingua = file("./includes/lang/{$dlingua_cli}/l_n");
$d_nome_lingua = ucfirst(togli_acapo($d_nome_lingua[0]));
}
# fine if (@is_file("./includes/lang/$dlingua_cli/l_n"))
}
# fine elseif (preg_replace("/[a-z]{2,3}/","",$dlingua_cli) == "")
if (!$d_nome_lingua) {
$dlingua_cli = "";
}
}
# fine if ($dlingua_cli)
$output = "";
$O = "o";
$O2 = "o";
if ($dsesso == "f") {
$O = "a";
}
if ($dsesso2 == "f") {
$O2 = "a";
}
if ($mostra_num == "SI") {
$output .= "{$didclienti}. <em>{$dcognome}</em> ";
if ($dnome) {
$output .= "<em>{$dnome}</em> ";
}
} else {
if ($dtitolo_cli) {
$output .= "{$dtitolo_cli} ";
}
$output .= "<b>{$dcognome}</b>";
if ($dnome) {
$output .= " {$dnome}";
}
if ($dsoprannome) {
$output .= " ({$dsoprannome})";
}
}
# fine else if ($mostra_num == "SI")
if ($ddatanascita or $dcittanascita) {
$output .= " " . mex("nat{$O}", $pag);
}
if ($ddatanascita) {
$output .= " " . mex("il", $pag) . " {$ddatanascita_f}";
}
if ($dcittanascita) {
$output .= mex(" a", $pag) . " {$dcittanascita}";
}
if ($dregionenascita or $dnazionenascita) {
$output .= " ({$dregionenascita}";
if ($dregionenascita and $dnazionenascita) {
$output .= ", ";
}
$output .= "{$dnazionenascita})";
}
# fine if ($dregionenascita or $dnazionenascita)
$lin = "";
if ($dnazionalita) {
$lin .= "{$dnazionalita}";
}
if ($dnazionalita and $d_nome_lingua) {
$lin .= " ";
}
if ($d_nome_lingua) {
$lin .= "(" . mex("ln.", $pag) . " <em>{$d_nome_lingua}</em>)";
}
if ($lin and $ddocumento) {
if (!$dnazionedoc or $dnazionedoc == $dnazionalita) {
$lin .= " - ";
} else {
$output .= "<br>{$lin}";
$lin = "";
}
# fine else if (!$dnazionedoc or...
}
# fine if ($lin and $ddocumento)
if ($ddocumento) {
if ($dtipodoc) {
$lin .= "{$dtipodoc} ";
}
$lin .= "{$ddocumento}";
if ($dscadenzadoc) {
if ($dcittadoc or $dnazionedoc and $dnazionedoc != $dnazionalita) {
$lin .= " ({$dcittadoc}";
if ($dcittadoc and $dnazionedoc and $dnazionedoc != $dnazionalita) {
$lin .= ", ";
}
if ($dnazionedoc and $dnazionedoc != $dnazionalita) {
$lin .= "{$dnazionedoc}";
}
$lin .= ")";
}
# fine if ($dcittadoc or...
if (date("Ymd", time() + C_DIFF_ORE * 3600) <= str_replace("-", "", $dscadenzadoc)) {
$lin .= " " . mex("scade", $pag) . " {$dscadenzadoc_f}";
} else {
$lin .= " " . mex("scade", $pag) . " <font color=\"red\">{$dscadenzadoc_f}</font>";
}
}
# fine if ($dscadenzadoc)
}
# fine if ($ddocumento)
if ($lin) {
$output .= "<br>{$lin}";
}
$lin = "";
if ($dcitta) {
$lin .= "{$dcitta}";
if ($dvia or $dnumcivico or $dcap) {
$lin .= ",";
}
$lin .= " ";
}
# fine if ($dcitta)
if ($dvia) {
$lin .= "{$dvia} ";
}
if ($dnumcivico) {
$lin .= "nº {$dnumcivico} ";
}
if ($dcap) {
$lin .= mex("CAP", $pag) . " {$dcap} ";
}
if ($dnazione or $dregione) {
$lin .= "(";
}
if ($dregione) {
$lin .= $dregione;
}
if ($dnazione and $dregione) {
$lin .= ", ";
}
if ($dnazione) {
$lin .= $dnazione;
}
if ($dnazione or $dregione) {
$lin .= ") ";
}
if ($lin) {
$output .= "<br>{$lin}";
}
$lin = "";
if ($dtelefono) {
$lin .= mex("Telefono", $pag) . ": {$dtelefono} ";
}
if ($dtelefono2) {
$lin .= mex("2º telefono", $pag) . ": {$dtelefono2} ";
}
if ($dtelefono3) {
$lin .= mex("3º telefono", $pag) . ": {$dtelefono3}, ";
}
if ($dfax) {
$lin .= "fax: {$dfax}, ";
}
if ($demail) {
$lin .= "email: <a href=\"mailto:{$demail}\">{$demail}</a> ";
}
if ($lin) {
$output .= "<br>{$lin}";
}
$lin = "";
if ($dcod_fiscale) {
$lin .= mex("Codice fiscale", $pag) . ": {$dcod_fiscale} ";
}
if ($dcod_fiscale and $dpartita_iva) {
$lin .= ", ";
}
if ($dpartita_iva) {
$lin .= mex("Partita iva", $pag) . ": {$dpartita_iva} ";
}
if ($lin) {
$output .= "<br>{$lin}";
}
if (!$silenzio) {
echo $output;
} else {
return $output;
}
}
function scrivi_file($linee, $nome_file)
{
$scrittura_corretta = "SI";
if ($fileaperto = fopen("{$nome_file}.tmp", "w+")) {
flock($fileaperto, 2);
if (!@is_array($linee)) {
$linee2 = $linee;
unset($linee);
$linee[0] = $linee2;
unset($linee2);
}
# fine if (!@is_array($linee))
for ($num1 = 0; $num1 < count($linee); $num1++) {
fwrite($fileaperto, $linee[$num1]);
}
flock($fileaperto, 3);
fclose($fileaperto);
$linee2 = @file("{$nome_file}.tmp");
$num_linee2 = 0;
$ultima_linea = "";
for ($num1 = 0; $num1 < count($linee); $num1++) {
$linee[$num1] = str_replace("\r\n", "\n", $linee[$num1]);
$linee[$num1] = str_replace("\n", "\n", $linee[$num1]);
$sub_linee = explode("\n", $linee[$num1]);
for ($num2 = 0; $num2 < count($sub_linee); $num2++) {
if ($num2 == 0) {
$sub_linee[$num2] = $ultima_linea . $sub_linee[$num2];
}
if ($num2 != count($sub_linee) - 1) {
if (togli_acapo($linee2[$num_linee2]) != $sub_linee[$num2]) {
$scrittura_corretta = "NO";
}
$num_linee2++;
} else {
$ultima_linea = $sub_linee[$num2];
}
}
# fine for $num2
}
# fine for $num1
if (togli_acapo($linee2[$num_linee2]) != $ultima_linea) {
$scrittura_corretta = "NO";
}
if ($scrittura_corretta != "NO") {
@unlink("{$nome_file}");
if (!rename("{$nome_file}.tmp", "{$nome_file}")) {
$scrittura_corretta = "NO";
}
}
# fine if ($scrittura_corretta != "NO")
} else {
$scrittura_corretta = "NO";
}
if ($scrittura_corretta == "NO") {
@unlink("{$nome_file}.tmp");
echo mex("<div style=\"display: inline; color: red;\">ERRORE</div> di scrittura del file", "funzioni.php") . " {$nome_file}.<br>";
}
# fine if ($scrittura_corretta == "NO")
return $scrittura_corretta;
}
