loncom/lcuserdel - diff

Return to lcuserdel CVS log

Up to [LON-CAPA] / loncom

version 1.13, 2002/10/07 01:41:31	version 1.16, 2007/08/22 19:53:22
Line 2	Line 2
#	#
# lcuserdel	# lcuserdel
#	#
# Scott Harrison
# SH: October 27, 2000
# SH: October 28, 2000
# SH: October 29, 2000

use strict;	use strict;

	# $Id$

# This script is a setuid script (chmod 6755) that should	# This script is a setuid script (chmod 6755) that should
# be run by user 'www'. It DOES NOT delete directories.	# be run by user 'www'. It DOES NOT delete directories.
# All it does is remove a user's entries from	# All it does is remove a user's entries from
Line 125 system('/usr/sbin/groupdel',$safeusernam	Line 123 system('/usr/sbin/groupdel',$safeusernam
if (-e '/usr/bin/smbpasswd') {	if (-e '/usr/bin/smbpasswd') {
($>,$<) = (0,0); # fool smbpasswd to think this is not setuid.	($>,$<) = (0,0); # fool smbpasswd to think this is not setuid.
system('/usr/bin/smbpasswd -x '.$safeusername);	system('/usr/bin/smbpasswd -x '.$safeusername);
	$< = $wwwid;
}	}