#!/usr/bin/perl
##############################################################################
$dirpath = "/dati/www/INAF";
require ('/dati/cgi-bin/mini-lib.pl');
require ('/dati/cgi-bin/acro-lib.pl');

#Legge l'input
   if ( $ENV{REQUEST_METHOD} eq 'GET' ) {
       %DATI = &Decodifica_GET;
   } 
   else {
       %DATI = &Decodifica_POST;
   };

my $lang = $DATI{lang};
if ($lang ne 'IT') { $lang = 'EN'; }
else { $dirpath = "/dati/www/INAF/italian"; }
SetDirPath($dirpath);

$nomefile = $DATI{href};
if (length($nomefile) < 1)
	{ $nomefile = 'prima.html' }; 
#pubblica il file
$nomefile .= "<!--prova-->"
&Pubblica($nomefile);