diff --git a/pod_doc_tools/HTMLDocs.pm b/pod_doc_tools/HTMLDocs.pm
new file mode 100644
index 0000000..65a1c99
--- /dev/null
+++ b/pod_doc_tools/HTMLDocs.pm
@@ -0,0 +1,401 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+package WeBWorK::Utils::HTMLDocs;
+
+use File::Find;
+use File::Temp qw(tempfile);
+use IO::File;
+use Pod::Find qw(pod_find simplify_name contains_pod);
+use Pod::Html;
+#use Pod::PP;
+use POSIX qw(strftime);
+use Data::Dumper;
+
+our @sections = (
+ '/' => "(root)",
+ bin => "Scripts",
+ conf => "Config Files",
+ doc => "Documentation",
+ lib => "Libraries",
+ macros => "Macros",
+ clients => "Clients",
+);
+
+sub new {
+ my ($invocant, %o) = @_;
+ my $class = ref $invocant || $invocant;
+
+ my @section_list = exists $o{sections} ? @{$o{sections}} : @sections;
+ my $section_hash = {@section_list};
+ my $section_order = [ map { $section_list[2*$_] } 0..$#section_list/2 ];
+ delete $o{sections};
+
+ my $self = {
+ %o,
+ idx => {},
+ section_hash => $section_hash,
+ section_order => $section_order,
+ };
+ return bless $self, $class;
+}
+
+sub convert_pods {
+ my $self = shift;
+ my $source_root = $self->{source_root};
+ my $dest_root = $self->{dest_root};
+ my $subdirs = do {
+ my $dh;
+ opendir $dh, $source_root;
+ join ':',
+ grep { not (/^\./ or /^(CVS|.svn)$/) and -d "$source_root/$_" }
+ readdir $dh;
+ };
+ $self->{subdirs} = $subdirs;
+
+ find({wanted => $self->gen_pod_wanted, no_chdir => 1}, $source_root);
+ $self->write_index("$dest_root/index.html");
+}
+
+sub gen_pod_wanted {
+ my $self = shift;
+ return sub {
+ my $path = $File::Find::name;
+ my $dir = $File::Find::dir;
+ my ($name) = $path =~ m|^$dir(?:/(.*))?$|;
+ $name = '' unless defined $name;
+
+ if ($name =~ /^\./) {
+ $File::Find::prune = 1;
+ return;
+ }
+ unless (-f $path or -d $path) {
+ $File::Find::prune = 1;
+ return;
+ }
+ if (-d _ and $name =~ /^(CVS|RCS|.svn)$/) {
+ $File::Find::prune = 1;
+ return;
+ }
+
+ return if -d _;
+ return unless contains_pod($path);
+ $self->process_pod($path);
+ };
+}
+
+sub process_pod {
+ my ($self, $pod_path) = @_;
+ my $source_root = $self->{source_root};
+ my $dest_root = $self->{dest_root};
+ my $dest_url = $self->{dest_url};
+ my $subdirs = $self->{subdirs};
+
+ my $pod_name;
+
+ my ($subdir, $filename) = $pod_path =~ m|^$source_root/(?:(.*)/)?(.*)$|;
+ my ($subdir_first, $subdir_rest);
+ print "subdir_first: $subdir_first\n";
+ print "subdir_rest: $subdir_rest\n";
+ if (defined $subdir) {
+ if ($subdir =~ m|/|) {
+ ($subdir_first, $subdir_rest) = $subdir =~ m|^([^/]*)/(.*)|;
+ } else {
+ $subdir_first = $subdir;
+ }
+ }
+ $pod_name = (defined $subdir_rest ? "$subdir_rest/" : "") . $filename;
+ if ($filename =~ /\.(plx?|pg)$/ or $filename !~ /\./) {
+ $filename .= '.html';
+ } elsif ($filename =~ /\.pod$/) {
+ $pod_name =~ s/\.pod$//;
+ $filename =~ s/\.pod$/.html/;
+ } elsif ($filename =~ /\.pm$/) {
+ $pod_name =~ s/\.pm$//;
+ $pod_name =~ s|/+|::|g;
+ $filename =~ s/\.pm$/.html/;
+ }
+ my $html_dir = defined $subdir ? "$dest_root/$subdir" : $dest_root;
+ my $html_path = "$html_dir/$filename";
+ my $html_rel_path = defined $subdir ? "$subdir/$filename" : $filename;
+
+ # deal with potential
+ if (not defined $subdir) {
+ my $source_root_last = $source_root;
+ $source_root_last =~ s|^.*/||;
+ if ($source_root_last =~ /^(.+)_(.+?)(?:--(.*))?$/) {
+ my ($module, $version, $extra) = ($1, $2, $3);
+ $subdir = $extra; # the subdir is appended to the dir name
+ } else {
+ $subdir = '/'; # fake subdir for "things in the root"
+ }
+ }
+ $self->update_index($subdir, $html_rel_path, $pod_name);
+ #my $podpp_path = do_podpp($pod_path);
+ do_mkdir($html_dir);
+ do_pod2html(
+ subdirs => $subdirs,
+ source_root => $source_root,
+ dest_root => $dest_root,
+ dest_url => $dest_url,
+ pod_path => $pod_path,
+ html_path => $html_path,
+ );
+ #unlink $podpp_path;
+ # postprocess HTML to add SSI tags for header and footer
+ $self->postprocess_pod($html_path);
+}
+
+sub postprocess_pod {
+ my ($self, $file) = @_;
+ my $fh = new IO::File($file, 'r+')
+ or die "Failed to open file '$file' for reading/writing: $!\n";
+ my $title;
+ my $text = "";
+ my $in_body = 0;
+ while (my $line = <$fh>) {
+ if ($in_body) {
+ if ($line =~ /^\s*<\/body>\s*$/) {
+ $in_body = 0;
+ next;
+ }
+ if ($line =~ /^\s*
\s*$/) {
+ next;
+ }
+ $text .= $line;
+ } else {
+ if ($line =~ /^\s*\s*$/) {
+ $in_body = 1;
+ next;
+ }
+ if ($line =~ /\s*(.*)<\/title>.*$/) {
+ $title = $1;
+ }
+ elsif ($file =~ /\/(w+)\.html$/) {
+ $title = $1;
+ }
+ }
+ }
+ seek $fh, 0, 0;
+ truncate $fh, 0;
+ #print $fh "<!--#set var=\"title\" value=\"$title\" -->", "\n" if defined $title;
+ write_header($fh,$title);
+ #print $fh '<!--#include virtual="/doc/cvs/header.html" -->' . "\n";
+ print $fh $text;
+ #print $fh '<!--#include virtual="/doc/cvs/footer.html" -->' . "\n";
+ write_footer($fh);
+ my $mode = (stat $fh)[2] & 0777 | 0111;
+ chmod $mode, $fh;
+}
+
+sub update_index {
+ my ($self, $subdir, $html_rel_path, $pod_name) = @_;
+ $subdir =~ s|/.*$||;
+ my $idx = $self->{idx};
+ my $sections = $self->{section_hash};
+ if (exists $sections->{$subdir}) {
+ push @{$idx->{$subdir}}, [ $html_rel_path, $pod_name ];
+ } else {
+ warn "no section for subdir '$subdir'\n";
+ }
+}
+
+sub write_index {
+ my ($self, $out_path) = @_;
+ my $idx = $self->{idx};
+ my $sections = $self->{section_hash};
+ my $section_order = $self->{section_order};
+ my $source_root = $self->{source_root};
+ $source_root =~ s|^.*/||;
+ my $dest_url = $self->{dest_url};
+
+ #print Dumper($idx);
+
+ #my $header = "<html><head><title>Index $source_root\n";
+ #my $content_start = "Index for $source_root
\n";
+
+ #my $header = qq|| . "\n"
+ # . '' . "\n";
+ my $title = "Index for $source_root";
+ my $content_start = "";
+ my $content = "";
+
+ foreach my $section (@$section_order) {
+ next unless defined $idx->{$section};
+ my $section_name = $sections->{$section};
+ $content_start .= "- $section_name
\n";
+ my @files = sort @{$idx->{$section}};
+ $content .= "\n";
+ $content .= "$section_name
\n";
+ foreach my $file (sort { $a->[1] cmp $b->[1] } @files) {
+ my ($path, $name) = @$file;
+ $content .= "- $name
\n";
+ }
+ #$content .= "
\n";
+ $content .= "
\n";
+ }
+
+ $content_start .= "
\n";
+ my $date = strftime "%a %b %e %H:%M:%S %Z %Y", localtime;
+ my $content_end = "Generated $date
\n";
+ #my $footer = "