function ripristina_backup($file, $silenzio, $pag, &$numconnessione, $database_esistente, $tempdatabase, $PHPR_DB_TYPE, $PHPR_DB_NAME, $PHPR_DB_HOST, $PHPR_DB_PORT, $PHPR_DB_USER, $PHPR_DB_PASS, $PHPR_LOAD_EXT, $PHPR_TAB_PRE, $N_PHPR_DB_TYPE, $N_PHPR_DB_NAME, $N_PHPR_DB_HOST, $N_PHPR_DB_PORT, $N_PHPR_DB_USER, $N_PHPR_DB_PASS, $N_PHPR_LOAD_EXT, $N_PHPR_TAB_PRE, $ext_pgsql_caricata, $ext_mysql_caricata, $mantieni_anni = "")
{
$tableanni = $PHPR_TAB_PRE . "anni";
$tableutenti = $PHPR_TAB_PRE . "utenti";
include "./includes/variabili_contratto.php";
unset($var_predef);
allunga_tempo_limite();
global $LIKE, $MEDIUMTEXT, $ext_sqlite_caricata;
$fatto = "NO";
if (C_CREA_NUOVI_APP == "NO") {
$num_appartamenti_prec = esegui_query("select idappartamenti from " . $PHPR_TAB_PRE . "appartamenti");
$num_appartamenti_prec = numlin_query($num_appartamenti_prec);
} elseif (defined("C_MASSIMO_NUM_APP") and C_MASSIMO_NUM_APP != 0) {
$num_appartamenti_prec = C_MASSIMO_NUM_APP;
}
if (C_CAMBIA_TIPO_PERIODI == "NO") {
unset($tipo_periodi_prec);
$anni = esegui_query("select * from {$tableanni} order by idanni");
for ($num1 = 0; $num1 < numlin_query($anni); $num1++) {
$ultimo_anno_prec = risul_query($anni, $num1, 'idanni');
$tipo_periodi_prec[$ultimo_anno_prec] = risul_query($anni, $num1, 'tipo_periodi');
}
# fine for $num1
}
# fine if (C_CAMBIA_TIPO_PERIODI == "NO")
# Prima lettura di controllo del file
$file_coerente = "SI";
$num_err = "";
$ultima_linea = "";
$fbackup = fopen($file, "r");
if ($fbackup) {
$leggendo_righe = "NO";
while (!feof($fbackup)) {
unset($linee_backup);
$linee_backup = fread($fbackup, 524288);
$linee_backup = explode("\n", $linee_backup);
$num_linee_backup = count($linee_backup) - 1;
$linee_backup[0] = $ultima_linea . $linee_backup[0];
if (!feof($fbackup)) {
$ultima_linea = $linee_backup[$num_linee_backup];
} else {
$num_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 (substr($linea, 0, 5) == "<log>" and substr($linea, -6) == "</log>") {
$phpr_log = substr($linea, 5, -6);
}
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>" and $leggendo_righe != "SI") {
$leggendo_colonne == "NO";
$anno_ins = "";
if ($nome_tabella == "clienti") {
$tab_presente['clienti'] = "SI";
}
if ($nome_tabella == "relclienti") {
$tab_presente['relclienti'] = "SI";
}
if ($nome_tabella == "anni") {
$tab_presente['anni'] = "SI";
}
if ($nome_tabella == "versioni") {
$tab_presente['versioni'] = "SI";
}
if ($nome_tabella == "nazioni") {
$tab_presente['nazioni'] = "SI";
}
if ($nome_tabella == "regioni") {
$tab_presente['regioni'] = "SI";
}
if ($nome_tabella == "citta") {
$tab_presente['citta'] = "SI";
}
if ($nome_tabella == "documentiid") {
$tab_presente['documentiid'] = "SI";
}
if ($nome_tabella == "parentele") {
$tab_presente['parentele'] = "SI";
}
if ($nome_tabella == "personalizza") {
$tab_presente['personalizza'] = "SI";
}
if ($nome_tabella == "appartamenti") {
$tab_presente['appartamenti'] = "SI";
}
if ($nome_tabella == "utenti") {
$tab_presente['utenti'] = "SI";
}
if ($nome_tabella == "gruppi") {
$tab_presente['gruppi'] = "SI";
}
if ($nome_tabella == "privilegi") {
$tab_presente['privilegi'] = "SI";
}
if ($nome_tabella == "relutenti") {
$tab_presente['relutenti'] = "SI";
}
if ($nome_tabella == "relgruppi") {
$tab_presente['relgruppi'] = "SI";
}
if ($nome_tabella == "sessioni") {
$tab_presente['sessioni'] = "SI";
}
if ($nome_tabella == "transazioni") {
$tab_presente['transazioni'] = "SI";
}
if ($nome_tabella == "transazioniweb") {
$tab_presente['transazioniweb'] = "SI";
}
if ($nome_tabella == "descrizioni") {
$tab_presente['descrizioni'] = "SI";
}
if ($nome_tabella == "beniinventario") {
$tab_presente['beniinventario'] = "SI";
}
if ($nome_tabella == "magazzini") {
$tab_presente['magazzini'] = "SI";
}
if ($nome_tabella == "relinventario") {
$tab_presente['relinventario'] = "SI";
}
if ($nome_tabella == "casse") {
$tab_presente['casse'] = "SI";
}
if ($nome_tabella == "contratti") {
$tab_presente['contratti'] = "SI";
}
if ($nome_tabella == "interconnessioni") {
$tab_presente['interconnessioni'] = "SI";
}
if ($nome_tabella == "messaggi") {
$tab_presente['messaggi'] = "SI";
}
if (substr($nome_tabella, 0, 7) == "prenota") {
$anno_ins = substr($nome_tabella, 7);
$tab_presente[$anno_ins]['prenota'] = "SI";
}
if (substr($nome_tabella, 0, 12) == "costiprenota") {
$anno_ins = substr($nome_tabella, 12);
$tab_presente[$anno_ins]['costiprenota'] = "SI";
} else {
if (substr($nome_tabella, 0, 5) == "costi") {
$anno_ins = substr($nome_tabella, 5);
$tab_presente[$anno_ins]['costi'] = "SI";
}
}
if (substr($nome_tabella, 0, 15) == "rclientiprenota") {
$anno_ins = substr($nome_tabella, 15);
$tab_presente[$anno_ins]['rclientiprenota'] = "SI";
}
if (substr($nome_tabella, 0, 6) == "regole") {
$anno_ins = substr($nome_tabella, 6);
$tab_presente[$anno_ins]['regole'] = "SI";
}
if (substr($nome_tabella, 0, 5) == "soldi") {
$anno_ins = substr($nome_tabella, 5);
$tab_presente[$anno_ins]['soldi'] = "SI";
}
if (substr($nome_tabella, 0, 7) == "periodi") {
$anno_ins = substr($nome_tabella, 7);
$tab_presente[$anno_ins]['periodi'] = "SI";
}
if (substr($nome_tabella, 0, 8) == "ntariffe") {
$anno_ins = substr($nome_tabella, 8);
$tab_presente[$anno_ins]['ntariffe'] = "SI";
}
if ($anno_ins and controlla_anno($anno_ins) == "NO") {
$file_coerente = "NO";
$num_err .= "#1";
}
if ($anno_ins and $tab_anno_esistente[$anno_ins] != "SI") {
$tab_anno_esistente[$anno_ins] = "SI";
}
}
# fine if ($linea == "</colonnetabella>" and $leggendo_righe != "SI")
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;
if (substr($nome_tabella, 0, 7) == "periodi" and substr($nome_colonna[$num_colonne], 0, 7) == "tariffa") {
$lista_tariffe++;
}
if (substr($nome_tabella, 0, 8) == "ntariffe" and substr($nome_colonna[$num_colonne], 0, 7) == "tariffa") {
$lista_tariffe++;
}
if (defined("C_MASSIMO_NUM_TARIFFE") and C_MASSIMO_NUM_TARIFFE != 0 and $lista_tariffe > max(C_MASSIMO_NUM_TARIFFE, 10) * 3) {
$file_coerente = "NO";
$num_err .= "#2";
}
}
# 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 = 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 .= "#3";
}
}
# 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 .= "#4";
}
if ($var_riserv[$nome[1]]) {
$file_coerente = "NO";
$num_err .= "#5";
}
}
# fine if (substr($tipo_contr,0,4) == "vett")
}
# fine if ($nome_tabella == "contratti")
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 ((C_CREA_NUOVI_APP == "NO" or defined("C_MASSIMO_NUM_APP") and C_MASSIMO_NUM_APP != 0) and $nome_tabella == "appartamenti" and $linee_inserite_in_tabella[$nome_tabella] >= $num_appartamenti_prec) {
$file_coerente = "NO";
$num_err .= "#6";
}
if ($nome_tabella == "anni") {
$campo_anno_esistente[$valore_colonna['idanni']] = $valore_colonna['tipo_periodi'];
}
if (C_CREA_ANNO_NON_ATTUALE == "NO" and $nome_tabella == "anni" and $valore_colonna['idanni'] < C_PRIMO_ANNO_CREATO) {
$file_coerente = "NO";
$num_err .= "#7";
}
if (defined("C_MASSIMO_NUM_UTENTI") and C_MASSIMO_NUM_UTENTI != 0 and $nome_tabella == "utenti" and $linee_inserite_in_tabella[$nome_tabella] >= C_MASSIMO_NUM_UTENTI) {
$file_coerente = "NO";
$num_err .= "#8";
}
if (defined("C_MASSIMO_NUM_UTENTI") and C_MASSIMO_NUM_UTENTI != 0 and $nome_tabella == "gruppi" and $linee_inserite_in_tabella[$nome_tabella] >= C_MASSIMO_NUM_UTENTI) {
$file_coerente = "NO";
$num_err .= "#9";
}
if (defined("C_MASSIMO_NUM_UTENTI") and C_MASSIMO_NUM_UTENTI != 0 and ($nome_tabella == "sessioni" or $nome_tabella == "transazioni") and $linee_inserite_in_tabella[$nome_tabella] >= C_MASSIMO_NUM_UTENTI * 25) {
$file_coerente = "NO";
$num_err .= "#10";
}
if (defined("C_MASSIMO_NUM_UTENTI") and C_MASSIMO_NUM_UTENTI != 0 and $nome_tabella == "privilegi" and $linee_inserite_in_tabella[$nome_tabella] > C_MASSIMO_NUM_UTENTI * 20) {
$file_coerente = "NO";
$num_err .= "#11";
}
if (defined("C_MASSIMO_NUM_UTENTI") and C_MASSIMO_NUM_UTENTI != 0 and $nome_tabella == "personalizza" and $linee_inserite_in_tabella[$nome_tabella] >= C_MASSIMO_NUM_UTENTI * 50) {
$file_coerente = "NO";
$num_err .= "#12";
}
if (defined("C_MASSIMO_NUM_UTENTI") and C_MASSIMO_NUM_UTENTI != 0 and $nome_tabella == "nazioni" and $linee_inserite_in_tabella[$nome_tabella] > C_MASSIMO_NUM_UTENTI * 3000) {
$file_coerente = "NO";
$num_err .= "#13";
}
if (defined("C_MASSIMO_NUM_UTENTI") and C_MASSIMO_NUM_UTENTI != 0 and $nome_tabella == "regioni" and $linee_inserite_in_tabella[$nome_tabella] > C_MASSIMO_NUM_UTENTI * 3000) {
$file_coerente = "NO";
$num_err .= "#14";
}
if (defined("C_MASSIMO_NUM_UTENTI") and C_MASSIMO_NUM_UTENTI != 0 and $nome_tabella == "citta" and $linee_inserite_in_tabella[$nome_tabella] > C_MASSIMO_NUM_UTENTI * 30000) {
$file_coerente = "NO";
$num_err .= "#15";
}
if (defined("C_MASSIMO_NUM_UTENTI") and C_MASSIMO_NUM_UTENTI != 0 and $nome_tabella == "documentiid" and $linee_inserite_in_tabella[$nome_tabella] > C_MASSIMO_NUM_UTENTI * 2000) {
$file_coerente = "NO";
$num_err .= "#16";
}
if (defined("C_MASSIMO_NUM_UTENTI") and C_MASSIMO_NUM_UTENTI != 0 and $nome_tabella == "parentele" and $linee_inserite_in_tabella[$nome_tabella] > C_MASSIMO_NUM_UTENTI * 1000) {
$file_coerente = "NO";
$num_err .= "#17";
}
if (defined("C_MASSIMO_NUM_UTENTI") and C_MASSIMO_NUM_UTENTI != 0 and $nome_tabella == "relutenti" and $linee_inserite_in_tabella[$nome_tabella] > C_MASSIMO_NUM_UTENTI * 80000) {
$file_coerente = "NO";
$num_err .= "#18";
}
if (defined("C_MASSIMO_NUM_UTENTI") and C_MASSIMO_NUM_UTENTI != 0 and $nome_tabella == "relgruppi" and $linee_inserite_in_tabella[$nome_tabella] > C_MASSIMO_NUM_UTENTI * 8000) {
$file_coerente = "NO";
$num_err .= "#19";
}
if (defined("C_MASSIMO_NUM_CLIENTI") and C_MASSIMO_NUM_CLIENTI != 0 and $nome_tabella == "clienti" and $linee_inserite_in_tabella[$nome_tabella] >= C_MASSIMO_NUM_CLIENTI) {
$file_coerente = "NO";
$num_err .= "#20";
}
if (defined("C_MASSIMO_NUM_CLIENTI") and C_MASSIMO_NUM_CLIENTI != 0 and $nome_tabella == "relclienti" and $linee_inserite_in_tabella[$nome_tabella] >= C_MASSIMO_NUM_CLIENTI * 10) {
$file_coerente = "NO";
$num_err .= "#21";
}
if (defined("C_MASSIMO_NUM_CLIENTI") and C_MASSIMO_NUM_CLIENTI != 0 and $nome_tabella == "transazioniweb" and $linee_inserite_in_tabella[$nome_tabella] >= C_MASSIMO_NUM_CLIENTI) {
$file_coerente = "NO";
$num_err .= "#22";
}
if (defined("C_MASSIMO_NUM_COSTI_AGG") and C_MASSIMO_NUM_COSTI_AGG != 0 and substr($nome_tabella, 0, 8) == "ntariffe" and $linee_inserite_in_tabella[$nome_tabella] >= C_MASSIMO_NUM_COSTI_AGG + 4) {
$file_coerente = "NO";
$num_err .= "#23";
}
if (defined("C_MASSIMO_NUM_TARIFFE") and C_MASSIMO_NUM_TARIFFE != 0 and $nome_tabella == "descrizioni" and $linee_inserite_in_tabella[$nome_tabella] >= C_MASSIMO_NUM_TARIFFE * 50 + 40) {
$file_coerente = "NO";
$num_err .= "#24";
}
if (defined("C_MASSIMO_NUM_TARIFFE") and C_MASSIMO_NUM_TARIFFE != 0 and $nome_tabella == "beniinventario" and $linee_inserite_in_tabella[$nome_tabella] >= C_MASSIMO_NUM_TARIFFE * 10000) {
$file_coerente = "NO";
$num_err .= "#25";
}
if (defined("C_MASSIMO_NUM_TARIFFE") and C_MASSIMO_NUM_TARIFFE != 0 and $nome_tabella == "magazzini" and $linee_inserite_in_tabella[$nome_tabella] >= C_MASSIMO_NUM_TARIFFE * 1000) {
$file_coerente = "NO";
$num_err .= "#26";
}
if (defined("C_MASSIMO_NUM_TARIFFE") and C_MASSIMO_NUM_TARIFFE != 0 and $nome_tabella == "relinventario" and $linee_inserite_in_tabella[$nome_tabella] >= C_MASSIMO_NUM_TARIFFE * 100000) {
$file_coerente = "NO";
$num_err .= "#27";
}
if (defined("C_MASSIMO_NUM_TARIFFE") and C_MASSIMO_NUM_TARIFFE != 0 and $nome_tabella == "casse" and $linee_inserite_in_tabella[$nome_tabella] >= C_MASSIMO_NUM_TARIFFE * 1000) {
$file_coerente = "NO";
$num_err .= "#27.1";
}
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 .= "#28";
}
if (defined("C_MASSIMO_NUM_CLIENTI") and C_MASSIMO_NUM_CLIENTI != 0 and $nome_tabella == "interconnessioni" and $linee_inserite_in_tabella[$nome_tabella] >= C_MASSIMO_NUM_CLIENTI * 10) {
$file_coerente = "NO";
$num_err .= "#29";
}
if (defined("C_MASSIMO_NUM_CLIENTI") and C_MASSIMO_NUM_CLIENTI != 0 and $nome_tabella == "messaggi" and $linee_inserite_in_tabella[$nome_tabella] >= C_MASSIMO_NUM_CLIENTI) {
$file_coerente = "NO";
$num_err .= "#30";
}
if (defined("C_MASSIMO_NUM_STORIA_SOLDI") and C_MASSIMO_NUM_STORIA_SOLDI != 0 and substr($nome_tabella, 0, 5) == "soldi" and $linee_inserite_in_tabella[$nome_tabella] >= C_MASSIMO_NUM_STORIA_SOLDI + 1) {
$file_coerente = "NO";
$num_err .= "#31";
}
if (defined("C_MASSIMO_NUM_COSTI") and C_MASSIMO_NUM_COSTI != 0 and substr($nome_tabella, 0, 5) == "costi" and $linee_inserite_in_tabella[$nome_tabella] >= C_MASSIMO_NUM_COSTI) {
$file_coerente = "NO";
$num_err .= "#32";
}
if (substr($nome_tabella, 0, 8) == "ntariffe" and $valore_colonna['idntariffe'] == 1) {
$numero_tariffe[substr($nome_tabella, 8)] = $valore_colonna['nomecostoagg'];
}
if ($nome_tabella == "versioni" and $linee_inserite_in_tabella[$nome_tabella] >= 2) {
$file_coerente = "NO";
$num_err .= "#33";
}
$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";
}
} else {
if ($linea == "</file>") {
$leggendo_file = "NO";
}
if ($leggendo_file == "SI") {
if ($nome_file) {
if ($leggendo_contenuto == "SI") {
if (substr($linea, -12) == "</contenuto>") {
$leggendo_contenuto = "NO";
$leggendo_cont_file_sel = "NO";
$linea = substr($linea, 0, -12);
}
# fine if (substr($linea,-12) == "</contenuto>")
$linea = trim($linea);
if ($leggendo_prima_linea == "SI") {
$prima_linea = $linea;
$leggendo_prima_linea = "NO";
}
# fine if ($leggendo_prima_linea == "SI")
if ($nome_file == "./data/versione.php") {
if ($linea != "" and $linea != "<?php" and $linea != "define(C_VERSIONE_ATTUALE," . C_PHP_VERSION_NUM . ");" and preg_replace("/define\\(C_DIFF_ORE,-?[0-9]{1,2}\\);/", "", $linea) != "" and $linea != "?>") {
$file_coerente = "NO";
$num_err .= "#34";
}
}
# fine if ($nome_file == "./data/versione.php")
if ($nome_file == "./data/selectappartamenti.php") {
if ($linea == "\";") {
$leggendo_cont_file_sel = "NO";
}
if ($leggendo_cont_file_sel != "SI" and $linea != "" and $linea != "<?php" and $linea != "?>" and $linea != "\";" and $linea != "echo \"") {
$file_coerente = "NO";
$num_err .= "#35";
}
if ($leggendo_cont_file_sel == "SI") {
if (str_replace("\\\\", "", $linea) != $linea) {
$file_coerente = "NO";
$num_err .= "#36";
}
$linea = str_replace("\\\"", "", $linea);
if (str_replace("\"", "", $linea) != $linea) {
$file_coerente = "NO";
$num_err .= "#37";
}
}
# fine if ($leggendo_cont_file_sel == "SI")
if ($linea == "echo \"") {
$leggendo_cont_file_sel = "SI";
}
}
# fine if ($nome_file == "./data/selectappartamenti.php")
if (substr($nome_file, 0, 20) == "./data/selectperiodi" or substr($nome_file, 0, 21) == "./data/selperiodimenu") {
if ($linea == "\";") {
$leggendo_cont_file_sel = "NO";
}
if ($leggendo_cont_file_sel != "SI") {
$linea_trovata = "NO";
if ($linea == "") {
$linea_trovata = "SI";
}
if ($linea == "<?php") {
$linea_trovata = "SI";
}
if ($linea == "?>") {
$linea_trovata = "SI";
}
if ($linea == "\";") {
$linea_trovata = "SI";
}
if ($linea == "\$dates_options_list = \"") {
$linea_trovata = "SI";
}
if (preg_replace("/\\\$y_ini_menu\\[[0-9]{1,2}\\] = \"[0-9]{1,4}\";/", "", $linea) == "") {
$linea_trovata = "SI";
}
if (preg_replace("/\\\$m_ini_menu\\[[0-9]{1,2}\\] = \"[0-9]{1,2}\";/", "", $linea) == "") {
$linea_trovata = "SI";
}
if (preg_replace("/\\\$d_ini_menu\\[[0-9]{1,2}\\] = \"[0-9]{1,2}\";/", "", $linea) == "") {
$linea_trovata = "SI";
}
if (preg_replace("/\\\$n_dates_menu\\[[0-9]{1,2}\\] = \"[0-9]{1,4}\";/", "", $linea) == "") {
$linea_trovata = "SI";
}
if (preg_replace("/\\\$d_increment\\[[0-9]{1,2}\\] = \"[0-9]{1,2}\";/", "", $linea) == "") {
$linea_trovata = "SI";
}
if ($linea == "\$partial_dates = 1;") {
$linea_trovata = "SI";
}
if (preg_replace("/\\\$d_names = \"\\\\\"[^\"]{1,16}\\\\\",\\\\\"[^\"]{1,16}\\\\\",\\\\\"[^\"]{1,16}\\\\\",\\\\\"[^\"]{1,16}\\\\\",\\\\\"[^\"]{1,16}\\\\\",\\\\\"[^\"]{1,16}\\\\\",\\\\\"[^\"]{1,16}\\\\\"\";/", "", $linea) == "") {
$linea_trovata = "SI";
}
if (preg_replace("/\\\$m_names = \"\\\\\"[^\"]{1,16}\\\\\",\\\\\"[^\"]{1,16}\\\\\",\\\\\"[^\"]{1,16}\\\\\",\\\\\"[^\"]{1,16}\\\\\",\\\\\"[^\"]{1,16}\\\\\",\\\\\"[^\"]{1,16}\\\\\",\\\\\"[^\"]{1,16}\\\\\",\\\\\"[^\"]{1,16}\\\\\",\\\\\"[^\"]{1,16}\\\\\",\\\\\"[^\"]{1,16}\\\\\",\\\\\"[^\"]{1,16}\\\\\",\\\\\"[^\"]{1,16}\\\\\"\";/", "", $linea) == "") {
$linea_trovata = "SI";
}
if ($linea_trovata != "SI") {
$file_coerente = "NO";
$num_err .= "#38";
}
}
# fine if ($leggendo_cont_file_sel != "SI")
if ($leggendo_cont_file_sel == "SI") {
if (str_replace("\\\\", "", $linea) != $linea) {
$file_coerente = "NO";
$num_err .= "#39";
}
$linea = str_replace("\\\"", "", $linea);
if (str_replace("\"", "", $linea) != $linea) {
$file_coerente = "NO";
$num_err .= "#40";
}
}
# fine if ($leggendo_cont_file_sel == "SI")
if ($linea == "\$dates_options_list = \"") {
$leggendo_cont_file_sel = "SI";
}
}
# fine if (substr($nome_file,0,20) == "./data/selectperiodi" or...
if ($nome_file == "./data/abilita_login" and $linea != "") {
$file_coerente = "NO";
$num_err .= "#41";
}
if ($nome_file == "./data/lingua.php" and $linea != "" and $linea != "<?php" and $linea != "?>" and preg_replace("/\\\$lingua\\[[0-9]{1,8}\\] = \"[a-z]{1,3}\";/", "", $linea) != "") {
$file_coerente = "NO";
$num_err .= "#42";
}
if ($nome_file == "./data/unit.php" or $nome_file == "./data/unit_single.php") {
$linea_trovata = "NO";
if ($linea == "") {
$linea_trovata = "SI";
}
if ($linea == "<?php") {
$linea_trovata = "SI";
}
if ($linea == "?>") {
$linea_trovata = "SI";
}
if (preg_replace("/^\\\$unit\\['(p_n|s_n|gender)'\\] = \\\$trad_var\\['[a-z_]*'\\];/", "", $linea) == "") {
$linea_trovata = "SI";
}
if (preg_replace("/^\\\$unit\\['lang'\\]\\['[a-z]{2,3}'\\]\\['(p_n|s_n|gender)'\\] = '[^']*';/", "", $linea) == "") {
$linea_trovata = "SI";
}
if ($linea == "\$unit['s_n'] = \$unit['lang'][\$lingua_mex]['s_n'];") {
$linea_trovata = "SI";
}
if ($linea == "\$unit['p_n'] = \$unit['lang'][\$lingua_mex]['p_n'];") {
$linea_trovata = "SI";
}
if ($linea == "\$unit['gender'] = \$unit['lang'][\$lingua_mex]['gender'];") {
$linea_trovata = "SI";
}
if ($linea == "\$unit['special'] = 0;") {
$linea_trovata = "SI";
}
if ($linea == "\$car_spec = explode(\",\",\$trad_var['special_characters']);") {
$linea_trovata = "SI";
}
if ($linea == "for (\$num1 = 0 ; \$num1 < count(\$car_spec) ; \$num1++) if (substr(\$unit['p_n'],0,strlen(\$car_spec[\$num1])) == \$car_spec[\$num1]) \$unit['special'] = 1;") {
$linea_trovata = "SI";
}
if ($linea_trovata != "SI") {
$file_coerente = "NO";
$num_err .= "#42.1";
}
}
# fine if ($nome_file == "./data/unit.php" or $nome_file == "./data/unit_single.php")
if ($nome_file == "./data/tema.php" and $linea != "" and $linea != "<?php" and $linea != "?>" and preg_replace("/\\\$tema\\[[0-9]{1,8}\\] = \"[a-z]{1,4}\";/", "", $linea) != "" and preg_replace("/\\\$parole_sost = [01];/", "", $linea) != "") {
$file_coerente = "NO";
$num_err .= "#43";
}
if ($nome_file == "./data/parole_sost.php" and $linea != "" and $linea != "<?php" and $linea != "?>" and preg_replace("/\\\$messaggio = str_replace\\(\"[^\"]*\",\"[^\"]*\",\\\$messaggio\\);/", "", $linea) != "") {
$file_coerente = "NO";
$num_err .= "#44";
}
if ($nome_file == "./data/dati_interconnessioni.php") {
$linea_trovata = "NO";
if ($linea == "") {
$linea_trovata = "SI";
}
if ($linea == "<?php") {
$linea_trovata = "SI";
}
if ($linea == "?>") {
$linea_trovata = "SI";
}
if (preg_replace("/^#[0-9a-zA-Z _]*/", "", $linea) == "") {
$linea_trovata = "SI";
}
if (preg_replace("/^unset\\(\\\$ic_[a-z_]+[0-9a-z_]*\\);/", "", $linea) == "") {
$linea_trovata = "SI";
}
if (preg_replace("/\\\$ic_[a-z_]+[0-9a-z_]*\\[?\"?[0-9a-zA-Z_]*\"?\\]?\\[?\"?[0-9a-zA-Z_]*\"?\\]?\\[?\"?[0-9a-zA-Z_]*\"?\\]? = \"[^\"]*\";/", "", $linea) == "") {
$linea_trovata = "SI";
}
if (preg_replace("/\\\$ic_org[a-z_]+[0-9a-z_]*_ic = C_[A-Z][A-Z_]*[A-Z]_IC;/", "", $linea) == "") {
$linea_trovata = "SI";
}
if ($linea_trovata != "SI") {
$file_coerente = "NO";
$num_err .= "#45";
}
}
# fine if ($nome_file == "./data/dati_interconnessioni.php")
if ($nome_file == "./data/log_utenti.php" and ($prima_linea != "<?php exit(); ?>" or $linea != "<?php exit(); ?>" and preg_replace("/^[0-9]+>[0-9]{4,4}-[0-9]{2,2}-[0-9]{2,2} [0-9]{2,2}:[0-9]{2,2}:[0-9]{2,2}>[a-zA-Z]?.*/", "", $linea) != "")) {
$file_coerente = "NO";
$num_err .= "#46";
}
if ($leggendo_contenuto == "NO") {
$nome_file = "";
}
}
# fine if ($leggendo_contenuto == "SI")
if ($linea == "<contenuto>") {
$leggendo_contenuto = "SI";
$leggendo_prima_linea = "SI";
}
# fine if ($linea == "<contenuto>")
}
# fine if ($nome_file)
if (substr($linea, 0, 10) == "<nomefile>") {
$nome_file = substr($linea, 10);
$nome_file = substr($nome_file, 0, -11);
if (C_CREA_SUBORDINAZIONI == "NO" and str_replace("dati_subordinazione", "", $nome_file) != $nome_file) {
$file_coerente = "NO";
$num_err .= "#47";
}
if (substr($nome_file, 0, 7) != "./data/") {
$file_coerente = "NO";
$num_err .= "#48";
}
$nome_file_vett = explode("/", $nome_file);
if (count($nome_file_vett) > 3) {
$file_coerente = "NO";
$num_err .= "#49";
}
$nome_file_trovato = "NO";
if ($nome_file == "./data/selectappartamenti.php") {
$nome_file_trovato = "SI";
}
if ($nome_file == "./data/abilita_login") {
$nome_file_trovato = "SI";
}
if ($nome_file == "./data/lingua.php") {
$nome_file_trovato = "SI";
}
if ($nome_file == "./data/unit.php") {
$nome_file_trovato = "SI";
}
if ($nome_file == "./data/unit_single.php") {
$nome_file_trovato = "SI";
}
if ($nome_file == "./data/tema.php") {
$nome_file_trovato = "SI";
}
if ($nome_file == "./data/parole_sost.php") {
$nome_file_trovato = "SI";
}
if ($nome_file == "./data/dati_interconnessioni.php") {
$nome_file_trovato = "SI";
}
if ($nome_file == "./data/log_utenti.php") {
$nome_file_trovato = "SI";
}
if ($nome_file == "./data/versione.php") {
$nome_file_trovato = "SI";
}
if (substr($nome_file, 0, 20) == "./data/selectperiodi") {
$nome_file_trovato = "SI";
}
if (substr($nome_file, 0, 21) == "./data/selperiodimenu") {
$nome_file_trovato = "SI";
}
if ($nome_file_trovato == "NO") {
$file_coerente = "NO";
$num_err .= "#50";
}
}
# fine if (substr($linea,0,9) == "<nomefile>")
}
# fine if ($leggendo_file == "SI")
if ($linea == "<file>" and $leggendo_modello != "SI") {
$leggendo_file = "SI";
}
}
# fine else if ($leggendo_database == "SI")
if ($linea == "<database>" and $leggendo_modello != "SI") {
$leggendo_database = "SI";
}
if ($linea == "</modello>") {
$leggendo_modello = "NO";
}
if ($linea == "<modello>" and $leggendo_database != "SI" and $leggendo_file != "SI") {
$leggendo_modello = "SI";
}
}
# fine if ($leggendo_backup == "SI")
if ($linea == "<backup>") {
$leggendo_backup = "SI";
}
}
# fine for $num1
}
# fine while (!feof($fbackup))
fclose($fbackup);
} else {
$file_coerente = "NO";
$num_err .= "#51";
}
if (preg_replace("/SI[0-9,]*/", "", $phpr_log) != "") {
$phpr_log = "NO";
}
if (!@is_array($campo_anno_esistente) or !@is_array($tab_anno_esistente)) {
$file_coerente = "NO";
$num_err .= "#52";
} else {
if (count($campo_anno_esistente) != count($tab_anno_esistente)) {
$file_coerente = "NO";
$num_err .= "#53";
}
reset($campo_anno_esistente);
while (list($key, $val) = each($campo_anno_esistente)) {
if ($tab_anno_esistente[$key] != "SI") {
$file_coerente = "NO";
$num_err .= "#54";
}
if ($tab_presente[$key]['prenota'] != "SI") {
$file_coerente = "NO";
$num_err .= "#55";
}
if ($tab_presente[$key]['costiprenota'] != "SI") {
$file_coerente = "NO";
$num_err .= "#56";
}
if ($tab_presente[$key]['rclientiprenota'] != "SI") {
$file_coerente = "NO";
$num_err .= "#57";
}
if ($tab_presente[$key]['costi'] != "SI") {
$file_coerente = "NO";
$num_err .= "#58";
}
if ($tab_presente[$key]['regole'] != "SI") {
$file_coerente = "NO";
$num_err .= "#59";
}
if ($tab_presente[$key]['soldi'] != "SI") {
$file_coerente = "NO";
$num_err .= "#60";
}
if ($tab_presente[$key]['periodi'] != "SI") {
$file_coerente = "NO";
$num_err .= "#61";
}
if ($tab_presente[$key]['ntariffe'] != "SI") {
$file_coerente = "NO";
$num_err .= "#62";
}
if (defined("C_PRIMO_ANNO_CREATO") and C_CREA_ANNO_NON_ATTUALE == "NO" and $key < C_PRIMO_ANNO_CREATO) {
$file_coerente = "NO";
$num_err .= "#63";
}
if (C_CREA_ANNO_NON_ATTUALE == "NO" and $key > date("Y", time() + C_DIFF_ORE * 3600)) {
$file_coerente = "NO";
$num_err .= "#64";
}
if (!$anno_max or $key > $anno_max) {
$anno_max = $key;
$ultimo_tipo_periodi = $val;
}
# fine if (!$anno_max or $key > $anno_max)
if (!$numero_tariffe[$key] or controlla_num_pos($numero_tariffe[$key]) == "NO") {
$file_coerente = "NO";
$num_err .= "#65";
}
if (defined("C_MASSIMO_NUM_TARIFFE") and C_MASSIMO_NUM_TARIFFE != 0 and $numero_tariffe[$key] > C_MASSIMO_NUM_TARIFFE) {
$file_coerente = "NO";
$num_err .= "#66";
}
if ($val != "g" and $val != "s") {
$file_coerente = "NO";
$num_err .= "#67";
}
if ($val == "g" and $linee_inserite_in_tabella["periodi" . $key] > 1825 or $val == "s" and $linee_inserite_in_tabella["periodi" . $key] > 260) {
$file_coerente = "NO";
$num_err .= "#68";
}
$prenotazioni_max = $linee_inserite_in_tabella["periodi" . $key] * ($linee_inserite_in_tabella["appartamenti"] + 2);
if (defined("C_MASSIMO_NUM_COSTI_AGG_IN_PRENOTA") and C_MASSIMO_NUM_COSTI_AGG_IN_PRENOTA != 0 and $linee_inserite_in_tabella["costiprenota" . $key] > C_MASSIMO_NUM_COSTI_AGG_IN_PRENOTA * $prenotazioni_max) {
$file_coerente = "NO";
$num_err .= "#69";
}
if (defined("C_MASSIMO_NUM_CLIENTI") and C_MASSIMO_NUM_CLIENTI != 0 and $linee_inserite_in_tabella["rclientiprenota" . $key] > C_MASSIMO_NUM_CLIENTI * $prenotazioni_max) {
$file_coerente = "NO";
$num_err .= "#70";
}
if ($linee_inserite_in_tabella["prenota" . $key] > $prenotazioni_max) {
$file_coerente = "NO";
$num_err .= "#71";
}
if ($linee_inserite_in_tabella["regole" . $key] > $prenotazioni_max + $numero_tariffe[$key] * 2) {
$file_coerente = "NO";
$num_err .= "#72";
}
}
# fine while (list($key,$val) = each($campo_anno_esistente))
}
# fine else if (!@is_array($campo_anno_esistente) or...
if (C_CAMBIA_TIPO_PERIODI == "NO" and $tipo_periodi_prec[$ultimo_anno_prec] != $ultimo_tipo_periodi) {
$file_coerente = "NO";
$num_err .= "#73";
}
if ($tab_presente['clienti'] != "SI") {
$file_coerente = "NO";
$num_err .= "#74";
}
if ($tab_presente['relclienti'] != "SI") {
$file_coerente = "NO";
$num_err .= "#75";
}
if ($tab_presente['anni'] != "SI") {
$file_coerente = "NO";
$num_err .= "#76";
}
if ($tab_presente['versioni'] != "SI") {
$file_coerente = "NO";
$num_err .= "#77";
}
if ($tab_presente['nazioni'] != "SI") {
$file_coerente = "NO";
$num_err .= "#78";
}
if ($tab_presente['regioni'] != "SI") {
$file_coerente = "NO";
$num_err .= "#79";
}
if ($tab_presente['citta'] != "SI") {
$file_coerente = "NO";
$num_err .= "#80";
}
if ($tab_presente['documentiid'] != "SI") {
$file_coerente = "NO";
$num_err .= "#81";
}
if ($tab_presente['parentele'] != "SI") {
$file_coerente = "NO";
$num_err .= "#82";
}
if ($tab_presente['personalizza'] != "SI") {
$file_coerente = "NO";
$num_err .= "#83";
}
if ($tab_presente['appartamenti'] != "SI") {
$file_coerente = "NO";
$num_err .= "#84";
}
if ($tab_presente['utenti'] != "SI") {
$file_coerente = "NO";
$num_err .= "#85";
}
if ($tab_presente['gruppi'] != "SI") {
$file_coerente = "NO";
$num_err .= "#86";
}
if ($tab_presente['privilegi'] != "SI") {
$file_coerente = "NO";
$num_err .= "#87";
}
if ($tab_presente['relutenti'] != "SI") {
$file_coerente = "NO";
$num_err .= "#88";
}
if ($tab_presente['relgruppi'] != "SI") {
$file_coerente = "NO";
$num_err .= "#89";
}
if ($tab_presente['sessioni'] != "SI") {
$file_coerente = "NO";
$num_err .= "#90";
}
if ($tab_presente['transazioni'] != "SI") {
$file_coerente = "NO";
$num_err .= "#91";
}
if ($tab_presente['transazioniweb'] != "SI") {
$file_coerente = "NO";
$num_err .= "#92";
}
if ($tab_presente['descrizioni'] != "SI") {
$file_coerente = "NO";
$num_err .= "#93";
}
if ($tab_presente['beniinventario'] != "SI") {
$file_coerente = "NO";
$num_err .= "#94";
}
if ($tab_presente['magazzini'] != "SI") {
$file_coerente = "NO";
$num_err .= "#95";
}
if ($tab_presente['relinventario'] != "SI") {
$file_coerente = "NO";
$num_err .= "#96";
}
if ($tab_presente['casse'] != "SI") {
$file_coerente = "NO";
$num_err .= "#96.1";
}
if ($tab_presente['contratti'] != "SI") {
$file_coerente = "NO";
$num_err .= "#97";
}
if ($tab_presente['interconnessioni'] != "SI") {
$file_coerente = "NO";
$num_err .= "#98";
}
if ($tab_presente['messaggi'] != "SI") {
$file_coerente = "NO";
$num_err .= "#99";
}
unset($tab_presente);
unset($var_riserv);
if ($file_coerente == "NO") {
if ($silenzio != "SI") {
echo mex("Il formato del file è errato", $pag) . ".<br>";
}
# debug backup COMPLETO
#if ($num_err) echo mex("Errori",$pag).": $num_err.<br>";
} else {
if (defined('C_EXT_DB_DATA_PATH') and C_EXT_DB_DATA_PATH) {
$HOTELD_DB_TYPE = "";
$HOTELD_DB_NAME = "";
$HOTELD_DB_HOST = "";
$HOTELD_DB_PORT = "";
$HOTELD_DB_USER = "";
$HOTELD_DB_PASS = "";
$HOTELD_TAB_PRE = "";
include C_EXT_DB_DATA_PATH;
if ($HOTELD_DB_TYPE) {
$N_PHPR_DB_TYPE = $HOTELD_DB_TYPE;
}
if ($HOTELD_DB_NAME) {
$N_PHPR_DB_NAME = $HOTELD_DB_NAME;
}
if ($HOTELD_DB_HOST) {
$N_PHPR_DB_HOST = $HOTELD_DB_HOST;
}
if (strcmp($HOTELD_DB_PORT, "")) {
$N_PHPR_DB_PORT = $HOTELD_DB_PORT;
}
if ($HOTELD_DB_USER) {
$N_PHPR_DB_USER = $HOTELD_DB_USER;
}
if (strcmp($HOTELD_DB_PASS, "")) {
$N_PHPR_DB_PASS = $HOTELD_DB_PASS;
}
if ($HOTELD_TAB_PRE) {
$N_PHPR_TAB_PRE = $HOTELD_TAB_PRE;
}
}
# fine if (defined('C_EXT_DB_DATA_PATH') and C_EXT_DB_DATA_PATH)
if ($N_PHPR_DB_TYPE == "mysql" and @function_exists('mysqli_connect')) {
$N_PHPR_DB_TYPE = "mysqli";
}
if ($N_PHPR_DB_NAME != $PHPR_DB_NAME or $N_PHPR_DB_HOST != $PHPR_DB_HOST or $N_PHPR_DB_PORT != $PHPR_DB_PORT or $N_PHPR_DB_TYPE != $PHPR_DB_TYPE) {
$nuovo_db = "SI";
if ($N_PHPR_DB_NAME == $PHPR_DB_NAME and $N_PHPR_DB_HOST == $PHPR_DB_HOST and $N_PHPR_DB_PORT == $PHPR_DB_PORT and substr($N_PHPR_DB_TYPE, 0, 5) == "mysql" and substr($PHPR_DB_TYPE, 0, 5) == "mysql") {
$database_esistente = "SI";
}
}
# fine if ($N_PHPR_DB_NAME != $PHPR_DB_NAME or $N_PHPR_DB_HOST != $PHPR_DB_HOST or...
if ($nuovo_db == "SI" or $N_PHPR_TAB_PRE != $PHPR_TAB_PRE) {
$mantieni_anni = "";
}
unset($anno_mantieni);
$tabelle_lock = array($tableanni, $tableutenti);
$altre_tab_lock = array($PHPR_TAB_PRE . "clienti", $PHPR_TAB_PRE . "personalizza", $PHPR_TAB_PRE . "privilegi");
$tabelle_lock = lock_tabelle($tabelle_lock, $altre_tab_lock);
$anni_vecchi = esegui_query("select * from {$tableanni} order by idanni");
$num_anni_vecchi = numlin_query($anni_vecchi);
$utenti_vecchi = esegui_query("select * from {$tableutenti} order by idutenti");
unlink(C_DATA_PATH . "/dati_connessione.php");
unlink(C_DATA_PATH . "/selectappartamenti.php");
unlink(C_DATA_PATH . "/versione.php");
unlink(C_DATA_PATH . "/tema.php");
if (@is_file(C_DATA_PATH . "/parole_sost.php")) {
unlink(C_DATA_PATH . "/parole_sost.php");
}
if (@is_file(C_DATA_PATH . "/dati_interconnessioni.php")) {
unlink(C_DATA_PATH . "/dati_interconnessioni.php");
}
if (@is_file(C_DATA_PATH . "/abilita_login")) {
unlink(C_DATA_PATH . "/abilita_login");
}
if (@is_file(C_DATA_PATH . "/log_utenti.php")) {
unlink(C_DATA_PATH . "/log_utenti.php");
}
#if (@is_file(C_DATI_PATH."/ultimo_accesso")) unlink(C_DATI_PATH."/ultimo_accesso");
esegui_query("drop table " . $PHPR_TAB_PRE . "anni");
esegui_query("drop table " . $PHPR_TAB_PRE . "utenti");
unlock_tabelle($tabelle_lock);
for ($num1 = 0; $num1 < $num_anni_vecchi; $num1 = $num1 + 1) {
$anno_cancella = risul_query($anni_vecchi, $num1, 'idanni');
if (!$mantieni_anni or $campo_anno_esistente[$anno_cancella]) {
esegui_query("drop table " . $PHPR_TAB_PRE . "prenota{$anno_cancella}");
esegui_query("drop table " . $PHPR_TAB_PRE . "costiprenota{$anno_cancella}");
esegui_query("drop table " . $PHPR_TAB_PRE . "rclientiprenota{$anno_cancella}");
esegui_query("drop table " . $PHPR_TAB_PRE . "periodi{$anno_cancella}");
esegui_query("drop table " . $PHPR_TAB_PRE . "ntariffe{$anno_cancella}");
esegui_query("drop table " . $PHPR_TAB_PRE . "regole{$anno_cancella}");
esegui_query("drop table " . $PHPR_TAB_PRE . "soldi{$anno_cancella}");
esegui_query("drop table " . $PHPR_TAB_PRE . "costi{$anno_cancella}");
for ($num2 = 0; $num2 < numlin_query($utenti_vecchi); $num2++) {
$idutente_canc = risul_query($utenti_vecchi, $num2, 'idutenti');
if (@is_file(C_DATA_PATH . "/selectperiodi{$anno_cancella}.{$idutente_canc}.php")) {
unlink(C_DATA_PATH . "/selectperiodi{$anno_cancella}.{$idutente_canc}.php");
}
if (@is_file(C_DATA_PATH . "/selperiodimenu{$anno_cancella}.{$idutente_canc}.php")) {
unlink(C_DATA_PATH . "/selperiodimenu{$anno_cancella}.{$idutente_canc}.php");
}
}
# fine for $num2
} elseif ($mantieni_anni) {
$anno_mantieni[$anno_cancella] = 1;
}
}
# fine for $num1
if ($mantieni_anni and @is_array($anno_mantieni)) {
$clienti_vecchi = esegui_query("select * from " . $PHPR_TAB_PRE . "clienti order by idclienti");
$max_clienti_vecchi = esegui_query("select max(idclienti) from " . $PHPR_TAB_PRE . "clienti");
$max_clienti_vecchi = risul_query($max_clienti_vecchi, 0, 0);
$privilegi_vecchi = esegui_query("select * from " . $PHPR_TAB_PRE . "privilegi order by idutente");
$personalizza_vecchi = esegui_query("select * from " . $PHPR_TAB_PRE . "personalizza where idpersonalizza {$LIKE} 'giorno_vedi_ini_sett%' ");
}
# fine if ($mantieni_anni and @is_array($anno_mantieni))
esegui_query("drop table " . $PHPR_TAB_PRE . "appartamenti");
esegui_query("drop table " . $PHPR_TAB_PRE . "clienti");
esegui_query("drop table " . $PHPR_TAB_PRE . "relclienti");
esegui_query("drop table " . $PHPR_TAB_PRE . "personalizza");
esegui_query("drop table " . $PHPR_TAB_PRE . "versioni");
esegui_query("drop table " . $PHPR_TAB_PRE . "nazioni");
esegui_query("drop table " . $PHPR_TAB_PRE . "regioni");
esegui_query("drop table " . $PHPR_TAB_PRE . "citta");
esegui_query("drop table " . $PHPR_TAB_PRE . "documentiid");
esegui_query("drop table " . $PHPR_TAB_PRE . "parentele");
esegui_query("drop table " . $PHPR_TAB_PRE . "gruppi");
esegui_query("drop table " . $PHPR_TAB_PRE . "privilegi");
esegui_query("drop table " . $PHPR_TAB_PRE . "relutenti");
esegui_query("drop table " . $PHPR_TAB_PRE . "relgruppi");
esegui_query("drop table " . $PHPR_TAB_PRE . "sessioni");
esegui_query("drop table " . $PHPR_TAB_PRE . "transazioni");
esegui_query("drop table " . $PHPR_TAB_PRE . "transazioniweb");
esegui_query("drop table " . $PHPR_TAB_PRE . "descrizioni");
esegui_query("drop table " . $PHPR_TAB_PRE . "beniinventario");
esegui_query("drop table " . $PHPR_TAB_PRE . "magazzini");
esegui_query("drop table " . $PHPR_TAB_PRE . "relinventario");
esegui_query("drop table " . $PHPR_TAB_PRE . "casse");
esegui_query("drop table " . $PHPR_TAB_PRE . "contratti");
esegui_query("drop table " . $PHPR_TAB_PRE . "cache");
esegui_query("drop table " . $PHPR_TAB_PRE . "interconnessioni");
esegui_query("drop table " . $PHPR_TAB_PRE . "messaggi");
disconnetti_db($numconnessione);
if ($nuovo_db == "SI") {
if ($silenzio != "SI") {
echo "<br>" . mex("Vecchio database svuotato, per rimuoverlo del tutto procedere manualmente", $pag) . ".<br><br>";
}
if ($database_esistente != "SI") {
if ($N_PHPR_DB_TYPE == "postgresql") {
if ($N_PHPR_LOAD_EXT == "SI" and $ext_pgsql_caricata != "SI") {
dl("pgsql.so");
$ext_pgsql_caricata = "SI";
}
# fine if ($N_PHPR_LOAD_EXT == "SI" and $ext_pgsql_caricata != "SI")
$numconnessione = pg_connect("dbname={$tempdatabase} host={$N_PHPR_DB_HOST} port={$N_PHPR_DB_PORT} user={$N_PHPR_DB_USER} password={$N_PHPR_DB_PASS} ");
$encoding = " with encoding = 'SQL_ASCII'";
$encoding = "";
pg_exec("set datestyle to 'iso'");
}
# fine if ($N_PHPR_DB_TYPE == "postgresql")
if ($N_PHPR_DB_TYPE == "mysql") {
if ($N_PHPR_LOAD_EXT == "SI" and $ext_mysql_caricata != "SI") {
dl("mysql.so");
$ext_mysql_caricata = "SI";
}
# fine if ($PHPR_LOAD_EXT == "SI" and $ext_mysql_caricata != "SI")
$numconnessione = mysql_connect("{$N_PHPR_DB_HOST}:{$N_PHPR_DB_PORT}", "{$N_PHPR_DB_USER}", "{$N_PHPR_DB_PASS}");
@mysql_query("SET NAMES 'utf8'");
@mysql_query("SET default_storage_engine=MYISAM");
$encoding = "";
}
# fine if ($N_PHPR_DB_TYPE == "mysql")
if ($N_PHPR_DB_TYPE == "mysqli") {
if ($N_PHPR_LOAD_EXT == "SI" and $ext_mysql_caricata != "SI") {
dl("mysqli.so");
$ext_mysql_caricata = "SI";
}
# fine if ($PHPR_LOAD_EXT == "SI" and $ext_mysql_caricata != "SI")
$numconnessione = mysqli_connect($N_PHPR_DB_HOST, $N_PHPR_DB_USER, $N_PHPR_DB_PASS, "", $N_PHPR_DB_PORT);
@mysqli_query($numconnessione, "SET NAMES 'utf8'");
@mysqli_query($numconnessione, "SET default_storage_engine=MYISAM");
$encoding = "";
}
# fine if ($N_PHPR_DB_TYPE == "mysqli")
if ($N_PHPR_DB_TYPE == "sqlite") {
if ($N_PHPR_LOAD_EXT == "SI" and $ext_sqlite_caricata != "SI") {
dl("sqlite.so");
$ext_sqlite_caricata = "SI";
}
# fine if ($PHPR_LOAD_EXT == "SI" and $ext_mysql_caricata != "SI")
$numconnessione = new SQLite3(C_DATA_PATH . "/db_" . $N_PHPR_DB_NAME);
$query = $numconnessione;
$database_esistente = "SI";
}
# fine if ($N_PHPR_DB_TYPE == "sqlite")
if ($database_esistente != "SI") {
$query = esegui_query2("create database {$N_PHPR_DB_NAME} {$encoding}", $N_PHPR_DB_TYPE);
}
if ($N_PHPR_DB_TYPE == "postgresql") {
pg_close($numconnessione);
}
if ($N_PHPR_DB_TYPE == "mysql") {
mysql_close($numconnessione);
}
if ($N_PHPR_DB_TYPE == "mysqli") {
mysqli_close($numconnessione);
}
if ($N_PHPR_DB_TYPE == "sqlite") {
$numconnessione->close();
}
} else {
$query = 1;
}
} else {
$query = 1;
}
unlink(C_DATA_PATH . "/lingua.php");
unlink(C_DATA_PATH . "/unit.php");
unlink(C_DATA_PATH . "/unit_single.php");
if ($query) {
$character_set_db = "";
$collation_db = "";
if ($N_PHPR_DB_TYPE == "postgresql") {
$DATETIME = "timestamp";
$MEDIUMTEXT = "text";
if ($N_PHPR_LOAD_EXT == "SI" and $ext_pgsql_caricata != "SI") {
dl("pgsql.so");
$ext_pgsql_caricata = "SI";
}
# fine if ($N_PHPR_LOAD_EXT == "SI" and $ext_pgsql_caricata != "SI")
$numconnessione = pg_connect("dbname={$N_PHPR_DB_NAME} host={$N_PHPR_DB_HOST} port={$N_PHPR_DB_PORT} user={$N_PHPR_DB_USER} password={$N_PHPR_DB_PASS} ");
pg_exec("set datestyle to 'iso'");
}
# fine if ($N_PHPR_DB_TYPE == "postgresql")
if ($N_PHPR_DB_TYPE == "mysql") {
$DATETIME = "datetime";
$MEDIUMTEXT = "mediumtext";
if ($N_PHPR_LOAD_EXT == "SI" and $ext_mysql_caricata != "SI") {
dl("mysql.so");
$ext_mysql_caricata = "SI";
}
# fine if ($N_PHPR_LOAD_EXT == "SI" and $ext_mysql_caricata != "SI")
$numconnessione = mysql_connect("{$N_PHPR_DB_HOST}:{$N_PHPR_DB_PORT}", "{$N_PHPR_DB_USER}", "{$N_PHPR_DB_PASS}");
@mysql_query("SET NAMES 'utf8'");
@mysql_query("SET default_storage_engine=MYISAM");
$select_db = mysql_select_db($N_PHPR_DB_NAME);
if (!$select_db) {
$numconnessione = "";
} else {
$character_set = mysql_query("SHOW VARIABLES LIKE 'character_set_database'");
$collation = mysql_query("SHOW VARIABLES LIKE 'collation_database'");
if (mysql_num_rows($character_set) == 1 and mysql_num_rows($collation) == 1) {
$character_set_db = mysql_result($character_set, 0, 'Value');
$collation_db = mysql_result($collation, 0, 'Value');
if ($character_set_db != "utf8" or $collation_db != "utf8_general_ci") {
mysql_query("alter database {$N_PHPR_DB_NAME} default character set 'utf8' collate 'utf8_general_ci'");
}
}
# fine if (mysql_num_rows($character_set) == 1 and mysql_num_rows($collation) == 1)
}
# fine else if (!$select_db)
}
# fine if ($N_PHPR_DB_TYPE == "mysql")
if ($N_PHPR_DB_TYPE == "mysqli") {
$DATETIME = "datetime";
$MEDIUMTEXT = "mediumtext";
if ($N_PHPR_LOAD_EXT == "SI" and $ext_mysql_caricata != "SI") {
dl("mysqli.so");
$ext_mysql_caricata = "SI";
}
# fine if ($N_PHPR_LOAD_EXT == "SI" and $ext_mysql_caricata != "SI")
global $link_mysqli;
$numconnessione = mysqli_connect($N_PHPR_DB_HOST, $N_PHPR_DB_USER, $N_PHPR_DB_PASS, "", $N_PHPR_DB_PORT);
$link_mysqli = $numconnessione;
@mysqli_query($numconnessione, "SET NAMES 'utf8'");
@mysqli_query($numconnessione, "SET default_storage_engine=MYISAM");
$select_db = mysqli_select_db($numconnessione, $N_PHPR_DB_NAME);
if (!$select_db) {
$numconnessione = "";
} else {
$character_set = mysqli_query($numconnessione, "SHOW VARIABLES LIKE 'character_set_database'");
$collation = mysqli_query($numconnessione, "SHOW VARIABLES LIKE 'collation_database'");
if (mysqli_num_rows($character_set) == 1 and mysqli_num_rows($collation) == 1) {
$character_set_db = mysqli_fetch_assoc($character_set);
$character_set_db = $character_set_db['Value'];
$collation_db = mysqli_fetch_assoc($collation);
$collation_db = $collation_db['Value'];
if ($character_set_db != "utf8" or $collation_db != "utf8_general_ci") {
mysqli_query($numconnessione, "alter database {$N_PHPR_DB_NAME} default character set 'utf8' collate 'utf8_general_ci'");
}
}
# fine if (mysqli_num_rows($character_set) == 1 and mysqli_num_rows($collation) == 1)
}
# fine else if (!$select_db)
}
# fine if ($N_PHPR_DB_TYPE == "mysqli")
if ($N_PHPR_DB_TYPE == "sqlite") {
$DATETIME = "text";
$MEDIUMTEXT = "text";
if ($N_PHPR_LOAD_EXT == "SI" and $ext_sqlite_caricata != "SI") {
dl("sqlite.so");
$ext_sqlite_caricata = "SI";
}
# fine if ($N_PHPR_LOAD_EXT == "SI" and $ext_sqlite_caricata != "SI")
$numconnessione = new SQLite3(C_DATA_PATH . "/db_" . $N_PHPR_DB_NAME);
}
# fine if ($N_PHPR_DB_TYPE == "sqlite")
if ($numconnessione) {
$fileaperto = fopen(C_DATA_PATH . "/dati_connessione.php", "w+");
if (defined('C_EXT_DB_DATA_PATH') and C_EXT_DB_DATA_PATH) {
if ($HOTELD_DB_TYPE) {
$N_PHPR_DB_TYPE = "";
}
if ($HOTELD_DB_NAME) {
$N_PHPR_DB_NAME = "";
}
if ($HOTELD_DB_HOST) {
$N_PHPR_DB_HOST = "";
}
if (strcmp($HOTELD_DB_PORT, "")) {
$N_PHPR_DB_PORT = "";
}
if ($HOTELD_DB_USER) {
$N_PHPR_DB_USER = "";
}
if (strcmp($HOTELD_DB_PASS, "")) {
$N_PHPR_DB_PASS = "";
}
if ($HOTELD_TAB_PRE) {
$N_PHPR_TAB_PRE = "";
}
}
# fine if (defined('C_EXT_DB_DATA_PATH') and C_EXT_DB_DATA_PATH)
$N_PHPR_DB_NAME = aggiungi_slash($N_PHPR_DB_NAME);
$N_PHPR_DB_HOST = aggiungi_slash($N_PHPR_DB_HOST);
$N_PHPR_DB_USER = aggiungi_slash($N_PHPR_DB_USER);
$N_PHPR_DB_PASS = aggiungi_slash($N_PHPR_DB_PASS);
fwrite($fileaperto, "<?php\n\$PHPR_DB_TYPE = \"{$N_PHPR_DB_TYPE}\";\n\$PHPR_DB_NAME = \"{$N_PHPR_DB_NAME}\";\n\$PHPR_DB_HOST = \"{$N_PHPR_DB_HOST}\";\n\$PHPR_DB_PORT = \"{$N_PHPR_DB_PORT}\";\n\$PHPR_DB_USER = \"{$N_PHPR_DB_USER}\";\n\$PHPR_DB_PASS = \"{$N_PHPR_DB_PASS}\";\n\$PHPR_LOAD_EXT = \"{$N_PHPR_LOAD_EXT}\";\n\$PHPR_TAB_PRE = \"{$N_PHPR_TAB_PRE}\";\n\$PHPR_LOG = \"{$phpr_log}\";\n");
if (defined('C_EXT_DB_DATA_PATH') and C_EXT_DB_DATA_PATH) {
fwrite($fileaperto, "\n\$HOTELD_DB_TYPE = \"\";\n\$HOTELD_DB_NAME = \"\";\n\$HOTELD_DB_HOST = \"\";\n\$HOTELD_DB_PORT = \"\";\n\$HOTELD_DB_USER = \"\";\n\$HOTELD_DB_PASS = \"\";\n\$HOTELD_TAB_PRE = \"\";\nrequire('" . C_EXT_DB_DATA_PATH . "');\nif (\$HOTELD_DB_TYPE) \$PHPR_DB_TYPE = \$HOTELD_DB_TYPE;\nif (\$HOTELD_DB_NAME) \$PHPR_DB_NAME = \$HOTELD_DB_NAME;\nif (\$HOTELD_DB_HOST) \$PHPR_DB_HOST = \$HOTELD_DB_HOST;\nif (strcmp(\$HOTELD_DB_PORT,\"\")) \$PHPR_DB_PORT = \$HOTELD_DB_PORT;\nif (\$HOTELD_DB_USER) \$PHPR_DB_USER = \$HOTELD_DB_USER;\nif (strcmp(\$HOTELD_DB_PASS,\"\")) \$PHPR_DB_PASS = \$HOTELD_DB_PASS;\nif (\$HOTELD_TAB_PRE) \$PHPR_TAB_PRE = \$HOTELD_TAB_PRE;\n");
}
fwrite($fileaperto, "?>");
fclose($fileaperto);
@chmod(C_DATA_PATH . "/dati_connessione.php", 0640);
$leggendo_backup = "NO";
$leggendo_database = "NO";
$leggendo_tabella = "NO";
$leggendo_colonne = "NO";
$leggendo_righe = "NO";
$leggendo_file = "NO";
$leggendo_contenuto = "NO";
$nome_file = "";
$linee_inserite_in_tabella = "";
$ultima_linea = "";
$fbackup = fopen($file, "r");
if ($fbackup) {
$leggendo_righe = "NO";
while (!feof($fbackup)) {
unset($linee_backup);
$linee_backup = fread($fbackup, 524288);
$linee_backup = explode("\n", $linee_backup);
$num_linee_backup = count($linee_backup) - 1;
$linee_backup[0] = $ultima_linea . $linee_backup[0];
if (!feof($fbackup)) {
$ultima_linea = $linee_backup[$num_linee_backup];
} else {
$num_linee_backup++;
}
for ($num1 = 0; $num1 < $num_linee_backup; $num1++) {
$linea = togli_acapo($linee_backup[$num1]);
unset($linee_backup[$num1]);
# Keep alive
if (substr($num1, -3) == "000") {
http_keep_alive(" ");
}
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 == "clienti") {
esegui_query2("create table " . $N_PHPR_TAB_PRE . "clienti (idclienti integer primary key, cognome varchar(70) not null, nome varchar(70), soprannome varchar(70), sesso char, titolo varchar(30), lingua varchar(14), datanascita date, cittanascita varchar(70), regionenascita varchar(70), nazionenascita varchar(70), documento varchar(70), scadenzadoc date, tipodoc varchar(70), cittadoc varchar(70), regionedoc varchar(70), nazionedoc varchar(70), nazionalita varchar(70), nazione varchar(70), regione varchar(70), citta varchar(70), via varchar(70), numcivico varchar(30), cap varchar(30), telefono varchar(50), telefono2 varchar(50), telefono3 varchar(50), fax varchar(50), email text, cod_fiscale varchar(50), partita_iva varchar(50), commento text, max_num_ordine integer, idclienti_compagni text, doc_inviati text, datainserimento {$DATETIME}, hostinserimento varchar(50), utente_inserimento integer )", $N_PHPR_DB_TYPE);
}
if ($nome_tabella == "relclienti") {
esegui_query2("create table " . $N_PHPR_TAB_PRE . "relclienti (idclienti integer, numero integer, tipo varchar(12), testo1 text, testo2 text, testo3 text, testo4 text, testo5 text, testo6 text, testo7 text, testo8 text, datainserimento {$DATETIME}, hostinserimento varchar(50), utente_inserimento integer )", $N_PHPR_DB_TYPE);
crea_indice2($N_PHPR_TAB_PRE . $nome_tabella, "idclienti", $N_PHPR_TAB_PRE . "iidp" . $nome_tabella, $N_PHPR_DB_TYPE);
}
# fine if ($nome_tabella == "relclienti")
if ($nome_tabella == "anni") {
esegui_query2("create table " . $N_PHPR_TAB_PRE . "anni (idanni integer primary key, tipo_periodi text)", $N_PHPR_DB_TYPE);
}
if ($nome_tabella == "versioni") {
esegui_query2("create table " . $N_PHPR_TAB_PRE . "versioni (idversioni integer primary key, num_versione float4)", $N_PHPR_DB_TYPE);
}
if ($nome_tabella == "nazioni") {
esegui_query2("create table " . $N_PHPR_TAB_PRE . "nazioni (idnazioni integer primary key, nome_nazione varchar(70), codice_nazione varchar(50), codice2_nazione varchar(50), codice3_nazione varchar(50), datainserimento {$DATETIME}, hostinserimento varchar(50), utente_inserimento integer )", $N_PHPR_DB_TYPE);
}
if ($nome_tabella == "regioni") {
esegui_query2("create table " . $N_PHPR_TAB_PRE . "regioni (idregioni integer primary key, nome_regione varchar(70), codice_regione varchar(50), codice2_regione varchar(50), codice3_regione varchar(50), datainserimento {$DATETIME}, hostinserimento varchar(50), utente_inserimento integer )", $N_PHPR_DB_TYPE);
}
if ($nome_tabella == "citta") {
esegui_query2("create table " . $N_PHPR_TAB_PRE . "citta (idcitta integer primary key, nome_citta varchar(70), codice_citta varchar(50), codice2_citta varchar(50), codice3_citta varchar(50), datainserimento {$DATETIME}, hostinserimento varchar(50), utente_inserimento integer )", $N_PHPR_DB_TYPE);
}
if ($nome_tabella == "documentiid") {
esegui_query2("create table " . $N_PHPR_TAB_PRE . "documentiid (iddocumentiid integer primary key, nome_documentoid varchar(70), codice_documentoid varchar(50), codice2_documentoid varchar(50), codice3_documentoid varchar(50), datainserimento {$DATETIME}, hostinserimento varchar(50), utente_inserimento integer )", $N_PHPR_DB_TYPE);
}
if ($nome_tabella == "parentele") {
esegui_query2("create table " . $N_PHPR_TAB_PRE . "parentele (idparentele integer primary key, nome_parentela varchar(70), codice_parentela varchar(50), codice2_parentela varchar(50), codice3_parentela varchar(50), datainserimento {$DATETIME}, hostinserimento varchar(50), utente_inserimento integer )", $N_PHPR_DB_TYPE);
}
if ($nome_tabella == "personalizza") {
esegui_query2("create table " . $N_PHPR_TAB_PRE . "personalizza (idpersonalizza varchar(50) not null, idutente integer, valpersonalizza text, valpersonalizza_num integer)", $N_PHPR_DB_TYPE);
}
if ($nome_tabella == "appartamenti") {
esegui_query2("create table " . $N_PHPR_TAB_PRE . "appartamenti (idappartamenti varchar(100) primary key, numpiano text, maxoccupanti integer, numcasa text, app_vicini text, priorita integer, priorita2 integer, letto varchar(1), commento text )", $N_PHPR_DB_TYPE);
}
if ($nome_tabella == "utenti") {
esegui_query2("create table " . $N_PHPR_TAB_PRE . "utenti (idutenti integer primary key, nome_utente text, password text, salt text, tipo_pass varchar(1), datainserimento {$DATETIME}, hostinserimento varchar(50) )", $N_PHPR_DB_TYPE);
}
if ($nome_tabella == "gruppi") {
esegui_query2("create table " . $N_PHPR_TAB_PRE . "gruppi (idgruppi integer primary key, nome_gruppo text )", $N_PHPR_DB_TYPE);
}
if ($nome_tabella == "privilegi") {
esegui_query2("create table " . $N_PHPR_TAB_PRE . "privilegi (idutente integer, anno integer, regole1_consentite text, tariffe_consentite text, costi_agg_consentiti text, contratti_consentiti text, casse_consentite text, cassa_pagamenti varchar(70), priv_ins_prenota varchar(20), priv_mod_prenota varchar(35), priv_mod_pers varchar(15), priv_ins_clienti varchar(5), prefisso_clienti text, priv_ins_costi varchar(10), priv_vedi_tab varchar(30), priv_ins_tariffe varchar(10), priv_ins_regole varchar(10), priv_messaggi varchar(10), priv_inventario varchar(10) )", $N_PHPR_DB_TYPE);
}
if ($nome_tabella == "relutenti") {
esegui_query2("create table " . $N_PHPR_TAB_PRE . "relutenti (idutente integer not null, idnazione integer, idregione integer, idcitta integer, iddocumentoid integer, idparentela integer, idsup integer, predef integer, datainserimento {$DATETIME}, hostinserimento varchar(50), utente_inserimento integer )", $N_PHPR_DB_TYPE);
crea_indice2($N_PHPR_TAB_PRE . $nome_tabella, "idutente", $N_PHPR_TAB_PRE . "iidp" . $nome_tabella, $N_PHPR_DB_TYPE);
}
# fine if ($nome_tabella == "relutenti")
if ($nome_tabella == "relgruppi") {
esegui_query2("create table " . $N_PHPR_TAB_PRE . "relgruppi (idutente integer not null, idgruppo integer, datainserimento {$DATETIME}, hostinserimento varchar(50), utente_inserimento integer )", $N_PHPR_DB_TYPE);
crea_indice2($N_PHPR_TAB_PRE . $nome_tabella, "idutente", $N_PHPR_TAB_PRE . "iidp" . $nome_tabella, $N_PHPR_DB_TYPE);
}
# fine if ($nome_tabella == "relgruppi")
if ($nome_tabella == "sessioni") {
esegui_query2("create table " . $N_PHPR_TAB_PRE . "sessioni (idsessioni varchar(30) primary key, idutente integer, indirizzo_ip text, tipo_conn varchar(12), user_agent text, ultimo_accesso {$DATETIME} )", $N_PHPR_DB_TYPE);
}
if ($nome_tabella == "transazioni") {
esegui_query2("create table " . $N_PHPR_TAB_PRE . "transazioni (idtransazioni varchar(30) primary key, idsessione varchar(30), tipo_transazione varchar(5), anno integer, spostamenti text, dati_transazione1 text, dati_transazione2 text, dati_transazione3 text, dati_transazione4 text, dati_transazione5 text, dati_transazione6 text, dati_transazione7 text, dati_transazione8 text, dati_transazione9 text, dati_transazione10 text, dati_transazione11 text, dati_transazione12 text, dati_transazione13 text, dati_transazione14 text, dati_transazione15 text, dati_transazione16 text, dati_transazione17 text, dati_transazione18 text, dati_transazione19 text, dati_transazione20 text, ultimo_accesso {$DATETIME})", $N_PHPR_DB_TYPE);
}
if ($nome_tabella == "transazioniweb") {
esegui_query2("create table " . $N_PHPR_TAB_PRE . "transazioniweb (idtransazioni varchar(30) primary key, idsessione varchar(30), tipo_transazione varchar(5), anno integer, spostamenti text, dati_transazione1 text, dati_transazione2 text, dati_transazione3 text, dati_transazione4 text, dati_transazione5 text, dati_transazione6 text, dati_transazione7 text, dati_transazione8 text, dati_transazione9 text, dati_transazione10 text, dati_transazione11 text, dati_transazione12 text, dati_transazione13 text, dati_transazione14 text, dati_transazione15 text, dati_transazione16 text, dati_transazione17 text, dati_transazione18 text, dati_transazione19 text, dati_transazione20 text, ultimo_accesso {$DATETIME})", $N_PHPR_DB_TYPE);
}
if ($nome_tabella == "descrizioni") {
esegui_query2("create table " . $N_PHPR_TAB_PRE . "descrizioni (nome text not null, tipo varchar(16), lingua varchar(3), numero integer, testo {$MEDIUMTEXT} )", $N_PHPR_DB_TYPE);
}
if ($nome_tabella == "beniinventario") {
esegui_query2("create table " . $N_PHPR_TAB_PRE . "beniinventario (idbeniinventario integer primary key, nome_bene varchar(70), codice_bene varchar(50), descrizione_bene text, datainserimento {$DATETIME}, hostinserimento varchar(50), utente_inserimento integer )", $N_PHPR_DB_TYPE);
}
if ($nome_tabella == "magazzini") {
esegui_query2("create table " . $N_PHPR_TAB_PRE . "magazzini (idmagazzini integer primary key, nome_magazzino varchar(70), codice_magazzino varchar(50), descrizione_magazzino text, numpiano text, numcasa text, datainserimento {$DATETIME}, hostinserimento varchar(50), utente_inserimento integer )", $N_PHPR_DB_TYPE);
}
if ($nome_tabella == "relinventario") {
esegui_query2("create table " . $N_PHPR_TAB_PRE . "relinventario (idbeneinventario integer not null, idappartamento varchar(100), idmagazzino integer, quantita integer, quantita_min_predef integer, richiesto_checkin varchar(2), datainserimento {$DATETIME}, hostinserimento varchar(50), utente_inserimento integer )", $N_PHPR_DB_TYPE);
crea_indice2($N_PHPR_TAB_PRE . $nome_tabella, "idbeneinventario", $N_PHPR_TAB_PRE . "iidp" . $nome_tabella, $N_PHPR_DB_TYPE);
}
# fine if ($nome_tabella == "relinventario")
if ($nome_tabella == "casse") {
esegui_query2("create table " . $N_PHPR_TAB_PRE . "casse (idcasse integer primary key, nome_cassa varchar(70), stato varchar(8), codice_cassa varchar(50), descrizione_cassa text, datainserimento {$DATETIME}, hostinserimento varchar(50), utente_inserimento integer )", $N_PHPR_DB_TYPE);
}
if ($nome_tabella == "contratti") {
esegui_query2("create table " . $N_PHPR_TAB_PRE . "contratti (numero integer, tipo varchar(8), testo {$MEDIUMTEXT} )", $N_PHPR_DB_TYPE);
}
if ($nome_tabella == "cache") {
esegui_query2("create table " . $N_PHPR_TAB_PRE . "cache (numero integer, tipo varchar(8), testo {$MEDIUMTEXT}, data_modifica {$DATETIME}, datainserimento {$DATETIME} )", $N_PHPR_DB_TYPE);
}
if ($nome_tabella == "interconnessioni") {
esegui_query2("create table " . $N_PHPR_TAB_PRE . "interconnessioni (idlocale integer, idremoto1 text, idremoto2 text, tipoid varchar(12), nome_ic varchar(24), anno integer, datainserimento {$DATETIME}, hostinserimento varchar(50), utente_inserimento integer )", $N_PHPR_DB_TYPE);
}
if ($nome_tabella == "messaggi") {
esegui_query2("create table " . $N_PHPR_TAB_PRE . "messaggi (idmessaggi integer primary key, tipo_messaggio varchar(8), stato varchar(8), idutenti text, idutenti_visto text, datavisione {$DATETIME}, mittente text, testo text, dati_messaggio1 text, dati_messaggio2 text, dati_messaggio3 text, dati_messaggio4 text, dati_messaggio5 text, dati_messaggio6 text, dati_messaggio7 text, dati_messaggio8 text, dati_messaggio9 text, dati_messaggio10 text, dati_messaggio11 text, dati_messaggio12 text, dati_messaggio13 text, dati_messaggio14 text, dati_messaggio15 text, dati_messaggio16 text, dati_messaggio17 text, dati_messaggio18 text, dati_messaggio19 text, dati_messaggio20 text, datainserimento {$DATETIME})", $N_PHPR_DB_TYPE);
}
if (substr($nome_tabella, 0, 7) == "prenota") {
esegui_query2("create table " . $N_PHPR_TAB_PRE . "{$nome_tabella} (idprenota integer primary key, idclienti integer, idappartamenti varchar(100), iddatainizio integer, iddatafine integer, assegnazioneapp varchar(4), app_assegnabili text, num_persone integer, idprenota_compagna text, tariffa text, tariffesettimanali text, incompatibilita text, sconto float8, tariffa_tot float8, caparra float8, commissioni float8, tasseperc float4, pagato float8, metodo_pagamento text, origine varchar(70), codice varchar(10), commento text, conferma varchar(4), checkin {$DATETIME}, checkout {$DATETIME}, id_anni_prec text, datainserimento {$DATETIME}, hostinserimento varchar(50), data_modifica {$DATETIME}, utente_inserimento integer )", $N_PHPR_DB_TYPE);
}
if (substr($nome_tabella, 0, 12) == "costiprenota") {
esegui_query2("create table " . $N_PHPR_TAB_PRE . "{$nome_tabella} (idcostiprenota integer primary key, idprenota integer, tipo varchar(2), nome varchar(40), valore float8, valore_perc float8, arrotonda float4, tasseperc float4, associasett varchar(1), settimane text, moltiplica text, categoria text, letto varchar(1), numlimite integer, idntariffe integer, variazione varchar(10), varmoltiplica text, varnumsett varchar(20), varperiodipermessi text, varbeniinv text, varappincompatibili text, vartariffeassociate varchar(10), vartariffeincomp text, datainserimento {$DATETIME}, hostinserimento varchar(50), utente_inserimento integer)", $N_PHPR_DB_TYPE);
crea_indice2($N_PHPR_TAB_PRE . $nome_tabella, "idprenota", $N_PHPR_TAB_PRE . "iidp" . $nome_tabella, $N_PHPR_DB_TYPE);
} else {
if (substr($nome_tabella, 0, 5) == "costi") {
esegui_query2("create table " . $N_PHPR_TAB_PRE . "{$nome_tabella} (idcosti integer unique,nome_costo text, val_costo float8, tipo_costo text, nome_cassa varchar(70), persona_costo text, provenienza_costo text, metodo_pagamento text, datainserimento {$DATETIME}, hostinserimento varchar(50), utente_inserimento integer)", $N_PHPR_DB_TYPE);
}
}
if (substr($nome_tabella, 0, 15) == "rclientiprenota") {
esegui_query2("create table " . $N_PHPR_TAB_PRE . "{$nome_tabella} (idprenota integer, idclienti integer, num_ordine integer, parentela varchar(70), datainserimento {$DATETIME}, hostinserimento varchar(50), utente_inserimento integer )", $N_PHPR_DB_TYPE);
crea_indice2($N_PHPR_TAB_PRE . $nome_tabella, "idprenota", $N_PHPR_TAB_PRE . "iidp" . $nome_tabella, $N_PHPR_DB_TYPE);
}
# fine if (substr($nome_tabella,0,15) == "rclientiprenota")
if (substr($nome_tabella, 0, 6) == "regole") {
esegui_query2("create table " . $N_PHPR_TAB_PRE . "{$nome_tabella} (idregole integer, app_agenzia varchar(100), tariffa_chiusa text, tariffa_per_app text, tariffa_per_utente text, tariffa_per_persone text, tariffa_commissioni integer, iddatainizio integer, iddatafine integer, motivazione text, motivazione2 text )", $N_PHPR_DB_TYPE);
}
if (substr($nome_tabella, 0, 5) == "soldi") {
esegui_query2("create table " . $N_PHPR_TAB_PRE . "{$nome_tabella} (idsoldi integer unique, motivazione text, id_pagamento text, metodo_pagamento text, saldo_prenota float8, saldo_cassa float8, soldi_prima float8, data_inserimento {$DATETIME}, utente_inserimento integer )", $N_PHPR_DB_TYPE);
}
if (substr($nome_tabella, 0, 7) == "periodi") {
esegui_query2("create table " . $N_PHPR_TAB_PRE . "{$nome_tabella} (idperiodi integer primary key, datainizio date not null, datafine date{$lista_tariffe})", $N_PHPR_DB_TYPE);
}
if (substr($nome_tabella, 0, 8) == "ntariffe") {
esegui_query2("create table " . $N_PHPR_TAB_PRE . "{$nome_tabella} (idntariffe integer, nomecostoagg varchar(40), tipo_ca varchar(2), valore_ca float8, valore_perc_ca float8, arrotonda_ca float4, tasseperc_ca float4, associasett_ca varchar(1), numsett_ca varchar(20), moltiplica_ca text, periodipermessi_ca text, beniinv_ca text, appincompatibili_ca text, variazione_ca varchar(20), mostra_ca varchar(10), categoria_ca text, letto_ca varchar(1), numlimite_ca integer, regoleassegna_ca varchar(30), utente_inserimento integer{$lista_tariffe})", $N_PHPR_DB_TYPE);
}
}
# fine if ($linea == "</colonnetabella>" and $leggendo_righe != "SI")
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);
if (substr($nome_tabella, 0, 7) == "periodi" and substr($nome_colonna[$num_colonne], 0, 7) == "tariffa") {
$lista_tariffe .= ", " . $nome_colonna[$num_colonne] . " float8";
}
if (substr($nome_tabella, 0, 8) == "ntariffe" and substr($nome_colonna[$num_colonne], 0, 7) == "tariffa") {
$lista_tariffe .= ", " . $nome_colonna[$num_colonne] . " varchar(40)";
}
}
# 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 = "";
$query = "insert into " . $N_PHPR_TAB_PRE . "{$nome_tabella} (";
for ($num2 = 0; $num2 < count($riga); $num2++) {
aggslashdb2($riga[$num2], $N_PHPR_DB_TYPE);
if ($riga[$num2] != "") {
$query .= $nome_colonna[$num2 + 1] . ",";
}
}
# fine for $num2
$query = substr($query, 0, -1) . ") values (";
for ($num2 = 0; $num2 < count($riga); $num2++) {
if ($riga[$num2] != "") {
$riga[$num2] = str_replace("</righetabella@%&@>", "</righetabella>", $riga[$num2]);
$riga[$num2] = str_replace("</riga@%&@>", "</riga>", $riga[$num2]);
$riga[$num2] = str_replace("<riga@%&@>", "<riga>", $riga[$num2]);
$riga[$num2] = str_replace("</cmp@%&@>", "</cmp>", $riga[$num2]);
$riga[$num2] = str_replace("@%&@@%&@", "@%&@", $riga[$num2]);
$query .= "'" . $riga[$num2] . "',";
}
# fine if ($riga[$num2] != "")
}
# fine for $num2
$query = substr($query, 0, -1) . ")";
#echo $query<br>";
esegui_query3($query, $N_PHPR_DB_TYPE);
}
# 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>" and $leggendo_righe != "SI") {
$leggendo_tabella = "SI";
}
} else {
# restore dei files
if ($linea == "</file>") {
$leggendo_file = "NO";
}
if ($leggendo_file == "SI") {
if ($nome_file) {
if ($leggendo_contenuto == "SI") {
if (substr($linea, -12) == "</contenuto>") {
$nome_file = "";
$leggendo_contenuto = "NO";
$linea = substr($linea, 0, -12);
fwrite($fileaperto, $linea);
fclose($fileaperto);
} else {
fwrite($fileaperto, $linea . "\n");
}
# fine else if (substr($linea,-12) == "</contenuto>")
}
# fine if ($leggendo_contenuto == "SI")
if ($linea == "<contenuto>") {
$leggendo_contenuto = "SI";
}
}
# fine if ($nome_file)
if (substr($linea, 0, 10) == "<nomefile>") {
$nome_file = substr($linea, 10);
$nome_file = substr($nome_file, 0, -11);
if (substr($nome_file, 0, 7) == "./data/") {
$nome_file = C_DATA_PATH . substr($nome_file, 6);
}
if ($nome_file) {
$fileaperto = fopen("{$nome_file}", "w+");
}
}
# fine if (substr($linea,0,10) == "<nomefile>")
}
# fine if ($leggendo_file == "SI")
if ($linea == "<file>" and $leggendo_modello != "SI") {
$leggendo_file = "SI";
}
}
# fine else if ($leggendo_database == "SI")
if ($linea == "<database>" and $leggendo_modello != "SI") {
$leggendo_database = "SI";
}
# restore dei modelli
if ($linea == "</modello>") {
$leggendo_modello = "NO";
$leggendo_contenuto_mod = "NO";
$nome_modello = "";
}
# fine if ($linea == "</modello>")
if ($leggendo_modello == "SI") {
if ($nome_modello) {
if ($leggendo_contenuto_mod == "SI") {
if (substr($linea, -12) == "</contenuto>") {
$leggendo_contenuto_mod = "NO";
$linea = substr($linea, 0, -12);
$contenuto_mod[$dir_modello][$nome_modello] .= $linea . "\n";
$nome_modello = "";
} else {
$contenuto_mod[$dir_modello][$nome_modello] .= $linea . "\n";
}
# fine else if (substr($linea,-12) == "</contenuto>")
}
# fine if ($leggendo_contenuto_mod == "SI")
if ($linea == "<contenuto>") {
$leggendo_contenuto_mod = "SI";
}
} else {
if (substr($linea, 0, 12) == "<dirmodello>") {
$dir_modello = substr($linea, 12);
$dir_modello = substr($dir_modello, 0, -13);
if (substr($dir_modello, -1) == "/") {
$dir_modello = substr($dir_modello, 0, -1);
}
if (defined("C_CARTELLA_CREA_MODELLI") and C_CARTELLA_CREA_MODELLI != "") {
$c_cartella_crea_mod = C_CARTELLA_CREA_MODELLI;
if (substr($c_cartella_crea_mod, -1) == "/") {
$c_cartella_crea_mod = substr($c_cartella_crea_mod, 0, -1);
}
if (substr($dir_modello . "/", 0, strlen($c_cartella_crea_mod . "/")) != $c_cartella_crea_mod . "/") {
$dir_modello = "";
}
if (str_replace("..", "", $dir_modello) != $dir_modello) {
$dir_modello = "";
}
}
# fine if (defined("C_CARTELLA_CREA_MODELLI") and C_CARTELLA_CREA_MODELLI != "")
}
# fine if (substr($linea,0,12) == "<dirmodello>")
if (substr($linea, 0, 13) == "<nomemodello>" and $dir_modello) {
$nome_modello = substr($linea, 13);
$nome_modello = substr($nome_modello, 0, -14);
if (substr($nome_modello, -4) != ".php") {
$nome_modello = "";
}
if (str_replace(".php", "", substr($nome_modello, 0, -4)) != substr($nome_modello, 0, -4)) {
$nome_modello = "";
}
}
# fine if (substr($linea,0,13) == "<nomemodello>" and $dir_modello)
}
# fine else if ($nome_modello)
}
# fine if ($leggendo_modello == "SI")
if ($linea == "<modello>" and $leggendo_database != "SI" and $leggendo_file != "SI") {
$leggendo_modello = "SI";
}
}
# fine if ($leggendo_backup == "SI")
if ($linea == "<backup>") {
$leggendo_backup = "SI";
}
}
# fine for $num1
}
# fine while (!feof($fbackup))
fclose($fbackup);
echo "<br>";
}
# fine if ($fbackup)
# Se si sono mantenuti gli anni non presenti nel backup, aggiorno i loro data ed importo eventuali clienti mancanti
if ($mantieni_anni and @is_array($anno_mantieni)) {
for ($num1 = 0; $num1 < $num_anni_vecchi; $num1++) {
$anno_vecchio = risul_query($anni_vecchi, $num1, 'idanni');
if ($anno_mantieni[$anno_vecchio]) {
esegui_query("insert into " . $PHPR_TAB_PRE . "anni (idanni,tipo_periodi) values ('{$anno_vecchio}','" . risul_query($anni_vecchi, $num1, 'tipo_periodi') . "') ");
}
# fine if ($anno_mantieni[$anno_vecchio])
}
# fine for $num1
unset($id_utenti_vecchi);
$id_utenti_vecchi[1] = 1;
for ($num1 = 0; $num1 < numlin_query($utenti_vecchi); $num1++) {
$idutente_vecchio = risul_query($utenti_vecchi, $num1, 'idutenti');
if ($idutente_vecchio != 1) {
$datainserimento = risul_query($utenti_vecchi, $num1, 'datainserimento');
if (!$datainserimento) {
$cond_datainserimento = "datainserimento is NULL";
} else {
$cond_datainserimento = "datainserimento = '" . aggslashdb($datainserimento) . "'";
}
$hostinserimento = risul_query($utenti_vecchi, $num1, 'hostinserimento');
if (!strcmp($hostinserimento, "")) {
$cond_hostinserimento = "(hostinserimento is NULL or hostinserimento = '')";
} else {
$cond_hostinserimento = "hostinserimento = '" . aggslashdb($hostinserimento) . "'";
}
$utente_esistente = esegui_query("select idutenti from " . $PHPR_TAB_PRE . "utenti where idutenti = '{$idutente_vecchio}' and {$cond_datainserimento} and {$cond_hostinserimento} ");
if (!numlin_query($utente_esistente)) {
reset($anno_mantieni);
while (list($anno_vecchio, $val) = each($anno_mantieni)) {
esegui_query("update " . $PHPR_TAB_PRE . "prenota{$anno_vecchio} set utente_inserimento = '1' where utente_inserimento = '{$idutente_vecchio}' ");
esegui_query("update " . $PHPR_TAB_PRE . "costi{$anno_vecchio} set utente_inserimento = '1' where utente_inserimento = '{$idutente_vecchio}' ");
esegui_query("update " . $PHPR_TAB_PRE . "costiprenota{$anno_vecchio} set utente_inserimento = '1' where utente_inserimento = '{$idutente_vecchio}' ");
esegui_query("update " . $PHPR_TAB_PRE . "rclientiprenota{$anno_vecchio} set utente_inserimento = '1' where utente_inserimento = '{$idutente_vecchio}' ");
esegui_query("update " . $PHPR_TAB_PRE . "soldi{$anno_vecchio} set utente_inserimento = '1' where utente_inserimento = '{$idutente_vecchio}' ");
if (@is_file(C_DATA_PATH . "/selectperiodi{$anno_vecchio}.{$idutente_vecchio}.php")) {
unlink(C_DATA_PATH . "/selectperiodi{$anno_vecchio}.{$idutente_vecchio}.php");
}
if (@is_file(C_DATA_PATH . "/selperiodimenu{$anno_vecchio}.{$idutente_vecchio}.php")) {
unlink(C_DATA_PATH . "/selperiodimenu{$anno_vecchio}.{$idutente_vecchio}.php");
}
}
# fine while (list($anno_vecchio,$val) = each($anno_mantieni))
$id_utenti_vecchi[$idutente_vecchio] = 1;
} else {
$id_utenti_vecchi[$idutente_vecchio] = $idutente_vecchio;
}
}
# fine if ($idutente_vecchio != 1)
}
# fine for $num1
unset($id_clienti_vecchi);
unset($id_clienti_inseriti);
$max_clienti = esegui_query("select max(idclienti) from " . $PHPR_TAB_PRE . "clienti");
$max_clienti = risul_query($max_clienti, 0, 0);
if ($max_clienti_vecchi > $max_clienti) {
$max_clienti = $max_clienti_vecchi;
}
for ($num1 = 0; $num1 < numlin_query($clienti_vecchi); $num1++) {
$idcliente_vecchio = risul_query($clienti_vecchi, $num1, 'idclienti');
$cliente_presente = 0;
reset($anno_mantieni);
while (list($anno_vecchio, $val) = each($anno_mantieni)) {
$idcliente_presente = esegui_query("select idclienti from " . $PHPR_TAB_PRE . "prenota{$anno_vecchio} where idclienti = '{$idcliente_vecchio}' ");
$idcliente_presente2 = esegui_query("select idclienti from " . $PHPR_TAB_PRE . "rclientiprenota{$anno_vecchio} where idclienti = '{$idcliente_vecchio}' ");
$idcliente_presente3 = esegui_query("select idsoldi from " . $PHPR_TAB_PRE . "soldi{$anno_vecchio} where motivazione {$LIKE} '{$idcliente_vecchio};%' ");
if (numlin_query($idcliente_presente) or numlin_query($idcliente_presente2) or numlin_query($idcliente_presente3)) {
$cliente_presente = 1;
break;
}
# fine if (numlin_query($idcliente_presente) or numlin_query($idcliente_presente2) or...
}
# fine while (list($anno_vecchio,$val) = each($anno_mantieni))
if ($cliente_presente) {
$datainserimento = risul_query($clienti_vecchi, $num1, 'datainserimento');
if (!$datainserimento) {
$cond_datainserimento = "datainserimento is NULL";
} else {
$cond_datainserimento = "datainserimento = '" . aggslashdb($datainserimento) . "'";
}
$hostinserimento = risul_query($clienti_vecchi, $num1, 'hostinserimento');
if (!strcmp($hostinserimento, "")) {
$cond_hostinserimento = "(hostinserimento is NULL or hostinserimento = '')";
} else {
$cond_hostinserimento = "hostinserimento = '" . aggslashdb($hostinserimento) . "'";
}
$cliente_esistente = esegui_query("select idclienti from " . $PHPR_TAB_PRE . "clienti where idclienti = '{$idcliente_vecchio}' and {$cond_datainserimento} and {$cond_hostinserimento} ");
if (!numlin_query($cliente_esistente)) {
$cliente_esistente = esegui_query("select idclienti from " . $PHPR_TAB_PRE . "clienti where cognome = '" . aggslashdb(risul_query($clienti_vecchi, $num1, 'cognome')) . "' and {$cond_datainserimento} and {$cond_hostinserimento} ");
if (numlin_query($cliente_esistente) == 1) {
$id_nuovo = risul_query($cliente_esistente, 0, 'idclienti');
} else {
$id_esistente = esegui_query("select idclienti from " . $PHPR_TAB_PRE . "clienti where idclienti = '{$idcliente_vecchio}' ");
if (numlin_query($id_esistente)) {
$max_clienti++;
$id_nuovo = $max_clienti;
} else {
$id_nuovo = $idcliente_vecchio;
}
esegui_query("insert into " . $PHPR_TAB_PRE . "clienti (idclienti,cognome,nome,soprannome,sesso,titolo,lingua,cittanascita,regionenascita,nazionenascita,documento,tipodoc,cittadoc,regionedoc,nazionedoc,nazionalita,nazione,regione,citta,via,numcivico,cap,telefono,telefono2,telefono3,fax,email,cod_fiscale,partita_iva,commento,max_num_ordine,idclienti_compagni,doc_inviati,hostinserimento,utente_inserimento) values ('{$id_nuovo}',\n'" . aggslashdb(risul_query($clienti_vecchi, $num1, 'cognome')) . "',\n'" . aggslashdb(risul_query($clienti_vecchi, $num1, 'nome')) . "',\n'" . aggslashdb(risul_query($clienti_vecchi, $num1, 'soprannome')) . "',\n'" . aggslashdb(risul_query($clienti_vecchi, $num1, 'sesso')) . "',\n'" . aggslashdb(risul_query($clienti_vecchi, $num1, 'titolo')) . "',\n'" . aggslashdb(risul_query($clienti_vecchi, $num1, 'lingua')) . "',\n'" . aggslashdb(risul_query($clienti_vecchi, $num1, 'cittanascita')) . "',\n'" . aggslashdb(risul_query($clienti_vecchi, $num1, 'regionenascita')) . "',\n'" . aggslashdb(risul_query($clienti_vecchi, $num1, 'nazionenascita')) . "',\n'" . aggslashdb(risul_query($clienti_vecchi, $num1, 'documento')) . "',\n'" . aggslashdb(risul_query($clienti_vecchi, $num1, 'tipodoc')) . "',\n'" . aggslashdb(risul_query($clienti_vecchi, $num1, 'cittadoc')) . "',\n'" . aggslashdb(risul_query($clienti_vecchi, $num1, 'regionedoc')) . "',\n'" . aggslashdb(risul_query($clienti_vecchi, $num1, 'nazionedoc')) . "',\n'" . aggslashdb(risul_query($clienti_vecchi, $num1, 'nazionalita')) . "',\n'" . aggslashdb(risul_query($clienti_vecchi, $num1, 'nazione')) . "',\n'" . aggslashdb(risul_query($clienti_vecchi, $num1, 'regione')) . "',\n'" . aggslashdb(risul_query($clienti_vecchi, $num1, 'citta')) . "',\n'" . aggslashdb(risul_query($clienti_vecchi, $num1, 'via')) . "',\n'" . aggslashdb(risul_query($clienti_vecchi, $num1, 'numcivico')) . "',\n'" . aggslashdb(risul_query($clienti_vecchi, $num1, 'cap')) . "',\n'" . aggslashdb(risul_query($clienti_vecchi, $num1, 'telefono')) . "',\n'" . aggslashdb(risul_query($clienti_vecchi, $num1, 'telefono2')) . "',\n'" . aggslashdb(risul_query($clienti_vecchi, $num1, 'telefono3')) . "',\n'" . aggslashdb(risul_query($clienti_vecchi, $num1, 'fax')) . "',\n'" . aggslashdb(risul_query($clienti_vecchi, $num1, 'email')) . "',\n'" . aggslashdb(risul_query($clienti_vecchi, $num1, 'cod_fiscale')) . "',\n'" . aggslashdb(risul_query($clienti_vecchi, $num1, 'partita_iva')) . "',\n'" . aggslashdb(risul_query($clienti_vecchi, $num1, 'commento')) . "',\n'" . aggslashdb(risul_query($clienti_vecchi, $num1, 'max_num_ordine')) . "',\n'" . aggslashdb(risul_query($clienti_vecchi, $num1, 'idclienti_compagni')) . "',\n'" . aggslashdb(risul_query($clienti_vecchi, $num1, 'doc_inviati')) . "',\n'" . aggslashdb($hostinserimento) . "',\n'" . $id_utenti_vecchi[risul_query($clienti_vecchi, $num1, 'utente_inserimento')] . "') ");
$datanascita = risul_query($clienti_vecchi, $num1, 'datanascita');
if ($datanascita) {
esegui_query("update " . $PHPR_TAB_PRE . "clienti set datanascita = '" . aggslashdb($datanascita) . "' where idclienti = '{$id_nuovo}' ");
}
$scadenzadoc = risul_query($clienti_vecchi, $num1, 'scadenzadoc');
if ($scadenzadoc) {
esegui_query("update " . $PHPR_TAB_PRE . "clienti set scadenzadoc = '" . aggslashdb($scadenzadoc) . "' where idclienti = '{$id_nuovo}' ");
}
if ($datainserimento) {
esegui_query("update " . $PHPR_TAB_PRE . "clienti set datainserimento = '" . aggslashdb($datainserimento) . "' where idclienti = '{$id_nuovo}' ");
}
$id_clienti_inseriti[$idcliente_vecchio] = $id_nuovo;
}
# fine else if (numlin_query($cliente_esistente) == 1)
$id_clienti_vecchi[$idcliente_vecchio] = $id_nuovo;
if ($id_nuovo != $idcliente_vecchio) {
reset($anno_mantieni);
while (list($anno_vecchio, $val) = each($anno_mantieni)) {
esegui_query("update " . $PHPR_TAB_PRE . "prenota{$anno_vecchio} set idclienti = '{$id_nuovo}' where idclienti = '{$idcliente_vecchio}' ");
esegui_query("update " . $PHPR_TAB_PRE . "rclientiprenota{$anno_vecchio} set idclienti = '{$id_nuovo}' where idclienti = '{$idcliente_vecchio}' ");
$storia_soldi = esegui_query("select * from " . $PHPR_TAB_PRE . "soldi{$anno_vecchio} where motivazione {$LIKE} '{$idcliente_vecchio};%' ");
for ($num2 = 0; $num2 < numlin_query($storia_soldi); $num2++) {
$idsoldi = risul_query($storia_soldi, $num2, 'idsoldi');
$motivazione = risul_query($storia_soldi, $num2, 'motivazione');
$motivazione = $id_nuovo . substr($motivazione, strlen($idcliente_vecchio));
esegui_query("update " . $PHPR_TAB_PRE . "soldi{$anno_vecchio} set motivazione = '{$motivazione}' where idsoldi = '{$idsoldi}' ");
}
# fine for $num2
}
# fine while (list($anno_vecchio,$val) = each($anno_mantieni))
}
# fine if ($id_nuovo != $idcliente_vecchio)
} else {
$id_clienti_vecchi[$idcliente_vecchio] = $idcliente_vecchio;
}
}
# fine if ($cliente_presente)
}
# fine for $num1
if (@is_array($id_clienti_inseriti)) {
reset($id_clienti_inseriti);
while (list($idcliente_vecchio, $id_nuovo) = each($id_clienti_inseriti)) {
$n_idclienti_compagni = ",";
$idclienti_compagni = esegui_query("select idclienti_compagni from " . $PHPR_TAB_PRE . "clienti where idclienti = '{$id_nuovo}' ");
$idclienti_compagni = risul_query($idclienti_compagni, 0, 'idclienti_compagni');
$idclienti_compagni_vett = explode(",", $idclienti_compagni);
for ($num1 = 1; $num1 < count($idclienti_compagni_vett) - 1; $num1++) {
if ($id_clienti_vecchi[$idclienti_compagni_vett[$num1]]) {
$n_idclienti_compagni .= $id_clienti_vecchi[$idclienti_compagni_vett[$num1]] . ",";
}
}
# fine for $num1
if ($n_idclienti_compagni != $idclienti_compagni) {
esegui_query("update " . $PHPR_TAB_PRE . "clienti set idclienti_compagni = '{$n_idclienti_compagni}' where idclienti = '{$id_nuovo}' ");
}
}
# fine while (list($idcliente_vecchio,$id_nuovo) = each($id_clienti_inseriti))
}
# fine if (@is_array($id_clienti_inseriti))
for ($num1 = 0; $num1 < numlin_query($privilegi_vecchi); $num1++) {
$anno_priv = risul_query($privilegi_vecchi, $num1, 'anno');
if ($anno_mantieni[$anno_priv]) {
$idutente_priv = risul_query($privilegi_vecchi, $num1, 'idutente');
if ($id_utenti_vecchi[$idutente_priv] != 1) {
esegui_query("insert into " . $PHPR_TAB_PRE . "privilegi (idutente,anno,regole1_consentite,tariffe_consentite,costi_agg_consentiti,contratti_consentiti,priv_ins_prenota,priv_mod_prenota,priv_mod_pers,priv_ins_clienti,prefisso_clienti,priv_ins_costi,priv_vedi_tab,priv_ins_tariffe,priv_ins_regole,priv_messaggi,priv_inventario) values ('{$idutente_priv}','{$anno_priv}',\n'" . aggslashdb(risul_query($privilegi_vecchi, $num1, 'regole1_consentite')) . "',\n'" . aggslashdb(risul_query($privilegi_vecchi, $num1, 'tariffe_consentite')) . "',\n'" . aggslashdb(risul_query($privilegi_vecchi, $num1, 'costi_agg_consentiti')) . "',\n'" . aggslashdb(risul_query($privilegi_vecchi, $num1, 'contratti_consentiti')) . "',\n'" . aggslashdb(risul_query($privilegi_vecchi, $num1, 'priv_ins_prenota')) . "',\n'" . aggslashdb(risul_query($privilegi_vecchi, $num1, 'priv_mod_prenota')) . "',\n'" . aggslashdb(risul_query($privilegi_vecchi, $num1, 'priv_mod_pers')) . "',\n'" . aggslashdb(risul_query($privilegi_vecchi, $num1, 'priv_ins_clienti')) . "',\n'" . aggslashdb(risul_query($privilegi_vecchi, $num1, 'prefisso_clienti')) . "',\n'" . aggslashdb(risul_query($privilegi_vecchi, $num1, 'priv_ins_costi')) . "',\n'" . aggslashdb(risul_query($privilegi_vecchi, $num1, 'priv_vedi_tab')) . "',\n'" . aggslashdb(risul_query($privilegi_vecchi, $num1, 'priv_ins_tariffe')) . "',\n'" . aggslashdb(risul_query($privilegi_vecchi, $num1, 'priv_ins_regole')) . "',\n'" . aggslashdb(risul_query($privilegi_vecchi, $num1, 'priv_messaggi')) . "',\n'" . aggslashdb(risul_query($privilegi_vecchi, $num1, 'priv_inventario')) . "') ");
}
# fine if ($id_utenti_vecchi[$idutente_priv] != 1)
}
# fine if ($anno_mantieni[$anno_priv])
}
# fine for $num1
for ($num1 = 0; $num1 < numlin_query($personalizza_vecchi); $num1++) {
$idpersonalizza = risul_query($personalizza_vecchi, $num1, 'idpersonalizza');
if ($anno_mantieni[str_replace("giorno_vedi_ini_sett", "", $idpersonalizza)]) {
$idutente_pers = risul_query($personalizza_vecchi, $num1, 'idutente');
if ($id_utenti_vecchi[$idutente_pers] != 1) {
esegui_query("insert into " . $PHPR_TAB_PRE . "personalizza (idpersonalizza,idutente,valpersonalizza,valpersonalizza_num) values ('{$idpersonalizza}','{$idutente_pers}',\n'" . aggslashdb(risul_query($personalizza_vecchi, $num1, 'valpersonalizza')) . "',\n'" . aggslashdb(risul_query($personalizza_vecchi, $num1, 'valpersonalizza_num')) . "') ");
}
# fine if ($id_utenti_vecchi[$idutente_pers] != 1)
}
# fine if ($anno_mantieni[str_replace("giorno_vedi_ini_sett","",$idpersonalizza)])
}
# fine for $num1
}
# fine if ($mantieni_anni and @is_array($anno_mantieni))
if ($silenzio != "SI") {
echo "" . mex("Database creato", $pag) . "<br>";
}
$fatto = "SI";
if (($nuovo_db != "SI" or $database_esistente == "SI") and $character_set_db and ($character_set_db != "utf8" or $collation_db != "utf8_general_ci")) {
esegui_query2("alter database {$N_PHPR_DB_NAME} default character set '{$character_set_db}' collate '{$collation_db}'", $N_PHPR_DB_TYPE);
}
if (@is_array($contenuto_mod) and $N_PHPR_DB_TYPE == $PHPR_DB_TYPE) {
global $prima_parte_html, $lingua_mex;
echo "<br>";
$lingua_mex_orig = $lingua_mex;
if ($silenzio != "SI") {
$silenzio_mod = "SI";
} else {
$silenzio_mod = "totale";
}
global $anno_modello_presente, $num_periodi_date, $modello_esistente, $cambia_frasi, $lingua_modello, $percorso_cartella_modello, $nome_file;
include C_DATA_PATH . "/lingua.php";
$lingua_mex = $lingua[1];
$pag_orig = $pag;
$pag = "crea_modelli.php";
function assegna_var_conn_mod($N_PHPR_DB_TYPE, $N_PHPR_DB_NAME, $N_PHPR_DB_HOST, $N_PHPR_DB_PORT, $N_PHPR_DB_USER, $N_PHPR_DB_PASS, $N_PHPR_LOAD_EXT, $N_PHPR_TAB_PRE)
{
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_PHPR_DB_TYPE = $N_PHPR_DB_TYPE;
$M_PHPR_DB_NAME = $N_PHPR_DB_NAME;
$M_PHPR_DB_HOST = $N_PHPR_DB_HOST;
$M_PHPR_DB_PORT = $N_PHPR_DB_PORT;
$M_PHPR_DB_USER = $N_PHPR_DB_USER;
$M_PHPR_DB_PASS = $N_PHPR_DB_PASS;
$M_PHPR_LOAD_EXT = $N_PHPR_LOAD_EXT;
$M_PHPR_TAB_PRE = $N_PHPR_TAB_PRE;
}
# fine function assegna_var_conn_mod
$PHPR_TAB_PRE = $N_PHPR_TAB_PRE;
$tablepersonalizza = $PHPR_TAB_PRE . "personalizza";
include "./includes/funzioni_costi_agg.php";
include "./includes/templates/funzioni_modelli.php";
$modello_esistente = "SI";
$cambia_frasi = "NO";
include "./includes/templates/frasi_mod_disp.php";
include "./includes/templates/funzioni_mod_disp.php";
for ($num_cart = 0; $num_cart < $num_perc_cart_mod_vett; $num_cart++) {
$percorso_cartella_modello = $perc_cart_mod_vett[$num_cart];
if ($contenuto_mod[$percorso_cartella_modello]['mdl_disponibilita.php']) {
$lingua_modello = "ita";
$nome_file = mex2("mdl_disponibilita", $pag, $lingua_modello) . ".php";
$nome_file_tmp = substr($nome_file, 0, -4) . ".tmp";
$num_periodi_date = "";
$anno_modello = "";
scrivi_file("<?php exit(); ?>\n" . $contenuto_mod[$percorso_cartella_modello]["{$nome_file}"], "{$percorso_cartella_modello}/{$nome_file_tmp}");
recupera_var_modello_disponibilita($nome_file_tmp, $percorso_cartella_modello, $pag, $fr_frase, $num_frasi, $var_mod, $num_var_mod, $tipo_periodi, "SI", $anno_modello, $PHPR_TAB_PRE);
$prima_parte_html = str_replace("<?php exit(); ?>\n", "", $prima_parte_html);
if (substr($prima_parte_html, 0, 70) == "<?php if (!@\$framed and !@\$_GET['framed'] and !@\$_POST['framed']) { ?>") {
$prima_parte_html = substr($prima_parte_html, 70);
}
if (substr($prima_parte_html, 0, 74) == "<?php if (!@\$framed and !@\$_GET[\\'framed\\'] and !@\$_POST[\\'framed\\']) { ?>") {
$prima_parte_html = substr($prima_parte_html, 74);
}
unlink("{$percorso_cartella_modello}/{$nome_file_tmp}");
assegna_var_conn_mod($N_PHPR_DB_TYPE, $N_PHPR_DB_NAME, $N_PHPR_DB_HOST, $N_PHPR_DB_PORT, $N_PHPR_DB_USER, $N_PHPR_DB_PASS, $N_PHPR_LOAD_EXT, $N_PHPR_TAB_PRE);
$anno_modello = $anno_modello_presente;
crea_modello_disponibilita($percorso_cartella_modello, $anno_modello, $PHPR_TAB_PRE, $pag, $lingua_modello, $silenzio_mod, $fr_frase, $frase, $num_frasi, $tipo_periodi);
}
# fine if ($contenuto_mod[$percorso_cartella_modello]["mdl_disponibilita.php"])
}
# fine for $num_cart
$lang_dir = opendir("./includes/lang/");
include C_DATA_PATH . "/lingua.php";
while ($ini_lingua = readdir($lang_dir)) {
if ($ini_lingua != "." && $ini_lingua != "..") {
$nome_file = mex2("mdl_disponibilita", $pag, $ini_lingua) . ".php";
$nome_file_tmp = substr($nome_file, 0, -4) . ".tmp";
for ($num_cart = 0; $num_cart < $num_perc_cart_mod_vett; $num_cart++) {
$percorso_cartella_modello = $perc_cart_mod_vett[$num_cart];
if ($contenuto_mod[$percorso_cartella_modello][$nome_file]) {
$lingua_modello = $ini_lingua;
$num_periodi_date = "";
$anno_modello = "";
scrivi_file("<?php exit(); ?>\n" . $contenuto_mod[$percorso_cartella_modello][$nome_file], "{$percorso_cartella_modello}/{$nome_file_tmp}");
recupera_var_modello_disponibilita($nome_file_tmp, $percorso_cartella_modello, $pag, $fr_frase, $num_frasi, $var_mod, $num_var_mod, $tipo_periodi, "SI", $anno_modello, $PHPR_TAB_PRE);
$prima_parte_html = str_replace("<?php exit(); ?>\n", "", $prima_parte_html);
if (substr($prima_parte_html, 0, 70) == "<?php if (!@\$framed and !@\$_GET['framed'] and !@\$_POST['framed']) { ?>") {
$prima_parte_html = substr($prima_parte_html, 70);
}
if (substr($prima_parte_html, 0, 74) == "<?php if (!@\$framed and !@\$_GET[\\'framed\\'] and !@\$_POST[\\'framed\\']) { ?>") {
$prima_parte_html = substr($prima_parte_html, 74);
}
unlink("{$percorso_cartella_modello}/{$nome_file_tmp}");
assegna_var_conn_mod($N_PHPR_DB_TYPE, $N_PHPR_DB_NAME, $N_PHPR_DB_HOST, $N_PHPR_DB_PORT, $N_PHPR_DB_USER, $N_PHPR_DB_PASS, $N_PHPR_LOAD_EXT, $N_PHPR_TAB_PRE);
$anno_modello = $anno_modello_presente;
crea_modello_disponibilita($percorso_cartella_modello, $anno_modello, $PHPR_TAB_PRE, $pag, $lingua_modello, $silenzio_mod, $fr_frase, $frase, $num_frasi, $tipo_periodi);
}
# fine if ($contenuto_mod[$percorso_cartella_modello][$nome_file])
}
# fine for $num_cart
}
# fine if ($file != "." && $file != "..")
}
# fine while ($file = readdir($lang_dig))
closedir($lang_dir);
$templates_dir = opendir("./includes/templates/");
while ($modello_ext = readdir($templates_dir)) {
if ($modello_ext != "." and $modello_ext != ".." and @is_dir("./includes/templates/{$modello_ext}")) {
include "./includes/templates/{$modello_ext}/name.php";
include "./includes/templates/{$modello_ext}/phrases.php";
include "./includes/templates/{$modello_ext}/functions.php";
$funz_recupera_var_modello = "recupera_var_modello_" . $modello_ext;
$funz_crea_modello = "crea_modello_" . $modello_ext;
$funz_mext = "mext_" . $modello_ext;
if ($template_file_name['ita']) {
$nome_file = $template_file_name['ita'];
} else {
$nome_file = "ita_" . $template_file_name["en"];
}
$nome_file_tmp = substr($nome_file, 0, -4) . ".tmp";
for ($num_cart = 0; $num_cart < $num_perc_cart_mod_vett; $num_cart++) {
$percorso_cartella_modello = $perc_cart_mod_vett[$num_cart];
if ($contenuto_mod[$percorso_cartella_modello][$nome_file]) {
$lingua_modello = "ita";
$num_periodi_date = "";
$anno_modello = "";
scrivi_file("<?php exit(); ?>\n" . $contenuto_mod[$percorso_cartella_modello][$nome_file], "{$percorso_cartella_modello}/{$nome_file_tmp}");
$funz_recupera_var_modello($nome_file_tmp, $percorso_cartella_modello, $pag, $fr_frase, $num_frasi, $var_mod, $num_var_mod, $tipo_periodi, "SI", $anno_modello, $PHPR_TAB_PRE);
$prima_parte_html = str_replace("<?php exit(); ?>\n", "", $prima_parte_html);
if (substr($prima_parte_html, 0, 70) == "<?php if (!@\$framed and !@\$_GET['framed'] and !@\$_POST['framed']) { ?>") {
$prima_parte_html = substr($prima_parte_html, 70);
}
if (substr($prima_parte_html, 0, 74) == "<?php if (!@\$framed and !@\$_GET[\\'framed\\'] and !@\$_POST[\\'framed\\']) { ?>") {
$prima_parte_html = substr($prima_parte_html, 74);
}
unlink("{$percorso_cartella_modello}/{$nome_file_tmp}");
assegna_var_conn_mod($N_PHPR_DB_TYPE, $N_PHPR_DB_NAME, $N_PHPR_DB_HOST, $N_PHPR_DB_PORT, $N_PHPR_DB_USER, $N_PHPR_DB_PASS, $N_PHPR_LOAD_EXT, $N_PHPR_TAB_PRE);
$anno_modello = $anno_modello_presente;
$funz_crea_modello($percorso_cartella_modello, $anno_modello, $PHPR_TAB_PRE, $pag, $lingua_modello, $silenzio_mod, $fr_frase, $frase, $num_frasi, $tipo_periodi);
}
# fine if ($contenuto_mod[$percorso_cartella_modello][$nome_file])
}
# fine for $num_cart
$lang_dir = opendir("./includes/lang/");
while ($ini_lingua = readdir($lang_dir)) {
if ($ini_lingua != "." && $ini_lingua != "..") {
if ($template_file_name[$ini_lingua]) {
$nome_file = $template_file_name[$ini_lingua];
} else {
$nome_file = $ini_lingua . "_" . $template_file_name['en'];
}
$nome_file_tmp = substr($nome_file, 0, -4) . ".tmp";
for ($num_cart = 0; $num_cart < $num_perc_cart_mod_vett; $num_cart++) {
$percorso_cartella_modello = $perc_cart_mod_vett[$num_cart];
if ($contenuto_mod[$percorso_cartella_modello][$nome_file]) {
$lingua_modello = $ini_lingua;
$num_periodi_date = "";
$anno_modello = "";
scrivi_file("<?php exit(); ?>\n" . $contenuto_mod[$percorso_cartella_modello]["{$nome_file}"], "{$percorso_cartella_modello}/{$nome_file_tmp}");
$funz_recupera_var_modello($nome_file_tmp, $percorso_cartella_modello, $pag, $fr_frase, $num_frasi, $var_mod, $num_var_mod, $tipo_periodi, "SI", $anno_modello, $PHPR_TAB_PRE);
$prima_parte_html = str_replace("<?php exit(); ?>\n", "", $prima_parte_html);
if (substr($prima_parte_html, 0, 70) == "<?php if (!@\$framed and !@\$_GET['framed'] and !@\$_POST['framed']) { ?>") {
$prima_parte_html = substr($prima_parte_html, 70);
}
if (substr($prima_parte_html, 0, 74) == "<?php if (!@\$framed and !@\$_GET[\\'framed\\'] and !@\$_POST[\\'framed\\']) { ?>") {
$prima_parte_html = substr($prima_parte_html, 74);
}
unlink("{$percorso_cartella_modello}/{$nome_file_tmp}");
assegna_var_conn_mod($N_PHPR_DB_TYPE, $N_PHPR_DB_NAME, $N_PHPR_DB_HOST, $N_PHPR_DB_PORT, $N_PHPR_DB_USER, $N_PHPR_DB_PASS, $N_PHPR_LOAD_EXT, $N_PHPR_TAB_PRE);
$anno_modello = $anno_modello_presente;
$funz_crea_modello($percorso_cartella_modello, $anno_modello, $PHPR_TAB_PRE, $pag, $lingua_modello, $silenzio_mod, $fr_frase, $frase, $num_frasi, $tipo_periodi);
}
# fine if ($contenuto_mod[$percorso_cartella_modello][$nome_file])
}
# fine for $num_cart
}
# fine if ($file != "." && $file != "..")
}
# fine while ($file = readdir($lang_dir))
closedir($lang_dir);
}
# fine if ($modello_ext != "." and $modello_ext != ".." and...
}
# fine while ($file = readdir($lang_dig))
closedir($templates_dir);
$pag = $pag_orig;
$lingua_mex = $lingua_mex_orig;
}
# fine if (@is_array($contenuto_mod) and...
} else {
if ($silenzio != "SI") {
echo mex("Non è stato possibile connettersi al nuovo database, controllare i data per la connessione, i privilegi dell' utente o il nome del database", $pag) . ".<br>";
}
}
} else {
if ($silenzio != "SI") {
echo mex("Non è stato possibile creare il nuovo database, controllare i data per la connessione, i privilegi dell' utente, il nome del database o se esiste già un database chiamato", $pag) . " {$N_PHPR_DB_NAME}.<br>";
}
}
}
# fine else if ($file_coerente == "NO")
return $fatto;
}
function crea_nuovo_anno($anno, $PHPR_TAB_PRE, $DATETIME, $tipo_periodi, $giorno_ini_fine, $mese_ini, $mese_fine, $importa_anno_prec, $silenzio, $pag)
{
allunga_tempo_limite();
global $lingua_mex, $LIKE, $ILIKE, $PHPR_DB_TYPE;
$lingua_mex_orig = $lingua_mex;
include_once "./includes/funzioni_menu.php";
include C_DATA_PATH . "/lingua.php";
$lingua_mex = $lingua[1];
$tableanni = $PHPR_TAB_PRE . "anni";
$tableprivilegi = $PHPR_TAB_PRE . "privilegi";
$tabletransazioni = $PHPR_TAB_PRE . "transazioni";
$tabletransazioniweb = $PHPR_TAB_PRE . "transazioniweb";
$tablepersonalizza = $PHPR_TAB_PRE . "personalizza";
$tablemessaggi = $PHPR_TAB_PRE . "messaggi";
$tableinterconnessioni = $PHPR_TAB_PRE . "interconnessioni";
$tablecontratti = $PHPR_TAB_PRE . "contratti";
$tableutenti = $PHPR_TAB_PRE . "utenti";
$tablerelclienti = $PHPR_TAB_PRE . "relclienti";
if ($PHPR_DB_TYPE == "mysql" or $PHPR_DB_TYPE == "mysqli") {
@esegui_query("SET default_storage_engine=MYISAM", 1);
}
$filelock = fopen(C_DATA_PATH . "/anni.lock", "w+");
if ($filelock) {
flock($filelock, 2);
$anno_esistente = esegui_query("select * from {$tableanni} where idanni = {$anno}");
if (numlin_query($anno_esistente) == 0) {
if (C_CAMBIA_TIPO_PERIODI == "NO") {
$tipo_periodi_esistenti = esegui_query("select * from {$tableanni} order by idanni desc");
if (numlin_query($tipo_periodi_esistenti) != 0) {
$tipo_periodi = risul_query($tipo_periodi_esistenti, 0, 'tipo_periodi');
}
}
# fine if (C_CAMBIA_TIPO_PERIODI == "NO")
if ($tipo_periodi != "g") {
$tipo_periodi = "s";
}
// creo la tabella con periodi settimanali e prezzi e la tabella con i nomi delle tariffe
$tableperiodi = $PHPR_TAB_PRE . "periodi" . $anno;
$tablenometariffe = $PHPR_TAB_PRE . "ntariffe" . $anno;
if ($importa_anno_prec == "SI") {
$anno_prec = $anno - 1;
$tablenometariffe_prec = $PHPR_TAB_PRE . "ntariffe" . $anno_prec;
$num_tariffe_tab = esegui_query("select nomecostoagg from {$tablenometariffe_prec} where idntariffe = 1");
$num_tariffe_tab = risul_query($num_tariffe_tab, 0, 'nomecostoagg');
} else {
$num_tariffe_tab = 8;
}
$query = "create table {$tableperiodi} (idperiodi integer primary key, datainizio date not null, datafine date";
$query2 = "create table {$tablenometariffe} (idntariffe integer, nomecostoagg varchar(40), tipo_ca varchar(2), valore_ca float8, valore_perc_ca float8, arrotonda_ca float4, tasseperc_ca float4, associasett_ca varchar(1), numsett_ca varchar(20), moltiplica_ca text, periodipermessi_ca text, beniinv_ca text, appincompatibili_ca text, variazione_ca varchar(20), mostra_ca varchar(10), categoria_ca text, letto_ca varchar(1), numlimite_ca integer, regoleassegna_ca varchar(30), utente_inserimento integer";
$num_col_tariffe_db = $num_tariffe_tab;
if ($num_col_tariffe_db < 12) {
$num_col_tariffe_db = 12;
}
for ($num1 = 1; $num1 <= $num_col_tariffe_db; $num1++) {
$nome_nuova_tariffa = "tariffa" . $num1;
$query .= ", {$nome_nuova_tariffa} float8, {$nome_nuova_tariffa}" . "p float8";
$query2 .= ", {$nome_nuova_tariffa} varchar(40)";
}
# fine for $num1
$crea_tab = esegui_query($query . ")");
if ($crea_tab) {
esegui_query($query2 . ")");
function estrai_col_tabella($col_table)
{
$col_table = explode(",", $col_table);
for ($num1 = 0; $num1 < count($col_table); $num1++) {
$col = explode(" ", trim($col_table[$num1]));
$tutte_col .= $col[0] . ",";
}
# fine for $num1
return substr($tutte_col, 0, -1);
}
# fine function estrai_col_tabella
# Creo la tabella delle prernotazioni
$tableprenotazioni = $PHPR_TAB_PRE . "prenota" . $anno;
$col_tableprenota = "idprenota integer primary key, idclienti integer, idappartamenti varchar(100), iddatainizio integer, iddatafine integer, assegnazioneapp varchar(4), app_assegnabili text, num_persone integer, idprenota_compagna text, tariffa text, tariffesettimanali text, incompatibilita text, sconto float8, tariffa_tot float8, caparra float8, commissioni float8, tasseperc float4, pagato float8, metodo_pagamento text, codice varchar(10), origine varchar(70), commento text, conferma varchar(4), checkin {$DATETIME}, checkout {$DATETIME}, id_anni_prec text, datainserimento {$DATETIME}, hostinserimento varchar(50), data_modifica {$DATETIME}, utente_inserimento integer ";
esegui_query("create table {$tableprenotazioni} ({$col_tableprenota})");
$col_tableprenota = estrai_col_tabella($col_tableprenota);
# Creo la tabella con i costi aggiuntivi delle prenotazioni
$tablecostiprenota = $PHPR_TAB_PRE . "costiprenota" . $anno;
$col_tablecostiprenota = "idcostiprenota integer primary key, idprenota integer, tipo varchar(2), nome varchar(40), valore float8, valore_perc float8, arrotonda float4, tasseperc float4, associasett varchar(1), settimane text, moltiplica text, categoria text, letto varchar(1), numlimite integer, idntariffe integer, variazione varchar(10), varmoltiplica text, varnumsett varchar(20), varperiodipermessi text, varbeniinv text, varappincompatibili text, vartariffeassociate varchar(10), vartariffeincomp text, datainserimento {$DATETIME}, hostinserimento varchar(50), utente_inserimento integer";
esegui_query("create table {$tablecostiprenota} ({$col_tablecostiprenota})");
$col_tablecostiprenota = estrai_col_tabella($col_tablecostiprenota);
crea_indice($tablecostiprenota, "idprenota", $PHPR_TAB_PRE . "iidpcostiprenota" . $anno);
esegui_query("insert into {$tablecostiprenota} (idcostiprenota,numlimite) values ('1','1')");
# Creo la tabella le relazioni tra prenotazioni e clienti non titolari
$tablerclientiprenota = $PHPR_TAB_PRE . "rclientiprenota" . $anno;
$col_tablerclientiprenota = "idprenota integer, idclienti integer, num_ordine integer, parentela varchar(70), datainserimento {$DATETIME}, hostinserimento varchar(50), utente_inserimento integer";
esegui_query("create table {$tablerclientiprenota} ({$col_tablerclientiprenota})");
$col_tablerclientiprenota = estrai_col_tabella($col_tablerclientiprenota);
crea_indice($tablerclientiprenota, "idprenota", $PHPR_TAB_PRE . "iidprclientiprenota" . $anno);
# Creo la tabella per le regole di assegnazione
$tableregole = $PHPR_TAB_PRE . "regole" . $anno;
$col_tableregole = "idregole integer, app_agenzia varchar(100), tariffa_chiusa text, tariffa_per_app text, tariffa_per_utente text, tariffa_per_persone text, tariffa_commissioni integer, iddatainizio integer, iddatafine integer, motivazione text, motivazione2 text";
esegui_query("create table {$tableregole} ({$col_tableregole})");
$col_tableregole = estrai_col_tabella($col_tableregole);
# Creo la tabella con i costi di gestione
$tablecosti = $PHPR_TAB_PRE . "costi" . $anno;
$col_tablecosti = "idcosti integer unique,nome_costo text, val_costo float8, tipo_costo text, nome_cassa varchar(70), persona_costo text, provenienza_costo text, metodo_pagamento text, datainserimento {$DATETIME}, hostinserimento varchar(50), utente_inserimento integer";
esegui_query("create table {$tablecosti} ({$col_tablecosti})");
$col_tablecosti = estrai_col_tabella($col_tablecosti);
# Creo la tabella per la storia entrate-uscite
$tablesoldi = $PHPR_TAB_PRE . "soldi" . $anno;
$col_tablesoldi = "idsoldi integer unique, motivazione text, id_pagamento text, metodo_pagamento text, saldo_prenota float8, saldo_cassa float8, soldi_prima float8, data_inserimento {$DATETIME}, utente_inserimento integer";
esegui_query("create table {$tablesoldi} ({$col_tablesoldi})");
$col_tablesoldi = estrai_col_tabella($col_tablesoldi);
$tabelle_lock = array($tableanni, $tableprenotazioni, $tablecostiprenota, $tablerclientiprenota, $tablenometariffe, $tableperiodi, $tablerelclienti, $tablecosti, $tableregole, $tablesoldi, $tablepersonalizza, $tableprivilegi, $tabletransazioni);
if ($importa_anno_prec == "SI") {
$anno_prec = $anno - 1;
$tablenometariffe_prec = $PHPR_TAB_PRE . "ntariffe" . $anno_prec;
$tableprenota_prec = $PHPR_TAB_PRE . "prenota" . $anno_prec;
$tablecostiprenota_prec = $PHPR_TAB_PRE . "costiprenota" . $anno_prec;
$tablerclientiprenota_prec = $PHPR_TAB_PRE . "rclientiprenota" . $anno_prec;
$tableperiodi_prec = $PHPR_TAB_PRE . "periodi" . $anno_prec;
$tableregole_prec = $PHPR_TAB_PRE . "regole" . $anno_prec;
$tablesoldi_prec = $PHPR_TAB_PRE . "soldi" . $anno_prec;
$tablecosti_prec = $PHPR_TAB_PRE . "costi" . $anno_prec;
$tabelle_lock = array($tableanni, $tableprenota_prec, $tableprenotazioni, $tablecostiprenota_prec, $tablecostiprenota, $tablerclientiprenota_prec, $tablerclientiprenota, $tablenometariffe, $tableperiodi, $tablerelclienti, $tablecosti_prec, $tablecosti, $tableregole, $tablesoldi_prec, $tablesoldi, $tableinterconnessioni, $tablemessaggi, $tablepersonalizza, $tableprivilegi, $tabletransazioni);
$altre_tab_lock = array($tablenometariffe_prec, $tableperiodi_prec, $tableregole_prec, $tablecontratti, $tableutenti);
$max_data_ini_prec = esegui_query("select max(datainizio) from {$tableperiodi_prec}");
if (numlin_query($max_data_ini_prec) != 0) {
$max_data_ini_prec = risul_query($max_data_ini_prec, 0, 0);
$max_mese_prec = 0;
if (substr($max_data_ini_prec, 0, 4) >= $anno) {
$max_mese_prec = substr($max_data_ini_prec, 5, 2);
}
if (substr($max_data_ini_prec, 0, 4) == $anno + 1) {
$max_mese_prec = $max_mese_prec + 12;
}
if (substr($max_data_ini_prec, 0, 4) == $anno + 2) {
$max_mese_prec = $max_mese_prec + 24;
}
if (substr($max_data_ini_prec, 0, 4) == $anno + 3) {
$max_mese_prec = $max_mese_prec + 36;
}
if (substr($max_data_ini_prec, 0, 4) == $anno + 4) {
$max_mese_prec = $max_mese_prec + 48;
}
if ($max_mese_prec > $mese_fine) {
$mese_fine = $max_mese_prec;
}
$data_ini_agg = date("Y-m-d", mktime(0, 0, 0, substr($max_data_ini_prec, 5, 2) + 1, 1, substr($max_data_ini_prec, 0, 4)));
} else {
$max_data_ini_prec = "";
$max_mese_prec = "";
$data_ini_agg = "";
}
# fine else if (numlin_query($max_data_ini_prec) != 0)
} else {
unset($altre_tab_lock);
}
$tabelle_lock = lock_tabelle($tabelle_lock, $altre_tab_lock);
# Elimino tutte le transazioni, potrebbero contenere date dell'anno creato
esegui_query("delete from {$tabletransazioni}");
# Inserisco l'anno nella tabella anni
esegui_query("insert into {$tableanni} (idanni,tipo_periodi) values ('{$anno}','{$tipo_periodi}')");
esegui_query("insert into {$tablecosti} (idcosti) values ('0')");
esegui_query("insert into {$tablesoldi} (idsoldi,motivazione,soldi_prima) values ('1','soldi_prenotazioni_cancellate','0')");
// trovo il primo giorno di inizio/fine dell'anno (nel caso di periodi settimanali)
$numgiorno = 1;
$giorno_ini_fine = (string) $giorno_ini_fine;
if ($giorno_ini_fine != "0" and $giorno_ini_fine != "1" and $giorno_ini_fine != "2" and $giorno_ini_fine != "3" and $giorno_ini_fine != "4" and $giorno_ini_fine != "5" and $giorno_ini_fine != "6") {
$giorno_ini_fine = 6;
}
do {
$nomegiorno = date("w", mktime(0, 0, 0, 1, $numgiorno, $anno));
$numgiorno = $numgiorno + 1;
} while ($nomegiorno != $giorno_ini_fine);
$numgiorno = $numgiorno - 1;
if ($tipo_periodi == "g") {
$numgiorno = 1;
$aggiungi_giorni = 1;
} else {
$aggiungi_giorni = 7;
}
if ($mese_ini > $mese_fine) {
if ($silenzio != "SI") {
echo mex("I mesi erano indicati erroneamente, sono stati inseriti i mesi da Gennaio a Dicembre", $pag) . ".<br>";
}
$mese_ini = 1;
if ($mese_fine < 12) {
$mese_fine = 12;
}
}
# fine if ($mese_ini > $mese_fine)
$anno_fine = $anno + 3;
$idperiodi = 1;
$fileaperto = fopen(C_DATA_PATH . "/selectperiodi{$anno}.1.php", "a+");
flock($fileaperto, 2);
$date_option = "";
$n_date_menu = 0;
do {
$datainizio = date("Y-m-d", mktime(0, 0, 0, 1, $numgiorno, $anno));
$annocreato = date("Y", mktime(0, 0, 0, 1, $numgiorno, $anno));
$mesecreato = date("n", mktime(0, 0, 0, 1, $numgiorno, $anno));
$nome_giorno = date("D", mktime(0, 0, 0, 1, $numgiorno, $anno));
$nome_mese = date("M", mktime(0, 0, 0, 1, $numgiorno, $anno));
$numero_giorno = date("d", mktime(0, 0, 0, 1, $numgiorno, $anno));
$numero_anno = $annocreato;
$numgiorno = $numgiorno + $aggiungi_giorni;
$datafine = date("Y-m-d", mktime(0, 0, 0, 1, $numgiorno, $anno));
$annocreato2 = date("Y", mktime(0, 0, 0, 1, $numgiorno, $anno));
$mesecreato2 = date("n", mktime(0, 0, 0, 1, $numgiorno, $anno));
if ($annocreato > $anno) {
$diff = $annocreato - $anno;
$mesecreato = $diff * 12 + $mesecreato;
}
# fine if ($annocreato > $anno)
if ($annocreato2 > $anno) {
$diff = $annocreato2 - $anno;
$mesecreato2 = $diff * 12 + $mesecreato2;
}
# fine if ($annocreato2 > $anno)
if ($mesecreato >= $mese_ini and $mesecreato <= $mese_fine) {
esegui_query("insert into {$tableperiodi} ( idperiodi, datainizio, datafine) values ( {$idperiodi}, '{$datainizio}', '{$datafine}')");
if ($tipo_periodi == "g") {
if ($nome_giorno == "Sun") {
$nome_giorno = mex(" Do", $pag);
}
if ($nome_giorno == "Mon") {
$nome_giorno = mex(" Lu", $pag);
}
if ($nome_giorno == "Tue") {
$nome_giorno = mex(" Ma", $pag);
}
if ($nome_giorno == "Wed") {
$nome_giorno = mex(" Me", $pag);
}
if ($nome_giorno == "Thu") {
$nome_giorno = mex(" Gi", $pag);
}
if ($nome_giorno == "Fri") {
$nome_giorno = mex(" Ve", $pag);
}
if ($nome_giorno == "Sat") {
$nome_giorno = mex(" Sa", $pag);
}
} else {
$nome_giorno = "";
}
if ($nome_mese == "Jan") {
$nome_mese = mex("Gen", $pag);
}
if ($nome_mese == "Feb") {
$nome_mese = mex("Feb", $pag);
}
if ($nome_mese == "Mar") {
$nome_mese = mex("Mar", $pag);
}
if ($nome_mese == "Apr") {
$nome_mese = mex("Apr", $pag);
}
if ($nome_mese == "May") {
$nome_mese = mex("Mag", $pag);
}
if ($nome_mese == "Jun") {
$nome_mese = mex("Giu", $pag);
}
if ($nome_mese == "Jul") {
$nome_mese = mex("Lug", $pag);
}
if ($nome_mese == "Aug") {
$nome_mese = mex("Ago", $pag);
}
if ($nome_mese == "Sep") {
$nome_mese = mex("Set", $pag);
}
if ($nome_mese == "Oct") {
$nome_mese = mex("Ott", $pag);
}
if ($nome_mese == "Nov") {
$nome_mese = mex("Nov", $pag);
}
if ($nome_mese == "Dec") {
$nome_mese = mex("Dic", $pag);
}
if (!$date_option) {
$a_ini_menu = substr($datainizio, 0, 4);
$m_ini_menu = substr($datainizio, 5, 2) - 1;
$g_ini_menu = substr($datainizio, 8, 2);
}
# fine if (!$date_option)
$n_date_menu++;
$date_option .= "<option value=\\\"{$datainizio}\\\">{$nome_mese} {$numero_giorno}{$nome_giorno}, {$numero_anno}</option>\n";
$idperiodi = $idperiodi + 1;
$datafine2 = $datafine;
}
# fine if ($mesecreato >= $mese_ini and $mesecreato <= $mese_fine)
} while ($annocreato2 <= $anno_fine or $mesecreato2 == 48);
$numero_mese = substr($datafine2, 5, 2);
if ($numero_mese == "01") {
$nome_mese = mex("Gen", $pag);
}
if ($numero_mese == "02") {
$nome_mese = mex("Feb", $pag);
}
if ($numero_mese == "03") {
$nome_mese = mex("Mar", $pag);
}
if ($numero_mese == "04") {
$nome_mese = mex("Apr", $pag);
}
if ($numero_mese == "05") {
$nome_mese = mex("Mag", $pag);
}
if ($numero_mese == "06") {
$nome_mese = mex("Giu", $pag);
}
if ($numero_mese == "07") {
$nome_mese = mex("Lug", $pag);
}
if ($numero_mese == "08") {
$nome_mese = mex("Ago", $pag);
}
if ($numero_mese == "09") {
$nome_mese = mex("Set", $pag);
}
if ($numero_mese == "10") {
$nome_mese = mex("Ott", $pag);
}
if ($numero_mese == "11") {
$nome_mese = mex("Nov", $pag);
}
if ($numero_mese == "12") {
$nome_mese = mex("Dic", $pag);
}
$numero_giorno = substr($datafine2, 8, 2);
$numero_anno = substr($datafine2, 0, 4);
$n_date_menu++;
$date_option .= "<option value=\\\"{$datafine2}\\\">{$nome_mese} {$numero_giorno}, {$numero_anno}</option>\n";
fwrite($fileaperto, "<?php \n\n\$y_ini_menu[0] = \"{$a_ini_menu}\";\n\$m_ini_menu[0] = \"{$m_ini_menu}\";\n\$d_ini_menu[0] = \"{$g_ini_menu}\";\n\$n_dates_menu[0] = \"{$n_date_menu}\";\n\$d_increment[0] = \"{$aggiungi_giorni}\";\n\$d_names = \"\\\"" . mex(" Do", $pag) . "\\\",\\\"" . mex(" Lu", $pag) . "\\\",\\\"" . mex(" Ma", $pag) . "\\\",\\\"" . mex(" Me", $pag) . "\\\",\\\"" . mex(" Gi", $pag) . "\\\",\\\"" . mex(" Ve", $pag) . "\\\",\\\"" . mex(" Sa", $pag) . "\\\"\";\n\$m_names = \"\\\"" . mex("Gen", $pag) . "\\\",\\\"" . mex("Feb", $pag) . "\\\",\\\"" . mex("Mar", $pag) . "\\\",\\\"" . mex("Apr", $pag) . "\\\",\\\"" . mex("Mag", $pag) . "\\\",\\\"" . mex("Giu", $pag) . "\\\",\\\"" . mex("Lug", $pag) . "\\\",\\\"" . mex("Ago", $pag) . "\\\",\\\"" . mex("Set", $pag) . "\\\",\\\"" . mex("Ott", $pag) . "\\\",\\\"" . mex("Nov", $pag) . "\\\",\\\"" . mex("Dic", $pag) . "\\\"\";\n\n\$dates_options_list = \"\n\n{$date_option}\n\";\n\n?>");
flock($fileaperto, 3);
fclose($fileaperto);
if ($importa_anno_prec == "SI" and @is_file(C_DATA_PATH . "/selperiodimenu" . ($anno - 1) . ".1.php")) {
estendi_menu_date(C_DATA_PATH . "/selperiodimenu" . ($anno - 1) . ".1.php", C_DATA_PATH . "/selperiodimenu{$anno}.1.php", $tipo_periodi, date("Y-m-d", mktime(0, 0, 0, $mese_ini, 1, $anno)), $data_ini_agg, date("Y-m-d", mktime(0, 0, 0, $mese_fine + 1, 1, $anno)), $anno, $pag);
} else {
copy(C_DATA_PATH . "/selectperiodi{$anno}.1.php", C_DATA_PATH . "/selperiodimenu{$anno}.1.php");
}
$lista_clienti_importati = "";
# Importo eventuali prenotazioni, tariffe e regole dell'anno precedente
if ($importa_anno_prec == "SI") {
$tableprenota = $tableprenotazioni;
$data_inizio_periodi = esegui_query("select * from {$tableperiodi} where idperiodi = 1");
$data_inizio_periodi = risul_query($data_inizio_periodi, 0, 'datainizio');
$ini_periodo_interferenza = esegui_query("select * from {$tableperiodi_prec} where datainizio = '{$data_inizio_periodi}'");
$num_periodo_interferenza = numlin_query($ini_periodo_interferenza);
$tipo_periodi_prec = esegui_query("select * from {$tableanni} where idanni = {$anno_prec}");
$tipo_periodi_prec = risul_query($tipo_periodi_prec, 0, 'tipo_periodi');
if ($tipo_periodi_prec != $tipo_periodi) {
$num_periodo_interferenza = 0;
}
if ($num_periodo_interferenza == 0) {
if ($silenzio != "SI") {
echo mex("Non ci sono periodi che riguardano il ", $pag) . $anno . mex(" nel ", $pag) . $anno_prec . mex(", o il giorno di inizio/fine locazione era differente, sono stati importati solo i data riguardanti costi aggiuntivi, caparra, nome delle tariffe, privilegi degli utenti e regole di assegnazione 2 e 3", $pag) . ".<br>";
}
} else {
$id_data_fine_periodi = esegui_query("select max(idperiodi) from {$tableperiodi}");
$id_data_fine_periodi = risul_query($id_data_fine_periodi, 0, 0);
$id_data_ini_periodi_prec = risul_query($ini_periodo_interferenza, 0, 'idperiodi');
$id_data_fine_periodi_prec = esegui_query("select max(idperiodi) from {$tableperiodi_prec}");
$id_data_fine_periodi_prec = risul_query($id_data_fine_periodi_prec, 0, 0);
$num_periodi_prec = $id_data_fine_periodi_prec - $id_data_ini_periodi_prec + 1;
if ($num_periodi_prec > $id_data_fine_periodi) {
$id_data_fine_periodi_prec = $id_data_ini_periodi_prec + $id_data_fine_periodi - 1;
$prenota_non_importabili = esegui_query("select * from {$tableprenota_prec} where iddatafine > {$id_data_fine_periodi_prec} ");
$num_prenota_non_importabili = numlin_query($prenota_non_importabili);
if ($num_prenota_non_importabili != 0) {
echo "<br>ERROR<br>";
}
}
# fine if ($num_periodi_prec > $id_data_fine_periodi)
$idprenota_corr = 0;
$max_idprenota_prec = esegui_query("select max(idprenota) from {$tableprenota_prec}");
$max_idprenota_prec = risul_query($max_idprenota_prec, 0, 0) + 1;
$max_idcostiprenota_prec = esegui_query("select max(idcostiprenota) from {$tablecostiprenota_prec}");
$max_idcostiprenota_prec = risul_query($max_idcostiprenota_prec, 0, 0) + 1;
$prenota_gia_iniziate = esegui_query("select * from {$tableprenota_prec} where iddatainizio < {$id_data_ini_periodi_prec} and iddatafine >= {$id_data_ini_periodi_prec} and iddatafine <= {$id_data_fine_periodi_prec} ");
$num_prenota_gia_iniziate = numlin_query($prenota_gia_iniziate);
for ($num1 = 0; $num1 < $num_prenota_gia_iniziate; $num1 = $num1 + 1) {
$idprenota = risul_query($prenota_gia_iniziate, $num1, 'idprenota');
$idclienti = risul_query($prenota_gia_iniziate, $num1, 'idclienti');
$lista_clienti_importati .= "and idclienti != '{$idclienti}' ";
$idappartamenti = risul_query($prenota_gia_iniziate, $num1, 'idappartamenti');
$iddatafine = risul_query($prenota_gia_iniziate, $num1, 'iddatafine');
$iddatafine = $iddatafine - $id_data_ini_periodi_prec + 1;
$datainserimento = risul_query($prenota_gia_iniziate, $num1, 'datainserimento');
$hostinserimento = risul_query($prenota_gia_iniziate, $num1, 'hostinserimento');
$data_modifica = risul_query($prenota_gia_iniziate, $num1, 'data_modifica');
$utente_inserimento = risul_query($prenota_gia_iniziate, $num1, 'utente_inserimento');
$checkin = risul_query($prenota_gia_iniziate, $num1, 'checkin');
$checkout = risul_query($prenota_gia_iniziate, $num1, 'checkout');
$codice = risul_query($prenota_gia_iniziate, $num1, 'codice');
$idprenota_corr++;
esegui_query("insert into {$tableprenota} (idprenota,idclienti,idappartamenti,iddatainizio,iddatafine,assegnazioneapp,commento,codice,datainserimento,hostinserimento,utente_inserimento) values ('{$idprenota_corr}','{$idclienti}','{$idappartamenti}','0',{$iddatafine},'k','{$idprenota}','{$codice}','{$datainserimento}','{$hostinserimento}','{$utente_inserimento}') ");
if ($checkin) {
esegui_query("update {$tableprenota} set checkin = '" . aggslashdb($checkin) . "' where idprenota = '{$idprenota_corr}'");
}
if ($checkout) {
esegui_query("update {$tableprenota} set checkout = '" . aggslashdb($checkout) . "' where idprenota = '{$idprenota_corr}'");
}
esegui_query("update {$tablecostiprenota_prec} set idprenota = '{$max_idprenota_prec}' where idprenota = '{$idprenota}'");
esegui_query("insert into {$tablecostiprenota} select {$col_tablecostiprenota} from {$tablecostiprenota_prec} where idprenota = '{$max_idprenota_prec}' ");
esegui_query("update {$tablecostiprenota} set idprenota = '{$idprenota_corr}' where idprenota = '{$max_idprenota_prec}'");
esegui_query("update {$tablecostiprenota_prec} set idprenota = '{$idprenota}' where idprenota = '{$max_idprenota_prec}'");
esegui_query("update {$tablerclientiprenota_prec} set idprenota = '{$max_idprenota_prec}' where idprenota = '{$idprenota}'");
esegui_query("insert into {$tablerclientiprenota} select {$col_tablerclientiprenota} from {$tablerclientiprenota_prec} where idprenota = '{$max_idprenota_prec}' ");
esegui_query("update {$tablerclientiprenota} set idprenota = '{$idprenota_corr}' where idprenota = '{$max_idprenota_prec}'");
esegui_query("update {$tablerclientiprenota_prec} set idprenota = '{$idprenota}' where idprenota = '{$max_idprenota_prec}'");
}
# fine for $num1
$nuovo_idprenota = "";
$nuovo_iddatainizio = "";
$nuovo_iddatafine = "";
$prenota_importate = esegui_query("select * from {$tableprenota_prec} where iddatainizio >= '{$id_data_ini_periodi_prec}' and iddatafine <= '{$id_data_fine_periodi_prec}' order by idprenota ");
$num_prenota_importate = numlin_query($prenota_importate);
for ($num1 = 0; $num1 < $num_prenota_importate; $num1 = $num1 + 1) {
$idprenota = risul_query($prenota_importate, $num1, 'idprenota');
$iddatainizio = risul_query($prenota_importate, $num1, 'iddatainizio');
$iddatainizio = $iddatainizio - $id_data_ini_periodi_prec + 1;
$iddatafine = risul_query($prenota_importate, $num1, 'iddatafine');
$iddatafine = $iddatafine - $id_data_ini_periodi_prec + 1;
$idclienti = risul_query($prenota_importate, $num1, 'idclienti');
$lista_clienti_importati .= "and idclienti != '{$idclienti}' ";
$id_anni_prec = risul_query($prenota_importate, $num1, 'id_anni_prec');
if (!$id_anni_prec) {
$id_anni_prec = ";";
}
$id_anni_prec .= "{$anno_prec},{$idprenota};";
$idprenota_corr++;
esegui_query("update {$tableprenota_prec} set idprenota = '{$max_idprenota_prec}' where idprenota = '{$idprenota}'");
esegui_query("insert into {$tableprenota} select {$col_tableprenota} from {$tableprenota_prec} where idprenota = '{$max_idprenota_prec}' ");
esegui_query("update {$tableprenota} set iddatainizio = '{$iddatainizio}' where idprenota = '{$max_idprenota_prec}'");
esegui_query("update {$tableprenota} set iddatafine = '{$iddatafine}' where idprenota = '{$max_idprenota_prec}'");
esegui_query("update {$tableprenota} set id_anni_prec = '{$id_anni_prec}' where idprenota = '{$max_idprenota_prec}'");
esegui_query("update {$tableprenota} set idprenota = '{$idprenota_corr}' where idprenota = '{$max_idprenota_prec}'");
esegui_query("delete from {$tableprenota_prec} where idprenota = '{$max_idprenota_prec}'");
esegui_query("update {$tablecostiprenota_prec} set idprenota = '{$max_idprenota_prec}' where idprenota = '{$idprenota}'");
esegui_query("insert into {$tablecostiprenota} select {$col_tablecostiprenota} from {$tablecostiprenota_prec} where idprenota = '{$max_idprenota_prec}' ");
esegui_query("update {$tablecostiprenota} set idprenota = '{$idprenota_corr}' where idprenota = '{$max_idprenota_prec}'");
esegui_query("delete from {$tablecostiprenota_prec} where idprenota = '{$max_idprenota_prec}'");
esegui_query("update {$tablerclientiprenota_prec} set idprenota = '{$max_idprenota_prec}' where idprenota = '{$idprenota}'");
esegui_query("insert into {$tablerclientiprenota} select {$col_tablerclientiprenota} from {$tablerclientiprenota_prec} where idprenota = '{$max_idprenota_prec}' ");
esegui_query("update {$tablerclientiprenota} set idprenota = '{$idprenota_corr}' where idprenota = '{$max_idprenota_prec}'");
esegui_query("delete from {$tablerclientiprenota_prec} where idprenota = '{$max_idprenota_prec}'");
esegui_query("update {$tableinterconnessioni} set idlocale = '{$idprenota_corr}', anno = '{$anno}' where idlocale = '{$idprenota}' and ( tipoid = 'prenota' or tipoid = 'mess' ) and anno = '{$anno_prec}' ");
$nuovo_idprenota[$idprenota] = $idprenota_corr;
$nuovo_iddatainizio[$idprenota] = $iddatainizio;
$nuovo_iddatafine[$idprenota] = $iddatafine;
}
# fine for $num1
esegui_query("update {$tablecostiprenota} set numlimite = '" . ($idprenota_corr + 1) . "' where idcostiprenota = '1'");
$prenota_compagne = esegui_query("select idprenota,idprenota_compagna from {$tableprenota} where idprenota_compagna != '' ");
$num_prenota_compagne = numlin_query($prenota_compagne);
for ($num1 = 0; $num1 < $num_prenota_compagne; $num1++) {
$idprenota = risul_query($prenota_compagne, $num1, 'idprenota');
$idprenota_compagna = risul_query($prenota_compagne, $num1, 'idprenota_compagna');
$idprenota_compagna = explode(",", $idprenota_compagna);
$n_idprenota_compagna = $nuovo_idprenota[$idprenota_compagna[0]];
for ($num2 = 1; $num2 < count($idprenota_compagna); $num2++) {
$n_idprenota_compagna .= "," . $nuovo_idprenota[$idprenota_compagna[$num2]];
}
esegui_query("update {$tableprenota} set idprenota_compagna = '{$n_idprenota_compagna}' where idprenota = '{$idprenota}'");
}
# fine for $num1
$id_costi_agg_importati = esegui_query("select idcostiprenota from {$tablecostiprenota} where idcostiprenota != '1' order by idcostiprenota");
$num_id_costi_agg_importati = numlin_query($id_costi_agg_importati);
for ($num1 = 0; $num1 < $num_costi_agg_importati; $num1++) {
$idcostiprenota = risul_query($id_costi_agg_importati, $num1, 'idcostiprenota');
$max_idcostiprenota_prec++;
esegui_query("update {$tablecostiprenota} set idcostiprenota = '{$max_idcostiprenota_prec}' where idcostiprenota = '{$idcostiprenota}'");
}
# fine for $num1
$costi_agg_importati = esegui_query("select * from {$tablecostiprenota} where idcostiprenota != '1' order by idcostiprenota");
$num_costi_agg_importati = numlin_query($costi_agg_importati);
for ($num1 = 0; $num1 < $num_costi_agg_importati; $num1++) {
$idcostiprenota = risul_query($costi_agg_importati, $num1, 'idcostiprenota');
$settimane = risul_query($costi_agg_importati, $num1, 'settimane');
if (str_replace(",", "", $settimane) != $settimane) {
$settimane = explode(",", $settimane);
$settimane_nuove = ",";
for ($num2 = 1; $num2 < count($settimane) - 1; $num2++) {
$settimane_nuove .= $settimane[$num2] - $id_data_ini_periodi_prec + 1 . ",";
}
esegui_query("update {$tablecostiprenota} set settimane = '{$settimane_nuove}' where idcostiprenota = '{$idcostiprenota}'");
}
# fine if (str_replace(",","",$settimane) != $settimane)
$varperiodipermessi = risul_query($costi_agg_importati, $num1, 'varperiodipermessi');
if ($varperiodipermessi) {
$vpp_nuovi = substr($varperiodipermessi, 0, 1);
$varperiodipermessi = explode(",", substr($varperiodipermessi, 1));
for ($num2 = 0; $num2 < count($varperiodipermessi); $num2++) {
$id_data_fine_vpp = explode("-", $varperiodipermessi[$num2]);
$id_data_inizio_vpp = $id_data_fine_vpp[0];
$id_data_fine_vpp = $id_data_fine_vpp[1];
if ($id_data_fine_vpp >= $id_data_ini_periodi_prec and $id_data_inizio_vpp <= $id_data_fine_periodi_prec) {
if ($id_data_inizio_vpp < $id_data_ini_periodi_prec) {
$id_data_inizio_vpp = $id_data_ini_periodi_prec;
}
if ($id_data_fine_vpp > $id_data_fine_periodi_prec) {
$id_data_fine_vpp = $id_data_fine_periodi_prec;
}
$id_data_inizio_vpp = $id_data_inizio_vpp - $id_data_ini_periodi_prec + 1;
$id_data_fine_vpp = $id_data_fine_vpp - $id_data_ini_periodi_prec + 1;
$vpp_nuovi .= $id_data_inizio_vpp . "-" . $id_data_fine_vpp . ",";
}
# fine if ($id_data_fine_vpp >= $id_data_ini_periodi_prec and...
}
# fine for $num2
if (strlen($vpp_nuovi) > 1) {
$vpp_nuovi = substr($vpp_nuovi, 0, -1);
}
esegui_query("update {$tablecostiprenota} set varperiodipermessi = '{$vpp_nuovi}' where idcostiprenota = '{$idcostiprenota}'");
}
# fine if ($varperiodipermessi)
esegui_query("update {$tablecostiprenota} set idcostiprenota = '" . ($num1 + 2) . "' where idcostiprenota = '{$idcostiprenota}'");
}
# fine for $num1
$tariffe_importate = esegui_query("select * from {$tableperiodi_prec} where idperiodi >= '{$id_data_ini_periodi_prec}' and idperiodi <= '{$id_data_fine_periodi_prec}' ");
$num_tariffe_iportate = numlin_query($tariffe_importate);
for ($num1 = 0; $num1 < $num_tariffe_iportate; $num1 = $num1 + 1) {
$idperiodi = risul_query($tariffe_importate, $num1, 'idperiodi');
$idperiodi = $idperiodi - $id_data_ini_periodi_prec + 1;
for ($num2 = 1; $num2 <= $num_tariffe_tab; $num2++) {
$tariffa = (string) risul_query($tariffe_importate, $num1, "tariffa" . $num2);
if (strcmp($tariffa, "")) {
esegui_query("update {$tableperiodi} set tariffa{$num2} = '{$tariffa}' where idperiodi = {$idperiodi} ");
}
$tariffap = (string) risul_query($tariffe_importate, $num1, "tariffa" . $num2 . "p");
if (strcmp($tariffap, "")) {
esegui_query("update {$tableperiodi} set tariffa{$num2}" . "p = '{$tariffap}' where idperiodi = {$idperiodi} ");
}
}
# fine for $num2
}
# fine for $num1
$regole_prec = esegui_query("select * from {$tableregole_prec} where iddatafine >= '{$id_data_ini_periodi_prec}' ");
$num_regole_prec = numlin_query($regole_prec);
for ($num1 = 0; $num1 < $num_regole_prec; $num1 = $num1 + 1) {
$idregole = risul_query($regole_prec, $num1, 'idregole');
$app_agenzia = risul_query($regole_prec, $num1, 'app_agenzia');
$tariffa_chiusa = risul_query($regole_prec, $num1, 'tariffa_chiusa');
$tariffa_commissioni = risul_query($regole_prec, $num1, 'tariffa_commissioni');
$iddatainizio = risul_query($regole_prec, $num1, 'iddatainizio');
$motivazione = risul_query($regole_prec, $num1, 'motivazione');
$motivazione2 = risul_query($regole_prec, $num1, 'motivazione2');
if ($iddatainizio < $id_data_ini_periodi_prec) {
$iddatainizio = $id_data_ini_periodi_prec;
}
$iddatainizio = $iddatainizio - $id_data_ini_periodi_prec + 1;
$iddatafine = risul_query($regole_prec, $num1, 'iddatafine');
if ($iddatafine > $id_data_fine_periodi_prec) {
$iddatafine = $id_data_fine_periodi_prec;
}
$iddatafine = $iddatafine - $id_data_ini_periodi_prec + 1;
if ($tariffa_commissioni) {
esegui_query("insert into {$tableregole} (idregole,tariffa_commissioni,iddatainizio,iddatafine) values ('{$idregole}','{$tariffa_commissioni}','{$iddatainizio}','{$iddatafine}') ");
} else {
if ($tariffa_chiusa) {
esegui_query("insert into {$tableregole} (idregole,tariffa_chiusa,iddatainizio,iddatafine) values ('{$idregole}','{$tariffa_chiusa}','{$iddatainizio}','{$iddatafine}') ");
} else {
esegui_query("insert into {$tableregole} (idregole,app_agenzia,iddatainizio,iddatafine) values ('{$idregole}','{$app_agenzia}','{$iddatainizio}','{$iddatafine}') ");
}
}
# fine else $tariffa_commissioni)
if (strcmp($motivazione, "")) {
esegui_query("update {$tableregole} set motivazione = '" . aggslashdb($motivazione) . "' where idregole = '{$idregole}' ");
}
if (strcmp($motivazione2, "")) {
esegui_query("update {$tableregole} set motivazione2 = '" . aggslashdb($motivazione2) . "' where idregole = '{$idregole}' ");
}
}
# fine for $num1
$soldi_importati = esegui_query("select * from {$tablesoldi_prec} where data_inserimento >= '{$data_inizio_periodi}' and saldo_prenota is not NULL order by idsoldi");
$num_soldi_importati = numlin_query($soldi_importati);
$idsoldi_corr = 1;
for ($num1 = 0; $num1 < $num_soldi_importati; $num1++) {
$motiv = explode(";", risul_query($soldi_importati, $num1, 'motivazione'));
if ($nuovo_idprenota[$motiv[3]]) {
$idsoldi_corr++;
$idsoldi_prec = risul_query($soldi_importati, $num1, 'idsoldi');
$n_motiv = $motiv[0] . ";" . $nuovo_iddatainizio[$motiv[3]] . ";" . $nuovo_iddatafine[$motiv[3]] . ";" . $nuovo_idprenota[$motiv[3]];
esegui_query("insert into {$tablesoldi} select {$col_tablesoldi} from {$tablesoldi_prec} where idsoldi = '{$idsoldi_prec}' ");
esegui_query("delete from {$tablesoldi_prec} where idsoldi = '{$idsoldi_prec}' ");
esegui_query("update {$tablesoldi} set motivazione = '{$n_motiv}' where idsoldi = '{$idsoldi_prec}' ");
esegui_query("update {$tablesoldi} set idsoldi = '{$idsoldi_corr}' where idsoldi = '{$idsoldi_prec}' ");
}
# fine if ($nuovo_idprenota[$motiv[3]])
}
# fine for $num1
$costi_importati = esegui_query("select * from {$tablecosti_prec} where datainserimento >= '{$data_inizio_periodi}' and tipo_costo is not NULL order by idcosti");
$num_costi_importati = numlin_query($costi_importati);
$idcosti_corr = 0;
for ($num1 = 0; $num1 < $num_costi_importati; $num1++) {
$idcosti_corr++;
$idcosti_prec = risul_query($costi_importati, $num1, 'idcosti');
esegui_query("insert into {$tablecosti} select {$col_tablecosti} from {$tablecosti_prec} where idcosti = '{$idcosti_prec}' ");
esegui_query("delete from {$tablecosti_prec} where idcosti = '{$idcosti_prec}' ");
esegui_query("update {$tablecosti} set idcosti = '{$idcosti_corr}' where idcosti = '{$idcosti_prec}' ");
}
# fine for $num1
$costo_cassa = 0;
$data_lim = $anno + 1 . "-01-01 00:00:00";
$costi_cassa = esegui_query("select * from {$tablecosti} where tipo_costo = 'e' and provenienza_costo = 'p' and datainserimento < '{$data_lim}' ");
$num_costi_cassa = numlin_query($costi_cassa);
for ($num2 = 0; $num2 < $num_costi_cassa; $num2++) {
$costo_cassa = $costo_cassa + risul_query($costi_cassa, $num2, 'val_costo');
}
if ($costo_cassa) {
esegui_query("update {$tablecosti} set val_costo = '{$costo_cassa}' where idcosti = '0' ");
}
unset($cassa_prec);
$costi_non_importati = esegui_query("select * from {$tablecosti_prec} where tipo_costo is not NULL order by idcosti");
$num_costi_non_importati = numlin_query($costi_non_importati);
for ($num1 = 0; $num1 < $num_costi_non_importati; $num1++) {
$tipo_costo = risul_query($costi_non_importati, $num1, 'tipo_costo');
$val_costo = risul_query($costi_non_importati, $num1, 'val_costo');
$utente_costo = risul_query($costi_non_importati, $num1, 'utente_inserimento');
if ($tipo_costo == "e") {
$cassa_prec[$utente_costo] = $cassa_prec[$utente_costo] + (double) $val_costo;
} else {
$cassa_prec[$utente_costo] = $cassa_prec[$utente_costo] - (double) $val_costo;
}
}
# fine for $num1
if (@is_array($cassa_prec)) {
$datainserimento = date("Y-m-d H:i:s", time() + C_DIFF_ORE * 3600);
reset($cassa_prec);
while (list($utente_costo, $val_costo) = each($cassa_prec)) {
$idcosti_corr++;
esegui_query("insert into {$tablecosti} (idcosti,nome_costo,val_costo,persona_costo,tipo_costo,datainserimento,hostinserimento,utente_inserimento) values ('{$idcosti_corr}','{$anno_prec}','{$val_costo}','','e','{$datainserimento}','{$HOSTNAME}','{$utente_costo}') ");
}
# fine (list($utente_costo,$val_costo) = each($cassa_prec))
}
# fine if (@is_array($cassa_prec))
# aggiorno i messaggi con prenotazioni del nuovo anno già inserite, quelli da inserire sono aggiornati con i modelli internet
$messaggi_importati = esegui_query("select * from {$tablemessaggi} where stato = 'ins' and dati_messaggio18 = '{$anno_prec}' ");
$num_messaggi_importati = numlin_query($messaggi_importati);
for ($num1 = 0; $num1 < $num_messaggi_importati; $num1++) {
$agg_mess = 1;
$n_lista_pren = "";
$lista_pren = explode(",", risul_query($messaggi_importati, $num1, 'dati_messaggio1'));
for ($num2 = 0; $num2 < count($lista_pren); $num2++) {
if ($nuovo_idprenota[$lista_pren[$num2]]) {
$n_lista_pren .= $nuovo_idprenota[$lista_pren[$num2]] . ",";
} else {
$agg_mess = 0;
}
}
# fine for $num2
if ($agg_mess) {
$idmess = risul_query($messaggi_importati, $num1, 'idmessaggi');
$n_lista_pren = substr($n_lista_pren, 0, -1);
esegui_query("update {$tablemessaggi} set dati_messaggio1 = '{$n_lista_pren}', dati_messaggio18 = '{$anno}' where idmessaggi = '{$idmess}' ");
}
# fine if ($agg_mess)
}
# fine for $num1
# aggiorno i numeri delle prenotazioni importate nei nomi dei documenti già creati nel nuovo anno
$dirs_salva = esegui_query("select * from {$tablecontratti} where tipo = 'dir'");
$num_dirs_salva = numlin_query($dirs_salva);
if ($num_dirs_salva) {
unset($contr_salva_in);
$max_contr = esegui_query("select max(numero) from {$tablecontratti} where tipo {$LIKE} 'contr%'");
$max_contr = risul_query($max_contr, 0, 0);
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_DOC;
} else {
$dir_salva_home = "";
}
} else {
$dir_salva_home = C_DATA_PATH;
}
$utenti = esegui_query("select * from " . $PHPR_TAB_PRE . "utenti order by idutenti");
$num_utenti = numlin_query($utenti);
unset($nomi_contr_ut);
$parola_documento = mex("documento", 'visualizza_contratto.php');
for ($num1 = 0; $num1 < $num_utenti; $num1++) {
$idutente_contr = risul_query($utenti, $num1, 'idutenti');
for ($num2 = 1; $num2 <= $max_contr; $num2++) {
$nomi_contr_ut[$idutente_contr][$num2] = $parola_documento . $num2;
}
$nomi_contratti = esegui_query("select valpersonalizza from {$tablepersonalizza} where idpersonalizza = 'nomi_contratti' and idutente = '{$idutente_contr}'");
$nomi_contratti = risul_query($nomi_contratti, 0, 'valpersonalizza');
$nomi_contratti = explode("#@&", $nomi_contratti);
$num_nomi_contratti = count($nomi_contratti);
for ($num2 = 0; $num2 < $num_nomi_contratti; $num2++) {
$dati_nome_contratto = explode("#?&", $nomi_contratti[$num2]);
$nomi_contr_ut[$idutente_contr][$dati_nome_contratto[0]] = $dati_nome_contratto[1];
}
# fine for $num2
}
# fine for $num1
unset($prefissi_contr);
for ($num1 = 0; $num1 < $num_dirs_salva; $num1++) {
$dir_salva = risul_query($dirs_salva, 0, 'testo');
if ($dir_salva == "~") {
$dir_salva = $dir_salva_home;
}
if (defined('C_CARTELLA_CREA_MODELLI') and C_CARTELLA_CREA_MODELLI != "") {
$dir_salva = C_CARTELLA_CREA_MODELLI . "/" . str_replace("..", "", $dir_salva);
}
if (!@is_dir($dir_salva)) {
$dir_salva = "";
}
$num_contr = risul_query($dirs_salva, 0, 'numero');
$tipo_contratto = esegui_query("select tipo from " . $PHPR_TAB_PRE . "contratti where numero = '{$num_contr}' and tipo {$LIKE} 'contr%' ");
$tipo_contratto = risul_query($tipo_contratto, 0, 'tipo');
$suff_file = "html";
if ($tipo_contratto == "contrrtf") {
$suff_file = "rtf";
}
if ($tipo_contratto == "contrtxt") {
$suff_file = "txt";
}
$filelock_contr = fopen($dir_salva . "/crea_contr.lock", "w+");
flock($filelock_contr, 2);
for ($num2 = 0; $num2 < $num_utenti; $num2++) {
$idutente_contr = risul_query($utenti, $num1, 'idutenti');
if (!$prefissi_contr[$dir_salva . "/" . $nomi_contr_ut[$idutente_contr][$num_contr]]) {
$nome_contratto = $nomi_contr_ut[$idutente_contr][$num_contr];
$prefissi_contr[$dir_salva . "/" . $nome_contratto] = 1;
$contr_dir = opendir($dir_salva . "/");
while ($contr_corr = readdir($contr_dir)) {
if ($contr_corr != "." and $contr_corr != ".." and is_file($dir_salva . "/" . $contr_corr)) {
if (substr($contr_corr, 0, strlen($nome_contratto)) == $nome_contratto) {
$resto_nome_contr = substr($contr_corr, strlen($nome_contratto));
if (substr($resto_nome_contr, 0, 6) == "_{$anno}" . "_") {
if (preg_replace("/_[0-9]{4,4}_[0-9]{5,5}(_[0-9]+(-[0-9]+)?)*\\.{$suff_file}/", "", $resto_nome_contr) == "") {
$num_pren_esist = substr($resto_nome_contr, 12);
$num_pren_esist = substr($num_pren_esist, 0, -1 * (strlen($suff_file) + 1));
if ($num_pren_esist) {
$agg_contr = 1;
$n_lista_pren = "";
$num_pren_esist = explode("_", $num_pren_esist);
for ($num3 = 0; $num3 < count($num_pren_esist); $num3++) {
$num_pren_esist2 = explode("-", $num_pren_esist[$num3]);
$fine_for = $num_pren_esist2[count($num_pren_esist2) - 1];
for ($num4 = $num_pren_esist2[0]; $num4 <= $fine_for; $num4++) {
if (!$nuovo_idprenota[$num4]) {
$agg_contr = 0;
break;
}
# fine if (!$nuovo_idprenota[$num4])
if ($num4 == $num_pren_esist2[0]) {
$n_lista_pren .= "_" . $nuovo_idprenota[$num4];
} elseif ($num4 == $fine_for) {
$n_lista_pren .= "-" . $nuovo_idprenota[$num4];
}
}
# fine for $num4
}
# fine for $num3
if ($agg_contr) {
$n_nome_contr = $nome_contratto . substr($resto_nome_contr, 0, 11) . $n_lista_pren . ".{$suff_file}";
rename($dir_salva . "/" . $contr_corr, $dir_salva . "/" . $n_nome_contr);
}
# fine if ($agg_contr)
}
# fine if ($num_pren_esist)
}
# fine if (preg_replace("/_[0-9]{4,4}_[0-9]{5,5}\.$suff_file/","",$resto_nome_contr) == "")
}
# fine if (substr($resto_nome_contr,0,6) == "_$anno"."_")
}
# fine if (substr($contr_corr,0,strlen($nome_contratto)) == $nome_contratto)
}
# fine if ($contr_corr != "." and $contr_corr != ".." and...
}
# fine while ($fattura_corr = readdir($fatture_dir))
closedir($contr_dir);
}
# fine if (!$prefissi_contr[$dir_salva."/".$nomi_contr_ut[$idutente_contr][$num_contr]])
}
# fine for $num2
flock($filelock_contr, 3);
fclose($filelock_contr);
unlink($dir_salva . "/crea_contr.lock");
}
# fine for $num1
}
# fine if ($num_dirs_salva)
}
# fine else if ($num_periodo_interferenza == 0)
$colonne = "idntariffe,nomecostoagg,tipo_ca,valore_ca,valore_perc_ca,arrotonda_ca,tasseperc_ca,associasett_ca,numsett_ca,moltiplica_ca,periodipermessi_ca,beniinv_ca,appincompatibili_ca,variazione_ca,mostra_ca,categoria_ca,letto_ca,numlimite_ca,regoleassegna_ca,utente_inserimento";
for ($num1 = 1; $num1 <= $num_tariffe_tab; $num1++) {
$nome_nuova_tariffa = "tariffa" . $num1;
$colonne .= ",{$nome_nuova_tariffa}";
}
# fine for $num1
esegui_query("insert into {$tablenometariffe} ({$colonne}) select {$colonne} from {$tablenometariffe_prec}");
$costi_agg_importati = esegui_query("select * from {$tablenometariffe} where idntariffe > 10 ");
$num_costi_agg_importati = numlin_query($costi_agg_importati);
for ($num1 = 0; $num1 < $num_costi_agg_importati; $num1++) {
$idntariffe = risul_query($costi_agg_importati, $num1, 'idntariffe');
$periodipermessi = risul_query($costi_agg_importati, $num1, 'periodipermessi_ca');
if ($periodipermessi) {
$pp_nuovi = substr($periodipermessi, 0, 1);
$periodipermessi = explode(",", substr($periodipermessi, 1));
for ($num2 = 0; $num2 < count($periodipermessi); $num2++) {
$id_data_fine_pp = explode("-", $periodipermessi[$num2]);
$id_data_inizio_pp = $id_data_fine_pp[0];
$id_data_fine_pp = $id_data_fine_pp[1];
if ($id_data_fine_pp >= $id_data_ini_periodi_prec and $id_data_inizio_pp <= $id_data_fine_periodi_prec) {
if ($id_data_inizio_pp < $id_data_ini_periodi_prec) {
$id_data_inizio_pp = $id_data_ini_periodi_prec;
}
if ($id_data_fine_pp > $id_data_fine_periodi_prec) {
$id_data_fine_pp = $id_data_fine_periodi_prec;
}
$id_data_inizio_pp = $id_data_inizio_pp - $id_data_ini_periodi_prec + 1;
$id_data_fine_pp = $id_data_fine_pp - $id_data_ini_periodi_prec + 1;
$pp_nuovi .= $id_data_inizio_pp . "-" . $id_data_fine_pp . ",";
}
# fine if ($id_data_fine_pp >= $id_data_ini_periodi_prec and...
}
# fine for $num2
if (strlen($pp_nuovi) > 1) {
$pp_nuovi = substr($pp_nuovi, 0, -1);
}
esegui_query("update {$tablenometariffe} set periodipermessi_ca = '{$pp_nuovi}' where idntariffe = '{$idntariffe}'");
}
# fine if ($periodipermessi)
}
# fine for $num1
esegui_query("insert into {$tableregole} select {$col_tableregole} from {$tableregole_prec} where tariffa_per_app != ''");
esegui_query("insert into {$tableregole} select {$col_tableregole} from {$tableregole_prec} where tariffa_per_utente != ''");
esegui_query("insert into {$tableregole} select {$col_tableregole} from {$tableregole_prec} where tariffa_per_persone != ''");
esegui_query("insert into {$tableregole} select {$col_tableregole} from {$tableregole_prec} where tariffa_commissioni is not NULL and iddatainizio is NULL ");
$privilegi_prec = esegui_query("select * from {$tableprivilegi} where anno = '{$anno_prec}'");
for ($num1 = 0; $num1 < numlin_query($privilegi_prec); $num1++) {
$idutente_p = risul_query($privilegi_prec, $num1, 'idutente');
$regole1_consentite_p = risul_query($privilegi_prec, $num1, 'regole1_consentite');
$tariffe_consentite_p = risul_query($privilegi_prec, $num1, 'tariffe_consentite');
$costi_agg_consentiti_p = risul_query($privilegi_prec, $num1, 'costi_agg_consentiti');
$contratti_consentiti_p = risul_query($privilegi_prec, $num1, 'contratti_consentiti');
$cassa_pagamenti_p = aggslashdb(risul_query($privilegi_prec, $num1, 'cassa_pagamenti'));
$priv_ins_prenota_p = risul_query($privilegi_prec, $num1, 'priv_ins_prenota');
$priv_mod_prenota_p = risul_query($privilegi_prec, $num1, 'priv_mod_prenota');
$priv_mod_pers_p = risul_query($privilegi_prec, $num1, 'priv_mod_pers');
$priv_ins_clienti_p = risul_query($privilegi_prec, $num1, 'priv_ins_clienti');
$prefisso_clienti_p = risul_query($privilegi_prec, $num1, 'prefisso_clienti');
$priv_ins_costi_p = risul_query($privilegi_prec, $num1, 'priv_ins_costi');
$priv_vedi_tab_p = risul_query($privilegi_prec, $num1, 'priv_vedi_tab');
$priv_ins_tariffe_p = risul_query($privilegi_prec, $num1, 'priv_ins_tariffe');
$priv_ins_regole_p = risul_query($privilegi_prec, $num1, 'priv_ins_regole');
esegui_query("insert into {$tableprivilegi} (idutente,anno,regole1_consentite,tariffe_consentite,costi_agg_consentiti,contratti_consentiti,cassa_pagamenti,priv_ins_prenota,priv_mod_prenota,priv_mod_pers,priv_ins_clienti,prefisso_clienti,priv_ins_costi,priv_vedi_tab,priv_ins_tariffe,priv_ins_regole) values ('{$idutente_p}','{$anno}','{$regole1_consentite_p}','{$tariffe_consentite_p}','{$costi_agg_consentiti_p}','{$contratti_consentiti_p}','{$cassa_pagamenti_p}','{$priv_ins_prenota_p}','{$priv_mod_prenota_p}','{$priv_mod_pers_p}','{$priv_ins_clienti_p}','{$prefisso_clienti_p}','{$priv_ins_costi_p}','{$priv_vedi_tab_p}','{$priv_ins_tariffe_p}','{$priv_ins_regole_p}')");
$lingua_mex = $lingua[$idutente_p];
crea_menu_date(C_DATA_PATH . "/selectperiodi{$anno}.1.php", C_DATA_PATH . "/selectperiodi{$anno}.{$idutente_p}.php", $tipo_periodi);
if (@is_file(C_DATA_PATH . "/selperiodimenu" . ($anno - 1) . ".{$idutente_p}.php")) {
estendi_menu_date(C_DATA_PATH . "/selperiodimenu" . ($anno - 1) . ".{$idutente_p}.php", C_DATA_PATH . "/selperiodimenu{$anno}.{$idutente_p}.php", $tipo_periodi, date("Y-m-d", mktime(0, 0, 0, $mese_ini, 1, $anno)), $data_ini_agg, date("Y-m-d", mktime(0, 0, 0, $mese_fine + 1, 1, $anno)), $anno, $pag);
} else {
copy(C_DATA_PATH . "/selectperiodi{$anno}.{$idutente_p}.php", C_DATA_PATH . "/selperiodimenu{$anno}.{$idutente_p}.php");
}
$lingua_mex = $lingua[1];
$giorno_vedi_ini_sett = esegui_query("select valpersonalizza_num from {$tablepersonalizza} where idpersonalizza = 'giorno_vedi_ini_sett{$anno_prec}' and idutente = '{$idutente_p}'");
if (numlin_query($giorno_vedi_ini_sett) == 1 and $tipo_periodi == "g") {
esegui_query("insert into {$tablepersonalizza} (idpersonalizza,valpersonalizza_num,idutente) values ('giorno_vedi_ini_sett{$anno}','" . risul_query($giorno_vedi_ini_sett, 0, "valpersonalizza_num") . "','{$idutente_p}')");
}
}
# fine for $num1
$giorno_vedi_ini_sett = esegui_query("select valpersonalizza_num from {$tablepersonalizza} where idpersonalizza = 'giorno_vedi_ini_sett{$anno_prec}' and idutente = '1'");
if (numlin_query($giorno_vedi_ini_sett) == 1 and $tipo_periodi == "g") {
esegui_query("insert into {$tablepersonalizza} (idpersonalizza,valpersonalizza_num,idutente) values ('giorno_vedi_ini_sett{$anno}','" . risul_query($giorno_vedi_ini_sett, 0, "valpersonalizza_num") . "','1')");
}
$inserisci_in_ntariffe = "NO";
}
# fine if ($importa_anno_prec == "SI")
if ($inserisci_in_ntariffe != "NO") {
# rigo 1: nomi tariffe; 2-3: caparra (% e arrotondo).
for ($numtariffe = 1; $numtariffe <= 6; $numtariffe = $numtariffe + 1) {
esegui_query("insert into {$tablenometariffe} (idntariffe) values ('{$numtariffe}')");
}
# fine for $numtariffe
esegui_query("update {$tablenometariffe} set nomecostoagg = '8' where idntariffe = '1'");
esegui_query("update {$tablenometariffe} set numlimite_ca = '11' where idntariffe = '1'");
}
# fine if ($inserisci_in_ntariffe != "NO")
esegui_query("delete from {$tablerelclienti} where tipo = 'cc' {$lista_clienti_importati}");
unlock_tabelle($tabelle_lock);
if ($silenzio != "SI") {
echo "<br> " . mex("Anno ", $pag) . $anno . mex(" creato", $pag) . "! <br><br>";
}
if ($importa_anno_prec == "SI" and C_RESTRIZIONI_DEMO_ADMIN != "SI") {
if ($silenzio != "SI") {
$silenzio_mod = "SI";
} else {
$silenzio_mod = "totale";
}
global $anno_modello_presente, $num_periodi_date, $modello_esistente, $cambia_frasi, $lingua_modello, $percorso_cartella_modello, $nome_file;
$pag_orig = $pag;
$pag = "crea_modelli.php";
include "./includes/templates/funzioni_modelli.php";
$modello_esistente = "SI";
$cambia_frasi = "NO";
$anno_modello = $anno;
include "./includes/templates/frasi_mod_disp.php";
include "./includes/templates/funzioni_mod_disp.php";
for ($num_cart = 0; $num_cart < $num_perc_cart_mod_vett; $num_cart++) {
$percorso_cartella_modello = $perc_cart_mod_vett[$num_cart];
if (@is_file("{$percorso_cartella_modello}/mdl_disponibilita.php")) {
$lingua_modello = "ita";
$nome_file = mex2("mdl_disponibilita", $pag, $lingua_modello) . ".php";
$num_periodi_date = "";
recupera_var_modello_disponibilita($nome_file, $percorso_cartella_modello, $pag, $fr_frase, $num_frasi, $var_mod, $num_var_mod, $tipo_periodi, "SI", $anno_modello, $PHPR_TAB_PRE);
if ($anno_modello_presente == $anno_prec) {
aggiorna_var_anno_modello_disponibilita($id_data_ini_periodi_prec, $tableperiodi_prec, $tableperiodi, $tabletransazioniweb, $tablemessaggi, $tipo_periodi);
crea_modello_disponibilita($percorso_cartella_modello, $anno_modello, $PHPR_TAB_PRE, $pag, $lingua_modello, $silenzio_mod, $fr_frase, $frase, $num_frasi, $tipo_periodi);
}
# fine if ($anno_modello_presente == $anno_prec)
}
# fine if (@is_file("$percorso_cartella_modello/modello_disponibilita.php"))
}
# fine for $num_cart
$lang_dir = opendir("./includes/lang/");
include C_DATA_PATH . "/lingua.php";
while ($ini_lingua = readdir($lang_dir)) {
if ($ini_lingua != "." && $ini_lingua != "..") {
$nome_file = mex2("mdl_disponibilita", $pag, $ini_lingua) . ".php";
for ($num_cart = 0; $num_cart < $num_perc_cart_mod_vett; $num_cart++) {
$percorso_cartella_modello = $perc_cart_mod_vett[$num_cart];
if (@is_file("{$percorso_cartella_modello}/{$nome_file}")) {
$lingua_modello = $ini_lingua;
$num_periodi_date = "";
recupera_var_modello_disponibilita($nome_file, $percorso_cartella_modello, $pag, $fr_frase, $num_frasi, $var_mod, $num_var_mod, $tipo_periodi, "SI", $anno_modello, $PHPR_TAB_PRE);
if ($anno_modello_presente == $anno_prec) {
aggiorna_var_anno_modello_disponibilita($id_data_ini_periodi_prec, $tableperiodi_prec, $tableperiodi, $tabletransazioniweb, $tablemessaggi, $tipo_periodi);
crea_modello_disponibilita($percorso_cartella_modello, $anno_modello, $PHPR_TAB_PRE, $pag, $lingua_modello, $silenzio_mod, $fr_frase, $frase, $num_frasi, $tipo_periodi);
}
# fine if ($anno_modello_presente == $anno_prec)
}
# fine if (@is_file("$percorso_cartella_modello/$nome_file"))
}
# fine for $num_cart
}
# fine if ($file != "." && $file != "..")
}
# fine while ($file = readdir($lang_dig))
closedir($lang_dir);
$templates_dir = opendir("./includes/templates/");
while ($modello_ext = readdir($templates_dir)) {
if ($modello_ext != "." and $modello_ext != ".." and @is_dir("./includes/templates/{$modello_ext}")) {
include "./includes/templates/{$modello_ext}/name.php";
include "./includes/templates/{$modello_ext}/phrases.php";
include "./includes/templates/{$modello_ext}/functions.php";
$funz_recupera_var_modello = "recupera_var_modello_" . $modello_ext;
$funz_crea_modello = "crea_modello_" . $modello_ext;
$funz_aggiorna_var_anno_modello = "aggiorna_var_anno_modello_" . $modello_ext;
if ($template_file_name["ita"]) {
$nome_file = $template_file_name["ita"];
} else {
$nome_file = "ita_" . $template_file_name["en"];
}
for ($num_cart = 0; $num_cart < $num_perc_cart_mod_vett; $num_cart++) {
$percorso_cartella_modello = $perc_cart_mod_vett[$num_cart];
if (@is_file("{$percorso_cartella_modello}/{$nome_file}")) {
$lingua_modello = "ita";
$num_periodi_date = "";
$funz_recupera_var_modello($nome_file, $percorso_cartella_modello, $pag, $fr_frase, $num_frasi, $var_mod, $num_var_mod, $tipo_periodi, "SI", $anno_modello, $PHPR_TAB_PRE);
if ($anno_modello_presente == $anno_prec) {
$funz_aggiorna_var_anno_modello($id_data_ini_periodi_prec, $tableperiodi_prec, $tableperiodi, $tabletransazioniweb, $tablemessaggi, $tipo_periodi);
$funz_crea_modello($percorso_cartella_modello, $anno_modello, $PHPR_TAB_PRE, $pag, $lingua_modello, $silenzio_mod, $fr_frase, $frase, $num_frasi, $tipo_periodi);
}
# fine if ($anno_modello_presente == $anno_prec)
}
# fine if (@is_file("$percorso_cartella_modello/$nome_file"))
}
# fine for $num_cart
$lang_dir = opendir("./includes/lang/");
while ($ini_lingua = readdir($lang_dir)) {
if ($ini_lingua != "." && $ini_lingua != "..") {
if ($template_file_name[$ini_lingua]) {
$nome_file = $template_file_name[$ini_lingua];
} else {
$nome_file = $ini_lingua . "_" . $template_file_name["en"];
}
for ($num_cart = 0; $num_cart < $num_perc_cart_mod_vett; $num_cart++) {
$percorso_cartella_modello = $perc_cart_mod_vett[$num_cart];
if (@is_file("{$percorso_cartella_modello}/{$nome_file}")) {
$lingua_modello = $ini_lingua;
$num_periodi_date = "";
$funz_recupera_var_modello($nome_file, $percorso_cartella_modello, $pag, $fr_frase, $num_frasi, $var_mod, $num_var_mod, $tipo_periodi, "SI", $anno_modello, $PHPR_TAB_PRE);
if ($anno_modello_presente == $anno_prec) {
$funz_aggiorna_var_anno_modello($id_data_ini_periodi_prec, $tableperiodi_prec, $tableperiodi, $tabletransazioniweb, $tablemessaggi, $tipo_periodi);
$funz_crea_modello($percorso_cartella_modello, $anno_modello, $PHPR_TAB_PRE, $pag, $lingua_modello, $silenzio_mod, $fr_frase, $frase, $num_frasi, $tipo_periodi);
}
# fine if ($anno_modello_presente == $anno_prec)
}
# fine if (@is_file("$percorso_cartella_modello/$nome_file"))
}
# fine for $num_cart
}
# fine if ($file != "." && $file != "..")
}
# fine while ($file = readdir($lang_dir))
closedir($lang_dir);
}
# fine if ($modello_ext != "." and $modello_ext != ".." and...
}
# fine while ($file = readdir($lang_dig))
closedir($templates_dir);
$pag = $pag_orig;
if ($silenzio != "SI") {
echo "<br>";
}
}
# fine if ($importa_anno_prec == "SI" and C_RESTRIZIONI_DEMO_ADMIN != "SI")
} else {
if ($silenzio != "SI") {
echo mex("Non ho i permessi per creare nuove tabelle nel database", $pag) . ".<br>";
}
}
} else {
if ($silenzio != "SI") {
echo mex("Anno già creato", $pag) . ".<br>";
}
}
flock($filelock, 3);
fclose($filelock);
unlink(C_DATA_PATH . "/anni.lock");
} else {
if ($silenzio != "SI") {
echo mex("Non ho i permessi di scrittura sulla cartella data", $pag) . ".<br>";
}
}
$lingua_mex = $lingua_mex_orig;
}
# fine if ($fonte_dati_conn == "attuali")
if ($fonte_dati_conn == "nuovi") {
$M_PHPR_DB_TYPE = $T_PHPR_DB_TYPE;
$M_PHPR_DB_NAME = $T_PHPR_DB_NAME;
$M_PHPR_DB_HOST = $T_PHPR_DB_HOST;
$M_PHPR_DB_PORT = $T_PHPR_DB_PORT;
$M_PHPR_DB_USER = $T_PHPR_DB_USER;
$M_PHPR_DB_PASS = $T_PHPR_DB_PASS;
$M_PHPR_LOAD_EXT = $T_PHPR_LOAD_EXT;
$M_PHPR_TAB_PRE = $T_PHPR_TAB_PRE;
}
# fine if ($fonte_dati_conn == "attuali")
if ($modello_disponibilita) {
include "./includes/templates/frasi_mod_disp.php";
include "./includes/templates/funzioni_mod_disp.php";
crea_modello_disponibilita($percorso_cartella_modello, $anno_modello, $PHPR_TAB_PRE, $pag, $lingua_modello, "NO", $fr_frase, $frase, $num_frasi, $tipo_periodi);
} else {
$templates_dir = opendir("./includes/templates/");
while ($modello_ext = readdir($templates_dir)) {
if ($modello_ext != "." and $modello_ext != ".." and @is_dir("./includes/templates/{$modello_ext}")) {
include "./includes/templates/{$modello_ext}/name.php";
if (${$template_name}) {
$mostra_form_creazione = "NO";
include "./includes/templates/{$modello_ext}/phrases.php";
include "./includes/templates/{$modello_ext}/functions.php";
$funz_crea_modello = "crea_modello_" . $modello_ext;
$funz_crea_modello($percorso_cartella_modello, $anno_modello, $PHPR_TAB_PRE, $pag, $lingua_modello, "NO", $fr_frase, $frase, $num_frasi, $tipo_periodi);
break;
}
# fine if ($$template_name)
}