util/mkdef.pl: handle line terminators correctly

[openssl.git] / util / process_docs.pl
diff --git a/util/process_docs.pl b/util/process_docs.pl

index 2c54f02c6c4a6babc91bd2317215682299829b42..2b7f3227d3c8a0510506209281eb1540f528f65b 100644 (file)
--- a/util/process_docs.pl
+++ b/util/process_docs.pl
@@ -13,7 +13,9 @@ use File::Spec::Functions;
  use File::Basename;
  use File::Copy;
  use File::Path;
-use if $^O ne "VMS", 'File::Glob' => qw/glob/;
+use FindBin;
+use lib "$FindBin::Bin/perl";
+use OpenSSL::Glob;
  use Getopt::Long;
  use Pod::Usage;
  
@@ -33,6 +35,8 @@ GetOptions(\%options,
             'destdir=s',         # Destination directory
             #'in=s@',             # Explicit files to process (ignores sourcedir)
             'type=s',            # The result type, 'man' or 'html'
+           'suffix:s',          # Suffix to add to the extension.
+                                # Only used with type=man
             'remove',            # To remove files rather than writing them
             'dry-run|n',         # Only output file names on STDOUT
             'debug|D+',
@@ -50,6 +54,8 @@ pod2usage(1) unless ( defined $options{section}
                        && defined $options{type}
                        && ($options{type} eq 'man'
                            || $options{type} eq 'html') );
+pod2usage(1) if ( $options{type} eq 'html'
+                  && defined $options{suffix} );
  
  if ($options{debug}) {
      print STDERR "DEBUG: options:\n";
@@ -59,6 +65,8 @@ if ($options{debug}) {
          if defined $options{destdir};
      print STDERR "DEBUG:   --type      = $options{type}\n"
          if defined $options{type};
+    print STDERR "DEBUG:   --suffix    = $options{suffix}\n"
+        if defined $options{suffix};
      foreach (sort @{$options{section}}) {
          print STDERR "DEBUG:   --section   = $_\n";
      }
@@ -87,10 +95,10 @@ foreach my $section (sort @{$options{section}}) {
  
          my $updir = updir();
          my $name = uc $podname;
-        my $suffix = { man  => ".$podinfo{section}",
+        my $suffix = { man  => ".$podinfo{section}".($options{suffix} // ""),
                         html => ".html" } -> {$options{type}};
          my $generate = { man  => "pod2man --name=$name --section=$podinfo{section} --center=OpenSSL --release=$config{version} \"$podpath\"",
-                         html => "pod2html \"--podroot=$options{sourcedir}\" --htmldir=$updir --podpath=apps:crypto:ssl \"--infile=$podpath\" \"--title=$podname\""
+                         html => "pod2html \"--podroot=$options{sourcedir}\" --htmldir=$updir --podpath=man1:man3:man5:man7 \"--infile=$podpath\" \"--title=$podname\""
                           } -> {$options{type}};
          my $output_dir = catdir($options{destdir}, "man$podinfo{section}");
          my $output_file = $podname . $suffix;
@@ -102,7 +110,7 @@ foreach my $section (sort @{$options{section}}) {
                  if $options{debug};
              unless ($options{"dry-run"}) {
                  @output = `$generate`;
-                map { s|href="http://man\.he\.net/man|href="../man|g; } @output
+                map { s|href="http://man\.he\.net/(man\d/[^"]+)(?:\.html)?"|href="../$1.html"|g; } @output
                      if $options{type} eq "html";
              }
              print STDERR "DEBUG: Done processing\n" if $options{debug};
@@ -174,6 +182,7 @@ B<process_docs.pl>
  [B<--sourcedir>=I<dir>]
  B<--destdir>=I<dir>
  B<--type>=B<man>|B<html>
+[B<--suffix>=I<suffix>]
  [B<--remove>]
  [B<--dry-run>|B<-n>]
  [B<--debug>|B<-D>]
@@ -206,6 +215,10 @@ Top directory where the resulting files should end up
  
  Type of output to produce.  Currently supported are man pages and HTML files.
  
+=item B<--suffix>=I<suffix>
+
+A suffix added to the extension.  Only valid with B<--type>=B<man>
+
  =item B<--remove>
  
  Instead of writing the files, remove them.