[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.444 and 1.447

version 1.444, 2003/11/10 21:50:21 version 1.447, 2003/11/11 20:10:32
Line 247  sub transfer_profile_to_env { Line 247  sub transfer_profile_to_env {
             }              }
         }          }
     }      }
       $ENV{'user.environment'} = "$lonidsdir/$handle.id";
     foreach my $expired_key (keys(%Remove)) {      foreach my $expired_key (keys(%Remove)) {
         &delenv($expired_key);          &delenv($expired_key);
     }      }
     $ENV{'user.environment'} = "$lonidsdir/$handle.id";  
 }  }
   
 # ---------------------------------------------------------- Append Environment  # ---------------------------------------------------------- Append Environment
Line 895  EVALBLOCK Line 895  EVALBLOCK
  }   }
     } else {      } else {
  if (-e $filename) {   if (-e $filename) {
     &logthis("Unable to tie hash (save cache item): $name");      &logthis("Unable to tie hash (save cache item): $name ($!)");
     unlink($filename);      unlink($filename);
  }   }
     }      }
Line 939  EVALBLOCK Line 939  EVALBLOCK
  }           }        
     } else {      } else {
  if (-e $filename) {   if (-e $filename) {
     &logthis("Unable to tie hash (load cache item): $name");      &logthis("Unable to tie hash (load cache item): $name ($!)");
     unlink($filename);      unlink($filename);
  }   }
     }      }
Line 1970  sub store { Line 1970  sub store {
        }          } 
     }      }
     if (!$home) { $home=$ENV{'user.home'}; }      if (!$home) { $home=$ENV{'user.home'}; }
   
       $$storehash{'ip'}=$ENV{'REMOTE_ADDR'};
       $$storehash{'host'}=$perlvar{'lonHostID'};
   
     my $namevalue='';      my $namevalue='';
     foreach (keys %$storehash) {      foreach (keys %$storehash) {
         $namevalue.=escape($_).'='.escape($$storehash{$_}).'&';          $namevalue.=escape($_).'='.escape($$storehash{$_}).'&';
Line 2003  sub cstore { Line 2007  sub cstore {
     }      }
     if (!$home) { $home=$ENV{'user.home'}; }      if (!$home) { $home=$ENV{'user.home'}; }
   
       $$storehash{'ip'}=$ENV{'REMOTE_ADDR'};
       $$storehash{'host'}=$perlvar{'lonHostID'};
   
     my $namevalue='';      my $namevalue='';
     foreach (keys %$storehash) {      foreach (keys %$storehash) {
         $namevalue.=escape($_).'='.escape($$storehash{$_}).'&';          $namevalue.=escape($_).'='.escape($$storehash{$_}).'&';
Removed from v.1.444  
changed lines
  Added in v.1.447

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