kivitendo/scripts/make_docs.pl @ e79b666b
| c574ecd3 | Sven Schöling | #!/usr/bin/perl
|
|
use strict;
|
|||
use Pod::Html;
|
|||
use File::Find;
|
|||
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;
|