cvthtm
Run as:
cvthtm *.ht
or:
cvthtm *.htm
Program to convert [.ht|.htm] files to .html files and change all references from blah.[ht|htm] to blah.html.
This scripts builds on and extends the "cvtht" script posted by Mark Elston (elston@cave.arc.nasa.gov) to the ptk mailing list Thu, 21 Sep 1995 08:33:08 -0700. It also hopefully meets the spirit of the criticism of cvtht posted by James M. Stern (jstern@world.nad.northrop.com) Thu, 21 Sep 1995 10:05:58 -0700 (PDT). (No, it does not do a substitution only on <a href>nchors</a>, nor does it clean up the <a name="name">anchors</a>).
This should prove particularly useful with the documents that are distributed with various versions of Perl/Tk.
You can avoid using this script with Tk-b10 if you apply the following patch to Tk-b10/doc/man2html before running 'make' in the Tk-b10 directory:
*** man2html.orig Mon Mar 25 01:53:37 1996 --- man2html Mon Mar 25 02:49:59 1996 *************** *** 5,11 **** use Carp; use Getopt::Long; ! $opt_suffix = "htm"; $opt_tk = ""; GetOptions('suffix=s','tk','q'); --- 5,11 ---- use Carp; use Getopt::Long; ! $opt_suffix = "html"; $opt_tk = ""; GetOptions('suffix=s','tk','q'); *************** *** 19,25 **** { package HTML; use Carp; ! use Tk::Pretty; use strict qw(subs); $enabled = 0; --- 19,25 ---- { package HTML; use Carp; ! # use Tk::Pretty; use strict qw(subs); $enabled = 0; *************** *** 358,364 **** if (exists $obj->{'SECTIONS'}{$sec}) { my $name = $obj->{'SECTIONS'}{$sec}; ! $obj->tagged('H2',"<A NAME=$name>$arg</A>"); } else { --- 358,364 ---- if (exists $obj->{'SECTIONS'}{$sec}) { my $name = $obj->{'SECTIONS'}{$sec}; ! $obj->tagged('H2',"<A NAME=\"$name\">$arg</A>"); } else {
Peter Prymmer pvhp@lns62.lns.cornell.edu
To install ptkFAQ, copy and paste the appropriate command in to your terminal.
cpanm
cpanm ptkFAQ
CPAN shell
perl -MCPAN -e shell install ptkFAQ
For more information on module installation, please visit the detailed CPAN module installation guide.