summaryrefslogtreecommitdiffstats
path: root/Doc/perl/l2hinit.perl
diff options
context:
space:
mode:
authorFred Drake <fdrake@acm.org>1998-11-30 19:25:47 (GMT)
committerFred Drake <fdrake@acm.org>1998-11-30 19:25:47 (GMT)
commit15796f791a67c25cbb630ac4af98a6fe9f9615cf (patch)
treefa6684f7d0d31b3a7c3ed418046bbad494312735 /Doc/perl/l2hinit.perl
parentd83c8bd95f6999e550fb37f18cc9e67c1dfb858e (diff)
downloadcpython-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.
Diffstat (limited to 'Doc/perl/l2hinit.perl')
-rw-r--r--Doc/perl/l2hinit.perl25
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 &#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