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

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

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