Return to pwchange CVS log

Up to [LON-CAPA] / loncom

Diff for /loncom/pwchange between versions 1.3 and 1.5

version 1.3, 2001/11/15 18:15:06	version 1.5, 2001/11/16 06:10:41
Line 1	Line 1
#!/usr/bin/perl	#!/usr/bin/perl

# The Learning Online Network	# The Learning Online Network with CAPA
#	#
# pwchange - setuid script to change unix passwords	# pwchange - setuid script to change unix passwords
#	#
Line 16 use strict;	Line 16 use strict;
$ENV{'PATH'}='/bin:/usr/bin'; # Nullify path information.	$ENV{'PATH'}='/bin:/usr/bin'; # Nullify path information.
delete @ENV{qw(IFS CDPATH ENV BASH_ENV)}; # nullify potential taints	delete @ENV{qw(IFS CDPATH ENV BASH_ENV)}; # nullify potential taints

# ----------------------------- Make sure this process is running from user=www	# ---------------------------- Make sure this process is running from user=root
my $wwwid=getpwnam('www');	my $wwwid=getpwnam('www');
if ($wwwid!=$<) {	if (0!=$<) {
exit 1;	exit 1;
}	}
# ----------------------------------------------- If not running setuid as root	# ----------------------------------------------- If not running setuid as root

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.3
changed lines
	Added in v.1.5