#!/usr/bin/env perl
# NOT READY FOR PRODUCTION

use Mojolicious::Lite;
use Data::UUID;
use Devel::Dwarn;

# connect to database
use DBI;

my $config = plugin Config => {file => 'myapp.conf'};
my $dbh = DBI->connect($config->{dsn},$config->{user},$config->{pass}) or die "Could not connect";
Dwarn $config;

# shortcut for use in template
helper db => sub { $dbh };

# setup base route
#any '/' => 'index';

my $insert;
while (1) {
  print "Checking if table exists";
  # create insert statement
  $insert = eval { $dbh->prepare('UPDATE accounts SET 'name' = ?, email = ?, postcode = ?, age = ?, gender = ?, grouping = ?, password = ?, keyused = ? WHERE username = ?');
  # break out of loop if statement prepared
  last if $insert;
  print "Make the table!";
}

post '/' => sub {
  my $self = shift;
# get the key from user
  my $key = $self->req->json;
# get from db the username matching the key and then send it back at them
  my $username = $dbh->selectall_arrayref("SELECT username FROM accounts WHERE idkey = ?", undef, $key->{token});
  $self->render(json => {'username' => $username->[0]}  );
# When user has submitted json of data, define data
  my $name = $self->req->json;
  my $email = $self->req->json;
  my $postcode = $self->req->json;
  my $age = $self->req->json;
  my $gender = $self->req->json;
  my $grouping = $self->req->json;
  my $password = $self->req->json;
  my $keyused = "True";
# send data to db in row matching username
  $insert->execute($name->{name}, $email->{email}, $postcode->{postcode}, $age->{age}, $gender->{gender}, $grouping->{grouping}, $password->{password}, $keyused, $username);
  $self->render(text => 'It did not kaboom!');
};

app->start;