kivitendo/scripts/make_docs.pl @ 4a663bf8
| c574ecd3 | Sven Schöling | #!/usr/bin/perl
|
||
use strict;
|
||||
use Pod::Html;
|
||||
use File::Find;
|
||||
| cff913a1 | Moritz Bunkus | use FindBin;
|
||
chdir($FindBin::Bin . '/..');
|
||||
| c574ecd3 | Sven Schöling | |||
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;
|