--- loncom/lonnet/perl/lonnet.pm 2003/07/06 10:30:21 1.388 +++ loncom/lonnet/perl/lonnet.pm 2003/07/11 20:41:41 1.390 @@ -1,7 +1,7 @@ # The LearningOnline Network # TCP networking package # -# $Id: lonnet.pm,v 1.388 2003/07/06 10:30:21 www Exp $ +# $Id: lonnet.pm,v 1.390 2003/07/11 20:41:41 matthew Exp $ # # Copyright Michigan State University Board of Trustees # @@ -3204,7 +3204,7 @@ sub clear_EXT_cache_status { sub EXT_cache_status { my ($target_domain,$target_user) = @_; my $cachename = 'cache.EXT.'.$target_user.'.'.$target_domain; - if (exists($ENV{$cachename}) && ($ENV{$cachename}+1800) > time) { + if (exists($ENV{$cachename}) && ($ENV{$cachename}+600) > time) { # We know already the user has no data return 1; } else { @@ -4100,7 +4100,8 @@ BEGIN { %domain_auth_arg_def = (); if ($fh) { while (<$fh>) { - next if /^\#/; + next if (/^(\#|\s*$)/); +# next if /^\#/; chomp; my ($domain, $domain_description, $def_auth, $def_auth_arg) = split(/:/,$_,4);