version 1.9, 2004/06/17 10:15:46
|
version 1.10, 2006/08/25 17:49:15
|
Line 273 sub CertificateFile {
|
Line 273 sub CertificateFile {
|
# Build the actual filenames and check for their existence and |
# Build the actual filenames and check for their existence and |
# readability. |
# readability. |
|
|
my $CaFilename = $CertificateDir.$pathsep.$CaFilename; |
$CaFilename = $CertificateDir.$pathsep.$CaFilename; |
my $CertFilename = $CertificateDir.$pathsep.$CertFilename; |
$CertFilename = $CertificateDir.$pathsep.$CertFilename; |
|
|
if((! -r $CaFilename) || (! -r $CertFilename)) { |
if((! -r $CaFilename) || (! -r $CertFilename)) { |
$lasterror = "CA file $CaFilename or Cert File: $CertFilename " |
$lasterror = "CA file $CaFilename or Cert File: $CertFilename " |
Line 314 sub KeyFile {
|
Line 314 sub KeyFile {
|
# Build the actual filename and ensure that it not only exists but |
# Build the actual filename and ensure that it not only exists but |
# is also readable: |
# is also readable: |
|
|
my $KeyFilename = $CertificateDir.$pathsep.$KeyFilename; |
$KeyFilename = $CertificateDir.$pathsep.$KeyFilename; |
if(! (-r $KeyFilename)) { |
if(! (-r $KeyFilename)) { |
$lasterror = "Unreadable key file $KeyFilename"; |
$lasterror = "Unreadable key file $KeyFilename"; |
return undef; |
return undef; |