zakarya/puzzles
1
0
Fork 0
mirror of git://git.tartarus.org/simon/puzzles.git synced 2025-04-20 23:51:29 -07:00
Code Issues Packages Projects Releases Wiki Activity

Script to autogenerate pieces of the web page.

Browse Source 
This should simplify the process of adding a new puzzle, by automating
the part where I have to manually edit index.html separately from the
main build step.
This commit is contained in:
Simon Tatham
2015-01-13 20:04:18 +00:00
parent e3a8e64812
commit 7cf7e37d65
3 changed files with 80 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

69
webpage.pl Executable file
View File

@ -0,0 +1,69 @@
#!/usr/bin/perl
# Construct the two pieces of my main puzzle collection web page that
# need to vary with the set of puzzles: the big list of <span>s with
# puzzle pictures and links etc, and the list of Windows executable
# files down in the downloads section.
use strict;
use warnings;
use HTML::Entities;
open my $desc, "<", "gamedesc.txt"
or die "gamedesc.txt: open: $!\n";
open my $spans, ">", "wwwspans.html"
or die "wwwspans.html: open: $!\n";
open my $links, ">", "wwwlinks.html"
or die "wwwspans.html: open: $!\n";
my $n = 0;
while (<$desc>) {
chomp;
my ($id, $win, $displayname, $description, $summary) = split /:/, $_;
printf $spans
'<span class="puzzle"><table>'.
'<tr><th align="center">%s</th></tr>'.
'<tr><td align="center">'.
'<image style="margin: 0.5em" alt="" title="%s" width=150 height=150 border=0 src="%s-web.png" />'.
'</td></tr>'.
'<tr><td align="center" style="font-size: 70%%"><code>[</code>'.
'<a href="java/%s.html">java</a>'.
'|'.
'<a href="js/%s.html">js</a>'.
'|'.
'<a href="doc/%s.html#%s">manual</a>'.
'<code>]</code><br><code>[</code>'.
'<a href="%s"><code>%s</code></a>'.
'<code>]</code></td></tr>'.
'<tr><td align="center">%s</td></tr></table></span>'.
"\n",
encode_entities($displayname),
encode_entities($description),
encode_entities($id),
encode_entities($id),
encode_entities($id),
encode_entities($id),
encode_entities($id),
encode_entities($win),
encode_entities($win),
encode_entities($summary);
if ($n > 0) {
if ($n % 5 == 0) {
print $links "<br />";
} else {
print $links " | ";
}
}
printf $links '<a href="%s">%s</a>',
encode_entities($win), encode_entities($win);
$n++;
}
close $desc;
close $spans;
close $links;