Permalink
Fetching contributors…
Cannot retrieve contributors at this time
executable file 309 lines (265 sloc) 10 KB
package MojitoApp;
use Web::Simple;
use Mojito;
use Mojito::Auth;
use Mojito::Model::Config;
use Mojito::Model::DB;
use JSON ();
use Encode ();
use Plack::Builder;
use Data::Dumper::Concise;
has 'my_config' => (
is => 'ro',
lazy => 1,
default => sub { Mojito::Model::Config->new->config },
);
has 'my_db' => (
is => 'ro',
lazy => 1,
default => sub { Mojito::Model::DB->new(config => $_[0]->my_config)->db },
);
sub dispatch_request {
my ($self, $env) = @_;
my $mojito = Mojito->new(
base_url => $env->{mojito}->base_url,
username => $env->{mojito}->username,
config => $env->{mojito}->config,
db => $self->my_db,
);
# A Benchmark URI
sub (GET + /bench ) {
my ($self) = @_;
my $rendered_content = $mojito->bench;
[ 200, [ 'Content-type', 'text/html' ], [$rendered_content] ];
},
# PRESENT CREATE Page Form
sub (GET + /page ) {
my ($self) = @_;
my $output = $mojito->fillin_create_page;
[ 200, [ 'Content-type', 'text/html' ], [$output] ];
},
# CREATE New Page, redirect to Edit Page mode
sub (POST + /page + %* ) {
my ($self, $params) = @_;
my $redirect_url = $mojito->create_page($params);
[ 301, [ Location => $redirect_url ], [] ];
},
# VIEW a Page
sub (GET + /page/* ) {
my ($self, $id) = @_;
my $rendered_page = Encode::encode_utf8($mojito->view_page({ id => $id }));
[ 200, [ 'Content-type' => 'text/html; charset=utf-8' ], [$rendered_page] ];
},
sub (GET + /public/page/* ) {
my ($self, $id) = @_;
[
200,
[ 'Content-type', 'text/html; charset=utf-8' ],
[ Encode::encode_utf8($mojito->view_page_public({ id => $id })) ]
];
},
# LIST Pages in chrono order
sub (GET + /recent ) {
my ($self) = @_;
my $links = Encode::encode_utf8($mojito->recent_links);
[ 200, [ 'Content-type' => 'text/html; charset=utf-8' ], [$links] ];
},
# PREVIEW Handler (and will save if save button is pushed).
sub (POST + /preview + %*) {
my ($self, $params) = @_;
my $response_href = $mojito->preview_page($params);
my $JSON_response = JSON::encode_json($response_href);
[ 200, [ 'Content-type' => 'application/json; charset=utf-8' ], [$JSON_response] ];
},
# Present UPDATE Page Form
sub (GET + /page/*/edit ) {
my ($self, $id) = @_;
my $output = Encode::encode_utf8($mojito->edit_page_form({ id => $id }));
[ 200, [ 'Content-type' => 'text/html; charset=utf-8' ], [$output] ];
},
# UPDATE a Page
sub (POST + /page/*/edit + %@collection_select~&*) {
my ($self, $id, $collection_select, $params) = @_;
$params->{collection_select} = $collection_select;
$params->{id} = $id;
my $redirect_url = $mojito->update_page($params);
[ 301, [ Location => $redirect_url ], [] ];
},
# DELETE a Page
sub (GET + /page/*/delete ) {
my ($self, $id) = @_;
[ 301, [ Location => $mojito->delete_page({ id => $id }) ], [] ];
},
# Diff a Page: $m and $n are the number of ^ we'll use from HEAD.
# e.g diff/3/1 would mean git diff HEAD^^^ HEAD^ $page_id
sub (GET + /page/*/diff/*/* ) {
my ($self, $id, $m, $n) = @_;
my $output = $mojito->view_page_diff({ id => $id, m => $m, n => $n });
$output = Encode::encode_utf8($output);
[ 200, [ 'Content-type' => 'text/html; charset=utf-8' ], [$output] ];
},
# Single word search
sub (GET + /search/* ) {
my ($self, $word) = @_;
my $output = Encode::encode_utf8($mojito->search({ word => $word }));
[ 200, [ 'Content-type' => 'text/html; charset=utf-8' ], [$output] ];
},
sub ( POST + /search + %* ) {
my ($self, $params) = @_;
my $output = $mojito->search($params);
[ 200, [ 'Content-type', 'text/html' ], [$output] ];
},
sub ( GET + /collect ) {
my ($self,) = @_;
my $output = Encode::encode_utf8($mojito->collect_page_form());
[ 200, [ 'Content-type' => 'text/html; charset=utf-8' ], [$output] ];
},
sub ( POST + /collect + %* ) {
my ($self, $params) = @_;
my $redirect_url = $mojito->collect($params);
[ 301, [ Location => $redirect_url ], [] ];
},
sub ( GET + /collections ) {
my ($self, $params) = @_;
my $output = Encode::encode_utf8($mojito->collections_index());
[ 200, [ 'Content-type' => 'text/html; charset=utf-8' ], [$output] ];
},
sub ( GET + /collection/* ) {
my ($self, $collection_id) = @_;
my $output = $mojito->collection_page({ id => $collection_id });
[ 200, [ 'Content-type', 'text/html; charset=utf-8' ], [Encode::encode_utf8($output)] ];
},
sub ( GET + /public/collection/* ) {
my ($self, $collection_id) = @_;
my $output =
$mojito->collection_page({ public => 1, id => $collection_id });
[ 200, [ 'Content-type' => 'text/html; charset=utf-8' ], [Encode::encode_utf8($output)] ];
},
sub ( GET + /collection/*/sort ) {
my ($self, $collection_id) = @_;
my $output = $mojito->sort_collection_form({ id => $collection_id });
[ 200, [ 'Content-type', 'text/html' ], [$output] ];
},
sub ( POST + /collection/*/sort + %* ) {
my ($self, $id, $params) = @_;
$params->{id} = $id;
my $redirect_url = $mojito->sort_collection($params);
[ 301, [ Location => $redirect_url ], [] ];
},
sub ( GET + /collection/*/page/* ) {
my ($self, $collection_id, $page_id) = @_;
my $params = {
collection_id => $collection_id,
page_id => $page_id
};
my $output = Encode::encode_utf8($mojito->view_page_collected($params));
[ 200, [ 'Content-type', 'text/html' ], [$output] ];
},
sub ( GET + /public/collection/*/page/* ) {
my ($self, $collection_id, $page_id) = @_;
my $params = {
public => 1,
collection_id => $collection_id,
page_id => $page_id
};
my $output = Encode::encode_utf8($mojito->view_page_collected($params));
[ 200, [ 'Content-type', 'text/html' ], [$output] ];
},
sub ( GET + /collection/*/merge ) {
my ($self, $collection_id) = @_;
my $params = { collection_id => $collection_id, };
my $output = $mojito->merge_collection($params);
$output = Encode::encode_utf8($output);
[ 200, [ 'Content-type', 'text/html; charset=utf-8' ], [$output] ];
},
sub ( GET + /collection/*/delete ) {
my ($self, $collection_id) = @_;
my $redirect_url =
$mojito->delete_collection({ collection_id => $collection_id });
[ 301, [ Location => $redirect_url ], [] ];
},
sub ( GET + /collection/*/epub ) {
my ($self, $collection_id) = (shift, shift);
my $output =
$mojito->epub_collection({ collection_id => $collection_id });
[
200,
[
'Content-type' => 'application/octet-stream',
'Content-Disposition' =>
"attachment; filename=collection_${collection_id}.epub",
],
[$output]
];
},
sub ( POST + /publish + %* ) {
my ($self, $params) = @_;
my $response_href = $mojito->publish_page($params);
my $JSON_response = JSON::encode_json($response_href);
[ 200, [ 'Content-type', 'application/json' ], [$JSON_response] ];
},
sub ( GET + /calendar ) {
[ 200, ['Content-type' => 'text/html; charset=utf-8'], [Encode::encode_utf8($mojito->calendar_month_page)] ];
},
sub ( GET + /calendar/year/*/month/* ) {
my ($self, $year, $month) = @_;
my $params;
$params->{year} = $year;
$params->{month} = $month;
my $output = $mojito->calendar_month_page($params);
$output = Encode::encode_utf8($output);
[ 200, ['Content-type', 'text/html; charset=utf-8'], [$output] ];
},
sub (GET + /hola/* ) {
my ($self, $name) = @_;
[ 200, [ 'Content-type', 'text/plain' ], ["Ola $name"] ];
},
sub (GET + /) {
my ($self) = @_;
[ 200, [ 'Content-type', 'text/html; charset=utf-8' ], [ Encode::encode_utf8($mojito->view_home_page) ] ];
},
sub ( GET + /public/feed/*/format/* ) {
my ($self, $feed_name, $feed_format) = @_;
my $params;
$params->{feed_name} = $feed_name;
$params->{feed_format} = $feed_format;
if (my $output = $mojito->feed_page($params)) {
return [ 200, [ 'Content-type' => 'application/atom+xml' ], [$output] ];
}
else {
return [ 200, [ 'Content-type' => 'text/html' ], ['No Feed Found'] ];
}
},
sub (GET + /public/feed/*) {
my ($self, $feed) = @_;
[
200,
[ 'Content-type' => 'text/html; charset=utf-8' ],
[ Encode::encode_utf8($mojito->get_feed_links($feed)) ]
];
},
sub (GET) {
[ 200, [ 'Content-type', 'text/plain' ], ['Hola world!'] ];
},
sub () {
[ 405, [ 'Content-type', 'text/plain' ], ['Method not allowed'] ];
},;
}
# Wrap in middleware here.
around 'to_psgi_app', sub {
my ($orig, $self) = (shift, shift);
my $app = $self->$orig(@_);
my $config = Mojito::Model::Config->new->config;
my $auth = Mojito::Auth->new(config => $config) ;
builder {
enable_if { $_[0]->{PATH_INFO} !~ m/^\/(?:public|favicon.ico)/ }
"Auth::Digest",
realm => "Mojito",
secret => $auth->_secret,
password_hashed => 1,
authenticator => $auth->digest_authen_cb;
enable "+Mojito::Middleware", config => $config;
$app;
};
};
__PACKAGE__->run_if_script;