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

Diff for /loncom/build/weblayer_test/test_weblayer.pl between versions 1.1 and 1.4

version 1.1, 2002/03/04 06:48:09 version 1.4, 2003/02/03 18:03:52
Line 34  test_weblayer.pl - Test the LON-CAPA web Line 34  test_weblayer.pl - Test the LON-CAPA web
 # http://www.lon-capa.org/  # http://www.lon-capa.org/
 #  #
 # YEAR=2002  # YEAR=2002
 # 3/4 Scott Harrison  
 #  #
 ###  ###
   
Line 56  with 'ZXQTEST' is created.  A test login Line 55  with 'ZXQTEST' is created.  A test login
 my %perlvar;  my %perlvar;
 open (CONFIG,"/etc/httpd/conf/access.conf") || die "Can't read access.conf";  open (CONFIG,"/etc/httpd/conf/access.conf") || die "Can't read access.conf";
 while ($configline=<CONFIG>) {  while ($configline=<CONFIG>) {
     if ($configline =~ /PerlSetVar/) {      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;
     }      }
 }  }
 close(CONFIG);  close(CONFIG);
   open (CONFIG,"/etc/httpd/conf/loncapa.conf") || die "Can't read loncapa.conf";
   while ($configline=<CONFIG>) {
       if ($configline =~ /^[^\#]*PerlSetVar/) {
    my ($dummy,$varname,$varvalue)=split(/\s+/,$configline);
           chomp($varvalue);
           $perlvar{$varname}=$varvalue;
       }
   }
   close(CONFIG);
   if ($perlvar{'lonRole'} ne 'library') {
       print(<<END);
   Skipping web layer test...
      (lonRole is defined as $perlvar{'lonRole'}
       and the web layer test only runs on library servers.)
   END
       exit(0);
   }
   
 my $hostid=$perlvar{'lonHostID'};  my $hostid=$perlvar{'lonHostID'};
 my $domain=$perlvar{'lonDefDomain'};  my $domain=$perlvar{'lonDefDomain'};
   
Line 100  print "**** ERROR **** problems encounte Line 117  print "**** ERROR **** problems encounte
   
 =head1 AUTHOR  =head1 AUTHOR
   
 Scott Harrison, harris41@msu.edu  
   
 =cut  =cut
Removed from v.1.1  
changed lines
  Added in v.1.4

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