/ 
ptkFAQ-0_03
River stage zero No dependents
/ cvthtm

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