Return to lcuserdel CVS log

Up to [LON-CAPA] / loncom

Diff for /loncom/lcuserdel between versions 1.7 and 1.14

version 1.7, 2000/10/29 22:07:20	version 1.14, 2002/10/07 01:52:28
Line 15 use strict;	Line 15 use strict;
# /etc/passwd, /etc/groups, and /etc/smbpasswd.	# /etc/passwd, /etc/groups, and /etc/smbpasswd.
# It also disables user directory access by making the directory	# It also disables user directory access by making the directory
# to be owned by user=www (as opposed to the former "username").	# 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	# This command only returns an error if it is
# invoked incorrectly (by passing bad command-line arguments, etc).	# invoked incorrectly (by passing bad command-line arguments, etc).

Line 26 use strict;	Line 25 use strict;
# Standard input usage	# Standard input usage
# First line is USERNAME	# First line is USERNAME

	# Valid user names must consist of ascii
	# characters that are alphabetical characters
	# (A-Z,a-z), numeric (0-9), or the underscore
	# mark (_). (Essentially, the perl regex \w).

# Command-line arguments [USERNAME]	# Command-line arguments [USERNAME]
# Yes, but be very careful here (don't pass shell commands)	# Yes, but be very careful here (don't pass shell commands)
# and this is only supported to allow perl-system calls.	# and this is only supported to allow perl-system calls.
Line 36 use strict;	Line 40 use strict;
# print "uh-oh" if $exitcode;	# print "uh-oh" if $exitcode;

# These are the exit codes.	# These are the exit codes.
	# ( (0,"ok"),
	# (1,"User ID mismatch. This program must be run as user 'www'"),
	# (2,"Error. This program needs just 1 command-line argument (username).") )
	# (3,"Error. Only one line should be entered into standard input."),
	# (4,"Error. Too many other simultaneous password change requests being made."),
	# (5,"Error. The user name specified has invalid characters.") )

# Security	# Security
$ENV{'PATH'}=""; # Nullify path information.	$ENV{'PATH'}=""; # Nullify path information.
Line 76 if (@ARGV==1) {	Line 86 if (@ARGV==1) {
}	}
elsif (@ARGV) {	elsif (@ARGV) {
print("Error. This program needs just 1 command-line argument (username).\n") unless $noprint;	print("Error. This program needs just 1 command-line argument (username).\n") unless $noprint;
	unlink('/tmp/lock_lcpasswd');
exit 2;	exit 2;
}	}
else {	else {
@input=<>;	@input=<>;
if (@input!=1) {	if (@input!=1) {
print("Error. Only one line should be entered into standard input.\n") unless $noprint;	print("Error. Only one line should be entered into standard input.\n") unless $noprint;
	unlink('/tmp/lock_lcpasswd');
exit 3;	exit 3;
}	}
map {chop} @input;	map {chop} @input;
Line 90 else {	Line 102 else {
my ($username)=@input;	my ($username)=@input;
$username=~/^(\w+)$/;	$username=~/^(\w+)$/;
my $safeusername=$1;	my $safeusername=$1;
	if ($username ne $safeusername) {
	print "Error. The user name specified has invalid characters.\n";
	unlink('/tmp/lock_lcpasswd');
	exit 5;
	}

&enable_root_capability;	&enable_root_capability;

# By using the system userdel command:	# By using the system userdel command:
# Remove entry from /etc/passwd if it exists	# Remove entry from /etc/passwd if it exists
# Remove entry from /etc/groups if it exists	# Remove entry from /etc/groups if it exists
system('/usr/sbin/groupdel 2>/dev/null',$safeusername); # ignore error message	# I surround with groupdel command to make absolutely sure the group definition disappears.
system('/usr/sbin/userdel 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	# 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.

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

500 Internal Server Error

Internal Server Error

The server encountered an internal error or misconfiguration and was unable to complete your request.

Please contact the server administrator at root@localhost to inform them of the time this error occurred, and the actions you performed just before this error.

More information about this error may be available in the server error log.

Removed from v.1.7
changed lines
	Added in v.1.14