Changeset 1961 for trunk/LATMOS-Accounts/scripts

Timestamp:

02/21/17 21:01:14 (7 years ago)

Author:

nanardon

Message:

Split HTML from POD by man section

File:

• trunk/LATMOS-Accounts/scripts/pod2xhtml.pl (modified) (3 diffs)

trunk/LATMOS-Accounts/scripts/pod2xhtml.pl

@@ -6 +6 @@
 use Pod::Hyperlink::BounceURL;
 use Pod::Checker;
-
 
 my $linkparser = new Pod::Hyperlink::BounceURL;
@@ -16 +15 @@
 );
 
-my @files = glob('man/*.pod');
+my $dest = shift(@ARGV);
+
+if (! -d "html/$dest") {
+   mkdir "html/$dest" || die "Cannot create html/$dest: $!";
+}
 
 foreach my $f (@ARGV) {
@@ -30 +33 @@
     $parser->parse_from_file( 
        $f,
-       "html/$file",
+       "html/$dest/$file",
     );
 }