loncom/lcuserdel - diff

Return to lcuserdel CVS log

Up to [LON-CAPA] / loncom

version 1.3, 2000/10/28 18:25:47	version 1.4, 2000/10/28 19:22:19
Line 3	Line 3
# lcuserdel	# lcuserdel
#	#
# Scott Harrison	# Scott Harrison
# October 27, 2000	# SH: October 27, 2000
# October 28, 2000	# SH: October 28, 2000

use strict;	use strict;

Line 81 else {	Line 81 else {
map {chop} @input;	map {chop} @input;
}	}

	my ($username)=@input;
	$username=~/^(\w+)$/;
	my $safeusername=$1;

	# By using the system userdel command:
	# Remove entry from /etc/passwd if it exists
	# Remove entry from /etc/groups if it exists
	system('/usr/sbin/userdel',$safeusername);

	# Remove entry from /etc/smbpasswd if it exists

	# Move directory from /home/username to /home/username.1

	# Change ownership on directory from username:username to www:www
	# This prevents subsequently added users from having access.


&disable_root_capability;	&disable_root_capability;
unlink("/tmp/lock_lcpasswd");	unlink("/tmp/lock_lcpasswd");
exit 0;	exit 0;