--- loncom/lcuserdel 2000/10/30 02:31:45 1.10 +++ loncom/lcuserdel 2000/10/30 03:37:51 1.12 @@ -42,9 +42,10 @@ use strict; # These are the exit codes. # ( (0,"ok"), # (1,"User ID mismatch. This program must be run as user 'www'"), -# (2,"Error. Too many other simultaneous password change requests being made."), +# (2,"Error. This program needs just 1 command-line argument (username).") ) # (3,"Error. Only one line should be entered into standard input."), -# (4,"Error. This program needs just 1 command-line argument (username).") ) +# (4,"Error. Too many other simultaneous password change requests being made."), +# (5,"Error. The user name specified has invalid characters.") ) # Security $ENV{'PATH'}=""; # Nullify path information. @@ -104,7 +105,7 @@ my $safeusername=$1; if ($username ne $safeusername) { print "Error. The user name specified has invalid characters.\n"; unlink('/tmp/lock_lcpasswd'); - exit 9; + exit 5; } &enable_root_capability; @@ -113,9 +114,9 @@ if ($username ne $safeusername) { # Remove entry from /etc/passwd if it exists # Remove entry from /etc/groups if it exists # I surround with groupdel command to make absolutely sure the group definition disappears. -system('/usr/sbin/groupdel 2>/dev/null',$safeusername); # ignore error message -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/groupdel',$safeusername); # ignore error message +system('/usr/sbin/userdel',$safeusername); # ignore error message +system('/usr/sbin/groupdel',$safeusername); # ignore error message # Remove entry from /etc/smbpasswd if it exists my $oldsmbpasswd=`/bin/cat /etc/smbpasswd`;