#!/usr/home/italpro/local/bin/perl

use strict;
use warnings;
use encoding 'utf8';
use lib './modules';
use lib '/usr/home/dexter/perl/lib/perl5/site_perl/5.8.3';
use lib '/usr/home/dexter/perl/lib/perl5/5.8.3';
use CGI::Simple ();
use CGI::Carp qw(fatalsToBrowser); # serve gestire i messaggi di errore 
use DBI ();
use MIME::Lite ();
use Image::Info ();
use Petal::AlwaysUTF8 ();

$CGI::Simple::DISABLE_UPLOADS = 0;
$CGI::Simple::POST_MAX = 10_485_760;

my $q=new CGI::Simple;

#Inizializzazione di Petal
#Petal::BASE_DIR        =  "./t";
$Petal::DECODE_CHARSET  = 'UTF-8';
$Petal::OUTPUT          = 'XHTML';
$Petal::DISK_CACHE       = 0;   #per svuotare la memoria cache



#Apertura connessione con database

my $dbh = DBI->connect("DBI:mysql:italpro_alea:qs1213.pair.com", "italpro_8","kePHRZ78");
if (!$dbh) { die 'main-1 (can\'t connect to SQL server)'; }

$ENV {'PATH'} = '/bin';

if ($q->param('par')eq 'mod') { mod(); } 
    elsif ($q->param('par') eq 'agg') {agg();}
    elsif ($q->param('par') eq 'wr') {wr();}
    elsif ($q->param('par') eq 'del') {del();}
    else {list();}
     
$dbh->disconnect();



sub list {
print $q->header(
  -charset => 'utf-8'
);
my $flagtipo =$q->param('flagtipo');
my $t = new Petal::AlwaysUTF8 ( file => "../certific-soa.xhtml"); #chiamata di Petal




my $dati2= "select 
          meo_opere_in_costruzione.id,
          meo_opere_in_costruzione.titolo,
          meo_opere_in_costruzione.luogo,
          meo_opere_in_costruzione.descrizione
          from meo_opere_in_costruzione
          where meo_opere_in_costruzione.flaghome = 1
          limit 1";
my $sth2 = $dbh->prepare($dati2);
if (!$sth2) {die 'Forms-mm-2b ('.$dbh->errstr.')';}
$sth2->execute or die 'Forms-mm-2b ('.$dbh->errstr.')';
my $ultima = $sth2->fetchrow_hashref();
$sth2->finish;

opendir(DIR, "../dati/opere_in_costruzione/") or die "Opere-mm-1: $!";
    my @files = readdir(DIR);
    closedir DIR;

    
    
        my $ifn = (grep /^$ultima->{'id'}_3\.(png|jpg)$/, @files)[0];
        if (defined $ifn) {
            $ultima->{"ifn1"} = $ifn;
            my $ii = Image::Info::image_info("../dati/opere_in_costruzione/$ifn");
            if ($ii->{error}) {
                die "Opera-mm-2: $ii->{error}\n";
            }
            ($ultima->{"isx1"}, $ultima->{"isy1"}) = Image::Info::dim($ii);
        }


print $t->process(
ultima=>$ultima);
        }