diff options
Diffstat (limited to 'apps/plugins/puzzles/html/jspage.pl')
| -rwxr-xr-x | apps/plugins/puzzles/html/jspage.pl | 120 |
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 19868bd..0000000 --- a/apps/plugins/puzzles/html/jspage.pl +++ /dev/null @@ -1,120 +0,0 @@ -#!/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; -<!DOCTYPE html> -<html> -<head> -<meta http-equiv="Content-Type" content="text/html; charset=ASCII" /> -<title>${puzzlename}, ${unfinishedtitlefragment}from Simon Tatham's Portable Puzzle Collection</title> -<script type="text/javascript" src="${filename}.js"></script> -</head> -<body onLoad="initPuzzle();"> -<h1 align=center>${puzzlename}</h1> -${unfinishedheading} -<h2 align=center>from Simon Tatham's Portable Puzzle Collection</h2> - -${unfinishedpara} - -<hr> -<div id="puzzle" style="display: none"> -<p align=center> - <input type="button" id="new" value="New game"> - <input type="button" id="restart" value="Restart game"> - <input type="button" id="undo" value="Undo move"> - <input type="button" id="redo" value="Redo move"> - <input type="button" id="solve" value="Solve game"> - <input type="button" id="specific" value="Enter game ID"> - <input type="button" id="random" value="Enter random seed"> - <select id="gametype"></select> -</p> -<div align=center> - <div id="resizable" style="position:relative; left:0; top:0"> - <canvas style="display: block" id="puzzlecanvas" width="1px" height="1px" tabindex="1"> - </canvas> - <div id="statusbarholder" style="display: block"> - </div> - </div> - <p> - Link to this puzzle: - <a id="permalink-desc">by game ID</a> - <a id="permalink-seed">by random seed</a> - </p> -</div> -</div> -<div id="apology"> -Sorry, this Javascript puzzle doesn't seem to work in your web -browser. Perhaps you have Javascript disabled, or perhaps your browser -doesn't provide a feature that the puzzle code requires (such as -<a href="https://developer.mozilla.org/en-US/docs/JavaScript/Typed_arrays">typed arrays</a>). -These puzzles have been successfully run in Firefox 19, Chrome 26, -Internet Explorer 10 and Safari 6. -</div> -<hr> - -${instructions} - -${links} - -${footer} -</body> -</html> -EOF - - close $outpage; -} |