diff options
| author | Simon Tatham <anakin@pobox.com> | 2013-03-30 20:04:10 +0000 |
|---|---|---|
| committer | Simon Tatham <anakin@pobox.com> | 2013-03-30 20:04:10 +0000 |
| commit | e2c84a5fd2b1ca6d3d8be0279466079b35b6c189 (patch) | |
| tree | 59ff27ef2ca442ba15fa855f900a7f8ec1d1a59d /html/javapage.pl | |
| parent | 6920d97c0977a77be869ecfa1ae933eaaf131e90 (diff) | |
| download | puzzles-e2c84a5fd2b1ca6d3d8be0279466079b35b6c189.zip puzzles-e2c84a5fd2b1ca6d3d8be0279466079b35b6c189.tar.gz puzzles-e2c84a5fd2b1ca6d3d8be0279466079b35b6c189.tar.bz2 puzzles-e2c84a5fd2b1ca6d3d8be0279466079b35b6c189.tar.xz | |
Introduce a mechanism in this source tree for building the container
web pages for the Java applets. Previously, those have all been
maintained by hand in my website's svn area, which is a bit silly. Now
we have a file per puzzle in the 'html' subdirectory which contains
the puzzle's name, one or two attributes, and the instructions snippet
to go below the puzzle applet; and then there's a Perl script that
builds all the real web pages out of that by adding in the parts
common across all files: the header, footer, and middle fragment with
the <applet> tag and resizing bits and pieces.
One piece _not_ checked in here is the footer text specific to my
hosting at chiark, which I think does still belong in the www area. So
Buildscr doesn't actually build the web pages; it just delivers the
bits and pieces by which my nightly snapshot script will be able to
run the program that _does_ build them, passing that footer as an
extra argument.
[originally from svn r9780]
Diffstat (limited to 'html/javapage.pl')
| -rw-r--r-- | html/javapage.pl | 104 |
1 files changed, 104 insertions, 0 deletions
diff --git a/html/javapage.pl b/html/javapage.pl new file mode 100644 index 0000000..cd5e6a1 --- /dev/null +++ b/html/javapage.pl @@ -0,0 +1,104 @@ +#!/usr/bin/perl + +use strict; +use warnings; + +open my $footerfile, "<", shift @ARGV or die "footer: open: $!\n"; +my $footer = ""; +$footer .= $_ while <$footerfile>; +close $footerfile; + +for my $arg (@ARGV) { + $arg =~ /(.*\/)?([^\/]+)\.html$/ or die; + my $filename = $2; + open my $gamefile, "<", $arg or die "$arg: open: $!\n"; + my $unfinished = 0; + my $docname = $filename; + chomp(my $puzzlename = <$gamefile>); + while ($puzzlename =~ s/^([^:=]+)(=([^:]+))?://) { + if ($1 eq "unfinished") { + $unfinished = 1; + } elsif ($1 eq "docname") { + $docname = $3; + } else { + die "$arg: unknown keyword '$1'\n"; + } + } + my $instructions = ""; + $instructions .= $_ while <$gamefile>; + close $gamefile; + + open my $outpage, ">", "${filename}.html"; + + my $unfinishedtitlefragment = $unfinished ? "an unfinished puzzle " : ""; + my $unfinishedheading = $unfinished ? "<h2 align=center>an unfinished puzzle</h2>\n" : ""; + my $unfinishedpara; + my $links; + if ($unfinished) { + $unfinishedpara = <<EOF; +<p> +You have found your way to a page containing an <em>unfinished</em> +puzzle in my collection, not linked from the <a href="../">main +puzzles page</a>. Don't be surprised if things are hard to understand +or don't work as you expect. +EOF + $links = <<EOF; +<p align="center"> +<a href="../">Back to main puzzles page</a> (which does not link to this) +EOF + } else { + $unfinishedpara = ""; + $links = <<EOF; +<p align="center"> +<a href="../doc/${docname}.html#${docname}">Full instructions</a> +| +<a href="../">Back to main puzzles page</a> +EOF + } + + print $outpage <<EOF; +<html> +<head> +<title>${puzzlename}, ${unfinishedtitlefragment}from Simon Tatham's Portable Puzzle Collection</title> +<link rel="stylesheet" type="text/css" href="../../sitestyle.css" name="Simon Tatham's Home Page Style"> +<script type="text/javascript" src="resize-puzzle-applet.js"></script> +</head> +<body onLoad="initResizablePuzzleApplet();"> +<h1 align=center>${puzzlename}</h1> +${unfinishedheading} +<h2 align=center>from Simon Tatham's Portable Puzzle Collection</h2> + +${unfinishedpara} + +<p align="center"> +<table cellpadding="0"> +<tr> +<td> +<applet id="applet" archive="${filename}.jar" code="PuzzleApplet" + width="700" height="500"> +</applet> +</td> +<td> +<div id="eresize" style="width:5px;height:500px;cursor:e-resize;"></div> +</td> +</tr> +<td> +<div id="sresize" style="width:700px;height:5px;cursor:s-resize;"></div> +</td> +<td> +<div id="seresize" style="width:5px;height:5px;cursor:se-resize;"></div> +</td> +</tr> +</table> + +${instructions} + +${links} + +${footer} +</body> +</html> +EOF + + close $outpage; +} |