X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/c6d80876bdce00b6e71600f83b58e0afcb481495..d043a71299c0087b674fbd7a8cf3525f06458868:/word.plp
diff --git a/word.plp b/word.plp
index 40cc889..f47c4f4 100644
--- a/word.plp
+++ b/word.plp
@@ -1,6 +1,19 @@
<(common.inc.plp)><:
-my $wordlist = 'wordlist.en.inc.pl';
+our $lang = $get{lang} || 'en';
+our $wordlistbase = "data/wordlist";
+
+if ($Request and $Request =~ m{\A([^/]+)}) {
+ my $page = "word/$1.plp";
+ utf8::downgrade($page); # unicode filename breaks contents encoding
+ if (-e $page) {
+ $wordlistbase .= ".$lang";
+ Include $page;
+ exit;
+ }
+}
+
+my $wordlist = "$wordlistbase.inc.pl";
my $limit = $get{v} // (exists $get{v} ? 4 : 3);
Html({
@@ -11,7 +24,28 @@ Html({
language
'],
data => [$wordlist],
- raw => <<'EOT',
+ raw => (exists $get{q} && <<'EOT')
+
+EOT
+ . <<'EOT',