loncom/pwchange - diff

Return to pwchange CVS log

Up to [LON-CAPA] / loncom

version 1.2, 2001/11/15 18:13:32	version 1.4, 2001/11/15 18:22:04
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