First commit
This commit is contained in:
commit
f80ac5c8b2
2 changed files with 56 additions and 0 deletions
37
senddatatodb.pl
Normal file
37
senddatatodb.pl
Normal file
|
@ -0,0 +1,37 @@
|
||||||
|
#!/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;
|
19
uploadimage.pl
Normal file
19
uploadimage.pl
Normal file
|
@ -0,0 +1,19 @@
|
||||||
|
#!/usr/bin/env perl
|
||||||
|
use Mojolicious::Lite;
|
||||||
|
|
||||||
|
# /?user=sebastian&pass=secr3t
|
||||||
|
any '/' => sub {
|
||||||
|
my $c = shift;
|
||||||
|
|
||||||
|
# Query parameters
|
||||||
|
my $user = $c->param('user') || '';
|
||||||
|
my $company = $c->param('company') || '';
|
||||||
|
my $currency = $c->param('currency') || '';
|
||||||
|
print "$user $company $currency\n";
|
||||||
|
use Devel::Dwarn;
|
||||||
|
Dwarn $c->req;
|
||||||
|
# Failed
|
||||||
|
$c->render(text => 'upload failed.');
|
||||||
|
};
|
||||||
|
|
||||||
|
app->start;
|
Reference in a new issue