package newindex;
use strict;
use Template;

sub getTitle {
  return "workers";
}

sub getContent {
  my $cgi = shift;	
  my $hashref = {
      'Adam'  => 'Eve',
      'Clyde' => 'Bonnie',
  };  
   
  my %data=();
  $data{'header'} = ['Column 1','Column 2'];

  for (sort keys %$hashref){
    push @{$data{'rows'}},{ key=>$_ , value=>$hashref->{$_} };
  }
    
  my $TMPL = <<'EOT';
    <table border="1" cellspacing="0" cellpadding="5">
    <tr>
      [% FOREACH col IN header %]
        <th>[% col %]</th>
      [% END %]
    </tr>
    [% FOREACH record IN rows %]
       <tr>
         <td>[% record.key %]</td>
         <td>[% record.value %]</td>
       </tr>
    [% END %]
    </table>
EOT
  
  my $template = Template->new();
  my $html;
  $template->process(\$TMPL, \%data, \$html)
     || die "Template process failed: ", $template->error(), "\n";
  return $html;  

}

1;