NAME

cvthtm

SUMMARY

Run as:

    cvthtm *.ht

or:

    cvthtm *.htm

SYNOPSIS

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
       {

AUTHOR

Peter Prymmer pvhp@lns62.lns.cornell.edu