word.plp

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