6 |
# so we do not need to expand openssl.conf |
# so we do not need to expand openssl.conf |
7 |
my $key = $modSSL{'key'}; |
my $key = $modSSL{'key'}; |
8 |
- unless ($key) |
- unless ($key) |
9 |
+ unless (-e $key) |
+ unless ($key and -e $key) |
10 |
{ |
{ |
11 |
use esmith::templates; |
use esmith::templates; |
12 |
esmith::templates::processTemplate({ |
esmith::templates::processTemplate({ |
18 |
|
|
19 |
my $key = $modSSL{'key'}; |
my $key = $modSSL{'key'}; |
20 |
- unless ($key) |
- unless ($key) |
21 |
+ unless (-e $key) |
+ unless ($key and -e $key) |
22 |
{ |
{ |
23 |
$key = "/home/e-smith/ssl.key/$hostname.$domain.key"; |
$key = "/home/e-smith/ssl.key/$hostname.$domain.key"; |
24 |
use esmith::templates; |
use esmith::templates; |
30 |
|
|
31 |
my $crt = $modSSL{'crt'}; |
my $crt = $modSSL{'crt'}; |
32 |
- unless ($crt) |
- unless ($crt) |
33 |
+ unless (-e $crt) |
+ unless ($crt and -e $crt) |
34 |
{ |
{ |
35 |
$crt = "/home/e-smith/ssl.crt/$hostname.$domain.crt"; |
$crt = "/home/e-smith/ssl.crt/$hostname.$domain.crt"; |
36 |
use esmith::templates; |
use esmith::templates; |
41 |
{ |
{ |
42 |
my $pem = $modSSL{'CertificateChainFile'}; |
my $pem = $modSSL{'CertificateChainFile'}; |
43 |
- if ($pem) |
- if ($pem) |
44 |
+ if (-e $pem) |
+ if ($pem and -e $pem) |
45 |
{ |
{ |
46 |
open(PEM, $pem) or warn "Intermediate Certificate File defined, but cannot open $pem : $!"; |
open(PEM, $pem) or warn "Intermediate Certificate File defined, but cannot open $pem : $!"; |
47 |
my @pem = <PEM>; |
my @pem = <PEM>; |