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;
}
Html({
title => 'words cheat sheet',
version => '1.0',
+ lang => $lang,
description => "Visual words",
keywords => [qw'
language
sub showimg {
my ($id, $name) = @_;
my ($imgname) = $name =~ m{^([^/]+)};
- $name =~ s/\w{4} [^aoeuiyc\W] [rl]?+ \K (?= [^aoeuiy\W] [rl]? [aoeuiy] \w)/­/gx;
($name, my @morenames) = split m{/}, $name;
$name =~ s{\( ([^/]+) \)}{<small>$1</small>}x;
$name .= " <small>($_)</small>" for @morenames;