version 1.1, 2004/06/29 10:47:46
|
version 1.2, 2004/06/29 11:13:08
|
Line 54 use LONCAPA::Configuration;
|
Line 54 use LONCAPA::Configuration;
|
|
|
# Global variable declarations: |
# Global variable declarations: |
|
|
$SSLCommand; # Full path to openssl command. |
my $SSLCommand; # Full path to openssl command. |
$CertificateDirectory; # LONCAPA Certificate directory. |
my $CertificateDirectory; # LONCAPA Certificate directory. |
$KeyFilename; # Key filename (within CertificateDirectory). |
my $KeyFilename; # Key filename (within CertificateDirectory). |
$Passphrase="loncapawhatever"; # Initial passphrase for keyfile |
my $Passphrase="loncapawhatever"; # Initial passphrase for keyfile |
$RequestEmail; # Email address of loncapa cert admin. |
my $RequestEmail; # Email address of loncapa cert admin. |
|
|
# Debug/log support: |
# Debug/log support: |
# |
# |
|
my $DEBUG = 1; # 1 for on, 0 for off. |
$DEBUG = 1; # 1 for on, 0 for off. |
|
|
|
# Send debugging to stderr. |
# Send debugging to stderr. |
# Parameters: |
# Parameters: |
Line 72 $DEBUG = 1; # 1 for on, 0 for off.
|
Line 71 $DEBUG = 1; # 1 for on, 0 for off.
|
# $DEBUG - message is only written if this is true. |
# $DEBUG - message is only written if this is true. |
# |
# |
sub Debug { |
sub Debug { |
$msg = shift; |
my $msg = shift; |
if($DEBUG) { |
if($DEBUG) { |
print STDERR "$msg\n"; |
print STDERR "$msg\n"; |
} |
} |