[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.916 and 1.917

version 1.916, 2007/10/01 21:52:57 version 1.917, 2007/10/01 23:53:44
Line 320  sub convert_and_load_session_env { Line 320  sub convert_and_load_session_env {
     my ($lonidsdir,$handle)=@_;      my ($lonidsdir,$handle)=@_;
     my @profile;      my @profile;
     {      {
  open(my $idf,'+<',"$lonidsdir/$handle.id");   my $opened = open(my $idf,'+<',"$lonidsdir/$handle.id");
  if (!$idf) {   if (!$opened) {
     return 0;      return 0;
  }   }
  flock($idf,LOCK_SH);   flock($idf,LOCK_SH);
Line 362  sub transfer_profile_to_env { Line 362  sub transfer_profile_to_env {
   
     my $convert;      my $convert;
     {      {
     open(my $idf,'+<',"$lonidsdir/$handle.id");      my $opened = open(my $idf,'+<',"$lonidsdir/$handle.id");
  if (!$idf) {   if (!$opened) {
     return;      return;
  }   }
  flock($idf,LOCK_SH);   flock($idf,LOCK_SH);
Line 408  sub check_for_valid_session { Line 408  sub check_for_valid_session {
     my $lonidsdir=$r->dir_config('lonIDsDir');      my $lonidsdir=$r->dir_config('lonIDsDir');
     return undef if (!-e "$lonidsdir/$handle.id");      return undef if (!-e "$lonidsdir/$handle.id");
   
     open(my $idf,'+<',"$lonidsdir/$handle.id");      my $opened = open(my $idf,'+<',"$lonidsdir/$handle.id");
     return undef if (!$idf);      return undef if (!$opened);
   
     flock($idf,LOCK_SH);      flock($idf,LOCK_SH);
     my %disk_env;      my %disk_env;
Line 459  sub appenv { Line 459  sub appenv {
             $env{$key}=$newenv{$key};              $env{$key}=$newenv{$key};
         }          }
     }      }
     open(my $env_file,'+<',$env{'user.environment'});      my $opened = open(my $env_file,'+<',$env{'user.environment'});
     if ($env_file      if ($opened
  && &timed_flock($env_file,LOCK_EX)   && &timed_flock($env_file,LOCK_EX)
  &&   &&
  tie(my %disk_env,'GDBM_File',$env{'user.environment'},   tie(my %disk_env,'GDBM_File',$env{'user.environment'},
Line 481  sub delenv { Line 481  sub delenv {
                 "Attempt to delete from environment ".$delthis);                  "Attempt to delete from environment ".$delthis);
         return 'error';          return 'error';
     }      }
     open(my $env_file,'+<',$env{'user.environment'});      my $opened = open(my $env_file,'+<',$env{'user.environment'});
     if ($env_file      if ($opened
  && &timed_flock($env_file,LOCK_EX)   && &timed_flock($env_file,LOCK_EX)
  &&   &&
  tie(my %disk_env,'GDBM_File',$env{'user.environment'},   tie(my %disk_env,'GDBM_File',$env{'user.environment'},
Removed from v.1.916  
changed lines
  Added in v.1.917

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