loncom/CrGenerate.pl - diff

Return to CrGenerate.pl CVS log

Up to [LON-CAPA] / loncom

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";
}	}