loncom/pwchange - diff

Return to pwchange CVS log

Up to [LON-CAPA] / loncom

version 1.2, 2001/11/15 18:13:32	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 12	Line 12

use strict;	use strict;

my $VERSION = 1.1;

# ------------------------------------------------------------------ Untainting	# ------------------------------------------------------------------ Untainting
$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