Make: Get SHELL from Autoconf

[empserver] / info / mktop.pl

diff --git a/info/mktop.pl b/info/mktop.pl
index 95730616cc743fcfa604446431b342a2ed1897bb..7e6c3d68e166c149f037c5d5423706c5f2b3e17e 100644 (file)
--- a/info/mktop.pl
+++ b/info/mktop.pl
@@ -1,51 +1,41 @@
 #!/usr/bin/perl
 #
-#  Empire - A multi-player, client/server Internet based war game.
-#  Copyright (C) 1986-2008, Dave Pare, Jeff Bailey, Thomas Ruschak,
-#                           Ken Stevens, Steve McClure
+#   Empire - A multi-player, client/server Internet based war game.
+#   Copyright (C) 1986-2020, Dave Pare, Jeff Bailey, Thomas Ruschak,
+#                 Ken Stevens, Steve McClure, Markus Armbruster
 #
-#  This program is free software; you can redistribute it and/or modify
-#  it under the terms of the GNU General Public License as published by
-#  the Free Software Foundation; either version 2 of the License, or
-#  (at your option) any later version.
+#   Empire is free software: you can redistribute it and/or modify
+#   it under the terms of the GNU General Public License as published by
+#   the Free Software Foundation, either version 3 of the License, or
+#   (at your option) any later version.
 #
-#  This program is distributed in the hope that it will be useful,
-#  but WITHOUT ANY WARRANTY; without even the implied warranty of
-#  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-#  GNU General Public License for more details.
+#   This program is distributed in the hope that it will be useful,
+#   but WITHOUT ANY WARRANTY; without even the implied warranty of
+#   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+#   GNU General Public License for more details.
 #
-#  You should have received a copy of the GNU General Public License
-#  along with this program; if not, write to the Free Software
-#  Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+#   You should have received a copy of the GNU General Public License
+#   along with this program.  If not, see <http://www.gnu.org/licenses/>.
 #
-#  ---
+#   ---
 #
-#  See files README, COPYING and CREDITS in the root of the source
-#  tree for related information and legal notices.  It is expected
-#  that future projects/authors will amend these files as needed.
+#   See files README, COPYING and CREDITS in the root of the source
+#   tree for related information and legal notices.  It is expected
+#   that future projects/authors will amend these files as needed.
 #
-#  ---
+#   ---
 #
-#  mktop.pl: Create the index of subjects
+#   mktop.pl: Create the index of subjects
 #
-#  Known contributors to this file:
-#     Ken Stevens (when it was still info.pl)
-#     Markus Armbruster, 2006
+#   Known contributors to this file:
+#      Ken Stevens (when it was still info.pl)
+#      Markus Armbruster, 2006-2013
 #
 
-# Usage: mktop.pl OUTFILE SUBJECT-INDEX-FILE...
-# The SUBJECT-INDEX-FILE... contain all the subject indexes.  Derive
-# the subjects from the file names, write the index to OUTFILE.  Only
-# the file names are used, the files aren't accessed.
+# Usage: mktop.pl OUTFILE SUBJECT...
 
 my $out = shift @ARGV;
-my @subject = ();
-for (@ARGV) {
-    /([^\/]*)\.t$/
-       or die "Strange subject file name";
-    push @subject, $1;
-}
-@subject = sort @subject;
+my @subject = sort @ARGV;
 
 open(TOP, ">$out")
     or die "Can't open $out: $!";