AP: Project picker in form
[kivitendo-erp.git] / scripts / make_docs.pl
1 #!/usr/bin/perl
2
3 use strict;
4
5 use Pod::Html;
6 use File::Find;
7 use FindBin;
8
9 chdir($FindBin::Bin . '/..');
10
11 my $doc_path     = "doc/online";
12 #my $pod2html_bin = `which pod2html` or die 'cannot find pod2html on your system';
13
14 find({no_chdir => 1, wanted => sub {
15   next unless -f;
16   next unless /\.pod$/;
17   print "processing $_,$/";
18   my $html_file = $_;
19   $html_file =~ s/\.pod$/.html/;
20   pod2html(
21 #    $pod2html_bin,
22     '--noindex',
23     '--css=../../../css/lx-office-erp.css',
24     "--infile=$_",
25     "--outfile=$html_file",
26   );
27 }}, $doc_path);
28
29 1;