-%# $Id: doc.mc,v 1.1 2006-09-28 16:48:20 mike Exp $
<%once>
use Pod::Html;
use IO::Dir;
</%once>
<%perl>
-my $module = $r->param("module");
+my $libdir = $r->dir_config("IRSpyLibDir");
+my $module = utf8param($r, "module");
if (!defined $module) {
print " <ul>\n";
- render_doc_links($LIBDIR, "ZOOM", 6);
+ render_doc_links($libdir, "ZOOM", 6);
print " </ul>\n";
} else {
print "<b>Documentation for '$module'</b>\n";
{ my $dir = "/tmp/pod2html"; mkdir $dir; chdir $dir || die $!; }
# For some reason, output to standard output doesn't appear
my $name = "ZOOM.html";
- pod2html("$LIBDIR/$module", "--outfile=$name");
+ pod2html("$libdir/$module", "--outfile=$name");
open F, "<$name" or die "can't open '$name': $!";
my $text = join("", <F>);
close F;
or die "can't open directory handle for '$base/$dir'";
print " " x $level, "<li><b>$dir</b></li>\n";
- print " " x $level, "<ul>\n";
+ print " " x $level, "<li><ul>\n";
my(@files, @dirs);
while (my $file = $dh->read()) {
render_doc_links($base, "$dir/$file", $level+1);
}
- print " " x $level, "</ul>\n";
+ print " " x $level, "</ul></li>\n";
undef $dh;
}
</%perl>