[LON-CAPA-cvs] cvs: loncom /lonnet/perl lonnet.pm

[albertel]

albertel		Mon Jun 30 14:30:42 2003 EDT

  Modified files:              
    /loncom/lonnet/perl	lonnet.pm 
  Log:
  - chaning EXT cache status ENV entires to start with cache.EXT.
  
  
Index: loncom/lonnet/perl/lonnet.pm
diff -u loncom/lonnet/perl/lonnet.pm:1.382 loncom/lonnet/perl/lonnet.pm:1.383
--- loncom/lonnet/perl/lonnet.pm:1.382	Thu Jun 19 15:37:45 2003
+++ loncom/lonnet/perl/lonnet.pm	Mon Jun 30 14:30:42 2003
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.382 2003/06/19 19:37:45 albertel Exp $
+# $Id: lonnet.pm,v 1.383 2003/06/30 18:30:42 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -3190,12 +3190,12 @@
 #
 
 sub clear_EXT_cache_status {
-    &delenv('cache.');
+    &delenv('cache.EXT.');
 }
 
 sub EXT_cache_status {
     my ($target_domain,$target_user) = @_;
-    my $cachename = 'cache.'.$target_user.'.'.$target_domain;
+    my $cachename = 'cache.EXT.'.$target_user.'.'.$target_domain;
     if (exists($ENV{$cachename}) && ($ENV{$cachename}+1800) > time) {
         # We know already the user has no data
         return 1;
@@ -3206,7 +3206,7 @@
 
 sub EXT_cache_set {
     my ($target_domain,$target_user) = @_;
-    my $cachename = 'cache.'.$target_user.'.'.$target_domain;
+    my $cachename = 'cache.EXT.'.$target_user.'.'.$target_domain;
     &appenv($cachename => time);
 }