#!/usr/bin/perl
##############################################################################
$dirpath = "/dati/www/EUSO";

require ('euso/mini-lib.pl');
require ('euso/acro-lib.pl');

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

$nomefile = $DATI{href};
#pubblica il file
&Pubblica($nomefile);
#print $nomefile;