[LON-CAPA-cvs] cvs: doc /loncapafiles verify_domconfiguser.piml

[raeburn]

raeburn		Mon Aug 24 15:19:33 2009 EDT

  Modified files:              
    /doc/loncapafiles	verify_domconfiguser.piml 
  Log:
  - Fix ownership. 
  
  
Index: doc/loncapafiles/verify_domconfiguser.piml
diff -u doc/loncapafiles/verify_domconfiguser.piml:1.3 doc/loncapafiles/verify_domconfiguser.piml:1.4
--- doc/loncapafiles/verify_domconfiguser.piml:1.3	Mon Aug 24 14:57:31 2009
+++ doc/loncapafiles/verify_domconfiguser.piml	Mon Aug 24 15:19:33 2009
@@ -3,7 +3,7 @@
 <!-- verify_domconfiguser.piml -->
 <!-- Stuart Raeburn -->
 
-<!-- $Id: verify_domconfiguser.piml,v 1.3 2009/08/24 14:57:31 raeburn Exp $ -->
+<!-- $Id: verify_domconfiguser.piml,v 1.4 2009/08/24 15:19:33 raeburn Exp $ -->
 
 <!--
 
@@ -233,12 +233,14 @@
             if (open(OUT, "&gt;$confnamedir/roles.hist")) {
                 map { print OUT $_.' : '.$hash{$_}."\n"; } keys(%hash);
                 close(OUT);
+                system("/bin/chown www:www $confnamedir/roles.hist");
                 print "Author role assigned to domain configuration user in domain: $dom.\n";
             } else {
                 print "An error occurred updating the roles.hist file for the domain configuration user\n";
             }
         }
         untie %hash;
+        system("/bin/chown www:www $confnamedir/roles.db");
         if ($make_author) {
             my %domhash;
             my $domdir = $usersdir.'/'.$dom;
@@ -249,6 +251,7 @@
             $value =~ s/(\W)/"%".unpack('H2',$1)/eg;
             $domhash{$key}=$value;
             untie %domhash;
+            system("/bin/chown www:www $domdir/nohist_domainroles.db");
             print "Domain Roles database file updated in domain: $dom\n";
         } else {
             print "Verified domain configuration user has author role in domain: $dom.\n";