use strict;
use CGI ':standard';
use HTML::Template;
use DBI;
my $BaseDatos = "dbi:SQLite:dbname=./personal.db3";
my $dbh = DBI->connect( $BaseDatos, "", "", { RaiseError => 1 } ) ||
die "ERR al conectarse a $BaseDatos: $DBI::errstr";
DBI->trace(1);
my $template = HTML::Template->new( filename => 'sel_instancia.tmpl' );
my @hostnames = ();
my @hosts = @{ $dbh->selectall_arrayref( "SELECT hostname FROM hosts", { Slice => {} } ) };
foreach my $host( @hosts )
{
push @hostnames, $host->{hostname};
}
$template->param(HOSTS => \@hosts);
$dbh->disconnect;
print "Content-type: text/html\n\n";
print $template->output;