(common.inc.plp)><:
if ($Request and $Request =~ s{^edit/?}{}) {
Include 'writer.plp';
exit;
}
if ($Request and $Request =~ s{^quiz/?}{}) {
Html({
raw => <<'EOT',
EOT
});
say '
quiz
test
';
exit;
}
my $lang = $get{lang} || 'en';
my $wordlist = "data/wordlist.$lang.inc.pl";
my $limit = $get{v} // (exists $get{v} ? 4 : 3);
Html({
title => 'words cheat sheet',
version => '1.0',
description => "Visual words",
keywords => [qw'
language
'],
data => [$wordlist],
raw => (exists $get{q} && <<'EOT')
EOT
. <<'EOT',
EOT
});
if (exists $get{debug}) {
say '';
}
:>