[LON-CAPA-cvs] cvs: loncom /automation Autocreate.pl

[raeburn]

raeburn		Wed Jun 29 18:03:12 2005 EDT

  Modified files:              
    /loncom/automation	Autocreate.pl 
  Log:
  %ENV -> %env changes.
  
  
Index: loncom/automation/Autocreate.pl
diff -u loncom/automation/Autocreate.pl:1.3 loncom/automation/Autocreate.pl:1.4
--- loncom/automation/Autocreate.pl:1.3	Wed Jun  1 14:26:20 2005
+++ loncom/automation/Autocreate.pl	Wed Jun 29 18:03:10 2005
@@ -69,8 +69,8 @@
     my @permissions = ('ccc','cin','cta','cep','ccr','cst');
     my %permissionflags = ();
     &set_permissions(\%permissionflags,\@permissions);
-    $ENV{'user.name'} = $dcname;
-    $ENV{'user.domain'} = $dcdom;
+    $env{'user.name'} = $dcname;
+    $env{'user.domain'} = $dcdom;
     my $wwwid=getpwnam('www');
     if ($wwwid!=$<) {
         my $emailto=$$perlvarref{'lonAdmEMail'};
@@ -126,8 +126,8 @@
     print $output;
 
     &unset_permissions(\%permissionflags);
-    delete($ENV{'user.name'});
-    delete($ENV{'user.domain'});
+    delete($env{'user.name'});
+    delete($env{'user.domain'});
     print $fh "-- ".localtime(time)." Autocreation messages end\n*******************\n\n";
     close($fh);
 
@@ -153,8 +153,8 @@
 sub set_permissions {
     my ($permissionflags,$permissions) = @_;
     foreach my $allowtype (@{$permissions}) {
-        unless($ENV{"allowed.$allowtype"}) {
-            $ENV{"allowed.$allowtype"} = 'F';
+        unless($env{"allowed.$allowtype"}) {
+            $env{"allowed.$allowtype"} = 'F';
             $permissionflags{$allowtype} = 1;
         }
     }
@@ -163,6 +163,6 @@
 sub unset_permissions {
     my ($permissionflags) = @_;
     foreach my $allowtype (keys %{$permissionflags}) {
-        delete($ENV{"allowed.$allowtype"});
+        delete($env{"allowed.$allowtype"});
     }
 }