loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

Up to [LON-CAPA] / loncom / lonnet / perl

-version 1.1375, 2018/04/14 02:30:01
+version 1.1376, 2018/05/01 14:28:41
  Line 762  sub appenv {
                  $env{$key}=$newenv->{$key};
              }
          }
-         my $opened = open(my $env_file,'+<',$env{'user.environment'});
+         my $lonids = $perlvar{'lonIDsDir'};
-         if ($opened
+         if ($env{'user.environment'} =~ m{^\Q$lonids/\E$match_username\_\d+\_$match_domain\_[\w\-.]+\.id$}) {
- 	    && &timed_flock($env_file,LOCK_EX)
+             my $opened = open(my $env_file,'+<',$env{'user.environment'});
- 	    &&
+             if ($opened
- 	    tie(my %disk_env,'GDBM_File',$env{'user.environment'},
+ 	        && &timed_flock($env_file,LOCK_EX)
- 	        (&GDBM_WRITER()|&GDBM_NOLOCK()),0640)) {
+ 	        &&
- 	    while (my ($key,$value) = each(%{$newenv})) {
+ 	        tie(my %disk_env,'GDBM_File',$env{'user.environment'},
- 	        $disk_env{$key} = $value;
+ 	            (&GDBM_WRITER()|&GDBM_NOLOCK()),0640)) {
- 	    }
+ 	        while (my ($key,$value) = each(%{$newenv})) {
- 	    untie(%disk_env);
+ 	            $disk_env{$key} = $value;
+ 	        }
+ 	        untie(%disk_env);
+             }
          }
      }
      return 'ok';