Open($variabile1[3], $variabile1[0], $variabile1[1], $variabile1[2])) { echo $data->Error(); } ; if (! $db->Open($variabile1[3], $variabile1[0], $variabile1[1], $variabile1[2])) { echo $db->Error(); } ; //$mode = $_GET['t']; set_time_limit(15000); if (isset($_GET['lim'])) { $lim = strip_tags($_GET['lim']); if (!filter_var($lim, FILTER_VALIDATE_INT)) ScriviErrore("$lim", "LeggiAdesioni - Parametro lim limite messaggio non numerico"); } else $lim=1200; // parametro per visualizzazione elementi non verificati se = 'y' vengono visualizzati e contrassegnati in rosso se no vengono ignorati if (isset($_GET['nver'])) { $nveri = strip_tags($_GET['nver']); if ($nveri!= 'y' and $veri!='Y') ScriviErrore("$lim", "LeggiAdesioni - Parametro ver diverso da y Y "); else $nveri='y'; } else $nveri='n'; // prende il parametro nome appello if (isset($_GET['doc'])) { $tabba = strip_tags($_GET['doc']); // controlli su $tabba if (file_exists("/Commenti/{$tabba}.TTT")) { $fileTTT = parse_ini_file("/Commenti/{$tabba}.TTT", true); $titolof = trim($fileTTT['variabili']['Titolo']); $NomeFile = trim($fileTTT['variabili']['NomeFile']); } else ScriviErrore("/Commenti/{$tabba}.TTT", "Visualizza adesioni appello - file TTT per l'appello non esistente"); } else ScriviErrore("/Commenti/{$tabba}.TTT", "Visualizza adesioni appello - parametro doc inesistente"); // testata echo "\n"; echo "\n"; echo "\n"; echo "Il Dialogo - Adesioni all'appello : " . htmlspecialchars($titolof) . " \n"; echo "\n"; echo "\n"; echo "\n"; echo "\n"; echo "

www.ildialogo.org
\n"; echo "

Adesioni all'appello:
\n"; echo " " . $titolof . "

\n"; $oraaggiorna = date("d/m/Y - H:i:s.", filemtime("/Commenti/$tabba.txt")); echo "

Ultimo aggiornamento: $oraaggiorna

\n"; echo "

Le ultime adesioni sono poste alla fine\n"; if($nveri=='y') { echo "
Le adesioni non ancora verificate sono marcate in rosso

\n"; echo "

Gli utenti non verificati si affrettino a farlo,
utilizzando l'apposito link contenuto
nella email di verifica a loro inviata.
Se non risulta ricevuta,
si consiglia di verificare anche nello SPAM.
Scrivere a redazione@ildialogo.org per informazioni."; } else echo "
Sono visualizzate solo le adesioni verificate

\n"; echo "
\n"; echo "
    \n"; $tab = $tabba . "mailinglist"; // tabella lista appello $sqlr = 'SELECT * FROM `' . $dbntat[2] . '` WHERE `NomeFileInteressato`=\'' . $tabba . '\'order by `Data`,`Ora` asc'; $idu = array(); $vetdup = array(); //$result = $data->query($sqlr); if (! $data->Query($sqlr)) { echo $data->Error(); $data->Close(); exit(); } $n = 0; $kd = 0; $iii=0; $utimadata = '0000-00-00'; $data->MoveFirst(); while (! $data->EndOfSeek()) { // estrazione dei record tramite ciclo $row = $data->Row(); //print_r($row); // verifica se l'utente è stato già scritto if (in_array($row->IDutente, $idu)) { $vetdup[] = $row->IDutente . " " . $row->Nome . " " . $row->Cognome . " " . $row->Data . " " . $row->Ora; $kd++; continue; } else { if ($row->Data != $utimadata) { printf("

    Adesioni del: %s

    \n", $row->Data); $utimadata = $row->Data; } $idu[] = $row->IDutente; // sceglie se visualizzare gli utenti non verificati o meno if($nveri=='n') { // scrive solo gli utenti verificati $sqlip = "SELECT `Citta` FROM `" . $dbntat[0] . "` WHERE `IdUtente`='" . $row->IDutente . "' AND `verifica`='ok'"; $resultip = $db->QuerySingleValue ($sqlip); if($resultip!=FALSE) $MMMM = $resultip; else { // utente non verificato continue; } // $n++; $lme = strlen($row->Messaggio); if ($lme != 0) { if ($lme > $lim) $messaggio = substr($row->Messaggio, 0, $lim); else $messaggio=$row->Messaggio; printf("
  1. %s %s, %s, il: %s - %s
    Messaggio : %s
  2. \n", $row->Nome, $row->Cognome, $MMMM, $row->Data, $row->Ora, $messaggio); } else printf("
  3. %s %s, %s, il: %s - %s
  4. \n", $row->Nome, $row->Cognome, $MMMM, $row->Data, $row->Ora); } else { // scrive tutti gli utenti verificati e non $sqlip = "SELECT `Citta`,`verifica` FROM `" . $dbntat[0] . "` WHERE `IdUtente`='" . $row->IDutente . "' "; $resultip = $db->QuerySingleRow ($sqlip); if($resultip!=FALSE) { $MMMM = $resultip->Citta; if($resultip->verifica !='ok') {// utente non verificato $marca='y'; $iii++; } else $marca='n'; } // $n++; $lme = strlen($row->Messaggio); if($marca=='n') { // utente verificato lo scrive normalmente if ($lme != 0) { if ($lme > $lim) $messaggio = substr($row->Messaggio, 0, $lim); else $messaggio=$row->Messaggio; printf("
  5. %s %s, %s, il: %s - %s
    Messaggio : %s
  6. \n", $row->Nome, $row->Cognome, $MMMM, $row->Data, $row->Ora, $messaggio); } else printf("
  7. %s %s, %s, il: %s - %s
  8. \n", $row->Nome, $row->Cognome, $MMMM, $row->Data, $row->Ora); } else { // utente non verificato lo marca in rosso if ($lme != 0) { if ($lme > $lim) $messaggio = substr($row->Messaggio, 0, $lim); else $messaggio=$row->Messaggio; printf("
  9. %s %s, %s, il: %s - %s
    Messaggio : %s
  10. \n", $row->Nome, $row->Cognome, $MMMM, $row->Data, $row->Ora, $messaggio); } else printf("
  11. %s %s, %s, il: %s - %s
  12. \n", $row->Nome, $row->Cognome, $MMMM, $row->Data, $row->Ora); } } } } ///////////////////////////// if ($n > 0) { printf("
Numero Totale sottoscrittori: %d
\n", $n); if($iii>0) printf("Di cui non verificati: %d
\n", $iii); else printf("\n"); flush(); } else { // notifica in assenza di record echo "Per il momento non sono disponibili dati."; } $data->Close(); $db->Close(); $d = strip_tags($_GET['dup']); if ($d == 'y') { // stampa i duplicati echo "
\n"; printf("

Sottoscrittori duplicati

\n"); echo "
    \n"; $co = count($vetdup); for ($i = 0; $i < $co; $i++) { printf("
  1. %s
  2. \n", $vetdup[$i]); } printf("
Numero Totale sottoscrittori duplicati: %d
\n", $co); } ?>