#!/usr/bin/perl -w

$| = 1;

use strict;

use CGI::Carp qw(fatalsToBrowser);
use CGI;
use Email::Valid;
use DBI;
use survey;

our $dbh = db_connect();
our $cgi = CGI->new();

my $params = params_hash($cgi);

my @all_qs = grep(/^Q(.)?_.+/, keys(%{$params}));

my @required_qs = grep(/^QR_.+/, @all_qs);
my @optional_qs = grep(/Q_.+/, @all_qs);

my $error = '';

die "missing survey_id" unless($params->{survey_id});

foreach (@required_qs) 
{
  $error = 1 unless (defined($params->{$_}) && $params->{$_} ne '');
}

$error = 1 unless(Email::Valid->address($cgi->param('email')));

if($error)
{
  print $cgi->redirect('error.html');
  exit;
}
else
{
print $cgi->header();
#foreach (@args) {
#  print "$_ : " . $cgi->param($_) . "<br>\n";
#}

  my $taker_id = add_taker($params->{email});
  save_response($params->{survey_id}, $taker_id, \@all_qs);

  print "Added $params->{email} / $taker_id";
  
#  print $cgi->redirect('thanks.html');

  cleanup($dbh);
}