From c86c8f751b827d8b87b2b799f9f65a7e3f5f5a60 Mon Sep 17 00:00:00 2001 From: Ian Jackson Date: Thu, 30 Aug 2012 00:11:54 +0100 Subject: [PATCH] wip --- mason/dhandler | 13 +++++++++++++ mason/main | 0 2 files changed, 13 insertions(+) create mode 100644 mason/dhandler mode change 100644 => 100755 mason/main 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 -- 2.30.2