Sandbox

[% row.ams_wac %] - [% row.sitename %]

##

#!/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;

##

##

Content-type: text/html



    
        Sandbox
    
    
      
      
      
    


##

##

$VAR1 = [
          {
            'sitename' => 'Site One',
            'ams_wac' => 'SLRHC'
          },
          {
            'ams_wac' => 'SLR',
            'sitename' => 'Site Two'
          },
          {
            'sitename' => 'Site Three',
            'ams_wac' => 'SLRSIX'
          }
        ];