#!/usr/bin/perl -w

use strict;
my @files = qw( 
             CHANGED TODO
	     Bunch Thing Item 
             Angle Coord Size
             Light		 
             Dromed/Constants Misc
             Property Link Object Brush Flow Room Texture Cell Decal
	     Architecture/Frame
           );
my $path = "/home/te/internet/thief/cow/oo";
# my $path = "./oo";
my $file;

foreach (@files)
  {
  $file = $_; $file =~ s/\.[^.]+$//; $file .= ".html"; 
  $_ .= ".pm" if $_ =~ /[a-z]/; 			# not for DOCFILES
  print "at $_\n";
  `pod2html --htmlroot=./ --podpath=. --infile=$_ --outfile=$path/$file`;
  }

unlink 'pod2htmd.x~~';
unlink 'pod2htmi.x~~';
