) # Ho messo 40, ma un chiave puo` arrivare a 125 caratteri (se non ricordo male)
print("</td>")
print("</tr>")
print("<tr>")
print("<td colspan=\"2\">")
#print ("<hr/>") # La linea orizzontale
print("</td>")
print("</tr>")
print("<tr>")
print("<td>")
print("") # Testo nella 1a colonna
print("</td>")
print("<td>")
print(mhl.MyButtonForm("submit", "Attiva filtro"))
print("</td>")
print("</tr>")
print("</table>")
# End form
print(mhl.MyEndForm())
print("<hr/><br/>")
# Tabella visualizzazione chiavi:valore
print("<table>")
# La prima voce non e` modificabile ed e` la chiave Redis (solo visualizzazione)
print("<tr>")
print(mhl.MyMailForm("rpush", "", "40", "", ""))
print("</td>")
print("</tr>")
print("<tr>")
print("<td>")
print("Elimina: ")
print("</td>")
print("<td>")
print(mhl.MyMailForm("lrem", "", "40", "", ""))
print("</td>")
print("</tr>")
print("<tr>")
print("<td colspan=\"4\">")
print("<hr/>")
print("</td>")
print("</tr>")
print("<tr>")
print("<td>")
print("</td>")
print("<td>")
print(mhl.MyButtonForm("submit", "Submit"))
print("</td>")
print("</tr>")
print("</table>")
print(mhl.MyEndForm())
print(mhl.MyHtmlBottom())
print("</fieldset>")
print("</td>")
print("</tr>")
print("<tr>")
print("<td colspan=\"2\">")
print("<hr/>") # La linea orizzontale
print("</td>")
print("</tr>")
print("<tr>")
print("<td>")
print("") # Testo nella 1a colonna
print("</td>")
print("<td>")
print(mhl.MyButtonForm("submit", "Esegui"))
print("</td>")
print("</tr>")
print("</table>")
# End form
print(mhl.MyEndForm())
# Gruppi Redis
# Non riesco a filtrare con una normale 'regex', mi son stufato e allora prendo tutti
# quelli che hanno "sets:*:Config" e poi eliminero` il finale ":Config"
SetsRedis = flt.DecodeList(MyDB.keys("sets:*:Config"))
for i in range(len(SetsRedis)):
# La lista e` (uguale alla lista puntata da i [i]),
# presa per tutta la sua lunghezza di caratteri [:L-7],
print("<table>")
print("<tr>")
print("<td>")
print(mhl.MyDropDown(FormName, FileList, ""))
print("</td>")
print("</tr>")
print("<tr>")
print("<td>")
#print ("<hr/>")
print("</td>")
print("</tr>")
print("<tr>")
print("<td>")
print(mhl.MyButtonForm("submit", "Visualizza"))
print("</td>")
print("</tr>")
print("</table>")
# End form
print(mhl.MyEndForm())
print("<hr/>", "<br/>")
# Eventuale help/annotazione
print("""
Seleziona il file del grafico che vuoi salvare e scrivi il nome del file di destinazione.
<br/>
<em>La directory di destinazione e` prefissata/preimpostata ad "archive".</em>
<br/>
print(mhl.MyCheckboxForm("add", LISTAi), LISTAi, "<br/>")
print("</fieldset>")
print("</td>")
print("</tr>")
print("<tr>")
print("<td colspan=\"2\">")
print("<hr/>") # La linea orizzontale
print("</td>")
print("</tr>")
print("<tr>")
print("<td>")
print("") # Testo nella 1a colonna
print("</td>")
print("<td>")
print(mhl.MyButtonForm("submit", "Modifica"))
print("</td>")
print("</tr>")
print("</table>")
# End form
print(mhl.MyEndForm())
else:
print("Manca la chiave: <b>", cgi.escape(form[FormName].value),
"</b><br/>oppure hai selezionato una chiave non modificabile.")
# End web page
print(mhl.MyHtmlBottom())
print (mhl.MyActionForm("/cgi-bin/viewlistredis.py","POST"))
print ("<tr>")
print ("<td>")
print ("Key: ") # Testo nella 1a colonna
print ("</td>")
print ("<td>")
print (mhl.MyTextForm(FormName,RedisKey,"40","required","readonly"))
print ("</td>")
print ("</tr>")
print ("<tr>")
print ("<td>")
print ("") # Testo nella 1a colonna
print ("</td>")
print ("<td>")
print (mhl.MyButtonForm("submit","Visualizza tutti i valori"))
print ("</td>")
print ("</tr>")
# End form
print (mhl.MyEndForm())
print ("<tr>")
print ("<td colspan=\"2\">")
print ("<hr/>") # La linea orizzontale
print ("</td>")
print ("</tr>")
# Controllo che tipo di chiave si tratta e la do` in pasto al csv con singolo valore, oppure a quello con piu` valori (sets)
# il [:4] prende le prime 4 lettere (che vengono confrontate con sets)
print ("<tr>")
print ("<td colspan=\"2\">")
# tolto 7, che e` la lunghezza di ":Valori"
LISTAi=LISTA[i][:len(LISTA[i])-7]
print (mhl.MyCheckboxForm("add",LISTAi), LISTAi, "<br/>")
print ("</td>")
print ("</tr>")
print ("<tr>")
print ("<td colspan=\"2\">")
print ("<hr/>") # La linea orizzontale
print ("</td>")
print ("</tr>")
print ("<tr>")
print ("<td>")
print ("") # Testo nella 1a colonna
print ("</td>")
print ("<td>")
print (mhl.MyButtonForm("submit","Aggiungi"))
print ("</td>")
print ("</tr>")
print ("</table>")
# End form
print (mhl.MyEndForm())
# End web page
print (mhl.MyHtmlBottom())
