X-Git-Url: http://git.shiar.net/sheet.git/blobdiff_plain/5ba01432d80e839e2c6240717225017635cba28f..8cd8b696d867095b360be613130d8207cb68d992:/word.plp

diff --git a/word.plp b/word.plp
index 6b42866..a3be917 100644
--- a/word.plp
+++ b/word.plp
@@ -4,13 +4,25 @@ 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
+	my $name = $1;
+	my $page = "word/$name.plp";
+	$wordlistbase .= ".$lang";
 	if (-e $page) {
-		$wordlistbase .= ".$lang";
+		utf8::downgrade($page); # unicode filename breaks contents encoding
 		Include $page;
-		exit;
 	}
+	else {
+		Html({
+			raw => join("\n", map qq(<script src="/word/$_"></script>),
+				'put.min.js', 'quiz.js', "$name.js",
+			),
+			lang => $lang,
+		});
+		say '<h1>Words</h1>';
+		say '<section id="gallery"></section>';
+		say "<script>new Word\u$name('/$wordlistbase.json')</script>";
+	}
+	exit;
 }
 
 my $limit = $get{v} // (exists $get{v} ? 5 : 3);