scripts/make_docs.pl

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