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;