[LON-CAPA-cvs] cvs: loncom /build/weblayer_test test_weblayer.pl

[harris41]

harris41		Wed May  8 14:47:31 2002 EDT

  Modified files:              
    /loncom/build/weblayer_test	test_weblayer.pl 
  Log:
  only run this test for library servers
  
  
Index: loncom/build/weblayer_test/test_weblayer.pl
diff -u loncom/build/weblayer_test/test_weblayer.pl:1.1 loncom/build/weblayer_test/test_weblayer.pl:1.2
--- loncom/build/weblayer_test/test_weblayer.pl:1.1	Mon Mar  4 01:48:09 2002
+++ loncom/build/weblayer_test/test_weblayer.pl	Wed May  8 14:47:31 2002
@@ -11,7 +11,7 @@
 # The LearningOnline Network
 # test_weblayer.pl - Test the web layer
 #
-# $Id: test_weblayer.pl,v 1.1 2002/03/04 06:48:09 harris41 Exp $
+# $Id: test_weblayer.pl,v 1.2 2002/05/08 18:47:31 harris41 Exp $
 #
 # This file is part of the LearningOnline Network with CAPA (LON-CAPA).
 #
@@ -63,6 +63,15 @@
     }
 }
 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 $domain=$perlvar{'lonDefDomain'};