#!/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(
Usa $enter! | \nCos'è $enter? | \n
);
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 "; print $home->submit("avvia EnTeR"); print $home->endform(); print " "; print $br.$br.$br.$battesimo if !$aggiornamento; print qq( |
); print $aiuto; print $home->p("$br$br$br Allora \"alladr\" Adriano, Torino, 10/02/2006, ore 22:15 $enter è stato inventato da Adriano \"alladr\" Allora, che lo dedica a Silvio e Giuditta.$br Sapere che c'è una strada da cercare è stato l'insegnamento più importante."); print qq( |