--- loncom/CrGenerate.pl	2004/06/29 10:47:46	1.1
+++ loncom/CrGenerate.pl	2004/06/29 11:13:08	1.2
@@ -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 @@ use LONCAPA::Configuration;
 
 #  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 = 1;			# 1 for on, 0 for off.
 #    $DEBUG - message is only written if this is true.
 #
 sub Debug {
-    $msg  = shift;
+    my $msg  = shift;
     if($DEBUG) {
 	print STDERR "$msg\n";
     }