[BACK]Return to lonnet.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / lonnet / perl

Diff for /loncom/lonnet/perl/lonnet.pm between versions 1.587.2.3.2.1 and 1.587.2.3.2.2

version 1.587.2.3.2.1, 2005/02/10 08:16:31 version 1.587.2.3.2.2, 2005/02/13 22:12:34
Line 924  sub save_cache_item { Line 924  sub save_cache_item {
 }  }
   
 sub save_cache {  sub save_cache {
       &purge_remembered();
     if ($disk_caching_disabled) { return; }      if ($disk_caching_disabled) { return; }
     my ($cache,$name,$id);      my ($cache,$name,$id);
     foreach $name (keys(%do_save)) {      foreach $name (keys(%do_save)) {
Line 1030  sub devalidate_cache_new { Line 1031  sub devalidate_cache_new {
 my $to_remember=10;  my $to_remember=10;
 my %remembered;  my %remembered;
 my %accessed;  my %accessed;
   my $kicks=0;
   my $hits=0;
 sub is_cached_new {  sub is_cached_new {
     my ($cache,$name,$id,$debug) = @_;      my ($cache,$name,$id,$debug) = @_;
     $debug=0;      $debug=0;
Line 1037  sub is_cached_new { Line 1040  sub is_cached_new {
     if (exists($remembered{$id})) {      if (exists($remembered{$id})) {
  if ($debug) { &Apache::lonnet::logthis("Earyl return $id of $remembered{$id} "); }   if ($debug) { &Apache::lonnet::logthis("Earyl return $id of $remembered{$id} "); }
  $accessed{$id}=[&gettimeofday()];   $accessed{$id}=[&gettimeofday()];
    $hits++;
  return ($remembered{$id},1);   return ($remembered{$id},1);
     }      }
     my $value = $cache->get($id);      my $value = $cache->get($id);
Line 1066  sub do_cache_new { Line 1070  sub do_cache_new {
     return $value;      return $value;
 }  }
   
 my $kicks=0;  
 sub make_room {  sub make_room {
     my ($id,$value)=@_;      my ($id,$value)=@_;
     my $debug=0;      my $debug=0;
Line 1088  sub make_room { Line 1091  sub make_room {
     return;      return;
 }  }
   
   sub purge_remembered {
       &logthis("Tossing ".scalar(keys(%remembered)));
       undef(%remembered);
       undef(%accessed);
   }
 # ------------------------------------- Read an entry from a user's environment  # ------------------------------------- Read an entry from a user's environment
   
 sub userenvironment {  sub userenvironment {
Line 5656  sub goodbye { Line 5664  sub goodbye {
    &logthis(sprintf("%-20s is %s",'%resversioncache',length(&freeze(\%resversioncache))));     &logthis(sprintf("%-20s is %s",'%resversioncache',length(&freeze(\%resversioncache))));
    &logthis(sprintf("%-20s is %s",'%remembered',length(&freeze(\%remembered))));     &logthis(sprintf("%-20s is %s",'%remembered',length(&freeze(\%remembered))));
    &logthis(sprintf("%-20s is %s",'kicks',$kicks));     &logthis(sprintf("%-20s is %s",'kicks',$kicks));
      &logthis(sprintf("%-20s is %s",'hits',$hits));
    &flushcourselogs();     &flushcourselogs();
    &logthis("Shutting down");     &logthis("Shutting down");
    return DONE;     return DONE;
Removed from v.1.587.2.3.2.1  
changed lines
  Added in v.1.587.2.3.2.2

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