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.

diff --git a/Doc/perl/l2hinit.perl b/Doc/perl/l2hinit.perl
index 301343b7e6429ff1049267436acab5499aacaf29..ee2ab030787174bfd7d17ac753cd3c6bf87a821b 100644 (file)
--- 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