loncom/lcuseradd - diff

Return to lcuseradd CVS log

Up to [LON-CAPA] / loncom

version 1.36, 2005/04/07 22:27:52	version 1.37, 2005/06/21 10:58:38
Line 249 my $status = system('/usr/sbin/useradd',	Line 249 my $status = system('/usr/sbin/useradd',
if ($status) {	if ($status) {
print "Error. Something went wrong with the addition of user ".	print "Error. Something went wrong with the addition of user ".
"\"$safeusername\".\n" unless $noprint;	"\"$safeusername\".\n" unless $noprint;
print "Final status of useradd = $status";	print "Final status of useradd = $status\n";
unlink('/tmp/lock_lcpasswd');	unlink('/tmp/lock_lcpasswd');
&Exit(12);	&Exit(12);
}	}
Line 480 sub set_public_html_permissions {	Line 480 sub set_public_html_permissions {
sub Exit {	sub Exit {
my ($code) = @_; # Status code.	my ($code) = @_; # Status code.

	# TODO: Ensure the error file is owned/deletable by www:www:

	&disable_root_capability(); # We run unprivileged to write the error file.

print "Exiting with status $code error file is $error_file\n" unless $noprint;	print "Exiting with status $code error file is $error_file\n" unless $noprint;
if($error_file) {	if($error_file) {
open(FH, ">$error_file");	open(FH, ">$error_file");