#!/usr/bin/perl -w

require("vars_web.pl");
use CGI;

$home = CGI->new;
$aggiornamento = $home->param("aggiornamento");
print $home->header;
print $inizio_html;
print $menu_princ;

print qq(<table border="0" width="100%">\n<tr>\n
<td width="50%" align="center" valign="top" bgcolor="#9acfab">
<font color="#000099">Per cosa vuoi utilizzare $ilvat?</font>
</td>\n<td width="50%" align="center" valign="top" bgcolor="#9acfab">
<font color="#000099">Come puoi utilizzare $ilvat?</font>
</td>\n</tr>\n<tr>
<td width="50%" align="justify" valign="top">);

print $home->start_multipart_form(-method=>"POST",
					-action=>"ilvat01a.pl");
print $home->p("$br Per cosa vuoi utilizzare $ilvat?");
print $tab;
print $home->popup_menu("funk",\@funzioni, onChange);
print " &nbsp; un indice di leggibilit&agrave; $br File di parametri esistente:$br $tab ";

print $home->popup_menu("paramfile",\@indici);
print "$br$tab $evidenziare oppure</font> da creare:$br$tab ";
print $home->textfield(-name=>"paramfile2", -size=>"20");
print "$br$tab se $evidenziare modifichi</font>, identificati (vedi riquadro verde in basso):$br$tab ";
print $home->textfield(-name=>"modificatore", -size=>"10");
print "$br Documento da valutare o da cui estrarre i parametri:$br$tab da scrivere direttamente (utile per URL):$br$tab";
print $home->textfield(-name=>"documenti", -size=>"30");
print "$br$tab$evidenziare oppure </font> da selezionare:$br$tab";
print $home->filefield("documenti2");
print "$br Il documento da valutare o da cui estrarre i parametri &egrave; preso da:$br";
print $home->radio_group(-name=>'dove5',
					-values=>['rete','casa'],
					-linebreak=>'true');

print "$br$br";
print $home->submit("avvia ilvat");

print $br.$br.$br.$battesimo if !$aggiornamento;

print qq(</td>
<td width="50%" align="justify" valign="top">);

print $aiuto;

print $home->p("<font color=\"#ffffff\">$ilvat &egrave; stato inventato da Adriano \"alladr\" Allora, che lo dedica a Davide.$br Trova il tuo modo di fare semplici le cose difficili, piccolo.$br$br pap&agrave;</font>");

print qq(</td>
</tr>
</table>);

print $home->end_html();