Changeset 1961

Timestamp:

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

Author:

nanardon

Message:

Split HTML from POD by man section

Location:

trunk/LATMOS-Accounts

Files:

• Makefile.PL (modified) (3 diffs)
• scripts/pod2xhtml.pl (modified) (3 diffs)

trunk/LATMOS-Accounts/Makefile.PL

@@ -95 +95 @@
             DATADIR             => '/usr/share/latmos-accounts',
             DESTDATADIR         => '$(DESTDIR)$(DATADIR)',
+            MAN5PODS            => join(' ', <man/man5/*.pod>),
+            MAN8PODS            => join(' ', <man/man8/*.pod>),
         },
         MAN1PODS        => {
@@ -107 +109 @@
             } <man/man?/*.pod>, (grep { ! /~$/ } <bin/*>)
         },
-
 );
 
@@ -174 +175 @@
 \t latmos-accounts.spec
 
-podhtml: \$(MAN1PODS) \$(MAN3PODS)
+podhtml: \$(MAN5PODS) \$(MAN8PODS) \$(MAN3PODS) \$(MAN1PODS)
 \tmkdir html || :
-\trm -f html/*
-\tperl scripts/pod2xhtml.pl \$(MAN1PODS) \$(MAN3PODS)
+\trm -fr html/*
+\tperl scripts/pod2xhtml.pl man1 \$(MAN1PODS)
+\tperl scripts/pod2xhtml.pl man3 \$(MAN3PODS)
+\tperl scripts/pod2xhtml.pl man5 \$(MAN5PODS)
+\tperl scripts/pod2xhtml.pl man8 \$(MAN8PODS)
 
 EOF

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",
     );
 }