loncom/lcuserdel - diff

Return to lcuserdel CVS log

Up to [LON-CAPA] / loncom

version 1.13, 2002/10/07 01:41:31	version 1.15, 2003/02/03 18:03:52
Line 2	Line 2
#	#
# lcuserdel	# lcuserdel
#	#
# Scott Harrison
# SH: October 27, 2000
# SH: October 28, 2000
# SH: October 29, 2000

use strict;	use strict;

Line 125 system('/usr/sbin/groupdel',$safeusernam	Line 121 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;
}	}