summaryrefslogtreecommitdiffstats
path: root/lib/Narwhal/Component/Wiki.pm
diff options
context:
space:
mode:
Diffstat (limited to 'lib/Narwhal/Component/Wiki.pm')
-rw-r--r--lib/Narwhal/Component/Wiki.pm12
1 files changed, 10 insertions, 2 deletions
diff --git a/lib/Narwhal/Component/Wiki.pm b/lib/Narwhal/Component/Wiki.pm
index e2a8ea7..1139301 100644
--- a/lib/Narwhal/Component/Wiki.pm
+++ b/lib/Narwhal/Component/Wiki.pm
@@ -8,8 +8,16 @@ sub page {
my ($req, $page_name) = @_;
my $page = $self->lookup("page:$page_name");
- return $req->new_response(404)
- unless $page;
+ if (!$page) {
+ my $res = $req->new_response(303);
+ $res->location(
+ $req->uri_for({
+ action => 'edit',
+ page_name => $page_name,
+ })
+ );
+ return $res;
+ }
$self->render(
$req,