--- loncom/lonnet/perl/lonnet.pm	2005/02/10 08:16:31	1.587.2.3.2.1
+++ loncom/lonnet/perl/lonnet.pm	2005/02/13 22:12:34	1.587.2.3.2.2
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.587.2.3.2.1 2005/02/10 08:16:31 albertel Exp $
+# $Id: lonnet.pm,v 1.587.2.3.2.2 2005/02/13 22:12:34 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -924,6 +924,7 @@ sub save_cache_item {
 }
 
 sub save_cache {
+    &purge_remembered();
     if ($disk_caching_disabled) { return; }
     my ($cache,$name,$id);
     foreach $name (keys(%do_save)) {
@@ -1030,6 +1031,8 @@ sub devalidate_cache_new {
 my $to_remember=10;
 my %remembered;
 my %accessed;
+my $kicks=0;
+my $hits=0;
 sub is_cached_new {
     my ($cache,$name,$id,$debug) = @_;
     $debug=0;
@@ -1037,6 +1040,7 @@ sub is_cached_new {
     if (exists($remembered{$id})) {
 	if ($debug) { &Apache::lonnet::logthis("Earyl return $id of $remembered{$id} "); }
 	$accessed{$id}=[&gettimeofday()];
+	$hits++;
 	return ($remembered{$id},1);
     }
     my $value = $cache->get($id);
@@ -1066,7 +1070,6 @@ sub do_cache_new {
     return $value;
 }
 
-my $kicks=0;
 sub make_room {
     my ($id,$value)=@_;
     my $debug=0;
@@ -1088,6 +1091,11 @@ sub make_room {
     return;
 }
 
+sub purge_remembered {
+    &logthis("Tossing ".scalar(keys(%remembered)));
+    undef(%remembered);
+    undef(%accessed);
+}
 # ------------------------------------- Read an entry from a user's environment
 
 sub userenvironment {
@@ -5656,6 +5664,7 @@ sub goodbye {
    &logthis(sprintf("%-20s is %s",'%resversioncache',length(&freeze(\%resversioncache))));
    &logthis(sprintf("%-20s is %s",'%remembered',length(&freeze(\%remembered))));
    &logthis(sprintf("%-20s is %s",'kicks',$kicks));
+   &logthis(sprintf("%-20s is %s",'hits',$hits));
    &flushcourselogs();
    &logthis("Shutting down");
    return DONE;