3 # Construct the two pieces of my main puzzle collection web page that
4 # need to vary with the set of puzzles: the big list of <span>s with
5 # puzzle pictures and links etc, and the list of Windows executable
6 # files down in the downloads section.
12 open my $desc, "<", "gamedesc.txt"
13 or die "gamedesc.txt: open: $!\n";
15 open my $spans, ">", "wwwspans.html"
16 or die "wwwspans.html: open: $!\n";
18 open my $links, ">", "wwwlinks.html"
19 or die "wwwspans.html: open: $!\n";
24 my ($id, $win, $displayname, $description, $summary) = split /:/, $_;
27 '<span class="puzzle"><table>'.
28 '<tr><th align="center">%s</th></tr>'.
29 '<tr><td align="center">'.
30 '<a href="js/%s.html"><img style="margin: 0.5em" alt="" title="%s" width=150 height=150 border=0 src="%s-web.png" /></a>'.
32 '<tr><td align="center" style="font-size: 70%%"><code>[</code>'.
33 ' <a href="java/%s.html">java</a> '.
35 ' <a href="js/%s.html">js</a> '.
37 ' <a href="doc/%s.html#%s">manual</a> '.
38 '<code>]</code><br><code>[</code>'.
39 ' <a href="%s"><code>%s</code></a> '.
40 '<code>]</code></td></tr>'.
41 '<tr><td align="center">%s</td></tr></table></span>'.
43 encode_entities($displayname),
45 encode_entities($description),
51 encode_entities($win),
52 encode_entities($win),
53 encode_entities($summary);
57 print $links "<br />";
62 printf $links '<a href="%s">%s</a>',
63 encode_entities($win), encode_entities($win);