#!/usr/bin/perl -w

use strict;
use warnings;
use v5.26;
use CGI;
use Template;
use DBI;
use Data::Dumper;

use lib qw(.);
require "utils.pl";

my $content = "Content-type: text/html\n\n";
my $template = '';
my $vars = '';
my $conn = '';
my $rows = '';

$conn = dbconnect();
  
$rows = $conn->selectall_arrayref("select ams_wac, sitename from sites where active = 'TRUE' order by sitename",{Slice => {}});

$template = Template->new({
  INCLUDE_PATH => ['templates']
});

print Dumper($rows);

$template->process('sandbox.tt2', {rows => $rows}, \$content)
           or die $template->error();

dbdisconnect($conn);

print $content;