[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.89 and 1.91

version 1.89, 2001/01/09 19:55:31 version 1.91, 2001/01/09 22:27:07
Line 234  sub critical { Line 234  sub critical {
   
 sub appenv {  sub appenv {
     my %newenv=@_;      my %newenv=@_;
       my ($in,$out);
     map {      map {
  if (($newenv{$_}=~/^user\.role/) || ($newenv{$_}=~/^user\.priv/)) {   if (($newenv{$_}=~/^user\.role/) || ($newenv{$_}=~/^user\.priv/)) {
             &logthis("<font color=blue>WARNING: ".              &logthis("<font color=blue>WARNING: ".
Line 255  sub appenv { Line 256  sub appenv {
          $fh->close();           $fh->close();
          return 'error: '.$!;           return 'error: '.$!;
      }       }
        &logthis("<font color=green>appenv LOCK_SH gotten");
      @oldenv=<$fh>;       @oldenv=<$fh>;
        $in=$#oldenv+1;
        &logthis("<font color=green>appenv LOCK_SH to be closed");
      $fh->close();       $fh->close();
     }      }
       &logthis("<font color=green>Number of elements read appenv: ".$in."from".join(" ",caller));
     for (my $i=0; $i<=$#oldenv; $i++) {      for (my $i=0; $i<=$#oldenv; $i++) {
         chomp($oldenv[$i]);          chomp($oldenv[$i]);
         if ($oldenv[$i] ne '') {          if ($oldenv[$i] ne '') {
Line 279  sub appenv { Line 284  sub appenv {
          $fh->close();           $fh->close();
          return 'error: '.$!;           return 'error: '.$!;
      }       }
      foreach $newname (keys %newenv) {       &logthis("<font color=green>appenv LOCK_EX gotten");
        $out=0;
        foreach $newname (sort keys %newenv) {
  print $fh "$newname=$newenv{$newname}\n";   print $fh "$newname=$newenv{$newname}\n";
    $out++;
      }       }
        &logthis("<font color=green>appenv LOCK_EX to be closed");
      $fh->close();       $fh->close();
     }      }
       &logthis("<font color=green>Number of elements read appenv: ".$in." number out:".$out."from".join(" ",caller));
     return 'ok';      return 'ok';
 }  }
 # ----------------------------------------------------- Delete from Environment  # ----------------------------------------------------- Delete from Environment
Removed from v.1.89  
changed lines
  Added in v.1.91

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