chiark / gitweb /
WIP improve intro etc. - howto page from Naath
[ypp-sc-tools.main.git] / yarrg / web / dhandler
1 <%perl>
2 my $arg= $m->dhandler_arg;
3 if ($arg =~ m,^/?$,) {
4         $m->redirect('lookup');
5 } else {
6         $r->header_out('Status','404 Not found');
7 </%perl>
8 <html><head><title>Page not found - YARRG</title></head><body>
9 <h1>404 YARRG component not found</h1>
10 <% $arg |h %>
11 <%perl>
12 }
13 </%perl>