From: Ian Jackson Date: Wed, 29 Aug 2012 23:11:54 +0000 (+0100) Subject: wip X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ian/git?p=nj-awaymsg.git;a=commitdiff_plain;h=c86c8f751b827d8b87b2b799f9f65a7e3f5f5a60 wip --- diff --git a/mason/dhandler b/mason/dhandler new file mode 100644 index 0000000..cd57e56 --- /dev/null +++ b/mason/dhandler @@ -0,0 +1,13 @@ +<%perl> +my $arg= $m->dhandler_arg; +if ($arg =~ m,^/?$,) { + $m->redirect('main'); +} else { + $r->header_out('Status','404 Not found'); + +Page not found - AWAYMSG +

404 AWAYMSG component not found

+<% $arg |h %> +<%perl> +} + diff --git a/mason/main b/mason/main old mode 100644 new mode 100755