loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

-version 1.5, 1999/11/22 17:23:13
+version 1.6, 1999/11/23 15:43:34
  Line 2
  # TCP networking package
  # 6/1/99,6/2,6/10,6/11,6/12,6/14,6/26,6/28,6/29,6/30,
  # 7/1,7/2,7/9,7/10,7/12,7/14,7/15,7/19,
- # 11/8,11/16,11/18,11/22 Gerd Kortemeyer
+ # 11/8,11/16,11/18,11/22,11/23 Gerd Kortemeyer
  package Apache::lonnet;
  Line 130  sub critical {
  # ---------------------------------------------------------- Append Environment
  sub appenv {
-     my ($name,$value)=@_;
+     my %newenv=@_;
-     my $fh;
+     my @oldenv;
-     unless ($fh=Apache::File->new(">>$ENV{'user.environment'}")) {
+     {
+      my $fh;
+      unless ($fh=Apache::File->new("$ENV{'user.environment'}")) {
  	return 'error';
+      }
+      @oldenv=<$fh>;
+     }
+     for (my $i=0; $i<=$#oldenv; $i++) {
+         chomp($oldenv[$i]);
+         my ($name,$value)=split(/=/,$oldenv[$i]);
+ 	$newenv{$name}=$value;
+     }
+     {
+      my $fh;
+      unless ($fh=Apache::File->new(">$ENV{'user.environment'}")) {
+ 	return 'error';
+      }
+      my $newname;
+      foreach $newname (keys %newenv) {
+ 	 print $fh "$newname=$newenv{$newname}\n";
+      }
      }
-     print $fh "$name=$value\n";
      return 'ok';
  }