--- loncom/lcuserdel 2000/10/29 19:36:54 1.6 +++ loncom/lcuserdel 2000/10/29 22:07:20 1.7 @@ -15,6 +15,7 @@ use strict; # /etc/passwd, /etc/groups, and /etc/smbpasswd. # It also disables user directory access by making the directory # to be owned by user=www (as opposed to the former "username"). +# It also removes group membership from www (via the groupdel command). # This command only returns an error if it is # invoked incorrectly (by passing bad command-line arguments, etc). @@ -95,8 +96,8 @@ 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 2>/dev/null',$safeusername); # ignore error message system('/usr/sbin/groupdel 2>/dev/null',$safeusername); # ignore error message +system('/usr/sbin/userdel 2>/dev/null',$safeusername); # ignore error message # Remove entry from /etc/smbpasswd if it exists my $oldsmbpasswd=`/bin/cat /etc/smbpasswd`;