#!/usr/bin/perl -w
#######################################################################
### $Id: pod2html_pl.txt,v 1.1 2003/08/06 04:56:25 mate Exp $
###

use strict;
use lib '/path/to/lib';
use POD2HTML;
use File::Find;

my $DIR_BASE = '/path/to/public_html/software/perl';
my $URL_BASE = '/software/perl';
my @MODULES = @ARGV or die "Usage: $0 module ...\n";

my ($mdir, $murl, $rdir, $date);
foreach (@MODULES) {
    $mdir = "$DIR_BASE/$_";
    $murl = "$URL_BASE/$_";

    opendir(DIR, $mdir) or warn("opendir($mdir): $!\n"), next;
    ($date) = (grep(-d "$mdir/$_" && /^20\d+$/, readdir DIR))[0];
    closedir(DIR);

    unless ($date) {
        warn("$mdir: Current directory not found\n");
        next;
    }
    $rdir = "$mdir/$date";
    find(\&wanted, "$rdir/lib");
}

sub wanted {
    if (/\.pm$/) {
        my ($module);
        my $infile = $File::Find::name;
        ($module = $infile) =~ s@.*lib/(.*?)\.pm$@$1@;
        $module =~ s@/@::@g;
        my $outfile = "$mdir/$module.html";
        print "$module\n";
        pod2html(
                 "--css=/pod.css",
                 "--podpath=lib",
                 "--podroot=$rdir",
                 "--htmlroot=$murl",
                 "--libpods=perlfunc:perlguts:perlvar:perlrun:perlop",
                 "--recurse",
                 "--noindex",
                 "--infile=$infile",
                 "--outfile=$outfile");
    }
}

__END__
### Local Variables:
### mode: perl
### End: