loncom/debugging_tools/move_construction_spaces.pl - diff

Return to move_construction_spaces.pl CVS log

Up to [LON-CAPA] / loncom / debugging_tools

version 1.7, 2011/12/09 03:01:44	version 1.8, 2012/06/08 13:04:08
Line 821 sub move_priv_to_home {	Line 821 sub move_priv_to_home {
my $target_path="/home/$uname/public_html";	my $target_path="/home/$uname/public_html";
if (!-e "/home/$uname") {	if (!-e "/home/$uname") {
my (undef,undef,$userid,$groupid) = getpwnam($uname);	my (undef,undef,$userid,$groupid) = getpwnam($uname);
if (mkdir("/home/$uname",0750)) {	if (mkdir("/home/$uname",0711)) {
if ($userid ne '' && $groupid ne '') {	if ($userid ne '' && $groupid ne '') {
chown($userid,$groupid,"/home/$uname");	chown($userid,$groupid,"/home/$uname");
}	}
Line 835 sub move_priv_to_home {	Line 835 sub move_priv_to_home {
if (!-e $target_path) {	if (!-e $target_path) {
move($source_path,$target_path);	move($source_path,$target_path);
chown($uid,$gid,$target_path);	chown($uid,$gid,$target_path);
chmod(0750,$target_path);	chmod(02770,$target_path);
if (-e $target_path && !-e $source_path) {	if (-e $target_path && !-e $source_path) {
$output = &mt('Moved [_1] to [_2].',"'$source_path'","'$target_path'")."\n";	$output = &mt('Moved [_1] to [_2].',"'$source_path'","'$target_path'")."\n";
} else {	} else {