#!/usr/bin/perl
###########################################
# Mike Schilli, 2002 (m@perlmeister.com)
###########################################
use warnings;
use strict;

use Pod::HtmlTree qw(pod2htmltree);
use File::Spec;

die "usage: $0 http_root" unless @ARGV;

pod2htmltree(@ARGV);

$ARGV[0] =~ s#^/+##;

print Pod::HtmlTree::banner(
    "Please make sure http://" . 
    File::Spec->catfile("localhost", $ARGV[0]) .
    " points to ", `pwd`);