word.plp

   1 <(common.inc.plp)><:
   2
   3 my ($name) = $Request ? $Request =~ m{\A(\w+)} : 'finder';
   4 if (-e (my $page = "word/$name.plp")) {
   5         utf8::downgrade($page); # unicode filename breaks contents encoding
   6         Include $page;
   7 }
   8 elsif (-e "word/$name.js") {
   9         Html({
  10                 raw => join("\n",
  11                         (map {qq(<script src="/word/$_"></script>)}
  12                                 'put.min.js', 'quiz.js', "$name.js",
  13                         ),
  14                         (map {qq(<link rel="stylesheet" type="text/css" href="/$_">)}
  15                                 grep {-e} "word/$name.css"
  16                         ),
  17                 ),
  18         });
  19         say '<h1>Words</h1>';
  20         say '<section id="quiz"></section>';
  21         say "<script>new Word\u$name()</script>";
  22 }
  23 else {
  24         Html();
  25         say '<h1>Words</h1>';
  26         die ["Page <q>$name</q> not found"];
  27 }