diff options
author | ivan <ivan> | 1999-08-04 12:42:19 +0000 |
---|---|---|
committer | ivan <ivan> | 1999-08-04 12:42:19 +0000 |
commit | 32794e9defaeb5ebc84afabf3ef5b360f5533d08 (patch) | |
tree | 0fe8319a9713d46437f2d56992ccede309cb80e9 /bin/pod2x | |
parent | e14a30891181730a042f451bb094dee1e263700c (diff) |
new, kludgy-but-working html generator
Diffstat (limited to 'bin/pod2x')
-rwxr-xr-x | bin/pod2x | 22 |
1 files changed, 14 insertions, 8 deletions
@@ -3,21 +3,27 @@ #use Pod::Text; #$Pod::Text::termcap=1; -my $site_perl = "./site_perl"; +my $site_perl = "./FS"; #my $catman = "./catman"; -my $catman = "./htdocs/docs/man"; -#my $html = "./htdocs/docs/man"; +#my $catman = "./htdocs/docs/man"; +my $html = "./htdocs/docs/man"; $|=1; die "Can't find $site_perl and $catman" unless [ -d $site_perl ] && [ -d $catman ] && [ -d $html ]; -foreach my $file (glob("$site_perl/*.pm")) { - $file =~ /\/([\w\-]+)\.pm$/ or die "oops file $file"; +foreach my $file ( + glob("$site_perl/*.pm"), + glob("$site_perl/*/*.pm"), + glob("$site_perl/*/*/*.pm") +) { + #$file =~ /\/([\w\-]+)\.pm$/ or die "oops file $file"; + $file =~ /$site_perl\/(.*)\.pm$/ or die "oops file $file"; my $name = $1; - print "$name\n"; - system "pod2text $file >$catman/$name.txt"; -# system "pod2html --podpath=$site_perl $file >$html/$name.html"; + print "$name\n"; + my $htmlroot = join('/', map '..',1..(scalar($file =~ tr/\///)-2)) || '.'; +# system "pod2text $file >$catman/$name.txt"; + system "pod2html --podroot=$site_perl --podpath=./FS:./FS/UI:. --norecurse --htmlroot=$htmlroot $file >$html/$name.html"; # system "pod2html $file >$html/$name.html"; } |