loncom/lcuserdel - diff

Return to lcuserdel CVS log

Up to [LON-CAPA] / loncom

version 1.8, 2000/10/29 22:20:43	version 1.9, 2000/10/29 22:38:21
Line 35 use strict;	Line 35 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. Too many other simultaneous password change requests being made."),
	# (3,"Error. Only one line should be entered into standard input."),
	# (4,"Error. This program needs just 1 command-line argument (username).") )

# Security	# Security
$ENV{'PATH'}=""; # Nullify path information.	$ENV{'PATH'}=""; # Nullify path information.
Line 75 if (@ARGV==1) {	Line 80 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;