chiark
/
gitweb
/
~yarrgweb
/
ypp-sc-tools.db-live.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
Fixups for Sage
[ypp-sc-tools.db-live.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>