summaryrefslogtreecommitdiff
path: root/apps/plugins/puzzles/html/jspage.pl
diff options
context:
space:
mode:
Diffstat (limited to 'apps/plugins/puzzles/html/jspage.pl')
-rwxr-xr-xapps/plugins/puzzles/html/jspage.pl120
1 files changed, 0 insertions, 120 deletions
diff --git a/apps/plugins/puzzles/html/jspage.pl b/apps/plugins/puzzles/html/jspage.pl
deleted file mode 100755
index 19868bd948..0000000000
--- a/apps/plugins/puzzles/html/jspage.pl
+++ /dev/null
@@ -1,120 +0,0 @@
1#!/usr/bin/perl
2
3use strict;
4use warnings;
5
6open my $footerfile, "<", shift @ARGV or die "footer: open: $!\n";
7my $footer = "";
8$footer .= $_ while <$footerfile>;
9close $footerfile;
10
11for my $arg (@ARGV) {
12 $arg =~ /(.*\/)?([^\/]+)\.html$/ or die;
13 my $filename = $2;
14 open my $gamefile, "<", $arg or die "$arg: open: $!\n";
15 my $unfinished = 0;
16 my $docname = $filename;
17 chomp(my $puzzlename = <$gamefile>);
18 while ($puzzlename =~ s/^([^:=]+)(=([^:]+))?://) {
19 if ($1 eq "unfinished") {
20 $unfinished = 1;
21 } elsif ($1 eq "docname") {
22 $docname = $3;
23 } else {
24 die "$arg: unknown keyword '$1'\n";
25 }
26 }
27 my $instructions = "";
28 $instructions .= $_ while <$gamefile>;
29 close $gamefile;
30
31 open my $outpage, ">", "${filename}.html";
32
33 my $unfinishedtitlefragment = $unfinished ? "an unfinished puzzle " : "";
34 my $unfinishedheading = $unfinished ? "<h2 align=center>an unfinished puzzle</h2>\n" : "";
35 my $unfinishedpara;
36 my $links;
37 if ($unfinished) {
38 $unfinishedpara = <<EOF;
39<p>
40You have found your way to a page containing an <em>unfinished</em>
41puzzle in my collection, not linked from the <a href="../">main
42puzzles page</a>. Don't be surprised if things are hard to understand
43or don't work as you expect.
44EOF
45 $links = <<EOF;
46<p align="center">
47<a href="../">Back to main puzzles page</a> (which does not link to this)
48EOF
49 } else {
50 $unfinishedpara = "";
51 $links = <<EOF;
52<p align="center">
53<a href="../doc/${docname}.html#${docname}">Full instructions</a>
54|
55<a href="../">Back to main puzzles page</a>
56EOF
57 }
58
59 print $outpage <<EOF;
60<!DOCTYPE html>
61<html>
62<head>
63<meta http-equiv="Content-Type" content="text/html; charset=ASCII" />
64<title>${puzzlename}, ${unfinishedtitlefragment}from Simon Tatham's Portable Puzzle Collection</title>
65<script type="text/javascript" src="${filename}.js"></script>
66</head>
67<body onLoad="initPuzzle();">
68<h1 align=center>${puzzlename}</h1>
69${unfinishedheading}
70<h2 align=center>from Simon Tatham's Portable Puzzle Collection</h2>
71
72${unfinishedpara}
73
74<hr>
75<div id="puzzle" style="display: none">
76<p align=center>
77 <input type="button" id="new" value="New game">
78 <input type="button" id="restart" value="Restart game">
79 <input type="button" id="undo" value="Undo move">
80 <input type="button" id="redo" value="Redo move">
81 <input type="button" id="solve" value="Solve game">
82 <input type="button" id="specific" value="Enter game ID">
83 <input type="button" id="random" value="Enter random seed">
84 <select id="gametype"></select>
85</p>
86<div align=center>
87 <div id="resizable" style="position:relative; left:0; top:0">
88 <canvas style="display: block" id="puzzlecanvas" width="1px" height="1px" tabindex="1">
89 </canvas>
90 <div id="statusbarholder" style="display: block">
91 </div>
92 </div>
93 <p>
94 Link to this puzzle:
95 <a id="permalink-desc">by game ID</a>
96 <a id="permalink-seed">by random seed</a>
97 </p>
98</div>
99</div>
100<div id="apology">
101Sorry, this Javascript puzzle doesn't seem to work in your web
102browser. Perhaps you have Javascript disabled, or perhaps your browser
103doesn't provide a feature that the puzzle code requires (such as
104<a href="https://developer.mozilla.org/en-US/docs/JavaScript/Typed_arrays">typed arrays</a>).
105These puzzles have been successfully run in Firefox 19, Chrome 26,
106Internet Explorer 10 and Safari 6.
107</div>
108<hr>
109
110${instructions}
111
112${links}
113
114${footer}
115</body>
116</html>
117EOF
118
119 close $outpage;
120}