loncom/lchtmldir - diff

Return to lchtmldir CVS log

Up to [LON-CAPA] / loncom

version 1.12, 2004/12/06 12:07:59	version 1.15, 2005/01/26 12:13:58
Line 214 END	Line 214 END
close OUT;	close OUT;
}	}

&System("/bin/chmod 02775 $fulldir");	&System("/bin/chmod 02770 $fulldir");
&System("/bin/chmod 0775 $fulldir"."/index.html");	&System("/bin/chmod 0770 $fulldir"."/index.html");


# Based on the authentiation mode, set the ownership of the directory.	# Based on the authentiation mode, set the ownership of the directory.

if($authentication eq "unix:") { # Unix mode authentication...	if($authentication eq "unix:") { # Unix mode authentication...
&System("/bin/chown -R $safeuser".":".$safeuser." ".$fulldir);	print "Unix auth\n";
	&System("/bin/chown -R $safeuser:$safeuser"." ".$fulldir);
&JoinGroup($safeuser);	&JoinGroup($safeuser);
} else {	} else {
# Internal, Kerberos, and Local authentication are for users	# Internal, Kerberos, and Local authentication are for users
Line 300 sub DisableRoot {	Line 301 sub DisableRoot {
print("Disable root: id = ".$>."\n");	print("Disable root: id = ".$>."\n");
}	}
}	}
	#
	# Join the www user to the user's group.
	# we must be running with euid as root at this time.
	#
sub JoinGroup {	sub JoinGroup {
my $usergroup = shift;	my $usergroup = shift;

Line 319 sub JoinGroup {	Line 323 sub JoinGroup {
}	}
exit 6;	exit 6;
}	}
	if (-e '/var/run/httpd.pid') {
	open(PID,'/var/run/httpd.pid');
	my $pid=<PID>;
	close(PID);
	my ($safepid) = $pid=~ /(\d+)/;
	$pid = $safepid;
	if ($pid) {
	my $status = system("kill -USR1 $safepid");
	}
	}
}	}