diff options
author | Jesse Luehrs <doy@tozt.net> | 2011-02-17 18:57:19 -0600 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2011-02-17 18:57:19 -0600 |
commit | a7c37d5489611bf79889dd689abb0ac686d640c9 (patch) | |
tree | 68d9b965c581dcc049c36b5e6a5d9b877ff0312b /lib/Narwhal/Component/Wiki/Edit.pm | |
parent | 251066735d9b3392ba7ea35da2fc0d6cd896e3a1 (diff) | |
download | narwhal-a7c37d5489611bf79889dd689abb0ac686d640c9.tar.gz narwhal-a7c37d5489611bf79889dd689abb0ac686d640c9.zip |
refactor this a bit
Diffstat (limited to 'lib/Narwhal/Component/Wiki/Edit.pm')
-rw-r--r-- | lib/Narwhal/Component/Wiki/Edit.pm | 68 |
1 files changed, 68 insertions, 0 deletions
diff --git a/lib/Narwhal/Component/Wiki/Edit.pm b/lib/Narwhal/Component/Wiki/Edit.pm new file mode 100644 index 0000000..fabeb0c --- /dev/null +++ b/lib/Narwhal/Component/Wiki/Edit.pm @@ -0,0 +1,68 @@ +package Narwhal::Component::Wiki::Edit; +use Moose; + +has kioku => ( + isa => 'KiokuX::Model', + required => 1, + handles => 'KiokuDB::Role::API', +); + +has tt => ( + isa => 'Template', + required => 1, + handles => ['process'], +); + +has scope => ( + is => 'ro', + isa => 'KiokuDB::LiveObjects::Scope', + lazy => 1, + default => sub { shift->new_scope }, +); + +sub BUILD { + my $self = shift; + $self->scope; +} + +sub get { + my $self = shift; + my ($req, $page) = @_; + + my $page_obj = $self->lookup("page:$page"); + my $out; + $self->process( + 'edit.tt', + { + uri_for => sub { $req->uri_for({@_}) }, + text => ($page_obj ? $page_obj->text : ''), + page => $page + }, + \$out, + ); + return $req->new_response(200, [], $out); +} + +sub post { + my $self = shift; + my ($req, $page) = @_; + + my $page_obj = Narwhal::Page->new(text => $req->param('text')); + $self->txn_do(sub { + $self->delete("page:$page"); + $self->insert("page:$page" => $page_obj); + }); + my $res = $req->new_response(303); + $res->location( + $req->uri_for({ + action => 'page', + page_name => $page + }) + ); + return $res; +} + +__PACKAGE__->meta->make_immutable; +no Moose; + +1; |