loncom/lcuserdel - diff

Return to lcuserdel CVS log

Up to [LON-CAPA] / loncom

version 1.12, 2000/10/30 03:37:51	version 1.14, 2002/10/07 01:52:28
Line 119 system('/usr/sbin/userdel',$safeusername	Line 119 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.