--- loncom/configuration/Configuration.pm	2002/05/17 14:03:04	1.6
+++ loncom/configuration/Configuration.pm	2003/02/03 18:03:52	1.8
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Configuration file reader
 #
-# $Id: Configuration.pm,v 1.6 2002/05/17 14:03:04 matthew Exp $
+# $Id: Configuration.pm,v 1.8 2003/02/03 18:03:52 harris41 Exp $
 #
 #
 # Copyright Michigan State University Board of Trustees
@@ -27,36 +27,44 @@
 # http://www.lon-capa.org/
 #
 # YEAR=2002
-# 05/03 Scott Harrison
 #
 ###
 
+# POD documentation is at the end of this short module.
+
 package LONCAPA::Configuration;
 
-$VERSION = sprintf("%d.%02d", q$Revision: 1.6 $ =~ /(\d+)\.(\d+)/);
+$VERSION = sprintf("%d.%02d", q$Revision: 1.8 $ =~ /(\d+)\.(\d+)/);
 
 use strict;
 
 my $confdir='/etc/httpd/conf/';
 
-# ------------------------------------ read_conf: read LON-CAPA server configuration, especially PerlSetVar values
-sub read_conf {
+# ------------------- Subroutine read_conf: read LON-CAPA server configuration.
+# This subroutine reads PerlSetVar values out of specified web server
+# configuration files.
+sub read_conf
+  {
     my (@conf_files)=@_;
     my %perlvar;
-    foreach my $filename (@conf_files,'loncapa_apache.conf') {
-	open(CONFIG,'<'.$confdir.$filename) or die("Can't read $confdir$filename");
-	while (my $configline=<CONFIG>) {
-	    if ($configline =~ /^[^\#]*PerlSetVar/) {
+    foreach my $filename (@conf_files,'loncapa_apache.conf')
+      {
+	open(CONFIG,'<'.$confdir.$filename) or
+	    die("Can't read $confdir$filename");
+	while (my $configline=<CONFIG>)
+	  {
+	    if ($configline =~ /^[^\#]*PerlSetVar/)
+	      {
 		my ($unused,$varname,$varvalue)=split(/\s+/,$configline);
 		chomp($varvalue);
 		$perlvar{$varname}=$varvalue;
-	    }
-	}
+	      }
+	  }
 	close(CONFIG);
-    }
+      }
     my $perlvarref=\%perlvar;
     return ($perlvarref);
-}
+  }
 
 __END__
 
@@ -71,7 +79,7 @@ B<LONCAPA::Configuration> - configuratio
  use lib '/home/httpd/lib/perl/';
  use LONCAPA::Configuration;
 
- LONCAPA::Configuration::read_conf('loncapa_apache.conf','loncapa.conf');
+ LONCAPA::Configuration::read_conf('loncapa.conf');
 
 =head1 DESCRIPTION
 
@@ -104,8 +112,6 @@ given toward the B<last> file name proce
 
 =head1 AUTHORS
 
-Scott Harrison
-
 This library is free software; you can redistribute it and/or
 modify it under the same terms as LON-CAPA itself.