#!/usr/bin/perl  
use DBI;
use Time::Local;
require ('/dati/cgi-bin/acro-lib.pl');
require ('/dati/cgi-bin/mini-lib.pl');
my $dirpath = "/dati/www/INAF";
my $cgipatheven = &LeggiConf(7);
my $dsn = &LeggiConf(1);

#legge i dati passati dal CGI
my %DATI;
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 = "/home/ifc/public_html/italian"; }
SetDirPath($dirpath);

my ($dbh,$user) = &IBConnect($dsn,'public');
my $sql = qq/
	SELECT FIRST 8 ID,TITOLO,DATANEWS,DATAFINE,DESCRIZIONE,WEB,INTESTAZIONE,IMG
	FROM NEWS
	WHERE HOME = 1 AND PUBBLICO = 1 AND LANG = \'$lang\' AND DATAFINE >= CURRENT_DATE
	ORDER BY DATANEWS DESC;
 /;
#data di oggi
local @giorniEn = ('Sunday','Monday','Tuesday','Wednesday','Thursday','Friday','Saturday');
local @mesiEn = ('January','February','March','April','May','June','July','August','September','October','November','December');
my $oggi = '';
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday) = gmtime(time());
$year = $year + 1900;
$mon++;
if (length($min) < 2)
	{ $min = "0" . $min; }
if (length($mon) < 2)
	{ $mon = "0" . $mon; }
if (length($mday) < 2)
	{ $mday = "0" . $mday; }
$oggi = "$mday/$mon/$year $hour:$min";

$nomefile = "general/welcome.html";
if ($lang eq 'IT') { $nomefile = "general/welcome-it.html"; }
my $corpofile = &leggi("$dirpath/$nomefile");
my $risultato = &EstraiCorpo($corpofile);
$risultato .= "<!--File:$dirpath/$nomefile-->";

$risultato .= "\n<TABLE WIDTH=\"641\" CELLPADDING=8 CELLSPACING=0 BORDER=0 class=\"interna\">\n";

my $sth = &IBQuery($dbh,$sql); 

my $grigio = "#606060";
my $nero = "#000000";
my $color = $grigio;

my $anno = 0;
my $TestoData = "";
my $i = 0;
while ( my $row = $sth->fetchrow_hashref) 
 	{ 
	
		$color = $nero; #controllo scadenza
		$immagine = $acceso;
		if (&DataMaggiore($oggi,$row->{DATAFINE}))
			{ $immagine = $spento; $color = $grigio; }
	#quando
		my $year = int(substr($row->{DATANEWS},6,4));
    		$TestoData = &VisData("$row->{DATANEWS}",21);

	#stampa evento	
	my $id = $row->{ ID };
	$risultato .= "<td width=\"320\" valign=\"top\" align=\"left\">";

		if (length($row->{IMG}) > 0) 
			{ $risultato .= "<IMG SRC=\"/images/news/$row->{IMG}\" hspace =\"12\" style=\"float: left\">"; }


	$risultato .=qq^<font color="$color">
	<B>^;
	if (length($row->{WEB}) > 0) 
		{ $risultato .= "<a href=\"$row->{WEB}\" target=\"_blank\">$row->{TITOLO}</a>"; }
	else { $risultato .= "&quot;$row->{TITOLO}&quot;"; }
	$risultato .=qq^</b><br>
 	<i>$row->{DESCRIZIONE}</i>.<br>
	<font color="#AC4113" size=-2>$row->{INTESTAZIONE}</font><br></font>
 	</td>
 	^;
    if ($i == 0) { $risultato .= "<TD width=\"1\" rowspan=4><IMG SRC=\"/images/separa.gif\"></TD>"; }
    if (($i == 1)||($i == 3)||($i == 5)) { $risultato .= "</TR><TR>"; }
    $i++;	 
    }

######################################################################
if ($lang ne 'IT') 
    { 
	$risultato .=  qq^
</table>
 <br>
 <center>
 <font face="Arial,'MS Sans Serif'" size="-1" color="#231A95">
 Address: Via Ugo La Malfa 153, 90146 Palermo, Italy<br>
 Phone: +39 091 6809577 -  Fax: +39 091 6882258<br>
    ^;
    }
else {
	$risultato .=  qq^
	</table>
 	<br>
 	<center>
 	<font face="Arial,'MS Sans Serif'" size="-1" color="#231A95">
 	Via Ugo La Malfa 153, 90146 Palermo, Italia<br>
	Telefono: +39 091 6809577<br>
 	Fax: +39 091 6882258<br>
 	^;
     }
$risultato .=  qq^
PEC:<script>
<!--
var name = "inafiasfpa";
var domain = "pcert.postecert.it";
document.write('<a href=\"mailto:' + name + '\@' + domain + '\" style=\"font-size: 9pt; text-decoration: none;\">');
document.write(name + '\@' + domain + '</a>');
// -->
</script><br>
</font><br><br>
 </center>
^;

&PubblicaTesto($risultato);
$dbh->disconnect;
exit 0;