foxr Tue Jun 29 07:13:09 2004 EDT
Modified files:
/loncom CrGenerate.pl
Log:
Get some packaging stuff actually right.
Index: loncom/CrGenerate.pl
diff -u loncom/CrGenerate.pl:1.1 loncom/CrGenerate.pl:1.2
--- loncom/CrGenerate.pl:1.1 Tue Jun 29 06:47:46 2004
+++ loncom/CrGenerate.pl Tue Jun 29 07:13:08 2004
@@ -2,7 +2,7 @@
# The LearningOnline Network
# CrGenerate - Generate a loncapa certificate request.
#
-# $Id: CrGenerate.pl,v 1.1 2004/06/29 10:47:46 foxr Exp $
+# $Id: CrGenerate.pl,v 1.2 2004/06/29 11:13:08 foxr Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -54,16 +54,15 @@
# Global variable declarations:
-$SSLCommand; # Full path to openssl command.
-$CertificateDirectory; # LONCAPA Certificate directory.
-$KeyFilename; # Key filename (within CertificateDirectory).
-$Passphrase="loncapawhatever"; # Initial passphrase for keyfile
-$RequestEmail; # Email address of loncapa cert admin.
+my $SSLCommand; # Full path to openssl command.
+my $CertificateDirectory; # LONCAPA Certificate directory.
+my $KeyFilename; # Key filename (within CertificateDirectory).
+my $Passphrase="loncapawhatever"; # Initial passphrase for keyfile
+my $RequestEmail; # Email address of loncapa cert admin.
# Debug/log support:
#
-
-$DEBUG = 1; # 1 for on, 0 for off.
+my $DEBUG = 1; # 1 for on, 0 for off.
# Send debugging to stderr.
# Parameters:
@@ -72,7 +71,7 @@
# $DEBUG - message is only written if this is true.
#
sub Debug {
- $msg = shift;
+ my $msg = shift;
if($DEBUG) {
print STDERR "$msg\n";
}