[LON-CAPA-cvs] cvs: loncom /debugging_tools move_construction_spaces.pl

[raeburn]

raeburn		Fri Jun  8 13:04:08 2012 EDT

  Modified files:              
    /loncom/debugging_tools	move_construction_spaces.pl 
  Log:
  - Fix permissions for /home/<user> and /home/<user>/public_html when
    moving Authoring Spaces from /home/httpd/html/priv to /home to revert
    from 2.11 to 2.10
  
  
Index: loncom/debugging_tools/move_construction_spaces.pl
diff -u loncom/debugging_tools/move_construction_spaces.pl:1.7 loncom/debugging_tools/move_construction_spaces.pl:1.8
--- loncom/debugging_tools/move_construction_spaces.pl:1.7	Fri Dec  9 03:01:44 2011
+++ loncom/debugging_tools/move_construction_spaces.pl	Fri Jun  8 13:04:08 2012
@@ -5,7 +5,7 @@
 # Move Construction Spaces from /home/$user/public_html
 # to /home/httpd/html/priv/$domain/$user and vice versa
 #
-# $Id: move_construction_spaces.pl,v 1.7 2011/12/09 03:01:44 raeburn Exp $
+# $Id: move_construction_spaces.pl,v 1.8 2012/06/08 13:04:08 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -821,7 +821,7 @@
         my $target_path="/home/$uname/public_html";
         if (!-e "/home/$uname") {
             my (undef,undef,$userid,$groupid) = getpwnam($uname);
-            if (mkdir("/home/$uname",0750)) {
+            if (mkdir("/home/$uname",0711)) {
                 if ($userid ne '' && $groupid ne '') {
                     chown($userid,$groupid,"/home/$uname");
                 }
@@ -835,7 +835,7 @@
             if (!-e $target_path) {
                 move($source_path,$target_path);
                 chown($uid,$gid,$target_path);
-                chmod(0750,$target_path);
+                chmod(02770,$target_path);
                 if (-e $target_path && !-e $source_path) {
                     $output = &mt('Moved [_1] to [_2].',"'$source_path'","'$target_path'")."\n";
                 } else {