From 687b5489fe98aeb87c9b4cec9821395cb0e98434 Mon Sep 17 00:00:00 2001 From: Finn Date: Fri, 2 Sep 2016 15:02:15 +0100 Subject: [PATCH] Delete uploadimage.pl --- uploadimage.pl | 29 ----------------------------- 1 file changed, 29 deletions(-) delete mode 100644 uploadimage.pl diff --git a/uploadimage.pl b/uploadimage.pl deleted file mode 100644 index cc57a85..0000000 --- a/uploadimage.pl +++ /dev/null @@ -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;