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>