#!/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(
Per cosa vuoi utilizzare $ilvat? | \nCome puoi utilizzare $ilvat? | \n
); 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 " un indice di leggibilità $br File di parametri esistente:$br $tab "; print $home->popup_menu("paramfile",\@indici); print "$br$tab $evidenziare oppure da creare:$br$tab "; print $home->textfield(-name=>"paramfile2", -size=>"20"); print "$br$tab se $evidenziare modifichi, 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 da selezionare:$br$tab"; print $home->filefield("documenti2"); print "$br Il documento da valutare o da cui estrarre i parametri è 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( | ); print $aiuto; print $home->p("$ilvat è 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à"); print qq( |