<(common.inc.plp)><:
my ($name) = $Request ? $Request =~ m{\A(\w+)} : 'finder';
if (-e (my $page = "word/$name.plp")) {
utf8::downgrade($page); # unicode filename breaks contents encoding
Include $page;
}
elsif (-e "word/$name.js") {
Html({
raw => join("\n",
(map {qq()}
'put.min.js', 'quiz.js', "$name.js",
),
(map {qq()}
grep {-e} "word/$name.css"
),
),
});
say 'Words
';
say '';
say "";
}
else {
Html();
say 'Words
';
die ["Page $name
not found"];
}