#!/usr/bin/env perl

use HTML::Template;
use EricJ::Scrum::Parser;

use Data::Dumper;
$Data::Dumper::Indent = 1;
$Data::Dumper::Sortkeys = 1;

print "Content-Type: text/html; charset=utf-8\n\n";

#my $template = HTML::Template->new(filename => "board.tmpl");
my @boards = EricJ::Scrum::Parser::load("TODO.org");

#$template->param(PAGE_TITLE => "This is the title");
# $template->param(HELLO => "Hello");

#my @boards;
#foreach $boardname (keys %boarddata) {
#    push(@boards, {NAME => $boardname});
#}
#$template->param(BOARDS => \@boards);

# $template->param(BOARDS = [{NAME => }])
#print $template->output;


print Dumper @boards;
# print Dumper %boarddata;
