Delete uploadimage.pl
This commit is contained in:
parent
2196641288
commit
687b5489fe
1 changed files with 0 additions and 29 deletions
|
@ -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