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

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

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

my $params = $pb->{'q'}->Vars;
print STDERR "The cgi script says form gave us: \n" . Dumper(\$params);
my ($hh_values);
if($pb->{'q'}->param('_submit') eq 'Proceed to Next Household'){
  $pb->_record_call_results($params);
  $hh_values = $pb->_obtain_next_household();
  print STDERR "The cgi scripts says \$hh_values is: " . Dumper(\$hh_values);
  $pb->{'q'}->delete('_submit');
  $pb->{'q'}->delete('_submitted_phone_canvas_household');
} elsif(!$pb->{'q'}->param('_submitted_phone_canvas_household')){
  $hh_values = $pb->_obtain_next_household();
  print STDERR "The cgi scripts says \$hh_values is: " . Dumper(\$hh_values);
}

my $html = $pb->_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;