From 15796f791a67c25cbb630ac4af98a6fe9f9615cf Mon Sep 17 00:00:00 2001
From: Fred Drake <fdrake@acm.org>
Date: Mon, 30 Nov 1998 19:25:47 +0000
Subject: [PATCH] do_cmd_textohtmlinfopage():  Rip out most of the boilerplate
 and move 	it to the about.dat file.  Only what really needs to be 
 generated is, and the remainder is easier to maintain than 	Perl code.

---
 Doc/perl/l2hinit.perl | 25 +++++++++++++------------
 1 file changed, 13 insertions(+), 12 deletions(-)

diff --git a/Doc/perl/l2hinit.perl b/Doc/perl/l2hinit.perl
index 301343b7e6..ee2ab03078 100644
--- a/Doc/perl/l2hinit.perl
+++ b/Doc/perl/l2hinit.perl
@@ -304,19 +304,20 @@ sub do_cmd_textohtmlinfopage {
     if ($INFO) {					# 
 	anchor_label("about",$CURRENT_FILE,$_);		# this is added
     }							#
-    ( ($INFO == 1)
-     ? join('', $close_all
-	, "<STRONG>$t_title</STRONG><P>\nThis document was generated using the\n"
-	, "<A HREF=\"$TEX2HTMLADDRESS\"><STRONG>LaTeX</STRONG>2<tt>HTML</tt></A>"
-	, " translator Version $TEX2HTMLVERSION\n"
-	, "<P>Copyright &#169; 1993, 1994, 1995, 1996, 1997,\n"
-	, "<A HREF=\"$AUTHORADDRESS\">Nikos Drakos</A>, \n"
-	, "Computer Based Learning Unit, University of Leeds.\n"
-	, "<P>The command line arguments were: <BR>\n "
-	, "<STRONG>latex2html</STRONG> <tt>$argv</tt>.\n"
-	, "<P>The translation was initiated by $address_data[0] on $address_data[1]"
+    my $the_version = '';				# and the rest is
+    if ($t_date) {					# mostly ours
+	$the_version = ",\n$t_date";
+	if ($PYTHON_VERSION) {
+	    $the_version .= ", Release $PYTHON_VERSION";
+	}
+    }
+    $_ = (($INFO == 1)
+      ? join('', $close_all
+	, "<strong>$t_title</strong>$the_version\n"
+	, `cat $myrootdir${dd}html${dd}about.dat`
 	, $open_all, $_)
-      : join('', $close_all, $INFO,"\n", $open_all, $_))
+      : join('', $close_all, $INFO,"\n", $open_all, $_));
+    $_;
 }
 
 # $idx_mark will be replaced with the real index at the end
-- 
2.50.0