From 69c39d7c5cffbd168d295768ed8d19fb61429c62 Mon Sep 17 00:00:00 2001 From: piratefinn Date: Fri, 12 Aug 2016 18:24:05 +0100 Subject: [PATCH] change send data to sqlite test db and made it functional --- senddatatodb.pl | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) diff --git a/senddatatodb.pl b/senddatatodb.pl index 479de6b..ea1ecb5 100644 --- a/senddatatodb.pl +++ b/senddatatodb.pl @@ -4,18 +4,18 @@ use Mojolicious::Lite; # connect to database use DBI; -my $dbh = DBI->connect("dbi:Pg:dbname=$foodloop","","") or die "Could not connect"; +my $dbh = DBI->connect("dbi:SQLite:dbname=foodloop.db") or die "Could not connect"; # shortcut for use in template helper db => sub { $dbh }; # setup base route -any '/' => 'index'; +#any '/' => 'index'; my $insert; while (1) { # create insert statement - $insert = eval { $dbh->prepare('INSERT INTO foodloop (user, company, currency) VALUES (?,?,?)') }; + $insert = eval { $dbh->prepare('INSERT INTO foodloop (user, company, currency, filename) VALUES (?,?,?,?)') }; # break out of loop if statement prepared last if $insert; @@ -29,8 +29,9 @@ 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); + my $currency = $self->param('currency'); + my $file = $self->req->upload('file'); + $insert->execute($user, $company, $currency, $file->filename); $self->render(text => 'It did not kaboom!'); };