loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

Up to [LON-CAPA] / loncom / lonnet / perl

-version 1.780, 2006/09/15 07:55:05
+version 1.781, 2006/09/15 20:49:29
  Line 7117  BEGIN {
  # ----------------------------------- Read loncapa.conf and loncapa_apache.conf
      unless ($readit) {
  {
-     # FIXME: Use LONCAPA::Configuration::read_conf here and omit next block
+     my $configvars = LONCAPA::Configuration::read_conf('loncapa.conf');
-     open(my $config,"</etc/httpd/conf/loncapa.conf");
+     %perlvar = (%perlvar,%{$configvars});
-     while (my $configline=<$config>) {
-         if ($configline=~/\S/ && $configline =~ /^[^\#]*PerlSetVar/) {
- 	   my ($dummy,$varname,$varvalue)=split(/\s+/,$configline);
-            chomp($varvalue);
-            $perlvar{$varname}=$varvalue;
-         }
-     }
-     close($config);
- }
- {
-     open(my $config,"</etc/httpd/conf/loncapa_apache.conf");
-     while (my $configline=<$config>) {
-         if ($configline =~ /^[^\#]*PerlSetVar/) {
- 	   my ($dummy,$varname,$varvalue)=split(/\s+/,$configline);
-            chomp($varvalue);
-            $perlvar{$varname}=$varvalue;
-         }
-     }
-     close($config);
  }
  # ------------------------------------------------------------ Read domain file