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

use Mojolicious::Lite;
use Data::UUID;

# 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";
use Devel::Dwarn; 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('INSERT INTO foodloop (username, company, currency, filename) VALUES (?,?,?,?)') };
  # break out of loop if statement prepared
  last if $insert;
  print "Creating new Table";
  # if statement didn't prepare, assume its because the table doesn't exist
#  warn "Creating table 'foodloop'\n";
#  $dbh->do('CREATE TABLE foodloop (
#  username varchar(255),
#  company varchar(255),
#  currency integer,
#filename varchar(255)
#);'
);
}

# setup route which receives data and returns to /
post '/' => sub {
  my $self = shift;
  # Fetch parameters to write to DB
  my $username = $self->param('username');
  my $company = $self->param('company');
  my $currency = $self->param('currency');
  my $file = $self->req->upload('file');
  # Get image type and check extension
  my $headers = $file->headers->content_type;
  # Is content type wrong?
  if ($headers ne 'image/jpeg') {
      print "Upload fail. Content type is wrong.\n";
  };
  # Rewrite header data
  my $ext = '.jpg';
  my $uuid = Data::UUID->new->create_str;
  my $filename = $uuid . $ext;
  $file->move_to('images/' . $filename);
  $insert->execute($username, $company, $currency, $filename);
  $self->render(text => 'It did not kaboom!');
};

app->start;