[LON-CAPA-cvs] cvs: loncom /debugging_tools move_construction_spaces.pl
raeburn
raeburn at source.lon-capa.org
Fri Jun 8 09:04:08 EDT 2012
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 {
More information about the LON-CAPA-cvs
mailing list