[BACK]Return to sqltest.pl CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / build / system_dependencies

Diff for /loncom/build/system_dependencies/sqltest.pl between versions 1.3 and 1.5

version 1.3, 2002/05/10 01:32:38 version 1.5, 2002/05/16 19:03:56
Line 6 Line 6
 #  #
 # YEAR=2001  # YEAR=2001
 # 9/25,9/30 Scott Harrison  # 9/25,9/30 Scott Harrison
 #  # YEAR=2002
   # 5/10,5/11 Scott Harrison
   
 ###############################################################################  ###############################################################################
 ##                                                                           ##  ##                                                                           ##
Line 46  my %perlvar; Line 47  my %perlvar;
 open (CONFIG,"/etc/httpd/conf/access.conf") ||   open (CONFIG,"/etc/httpd/conf/access.conf") || 
     (print "Can't read access.conf\n" && exit);      (print "Can't read access.conf\n" && exit);
 while (my $configline=<CONFIG>) {  while (my $configline=<CONFIG>) {
     if ($configline =~ /PerlSetVar/) {      if ($configline =~ /^[^\#]*PerlSetVar/) {
    my ($dummy,$varname,$varvalue)=split(/\s+/,$configline);
           chomp($varvalue);
           $perlvar{$varname}=$varvalue;
       }
   }
   close(CONFIG);
   open (CONFIG,"/etc/httpd/conf/loncapa.conf") || 
       (print "Can't read loncapa.conf\n" && exit);
   while (my $configline=<CONFIG>) {
       if ($configline =~ /^[^\#]*PerlSetVar/) {
    my ($dummy,$varname,$varvalue)=split(/\s+/,$configline);
           chomp($varvalue);
           $perlvar{$varname}=$varvalue;
       }
   }
   close(CONFIG);
   open (CONFIG,"/etc/httpd/conf/loncapa_apache.conf") || 
       (print "Can't read loncapa_apache.conf\n" && exit);
   while (my $configline=<CONFIG>) {
       if ($configline =~ /^[^\#]*PerlSetVar/) {
  my ($dummy,$varname,$varvalue)=split(/\s+/,$configline);   my ($dummy,$varname,$varvalue)=split(/\s+/,$configline);
         chomp($varvalue);          chomp($varvalue);
         $perlvar{$varname}=$varvalue;          $perlvar{$varname}=$varvalue;
Removed from v.1.3  
changed lines
  Added in v.1.5

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>