Last change
on this file was
1009,
checked in by nanardon, 12 years ago
|
- add script to generate html doc
|
-
Property svn:executable set to
*
|
File size:
636 bytes
|
Line | |
---|
1 | #!/bin/env perl |
---|
2 | |
---|
3 | use strict; |
---|
4 | use warnings; |
---|
5 | use Pod::Xhtml; |
---|
6 | use Pod::Hyperlink::BounceURL; |
---|
7 | use Pod::Checker; |
---|
8 | |
---|
9 | |
---|
10 | my $linkparser = new Pod::Hyperlink::BounceURL; |
---|
11 | $linkparser->configure( URL => './%s.html' ); |
---|
12 | |
---|
13 | my $parser = new Pod::Xhtml( |
---|
14 | LinkParser => $linkparser, |
---|
15 | MakeIndex => 1, |
---|
16 | ); |
---|
17 | |
---|
18 | my @files = glob('man/*.pod'); |
---|
19 | |
---|
20 | foreach my $f (@ARGV) { |
---|
21 | next if (podchecker($f)); |
---|
22 | my $file = $f; |
---|
23 | if ($file =~ m/\.pm$/) { |
---|
24 | $file =~ s:.*lib/::; |
---|
25 | $file =~ s;/+;::;g; |
---|
26 | } else { |
---|
27 | $file =~ s:^.*/::; |
---|
28 | } |
---|
29 | $file =~ s:(\.[^\.]+)?$:.html:; |
---|
30 | $parser->parse_from_file( |
---|
31 | $f, |
---|
32 | "html/$file", |
---|
33 | ); |
---|
34 | } |
---|
35 | |
---|
36 | |
---|
Note: See
TracBrowser
for help on using the repository browser.