loncom/lonssl.pm - diff

Return to lonssl.pm CVS log

Up to [LON-CAPA] / loncom

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;