|
#!/usr/bin/perl
|
|
|
|
use strict;
|
|
|
|
use Pod::Html;
|
|
use File::Find;
|
|
use FindBin;
|
|
|
|
chdir($FindBin::Bin . '/..');
|
|
|
|
my $doc_path = "doc/online";
|
|
#my $pod2html_bin = `which pod2html` or die 'cannot find pod2html on your system';
|
|
|
|
find({no_chdir => 1, wanted => sub {
|
|
next unless -f;
|
|
next unless /\.pod$/;
|
|
print "processing $_,$/";
|
|
my $html_file = $_;
|
|
$html_file =~ s/\.pod$/.html/;
|
|
pod2html(
|
|
# $pod2html_bin,
|
|
'--noindex',
|
|
'--css=../../../css/lx-office-erp.css',
|
|
"--infile=$_",
|
|
"--outfile=$html_file",
|
|
);
|
|
}}, $doc_path);
|
|
|
|
1;
|