loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

-version 1.1172.2.93.4.10, 2018/04/29 00:56:53
+version 1.1172.2.93.4.11, 2018/05/02 20:33:18
  Line 695  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';