freebsd-src/crypto/openssl/util/write-man-symlinks
Cy Schubert e0c4386e7e OpenSSL: Vendor import of OpenSSL 3.0.13
* Fixed PKCS12 Decoding crashes ([CVE-2024-0727])
 * Fixed Excessive time spent checking invalid RSA public keys
   ([CVE-2023-6237])
 * Fixed POLY1305 MAC implementation corrupting vector registers on
   PowerPC CPUs which support PowerISA 2.07 ([CVE-2023-6129])
 * Fix excessive time spent in DH check / generation with large Q
   parameter value ([CVE-2023-5678])

Release notes can be found at
            https://www.openssl.org/news/openssl-3.0-notes.html.

Approved by:	emaste
MFC after:	3 days

Merge commit '9dd13e84fa8eca8f3462bd55485aa3da8c37f54a'
2024-02-02 13:21:36 -08:00

49 lines
1.2 KiB
Perl
Executable file

#! /usr/bin/env perl
# Copyright 2021 The OpenSSL Project Authors. All Rights Reserved.
#
# Licensed under the Apache License 2.0 (the "License"). You may not use
# this file except in compliance with the License. You can obtain a copy
# in the file LICENSE in the source distribution or at
# https://www.openssl.org/source/license.html
require 5.10.0;
use warnings;
use strict;
use FindBin;
use lib "$FindBin::Bin/perl";
use OpenSSL::Util::Pod;
if ($#ARGV + 1 != 5 || $ARGV[0] !~ /^(un)?install$/) {
print "Usage: write-man-symlinks [install|uninstall] src-dir build-dir man-page-name target-dir\n";
exit;
}
my $action = $ARGV[0];
my $srcdir = $ARGV[1];
my $builddir = $ARGV[2];
my $manname = $ARGV[3];
my $targetdir = $ARGV[4];
$manname =~ m|(.+)\.(.+)|;
my $mainf = $1;
my $section = $2;
die "Bad src file" if !defined $mainf;
my $podfile = "$srcdir/$mainf.pod";
#Some pod files are generated and are in the build dir
unless (-e $podfile) {
$podfile = "$builddir/$mainf.pod";
}
my %podinfo = extract_pod_info($podfile);
for my $name (@{$podinfo{names}}) {
next if $name eq $mainf;
if ($action eq "install") {
symlink "$manname", "$targetdir/$name.$section";
} else {
unlink "$targetdir/$name.$section";
}
}