if ($Request and $Request =~ m{\A([^/]+)}) {
my $name = $1;
my $page = "word/$name.plp";
- $wordlistbase .= ".$lang";
if (-e $page) {
utf8::downgrade($page); # unicode filename breaks contents encoding
Include $page;
});
say '<h1>Words</h1>';
say '<section id="gallery"></section>';
- say "<script>new Word\u$name('/$wordlistbase.json')</script>";
+ say "<script>new Word\u$name()</script>";
}
exit;
}