[BACK]Return to Autocreate.pl CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / automation

Diff for /loncom/automation/Autocreate.pl between versions 1.3 and 1.5

version 1.3, 2005/06/01 18:26:20 version 1.5, 2005/07/11 20:00:58
Line 66 Line 66
     my @requests = grep(!/^\.\.?$/,readdir(DIR));      my @requests = grep(!/^\.\.?$/,readdir(DIR));
     closedir(DIR);      closedir(DIR);
     my %courseids = ();      my %courseids = ();
     my @permissions = ('ccc','cin','cta','cep','ccr','cst');      my @permissions = ('mau','ccc','cin','cta','cep','ccr','cst');
     my %permissionflags = ();      my %permissionflags = ();
     &set_permissions(\%permissionflags,\@permissions);      &set_permissions(\%permissionflags,\@permissions);
     $ENV{'user.name'} = $dcname;      $env{'user.name'} = $dcname;
     $ENV{'user.domain'} = $dcdom;      $env{'user.domain'} = $dcdom;
     my $wwwid=getpwnam('www');      my $wwwid=getpwnam('www');
     if ($wwwid!=$<) {      if ($wwwid!=$<) {
         my $emailto=$$perlvarref{'lonAdmEMail'};          my $emailto=$$perlvarref{'lonAdmEMail'};
Line 126 Line 126
     print $output;      print $output;
   
     &unset_permissions(\%permissionflags);      &unset_permissions(\%permissionflags);
     delete($ENV{'user.name'});      delete($env{'user.name'});
     delete($ENV{'user.domain'});      delete($env{'user.domain'});
     print $fh "-- ".localtime(time)." Autocreation messages end\n*******************\n\n";      print $fh "-- ".localtime(time)." Autocreation messages end\n*******************\n\n";
     close($fh);      close($fh);
   
Line 153  sub check_activedc { Line 153  sub check_activedc {
 sub set_permissions {  sub set_permissions {
     my ($permissionflags,$permissions) = @_;      my ($permissionflags,$permissions) = @_;
     foreach my $allowtype (@{$permissions}) {      foreach my $allowtype (@{$permissions}) {
         unless($ENV{"allowed.$allowtype"}) {          unless($env{"allowed.$allowtype"}) {
             $ENV{"allowed.$allowtype"} = 'F';              $env{"allowed.$allowtype"} = 'F';
             $permissionflags{$allowtype} = 1;              $permissionflags{$allowtype} = 1;
         }          }
     }      }
Line 163  sub set_permissions { Line 163  sub set_permissions {
 sub unset_permissions {  sub unset_permissions {
     my ($permissionflags) = @_;      my ($permissionflags) = @_;
     foreach my $allowtype (keys %{$permissionflags}) {      foreach my $allowtype (keys %{$permissionflags}) {
         delete($ENV{"allowed.$allowtype"});          delete($env{"allowed.$allowtype"});
     }      }
 }  }
Removed from v.1.3  
changed lines
  Added in v.1.5

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