#!/usr/bin/env perl

use Mojolicious::Lite;

# connect to database
use DBI;
my $dbh = DBI->connect("dbi:Pg:dbname=$foodloop","","") or die "Could not connect";

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

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

my $insert;
while (1) {
  # create insert statement
  $insert = eval { $dbh->prepare('INSERT INTO foodloop (user, company, currency) VALUES (?,?,?)') };
  # break out of loop if statement prepared
  last if $insert;

  # if statement didn't prepare, assume its because the table doesn't exist
  warn "Creating table 'foodloop'\n";
  $dbh->do('CREATE TABLE foodloop (user varchar(255), company varchar(255), currency int, filename varchar(255));');
}

# setup route which receives data and returns to /
post '/' => sub {
  my $self = shift;
  my $user = $self->param('user');
  my $company = $self->param('company');
  my $company = $self->param('currency');
  $insert->execute($user, $company, $currency);
  $self->render(text => 'It did not kaboom!');
};

app->start;