[LON-CAPA-cvs] cvs: loncom / CrGenerate.pl

foxr lon-capa-cvs@mail.lon-capa.org
Tue, 29 Jun 2004 11:13:09 -0000


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