#!/usr/freeware/bin/perl
######################################################################
# Creates a document tree from the installed Persistent classes.
######################################################################

use Pod::Html;

### copy the pod/pm directory structure over ###

print "----------------------------------------\n";
print "Copying POD source tree over...\n";
print "----------------------------------------\n";
`cp -r /usr/freeware/lib/perl5/site_perl/5.005/Persistent* .`;

### convert the POD to HTML ###

print "----------------------------------------\n";
print "Converting POD to HTML...\n";
print "----------------------------------------\n";

pod2html("--podpath=.",
	 "--podroot=.",
	 "--htmlroot=.",
	 "--recurse",
	 "--infile=Persistent.pod",
	 "--outfile=Persistent.html");

chdir 'Persistent';
foreach my $file (<*.pm>) {
  my($basename, $ext) = split(/\./, $file);
  pod2html("--podpath=.",
	   "--podroot=..",
	   "--htmlroot=..",
	   "--recurse",
	   "--infile=${basename}.pm",
	   "--outfile=${basename}.html");
}

chdir 'DataType';
foreach my $file (<*.pm>) {
  my($basename, $ext) = split(/\./, $file);
  pod2html("--podpath=.",
	   "--podroot=../..",
	   "--htmlroot=../..",
	   "--recurse",
	   "--libpods=perlfunc",
	   "--infile=${basename}.pm",
	   "--outfile=${basename}.html");
}

### remove the pod/pm files ###

print "----------------------------------------\n";
print "Removing POD source...\n";
print "----------------------------------------\n";

unlink <*.pm>;
unlink <pod2html-*>;
chdir '..';
unlink <*.pm>;
unlink <pod2html-*>;
chdir '..';
unlink <*.pod>;
unlink <pod2html-*>;

### clean up the generated HTML ###

print "----------------------------------------\n";
print "Cleaning up generated HTML...\n";
print "----------------------------------------\n";

clean_up_html_in_cur_dir();
chdir 'Persistent';
clean_up_html_in_cur_dir();
chdir 'DataType';
clean_up_html_in_cur_dir();

### cleans up the HTML in a file ###
sub clean_up_html_in_cur_dir {

  foreach my $file (<*.html>) {
    open(IN, "<$file") or die "Can't open $file: $!";
    open(OUT, ">$file.NEW") or die "Can't open $file.NEW: $!";

    foreach (<IN>) {
      s/>the (\w+) manpage</>$1</g;
      s/>Base</>Persistent::Base</g;
      s/>DBI</>Persistent::DBI</g;
      s/>DBM</>Persistent::DBM</g;
      s/>File</>Persistent::File</g;
      s/>LDAP</>Persistent::LDAP</g;
      s/>Memory</>Persistent::Memory</g;
      s/>MySQL</>Persistent::MySQL</g;
      s/>Oracle</>Persistent::Oracle</g;
      s/>Sybase</>Persistent::Sybase</g;
      s/>mSQL</>Persistent::mSQL</g;
      s/>DataType::Base</>Persistent::DataType::Base</g;
      s/>DataType::Char</>Persistent::DataType::Char</g;
      s/>DataType::DateTime</>Persistent::DataType::DateTime</g;
      s/>DataType::Number</>Persistent::DataType::Number</g;
      s/>DataType::String</>Persistent::DataType::String</g;
      s/>DataType::VarChar</>Persistent::DataType::VarChar</g;
      s/DataType_(\w+).html/DataType\/$1.html/g;
      print OUT $_;
    }

    close(OUT);
    close(IN);

    `mv $file.NEW $file`;
  }
}