QM refresh 3 perl scripts

This commit is contained in:
Philip Sargent
2021-12-30 14:56:05 +00:00
parent 40d307ba4c
commit ef5e5e9509
12 changed files with 782 additions and 39 deletions

View File

@@ -2,6 +2,7 @@
use strict;
use Getopt::Long;
# 258 Tunnocksschacht Question Mark list
((my $progname = $0) =~ s/^.*(\/|\\)//ig); # basename $0
# Parse options
@@ -26,19 +27,18 @@ open (CSV, "< $ARGV[0]");
# Start writing table file, and write table header
open TABLE, "> qm.html" or die $!;
print TABLE << "END";
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<!DOCTYPE html">
<!-- *** This file is auto-generated by $progname - edit $ARGV[0] instead -->
<html lang="en" xmlns="http://www.w3.org/1999/xhtml" xml:lang="en">
<html lang="en">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<link rel="stylesheet" type="text/css" href="../../css/main2.css" />
<title>1623/204 Question Mark List</title>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<link rel="stylesheet" type="text/css" href="/css/main2.css" />
<title>1623/258 Tunnocksschacht Question Mark List</title>
</head>
<body>
<h1>Tunnocksschacht Question Mark list</h1>
<h1>Tunnocksschacht Question Mark list (buggy!)</h1>
<div>
<a href="#qmextant">Extant QM's</a>
@@ -48,7 +48,7 @@ print TABLE << "END";
<hr />
<h2>Conventions</h2>
<p>For question mark list conventions, see <a href="../../qm.html">here</a>.</p>
<p>For question mark list conventions, see <a href="/handbook/survey/qm.htm">here</a>.</p>
<h2>Question Marks</h2>
@@ -149,7 +149,7 @@ $complete
<hr />
<ul>
<li><a href="204.html">Back to 258 index page</a></li>
<li><a href="258.html">Back to 258 index page</a></li>
<li><a href="../../smkridge.html#id258">Schwarzmooskogel ridge area index and description</a></li>
<li><a href="../../indxal.htm#id258">Full Index</a></li>
<li><a href="../../areas.htm">Other Areas</a></li>