expo/expoweb
1
0
Fork 0
mirror of https://expo.survex.com/repositories/expoweb/.git/ synced 2025-12-08 14:54:28 +00:00
Code Issues Packages Projects Releases Wiki Activity

QM refresh 3 perl scripts

Browse Source
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
Download Patch File Download Diff File Expand all files Collapse all files

12
1623/234/tablize-qms.pl
View File

@@ -2,6 +2,7 @@
use strict;
use Getopt::Long;
# 234 Hauchhöhle Question Mark list
((my $progname = $0) =~ s/^.*(\/|\\)//ig); # basename $0
# Parse options
@@ -26,13 +27,12 @@ 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" />
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<link rel="stylesheet" type="text/css" href="/css/main2.css" />
<title>1623/234 Question Mark List</title>
</head>
@@ -47,7 +47,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.html">here</a>.</p>
<h2>Area abbreviations</h2>