chiark / gitweb /
wip
authorIan Jackson <ijackson@chiark.greenend.org.uk>
Wed, 29 Aug 2012 23:11:54 +0000 (00:11 +0100)
committerIan Jackson <ijackson@chiark.greenend.org.uk>
Wed, 29 Aug 2012 23:11:54 +0000 (00:11 +0100)
mason/dhandler [new file with mode: 0644]
mason/main [changed mode: 0644->0755]

diff --git a/mason/dhandler b/mason/dhandler
new file mode 100644 (file)
index 0000000..cd57e56
--- /dev/null
@@ -0,0 +1,13 @@
+<%perl>
+my $arg= $m->dhandler_arg;
+if ($arg =~ m,^/?$,) {
+        $m->redirect('main');
+} else {
+        $r->header_out('Status','404 Not found');
+</%perl>
+<html><head><title>Page not found - AWAYMSG</title></head><body>
+<h1>404 AWAYMSG component not found</h1>
+<% $arg |h %>
+<%perl>
+}
+</%perl>
old mode 100644 (file)
new mode 100755 (executable)