diff --git a/senddatatodb.pl b/senddatatodb.pl index ea1ecb5..fe880d1 100644 --- a/senddatatodb.pl +++ b/senddatatodb.pl @@ -1,6 +1,7 @@ #!/usr/bin/env perl use Mojolicious::Lite; +use Data::UUID; # connect to database use DBI; @@ -27,11 +28,23 @@ while (1) { # 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'); - $insert->execute($user, $company, $currency, $file->filename); + # 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!'); }; diff --git a/uploadimage.pl b/uploadimage.pl index 9a3fc67..cc57a85 100644 --- a/uploadimage.pl +++ b/uploadimage.pl @@ -1,5 +1,6 @@ #!/usr/bin/env perl use Mojolicious::Lite; +use Mojo:Upload; # /?user=sebastian&pass=secr3t any '/' => sub { @@ -13,7 +14,16 @@ any '/' => sub { use Devel::Dwarn; Dwarn $c->req; # Failed - $c->render(text => 'upload 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;