Auf Romans Anregen - Ein simples POD basiertes Hilfesystem

[kivitendo-erp.git] / scripts / make_docs.pl

diff --git a/scripts/make_docs.pl b/scripts/make_docs.pl
new file mode 100644 (file)
index 0000000..f5ec66e
--- /dev/null
+++ b/scripts/make_docs.pl
@@ -0,0 +1,26 @@
+#!/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;