#!/usr/bin/perl -T
use strict;
use warnings;

use Carp;
use Data::Dumper;

use lib qw{/home/hesco/sandbox/Politics-VoterContact-PhoneBank/lib};
use Politics::VoterContact::PhoneBank::DB;
use Politics::VoterContact::WWW::Dashboard;

my %defaults = (
           config_file => '/home/hesco/sandbox/Politics-VoterContact-PhoneBank/t/conf.d/pb-ListCheckOut_same_db_off.ini',
     );

my $dashboard = Politics::VoterContact::WWW::Dashboard->new(\%defaults);

# my $html = $dashboard->_process_list_of_households();
my $hh_values = $dashboard->_obtain_next_household();
my $html = $dashboard->_render_online_household_form($hh_values);

print STDERR "We made it back to cgi script.\n";
if(defined($html)){
  # print STDERR "canvas_hh_screen.cgi says that \$html is: $html \n";
  print $html;
} else {
  print STDERR "\$html remains undefined for some reason.\n";
}

1;