]>
git.ipfire.org Git - thirdparty/openssl.git/blob - VMS/VMSify-conf.pl
2 # Copyright 2004-2016 The OpenSSL Project Authors. All Rights Reserved.
4 # Licensed under the OpenSSL license (the "License"). You may not use
5 # this file except in compliance with the License. You can obtain a copy
6 # in the file LICENSE in the source distribution or at
7 # https://www.openssl.org/source/license.html
13 my @directory_vars = ( "dir", "certs", "crl_dir", "new_certs_dir" );
14 my @file_vars = ( "database", "certificate", "serial", "crlnumber",
15 "crl", "private_key", "RANDFILE" );
18 foreach my $d (@directory_vars) {
19 if (/^(\s*\#?\s*${d}\s*=\s*)\.\/([^\s\#
]*)([\s\#
].*)$/) {
20 $_ = "$1sys\\\$disk:\[.$2$3";
21 } elsif (/^(\s*\#?\s*${d}\s*=\s*)(\w[^\s\#]*)([\s\#].*)$/) {
22 $_ = "$1sys\\\$disk:\[.$2$3";
24 s/^(\s*\#?\s*${d}\s*=\s*\$\w+)\/([^\s\#]*)([\s\#].*)$/$1.$2\
]$3/;
25 while(/^(\s*\#?\s*${d}\s*=\s*(\$\w+\.|sys\\\$disk:\[\.)[\w\.]+)\/([^\
]]*)\
](.*)$/) {
29 foreach my $f (@file_vars) {
30 s/^(\s*\#?\s*${f}\s*=\s*)\.\/(.*)$/$1sys\\\
$disk:\
[\
/$2/;
31 while(/^(\s*\#?\s*${f}\s*=\s*(\$\w+|sys\\\$disk:\[)[^\/]*)\
/(\w+\/[^\s\#
]*)([\s\#
].*)$/) {
34 if (/^(\s*\#?\s*${f}\s*=\s*(\$\w+|sys\\\$disk:\[)[^\/]*)\
/(\w+)([\s\#].*)$/) {
36 } elsif (/^(\s*\#?\s*${f}\s*=\s*(\$\w+|sys\\\$disk:\[)[^\/]*)\
/([^\s\#]*)([\s\#].*)$/) {