Merge branch 'master' of https://github.com/Pear-Trading/Foodloop-Server
This commit is contained in:
piratefinn
commit
c93c15737e
4 changed files with 0 additions and 150 deletions
|
|
@ -1,6 +0,0 @@
|
||||||
{
|
|
||||||
foo => 'bar',
|
|
||||||
banana => 'monkey',
|
|
||||||
# Database connection details
|
|
||||||
dsn => "dbi:SQLite:dbname=foodloop.db",
|
|
||||||
};
|
|
||||||
|
|
@ -1,55 +0,0 @@
|
||||||
#!/usr/bin/env perl
|
|
||||||
|
|
||||||
use Mojolicious::Lite;
|
|
||||||
use Data::UUID;
|
|
||||||
|
|
||||||
# connect to database
|
|
||||||
use DBI;
|
|
||||||
my $config = plugin Config => {file => 'myapp.conf'};
|
|
||||||
|
|
||||||
use Devel::Dwarn; Dwarn $config;
|
|
||||||
|
|
||||||
my $dbh = DBI->connect($config->{dsn}) 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, filename) 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;
|
|
||||||
# Fetch parameters to write to DB
|
|
||||||
my $user = $self->param('user');
|
|
||||||
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($user, $company, $currency, $filename);
|
|
||||||
$self->render(text => 'It did not kaboom!');
|
|
||||||
};
|
|
||||||
|
|
||||||
app->start;
|
|
||||||
|
|
@ -1,60 +0,0 @@
|
||||||
#!/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 "Make the table!";
|
|
||||||
}
|
|
||||||
|
|
||||||
# setup route which receives data and returns to /
|
|
||||||
post '/' => sub {
|
|
||||||
my $self = shift;
|
|
||||||
# Fetch parameters to write to DB
|
|
||||||
my $key = $self->param('key');
|
|
||||||
# This will include an if function to see if key matches
|
|
||||||
# unless ($key eq $config->{key}) {
|
|
||||||
# print "key does not match!";
|
|
||||||
# }
|
|
||||||
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;
|
|
||||||
# send photo to image folder on server
|
|
||||||
$file->move_to('images/' . $filename);
|
|
||||||
# send data to foodloop db
|
|
||||||
$insert->execute($username, $company, $currency, $filename);
|
|
||||||
$self->render(text => 'It did not kaboom!');
|
|
||||||
};
|
|
||||||
|
|
||||||
app->start;
|
|
||||||
|
|
@ -1,29 +0,0 @@
|
||||||
#!/usr/bin/env perl
|
|
||||||
use Mojolicious::Lite;
|
|
||||||
use Mojo:Upload;
|
|
||||||
|
|
||||||
# /?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 => 'db entry data upload failed.');
|
|
||||||
};
|
|
||||||
|
|
||||||
# Uploading Image
|
|
||||||
post '/upload' => sub {
|
|
||||||
my $c = shift;
|
|
||||||
|
|
||||||
my $upload = Mojo::Upload->new;
|
|
||||||
say $upload->filename;
|
|
||||||
$upload->move_to('images/' . $upload->filename);
|
|
||||||
|
|
||||||
};
|
|
||||||
app->start;
|
|
||||||
Reference in a new issue