chiark / gitweb /
Fix up search too long error message - really fix up
[ypp-sc-tools.main.git] / yarrg / web / dhandler
1 <%perl>
2 my $arg= $m->dhandler_arg;
3 if ($arg =~ m,^/?$,) {
4         $m->redirect('intro');
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>