X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=web%2Fhtdocs%2Fdetails%2Fdoc.mc;h=07d7ad6b1c9073c94baae297cd1e08b256055808;hb=5eb0e394b2836594e5e1f015adfc57f2c99590ee;hp=8d71d8ab9f10b39c74b287396d74a74ba737aa5c;hpb=75306034fd1b6d093b085c381c2ae0aca37c46e8;p=irspy-moved-to-github.git
diff --git a/web/htdocs/details/doc.mc b/web/htdocs/details/doc.mc
index 8d71d8a..07d7ad6 100644
--- a/web/htdocs/details/doc.mc
+++ b/web/htdocs/details/doc.mc
@@ -1,20 +1,21 @@
-%# $Id: doc.mc,v 1.1 2006-09-28 16:48:20 mike Exp $
+%# $Id: doc.mc,v 1.3 2006-11-16 12:16:18 mike Exp $
<%once>
use Pod::Html;
use IO::Dir;
%once>
<%perl>
+my $libdir = $r->dir_config("IRSpyLibDir");
my $module = $r->param("module");
if (!defined $module) {
print "
\n";
- render_doc_links($LIBDIR, "ZOOM", 6);
+ render_doc_links($libdir, "ZOOM", 6);
print "
\n";
} else {
print "Documentation for '$module'\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("", );
close F;
@@ -30,7 +31,7 @@ sub render_doc_links {
or die "can't open directory handle for '$base/$dir'";
print " " x $level, "$dir\n";
- print " " x $level, "\n";
+ print " " x $level, "\n";
my(@files, @dirs);
while (my $file = $dh->read()) {
@@ -52,7 +53,7 @@ sub render_doc_links {
render_doc_links($base, "$dir/$file", $level+1);
}
- print " " x $level, "
\n";
+ print " " x $level, "
\n";
undef $dh;
}
%perl>