#!/usr/local/bin/perl
use CGI::Application::PSGI;
use Encode;

use Plack::Builder;

our $x;
BEGIN { $x = `pwd`; chomp $x; }
use Rubric::Config qq($x/rubric.yml);
use Rubric::WebApp;

my $handler = sub {
    my $env = shift;
    my $app = Rubric::WebApp->new({ QUERY => CGI::PSGI->new($env) });
    my $res = CGI::Application::PSGI->run($app);

    $res->[2][0] = encode('utf-8', $res->[2][0]);

    return $res;
};

builder {
  enable 'Plack::Middleware::ContentLength';
  $handler;
};