info/Empire4.4: Improve a few change log entries

[empserver] / info / emp2html.pl
diff --git a/info/emp2html.pl b/info/emp2html.pl

index 7b7d82e787acb257996eee0f0efc04af20e5d676..768d6915db51875433aee0b50e6250284265fcf6 100644 (file)
--- a/info/emp2html.pl
+++ b/info/emp2html.pl
@@ -1,7 +1,7 @@
  #!/usr/bin/perl
  #
  #   Empire - A multi-player, client/server Internet based war game.
-#   Copyright (C) 1986-2013, Dave Pare, Jeff Bailey, Thomas Ruschak,
+#   Copyright (C) 1986-2021, Dave Pare, Jeff Bailey, Thomas Ruschak,
  #                 Ken Stevens, Steve McClure, Markus Armbruster
  #
  #   Empire is free software: you can redistribute it and/or modify
@@ -31,9 +31,10 @@
  #      Drake Diedrich, 1996
  #      Markus Armbruster, 2004-2013
  #
-# Usage: emp2html.pl [INFO-FILE]
+# Usage: emp2html.pl INFO...
  #
-# Convert INFO-FILE (or else standard input) to HTML on standard output.
+# Convert info source on standard input to HTML on standard output.
+# INFO... are the info page names.
  
  use strict;
  use warnings;
@@ -43,13 +44,18 @@ my $esc = "\\";
  my $ignore = 0;
  my $is_subj;
  my @a;
+my %topic;
+
+for (@ARGV) {
+    $topic{$_} = 1;
+}
  
  print "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.01//EN\"\n";
  print "   \"http://www.w3.org/TR/html4/strict.dtd\">\n";
  print "<html>\n";
  print "<head>\n";
  
-line: while (<>) {
+line: while (<STDIN>) {
      chomp;                     # strip record separator
      s/((^|[^\\])(\\\\)*)\\\".*/$1/g; # strip comments
  
@@ -162,8 +168,7 @@ sub checkarg {
  
  sub anchor {
      local ($_) = @_;
-    # FIXME don't create dangling links here
-    return "<a href=\"$_.html\">$_</a>";
+    return $topic{$_} ? "<a href=\"$_.html\">$_</a>" : $_;
  }
  
  # Translate HTML special characters into escape sequences
@@ -182,13 +187,18 @@ sub htmlify {
      s/\\e/&\#92;/g;            # escape character
      # turn quoted strings that look like info names into links
      # tacky...
+    my $pfx = "";
      while (/\\\*Q([A-Za-z0-9\-\.]+)\\\*U|\"info ([A-Za-z0-9\-\.]+)\"/) {
-       if (defined $1) {
-           $_ = $` . anchor($1) . "$'";
+       if (defined $1 && $topic{$1}) {
+           $pfx = $` . anchor($1);
+       } elsif (defined $2 && $topic{$2}) {
+           $pfx = "$`\"info " . anchor($2) . "\"";
         } else {
-           $_ = "$`\"info " . anchor($2) . "\"$'";
+           $pfx .= $` . $&;
         }
+       $_ = "$'";
      }
+    $_ = "$pfx$_";
      # tranlate more troff escapes and strings
      s/\\\*Q/<em>/g;
      s/\\\*U/<\/em>/g;