Merge branch 'master' of https://github.com/Pear-Trading/Foodloop-Server

myapp.conf.example

@@ -1,6 +0,0 @@
-{
-  foo => 'bar',
-  banana => 'monkey',
-# Database connection details
-  dsn => "dbi:SQLite:dbname=foodloop.db",
-};

senddatatodb.pl

@@ -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;

senddatatodb.pl.example

@@ -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;

uploadimage.pl

@@ -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;