#!/usr/bin/perl -w

require("funzionali/enter_vars_web.pl");
require("funzionali/enter_funk_web.pl");
use CGI;

$home = CGI->new;
print $home->header;
print $inizio_html;
print $menu_princ;

$corpus = $home->param("corpus");
require("corpora/$corpus/POStagset.pl");	
require("corpora/$corpus/TEXtagset.pl");	
require("funzionali/enter_funk_$corpus.pl");


print qq(<table border="0" width="100%">\n<tr>\n
<td width="50%" align="center" valign="top" bgcolor=$verde>
<font color=$testochiaro size="4">Usa $enter!</font>
</td>\n<td width="50%" align="center" valign="top" bgcolor=$verde>
<font color=$testochiaro size="4">Cos'&egrave; $enter?</font>
</td>\n</tr>\n<tr>
<td width="50%" align="justify" valign="top">);

print $home->start_multipart_form(-method=>"POST",
					-action=>"enter_base.pl");
print "$br";
&caratteristiche(1);
&distanza(1);
&caratteristiche(2);
&distanza(2);
&caratteristiche(3);
print "$br <center><input type=checkbox name=\"listafr\" value=\"x\"> estrai solo una lista di frequenza</center>$br \n";
&optesto($corpus);

print $home->hidden(-name=>'corpus',
				-default=>$corpus);
print "<p align=\"center\">";
print $home->submit("avvia EnTeR");
print $home->endform();
print "</p>";

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

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

print $aiuto;

print $home->p("$br$br$br Allora \"alladr\" Adriano, Torino, 10/02/2006, ore 22:15 
<font color=\"#ffffff\">$enter &egrave; stato inventato da Adriano \"alladr\" Allora, che lo dedica a Silvio e Giuditta.$br Sapere che c'&egrave; una strada da cercare &egrave; stato l'insegnamento pi&ugrave; importante.</font>");

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

print $home->end_html();