kim.pl

use strict;
use Plack::Builder;
use Plack::Request;
use Plack::App::Directory;
use Path::Class;
use Digest::MD5 qw(md5_hex);

my $upload_dir = "./files/";

builder {
    mount "/files" => Plack::App::Directory->new(root => $upload_dir);
    mount "/upload" => sub {
        my $env = shift;
        my $req = Plack::Request->new($env);
        if ($req->method eq "POST") {
            my $file = file($upload_dir . md5_hex($req->param("key")));
            my $appender = $file->open('a') or die $!;
            $appender->print($req->raw_body);
            $appender->close;
            # warn $req->raw_body;
        }
        [200, [], ["OK"]];
    };
    mount "/" => sub {
        my $env = shift;
        if ($env->{PATH_INFO} eq "/") {
            return Plack::App::File->new(file => './static/index.html')->call($env);
        }
        Plack::App::File->new(root => './static/')->call($env);
    };
};