Gyazo

gistfile1.pl

#!/usr/bin/env perl

use Mojolicious::Lite;

use Mojo::Asset::File;
use Digest::MD5 qw(md5_hex);
use File::Spec;
use IO::File;

my $dir = app->home->rel_dir('images');
unless (-d $dir) {
    warn "Creating $dir\n";
    mkdir $dir;
}

post '/upload' => sub {
    my $self = shift;
    my $imagedata = $self->param('imagedata');
    my $filename = md5_hex($imagedata) . '.png';
    my $path = File::Spec->catfile($dir, $filename);

    my $file = Mojo::Asset::File->new(
        path => $path,
        handle => IO::File->new($path, 'w'),
    );
    $file->add_chunk($imagedata);

    $self->render(text => $self->req->url->base . '/' . $filename);
};

app->static(
    MojoX::Dispatcher::Static->new(
        root => $dir,
    )
);
app->start;