loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

-version 1.373, 2003/05/10 23:00:39
+version 1.374, 2003/05/13 00:52:47
  Line 243  sub critical {
      }
      return $answer;
  }
+ # ------------------------------------------- Transfer profile into environment
+ sub transfer_profile_to_env {
+     my ($lonidsdir,$handle)=@_;
+     my @profile;
+     {
+ 	my $idf=Apache::File->new("$lonidsdir/$handle.id");
+ 	flock($idf,LOCK_SH);
+ 	@profile=<$idf>;
+ 	$idf->close();
+     }
+     my $envi;
+     for ($envi=0;$envi<=$#profile;$envi++) {
+ 	chomp($profile[$envi]);
+ 	my ($envname,$envvalue)=split(/=/,$profile[$envi]);
+ 	$ENV{$envname} = $envvalue;
+     }
+     $ENV{'user.environment'} = "$lonidsdir/$handle.id";
+ }
  # ---------------------------------------------------------- Append Environment