diff options
| author | Fred Drake <fdrake@acm.org> | 1998-11-30 19:25:47 (GMT) |
|---|---|---|
| committer | Fred Drake <fdrake@acm.org> | 1998-11-30 19:25:47 (GMT) |
| commit | 15796f791a67c25cbb630ac4af98a6fe9f9615cf (patch) | |
| tree | fa6684f7d0d31b3a7c3ed418046bbad494312735 | |
| parent | d83c8bd95f6999e550fb37f18cc9e67c1dfb858e (diff) | |
| download | cpython-15796f791a67c25cbb630ac4af98a6fe9f9615cf.zip cpython-15796f791a67c25cbb630ac4af98a6fe9f9615cf.tar.gz cpython-15796f791a67c25cbb630ac4af98a6fe9f9615cf.tar.bz2 | |
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.
| -rw-r--r-- | Doc/perl/l2hinit.perl | 25 |
1 files changed, 13 insertions, 12 deletions
diff --git a/Doc/perl/l2hinit.perl b/Doc/perl/l2hinit.perl index 301343b..ee2ab03 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 © 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 |