4 use File::Basename qw(&basename &dirname);
6 # List explicitly here the variables you want Configure to
7 # generate. Metaconfig only looks for shell variables, so you
8 # have to mention them as if they were shell variables, not
9 # %Config entries. Thus you write
11 # to ensure Configure will look for $Config{startperl}.
13 # This forces PL files to create target in same directory as PL file.
14 # This is so that make depend always knows where to find PL derivatives.
16 $file = basename($0, '.PL');
17 $file .= '.com' if $^O eq 'VMS';
19 open OUT,">$file" or die "Can't create $file: $!";
21 print "Extracting $file (with variable substitutions)\n";
23 # In this section, perl variables will be expanded during extraction.
24 # You can use $Config{...} to use Configure variables.
26 print OUT <<"!GROK!THIS!";
28 eval 'exec $Config{perlpath} -S \$0 \${1+"\$@"}'
29 if \$running_under_some_shell;
32 # In the following, perl variables are not expanded during extraction.
34 print OUT <<'!NO!SUBS!';
39 pod2html - convert .pod files to .html files
43 pod2html --help --htmlroot=<name> --infile=<name> --outfile=<name>
44 --podpath=<name>:...:<name> --podroot=<name>
45 --libpods=<name>:...:<name> --recurse --norecurse --verbose
46 --index --noindex --title=<name>
50 Converts files from pod format (see L<perlpod>) to HTML format.
54 pod2html takes the following arguments:
62 Displays the usage message.
68 Sets the base URL for the HTML files. When cross-references are made,
69 the HTML root is prepended to the URL.
75 Specify the pod file to convert. Input is taken from STDIN if no
82 Specify the HTML file to create. Output goes to STDOUT if no outfile
89 Specify the base directory for finding library pods.
93 --podpath=name:...:name
95 Specify which subdirectories of the podroot contain pod files whose
96 HTML converted forms can be linked-to in cross-references.
100 --libpods=name:...:name
102 List of page names (eg, "perlfunc") which contain linkable C<=item>s.
108 Use Netscape HTML directives when applicable.
114 Do not use Netscape HTML directives (default).
120 Generate an index at the top of the HTML file (default behaviour).
126 Do not generate an index at the top of the HTML file.
133 Recurse into subdirectories specified in podpath (default behaviour).
139 Do not recurse into subdirectories specified in podpath.
145 Specify the title of the resulting HTML file.
151 Display progress messages.
157 Tom Christiansen, E<lt>tchrist@perl.comE<gt>.
161 See L<Pod::Html> for a list of known bugs in the translator.
165 L<perlpod>, L<Pod::HTML>
169 This program is distributed under the Artistic License.
178 close OUT or die "Can't close $file: $!";
179 chmod 0755, $file or die "Can't reset permissions for $file: $!\n";
180 exec("$Config{'eunicefix'} $file") if $Config{'eunicefix'} ne ':';