dhandler turns / into /lookup for us, and gives 404s too

[ypp-sc-tools.main.git] / yarrg / web / dhandler
diff --git a/yarrg/web/dhandler b/yarrg/web/dhandler

new file mode 100644 (file)

index 0000000..2cdb09c
--- /dev/null
+++ b/yarrg/web/dhandler
@@ -0,0 +1,13 @@
+<%perl>
+my $arg= $m->dhandler_arg;
+if ($arg =~ m,^/?$,) {
+       $m->redirect('lookup');
+} else {
+       $r->header_out('Status','404 Not found');
+</%perl>
+<html><head><title>Page not found - YARRG</title></head><body>
+<h1>404 YARRG component not found</h1>
+<% $arg |h %>
+<%perl>
+}
+</%perl>