loncom/lcuserdel - diff

Return to lcuserdel CVS log

Up to [LON-CAPA] / loncom

version 1.12, 2000/10/30 03:37:51	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 119 system('/usr/sbin/userdel',$safeusername	Line 115 system('/usr/sbin/userdel',$safeusername
system('/usr/sbin/groupdel',$safeusername); # ignore error message	system('/usr/sbin/groupdel',$safeusername); # ignore error message

# Remove entry from /etc/smbpasswd if it exists	# Remove entry from /etc/smbpasswd if it exists
my $oldsmbpasswd=`/bin/cat /etc/smbpasswd`;	# the safest way to do this is with smbpasswd -x
my $newsmbpasswd=`/bin/grep -v '^${safeusername}:' /etc/smbpasswd`;	# as that's independent of location of the smbpasswd file.
	#
if ($oldsmbpasswd ne $newsmbpasswd) {	if (-e '/usr/bin/smbpasswd') {
open OUT,">/etc/smbpasswd";	($>,$<) = (0,0); # fool smbpasswd to think this is not setuid.
print OUT $newsmbpasswd;	system('/usr/bin/smbpasswd -x '.$safeusername);
close OUT;	$< = $wwwid;
}	}


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